99%的人不知道Pascal原生支持MD5校验！

{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
SysUtils,Classes,md5,dateutils;
var
StartTime: TDateTime;
EndTime: TDateTime
s,ss: string;
begin
readln(s); //输入要计算的文本
StartTime:=now;
ss := LowerCase(MDPrint(MDString(s, MD_VERSION_5)));
writeln(ss);//输出MD5值
EndTime:=now;
writeln('Time:');
writeln(TimeToStr(EndTime-StartTime));
end.