(Delphi DLL) 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, Crypt2;
...
procedure TForm1.Button1Click(Sender: TObject);
var
password: PWideChar;
crypt: HCkCrypt2;
md5Hex: PWideChar;
begin
password := 'myPassword';
crypt := CkCrypt2_Create();
CkCrypt2_putHashAlgorithm(crypt,'md5');
CkCrypt2_putEncodingMode(crypt,'hex');
md5Hex := CkCrypt2__hashStringENC(crypt,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.
CkCrypt2_Dispose(crypt);
end;
|