String-to-String Blowfish Encryption

Download Chilkat Crypt ActiveX

Demonstrates how to encrypt a string using the Blowfish algorithm and return the result in an encoded string.

procedure TForm1.Button3Click(Sender: TObject);
begin
    ChilkatCrypt21.UnlockComponent('test');
    ChilkatCrypt21.CryptAlgorithm := 'blowfish';
    // KeyLength can be 128-bit, 192-bit, or 256-bit
    ChilkatCrypt21.KeyLength := 128;
    ChilkatCrypt21.SecretKey := ChilkatCrypt21.GenerateSecretKey('password');
    // Encoding mode can be 'hex', 'url', "qp"
    ChilkatCrypt21.EncodingMode := 'base64';
    Memo2.Text := ChilkatCrypt21.EncryptStringENC(Memo1.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    ChilkatCrypt21.UnlockComponent('test');
    ChilkatCrypt21.CryptAlgorithm := 'blowfish';
    // KeyLength can be 128-bit, 192-bit, or 256-bit
    ChilkatCrypt21.KeyLength := 128;
    ChilkatCrypt21.SecretKey := ChilkatCrypt21.GenerateSecretKey('password');
    ChilkatCrypt21.EncodingMode := 'base64';
    Memo1.Text := ChilkatCrypt21.DecryptStringENC(Memo2.Text);
end;