MD5 Hash a String

Download Chilkat Crypt ActiveX

Delphi example to Digest-MD5 hash an XML document.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
xmlDoc: String;
hashStr: String;

begin
crypt := TChilkatCrypt2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := crypt.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Crypt component unlock failed');

  end;

xmlDoc := '<test><a>123</a><b>456</b><c>789</c></test>';

//  This example was created in response to a request to
//  do this:
//  XML-->byte[]-->MD5(byte[])-->Base64(string)

//  The output will be Base64, so set the EncodingMode:
crypt.EncodingMode := 'base64';

//  It is desired to hash bytes.  Depending on the programming
//  language, strings may be Unicode (2 bytes/char).  We don't
//  want to hash Unicode.  By setting the Charset property,
//  we're telling the encryption component to first convert
//  a string to the multibyte charset indicated.
crypt.Charset := 'windows-1252';

//  Set the hash algorithm:
//  Choices are: md5, sha1, sha256, sha384, sha512, md2, haval
crypt.HashAlgorithm := 'md5';

//  Hash the string:
//  Internally, this converts the string to bytes, hashes the bytes,
//  and converts the hash bytes to a Base64 encoded string:

//  Note: Any method in Chilkat Crypt that ends with "ENC" returns the
//  output bytes (i.e. hashed or encrypted) as an encoded string
//  according to the EncodingMode property, which can be "base64",
//  "hex", "url", "quoted-printable", or "html" (for HTML entities).
hashStr := crypt.HashStringENC(xmlDoc);

Memo1.Lines.Add(hashStr);
end;