2017-02-27 07:43:55 -08:00
|
|
|
{$mode objfpc}
|
|
|
|
|
{$codepage utf8}
|
|
|
|
|
{$h+}
|
|
|
|
|
Program MDTest;
|
|
|
|
|
|
|
|
|
|
Uses
|
|
|
|
|
Hash.Md,
|
|
|
|
|
SysUtils,
|
|
|
|
|
DateUtils,
|
|
|
|
|
Classes;
|
|
|
|
|
|
|
|
|
|
begin
|
2017-03-01 16:22:02 -08:00
|
|
|
Writeln('MD2 : ', Md.md2(DateTimeToStr(Now)));
|
|
|
|
|
Writeln('MD4 : ', Md.md4(DateTimeToStr(Now)));
|
|
|
|
|
Writeln('MD5 : ', Md.md5(DateTimeToStr(Now)));
|
2017-02-27 07:43:55 -08:00
|
|
|
end.
|
