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

program crctest;
{$mode objfpc}
{$h+}
uses
sysutils,
crc;
var
crc2:longword;
s:string;
begin
readln(s);
crc2:= crc32(crc2,@s[1],length(s));
writeln(crc2);//输出为十进制的CRC32校验值。十进制、十进制、十进制，重要的事情说三遍！！！
//（转为16进制后就为如图）
end.