Hi Everyone,

Any help will be really appreciated!

I am new to elixir and was trying the crypto module for aes_128_cbc but facing issue

not sure why for eg. string “Hello” - it gives argument error while decryption and for large string eg. “testing the aes_cbc_128 encryption logic” first few words are getting dropped.

encryption process needs to be iv + plaintext with secret_key in AES 128 CBC mode and decrypt with the same secret_key.

sample I/O -

iex(5)> Aes.encrypt("hello")
"Wz0sXikhrijDsYjzz3AhnQ=="
iex(6)> Aes.decrypt("Wz0sXikhrijDsYjzz3AhnQ==")
** (ArgumentError) argument error

iex(6)> Aes.encrypt("testing the aes_cbc_128 encryption logic")
"R9OxXtbhEyyklWxGc6dffsUkXvQVTHnAeBhlSJgQ8nFpOlEYm2fMJuDAhXSKDEa8"
iex(7)> Aes.decrypt("R9OxXtbhEyyklWxGc6dffsUkXvQVTHnAeBhlSJgQ8nFpOlEYm2fMJuDAhXSKDEa8")
"cbc_128 encryption logic"
iex(8)> 

Erlang/OTP 23 [erts-11.1.8]
Interactive Elixir (1.9.1)

–Below is the code snippet for the same

defmodule Aes do
  # Use AES 128 Bit Keys for Encryption.
  @block_size 16

  def encrypt(plaintext) do
    # create random Initialisation Vector
    iv = :crypto.strong_rand_bytes(16)
    # sample secret_key is a 32 bit hex string 
    secret_key = Base.decode16!("548F11DE7F4393EAC0BB2391797AF7B5")
    plaintext = pad(plaintext, @block_size)
    encrypted_text = :crypto.crypto_one_time(:aes_128_cbc, secret_key, iv, plaintext, true )
    :base64.encode(encrypted_text)
  end

  def decrypt(ciphertext) do
    secret_key = Base.decode16!("548F11DE7F4393EAC0BB2391797AF7B5")
    ciphertext = :base64.decode(ciphertext)
    <<iv::binary-16, ciphertext::binary>> = ciphertext
    decrypted_text = :crypto.crypto_one_time(:aes_128_cbc, secret_key, iv, ciphertext, false )
    unpad(decrypted_text)
  end

  def unpad(data) do
    to_remove = :binary.last(data)
    :binary.part(data, 0, byte_size(data) - to_remove)
  end

# PKCS5Padding
  def pad(data, block_size) do
    to_add = block_size - rem(byte_size(data), block_size)
    data <> :binary.copy(<<to_add>>, to_add)
  end
end

Thanks!
Niranjan