系统管理工具包: 测试系统的有效性

即使清单 1 中只有两个字符不同，但获得的校验和数 字却大相径庭。清单 2 显示了相同的文件，这次是使用 md5 检查的。

清单 2. 使用 md5 检查文 件

$ md5 old new
MD5 (old) = 602f604720d3b57925e99bcaa7d931a4
MD5 (new) = c3f06c217a0f26c16f8d030837d8718b

这里的校验和明显不同，毫无疑问相关文件 在某些方面存在不同。

创建校验和的另一个解决方案是使用 Perl 生成校验和信息。Perl 使用的 一个模块是 Digest::MD5，该模块可以从数据的任何字符串或提供的文件生成 MD5 校验和。

清单 3 显示了一个简单的脚本，该脚本为命令行上作为十六进制字符串提供的文件返回 MD5 校验和（与清单 2 显示的格式完全相同）。

清单 3. 返回 MD5 校验和的脚本

use Digest::MD5;
use IO::File;
my $chk = Digest::MD5->new();
foreach my $file (@ARGV)
{
　　$chk->addfile(IO::File->new($file));
　　 print "$file -> ",$chk->hexdigest,"n";
}

您可以像前面一样在相同文件上运行脚本，并且应该获得完全相同的信息，如清单 4 所 示。

清单 4. 在相同的文件上运行 Digest::MD5

$ simpmd5.pl old new
old -> 602f604720d3b57925e99bcaa7d931a4
new -> c3f06c217a0f26c16f8d030837d8718b

（编辑：济南站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!