128-Bit AES Encryption and Decryption (String-to-String)

Download Chilkat Crypt ActiveX

Encrypt a string using 128-bit AES (Rijndael) encryption, encoding the encrypted binary data into a Base64 result string. Also includes sample code showing the reverse.

procedure TForm1.Button3Click(Sender: TObject);
begin
    ChilkatCrypt21.UnlockComponent('test');
    ChilkatCrypt21.CryptAlgorithm := 'aes';
    ChilkatCrypt21.KeyLength := 128;
    ChilkatCrypt21.SecretKey := ChilkatCrypt21.GenerateSecretKey('password');
    ChilkatCrypt21.EncodingMode := 'base64';
    Memo2.Text := ChilkatCrypt21.EncryptStringENC(Memo1.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    ChilkatCrypt21.UnlockComponent('test');
    ChilkatCrypt21.CryptAlgorithm := 'aes';
    ChilkatCrypt21.KeyLength := 128;
    ChilkatCrypt21.SecretKey := ChilkatCrypt21.GenerateSecretKey('password');
    ChilkatCrypt21.EncodingMode := 'base64';
    Memo1.Text := ChilkatCrypt21.DecryptStringENC(Memo2.Text);
end;