Is there lib for rijndael256

[Xor-el]

Nothing in API PDF about padding, but it use CBC mode,
like in this somple php code

Code: [Select]

        $iv = hash("SHA256", $apikey, true);
        $key = md5($secret);
        $output = mcrypt_encrypt(MCRYPT_RIJNDAEL_256, $key, $string, MCRYPT_MODE_CBC, $iv);
        return rtrim(strtr(base64_encode($output), '+/', '-_'), '=');


Just download CryptoLib4Pascal and it's dependencies and compile the attached demo.
demo produces same result as your vectors.

[Zaher]

Yes, thank you so much,

It is work fine, I will post it here for easy find it by searchers

https://github.com/Xor-el/CryptoLib4Pascal/

Code: [Select]

function CustomRijndael256Encrypt(const AInput, AKey: AnsiString; AIV: TBytes): AnsiString;
var
  engine: IRijndaelEngine;
  blockCipher: ICbcBlockCipher;
  cipher: IBufferedCipher;
  KeyParametersWithIV: IParametersWithIV;
  InputBytes, KeyBytes, EncryptionResult: TBytes;
begin
  InputBytes := TEncoding.UTF8.GetBytes(UnicodeString(AInput));

  KeyBytes := TEncoding.UTF8.GetBytes(UnicodeString(AKey));
  //IVBytes := TBase16.Decode(AIV);

  engine := TRijndaelEngine.Create(256);
  blockCipher := TCbcBlockCipher.Create(engine); // CBC
  cipher := TPaddedBufferedBlockCipher.Create(blockCipher, TZeroBytePadding.Create() as IZeroBytePadding);

  KeyParametersWithIV := TParametersWithIV.Create(TKeyParameter.Create(keyBytes) as IKeyParameter, AIV);

  cipher.Init(True, KeyParametersWithIV);
  EncryptionResult := cipher.DoFinal(InputBytes);
  // check excess padding and remove to conform to certain implementations like CryptoJs
  if System.Length(InputBytes) mod 32 = 0 then
  begin
    EncryptionResult := TArrayUtils.CopyOf(EncryptionResult, System.Length(EncryptionResult) - 32);
  end;
  Result := TBase64.UrlEncoding.Encode(EncryptionResult);
end;


[Xor-el]

You are welcome.