(Delphi ActiveX) Password_Digest = Base64 (SHA-1 ( nonce + created + SHA-1 (password) ) )

Demonstrates how to compute:

Password_Digest = Base64 (SHA-1 ( nonce + created + SHA-1 (password)))

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
password: WideString;
crypt: TChilkatCrypt2;
prng: TChilkatPrng;
bd: TChilkatBinData;
dt: TCkDateTime;
created: WideString;
passwordSha1: WideString;
passwordDigest: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

password := 'secret';

crypt := TChilkatCrypt2.Create(Self);
crypt.HashAlgorithm := 'SHA-1';
crypt.EncodingMode := 'base64';

// Generate a 16-byte random nonce
prng := TChilkatPrng.Create(Self);
bd := TChilkatBinData.Create(Self);
prng.GenRandomBd(16,bd.ControlInterface);

// Get the current date/time in a string with this format: 2010-06-08T07:26:50Z
dt := TCkDateTime.Create(Self);
dt.SetFromCurrentSystemTime();
created := dt.GetAsTimestamp(0);
bd.AppendString(created,'utf-8');

// This example wishes to calculate a password digest like this:
// Password_Digest = Base64 ( SHA-1 ( nonce + created + SHA-1(password) ) )

// First SHA-1 digest the password...
passwordSha1 := crypt.HashStringENC(password);
// Append the 20 binary bytes of the SHA1 hash to bd, which already contains the nonce and created date/time.
bd.AppendEncoded(passwordSha1,'base64');

passwordDigest := crypt.HashBdENC(bd.ControlInterface);

Memo1.Lines.Add('Base64 password digest = ' + passwordDigest);
end;