FiveTech Support Forums

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
password: String;
hexKey: String;
text: String;
encText: String;
decryptedText: String;

begin
crypt := TChilkatCrypt2.Create(Self);

success := crypt.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Crypt component unlock failed');
    Exit;
  end;

password := 'secretPassPhrase';

crypt.CryptAlgorithm := 'aes';
crypt.CipherMode := 'cbc';
crypt.KeyLength := 128;

//  Generate a binary secret key from a password string
//  of any length.  For 128-bit encryption, GenEncodedSecretKey
//  generates the MD5 hash of the password and returns it
//  in the encoded form requested.  The 2nd param can be
//  "hex", "base64", "url", "quoted-printable", etc.
hexKey := crypt.GenEncodedSecretKey(password,'hex');
crypt.SetEncodedKey(hexKey,'hex');

crypt.EncodingMode := 'base64';
text := 'The quick brown fox jumped over the lazy dog.';

//  Encrypt a string and return the binary encrypted data
//  in a base-64 encoded string.
encText := crypt.EncryptStringENC(text);

Memo1.Lines.Add(encText);

//  Decrypt and show the original string:
decryptedText := crypt.DecryptStringENC(encText);

Memo1.Lines.Add(decryptedText);
end;