(Delphi ActiveX) MD5 Hash a String (such as a password string)
Demonstrates how to MD5 hash a string to get MD5 hash in hex encoded string representation. (The MD5 hash is 16 bytes, and therefore a hex encoded MD5 hash would be 32 chars.)
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;
md5Hex: WideString;
begin
password := 'myPassword';
crypt := TChilkatCrypt2.Create(Self);
crypt.HashAlgorithm := 'md5';
crypt.EncodingMode := 'hex';
md5Hex := crypt.HashStringENC(password);
Memo1.Lines.Add('MD5 hash (as a hex string) = ' + md5Hex);
// The hex string will be uppercase. Your application
// can easily convert it to lowercase if desired via non-Chilkat means.
end;
|