مكتبة فك تشفير AES_256 - نسخة قابلة للطباعة

كود :

procedure TForm1.Button1Click(Sender: TObject);
var sLibrary : TCryptographicLibrary;
    sCodec : TCodec;
    str1, Cr, Dec : string;
    sEncoding : TEncoding;
begin
  str1 := 'delphi4arab.net this is text ....';

  sLibrary := TCryptographicLibrary.Create(Self);
  sCodec := TCodec.Create(Self);
  try
    sCodec.CryptoLibrary := sLibrary;
    sCodec.StreamCipherId := 'native.StreamToBlock';
    sCodec.BlockCipherId := 'native.AES-256';
    sCodec.ChainModeId := 'native.ECB';
    sCodec.Password := 'password';


    sCodec.EncryptString(str1, Cr, sEncoding.ANSI);
    sCodec.DecryptString(Dec, Cr, sEncoding.ANSI);

  finally
    sCodec.Free;
    sLibrary.Free;
  end;

  Edit1.Text := Cr;
  Edit2.Text := Dec;
end;

كود :

    public static String decrypt(String strToDecrypt) {
        try {
            Cipher cipher = Cipher.getInstance("AES/ECB/PKCS5PADDING");
            cipher.init(Cipher.DECRYPT_MODE,setKey('password'));
            return new String(cipher.doFinal(Base64.decode(strToDecrypt.getBytes(), Base64.DEFAULT)));