Use the units in the Indy control to generate the MD5 code

I want to verify some of them.ProgramI kept an md5.pas MD5 code. I found it in the Indy control that comes with delphi2009 after turning over the information.Algorithm, Easy to use:

 

UsesIdhashmessagedigest;// Remember to use this unit first

 

{Oolong Harry, delphi2009 + WINXP SP3, last modified 20090513}
Procedure tform1.button1click (Sender: tobject );
VaR
Mymd5: tidhashmessagedigest5;
Memsteam: tmemorystream;
S: string;
Begin
Memsteam: = tmemorystream. Create;
Memsteam. loadfromfile ('d:/international price of bare diamond 20080925.xlsx ');
Mymd5: = tidhashmessagedigest5.create;
S: = mymd5.hashstreamashex (memsteam );
// S: = mymd5.hashstringashex ('abcd ');// Calculate the MD5 code of the string directly.

Showmessage ('32: '+ S );// Display the MD5 Signature result of 32 characters
Showmessage ('16: '+ copy (S, 9, 16 ));// Display the MD5 Signature result with 16 characters

Mymd5.free;
Memsteam. Free;
End;

It won't be changed yetCodeThe box is so ugly. Let's see how other people do it.