Delphi DLL

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 DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: HCkCrypt2;
s: PWideChar;

begin
crypt := CkCrypt2_Create();

// 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.

CkCrypt2_putEncodingMode(crypt,'hex');
s := CkCrypt2__genRandomBytesENC(crypt,8);
Memo1.Lines.Add('Uppercase Hex: ' + s);

CkCrypt2_putEncodingMode(crypt,'hex_lower');
s := CkCrypt2__genRandomBytesENC(crypt,8);
Memo1.Lines.Add('Lowercase Hex: ' + s);

CkCrypt2_putEncodingMode(crypt,'base64');
s := CkCrypt2__genRandomBytesENC(crypt,8);
Memo1.Lines.Add('Base64: ' + s);

CkCrypt2_putEncodingMode(crypt,'base64url');
s := CkCrypt2__genRandomBytesENC(crypt,8);
Memo1.Lines.Add('Base64Url: ' + s);

CkCrypt2_putEncodingMode(crypt,'base58');
s := CkCrypt2__genRandomBytesENC(crypt,8);
Memo1.Lines.Add('Base58: ' + s);

CkCrypt2_putEncodingMode(crypt,'base32');
s := CkCrypt2__genRandomBytesENC(crypt,8);
Memo1.Lines.Add('Base32: ' + s);

CkCrypt2_putEncodingMode(crypt,'decList');
s := CkCrypt2__genRandomBytesENC(crypt,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

CkCrypt2_Dispose(crypt);

end;