摘自 中国Perl协会 用户推广组 tsingson 926579888
http://perlchina.sun126.com/cgi-bin/ccb/index.cgi
网上很多文件提供下载时，都有一个 MD5 校验和
其实这是一种加密技术用于对文件内容进行审计的方法，使用 精通读文件把文件读到内存中，再对文件内容作一个 MD5 校验得到一串密码，就是校验和。
这一串字符串与密码一样，可以使用同一算法再将生成，并以发布者的校验对比，就知道文件是否在传输过程中被人恶意修改过。
MD5 校验和也可以使用于 perl 脚本加简单保护。除了配置文件以外，可以生成一个校验和库，对所有 .cgi .pl .pm 文件进行验校，如果发现脚本被修改过，则可以作相应处理 （ 如自我删除什么，当然在运行时要求验证脚本为 0666 或 0777 属性，这样才可以删除）
生成校验和的方法如下
以下内容为程序代码:
use MD5;
my $md5 = new MD5;
my $filename = "/usr/local/kkkk.pm";
open FILE, $filename or die "file can’t read";
$md5->addfile(FILE);
close FILE;
my $checksum = $md5->hexdigest();
print "$checksum";
|
$checksum 就是得到文件 $filename 的校验和。
