Generate Secret Key from Password

The GenEncodedSecretKey method provides a way to produce a secret key from an arbitrarily sized password string. The secret key produced will be equal in bit length to the KeyLength. A given string passed to GenEncodedSecretKey will always produce the same key. (In other words, this is really a hash function and not a random key generator.)

Download Chilkat Crypt ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    OleCtrls;

...

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

begin
crypt := TChilkatCrypt2.Create(Self);

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

  end;

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

//  Transform an arbitrary-length password to a secret key
//  equal in bit-length to the KeyLength:

hexKey := crypt.GenEncodedSecretKey('my_password','hex');

//  Set the secret key:
crypt.SetEncodedKey(hexKey,'hex');

//  The hexKey is 16 bytes in length:
ShowMessage(hexKey);
end;