Delphi ActiveX

Example: Crypt2.GenRandomBytesENC method

Shows how to use the GenRandomBytesENC method to generate a specified number of random bytes and return them as a binary encoded string, such as in base64 or hex format. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
s: WideString;

begin
crypt := TChilkatCrypt2.Create(Self);

// Example of a some of the binary encodings supported by Chilkat.

// Internally uses the Fortuna cryptographically secure random number generation algorithm
// auto-seeded from a secure source of entropy that depends on the OS.

crypt.EncodingMode := 'hex';
s := crypt.GenRandomBytesENC(8);
Memo1.Lines.Add('Uppercase Hex: ' + s);

crypt.EncodingMode := 'hex_lower';
s := crypt.GenRandomBytesENC(8);
Memo1.Lines.Add('Lowercase Hex: ' + s);

crypt.EncodingMode := 'base64';
s := crypt.GenRandomBytesENC(8);
Memo1.Lines.Add('Base64: ' + s);

crypt.EncodingMode := 'base64url';
s := crypt.GenRandomBytesENC(8);
Memo1.Lines.Add('Base64Url: ' + s);

crypt.EncodingMode := 'base58';
s := crypt.GenRandomBytesENC(8);
Memo1.Lines.Add('Base58: ' + s);

crypt.EncodingMode := 'base32';
s := crypt.GenRandomBytesENC(8);
Memo1.Lines.Add('Base32: ' + s);

crypt.EncodingMode := 'decList';
s := crypt.GenRandomBytesENC(8);
Memo1.Lines.Add('Decimal List: ' + s);

// Sample Output:

// Uppercase Hex: 1BA0E87915C3B429
// Lowercase Hex: 1e1638a1c7996c58
// Base64: 1lV0I/su5lg=
// Base64Url: Zq7DU0nukLk
// Base58: foUVWUjAT6e
// Base32: LHV5RV4HRCLW2===
// Decimal List: 168,55,214,82,93,154,191,164
end;