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

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