HD Moore
a4ea859a4f
git-svn-id: file:///home/svn/framework3/trunk@13135 4d416f70-5f16-0410-b530-b9f4589650da
20 lines
491 B
Perl
Executable File
20 lines
491 B
Perl
Executable File
#!/usr/bin/perl
|
|
# http://www.perl.com/CPAN-local/modules/by-module/MIME/MIME-Base64-2.06.tar.gz
|
|
# http://www.perl.com/CPAN-local/modules/by-module/SHA/SHA-1.2.tar.gz
|
|
|
|
use MIME::Base64;
|
|
use SHA;
|
|
if ("SHA-1" ne &SHA::sha_version) { die "wrong SHA version\n"; }
|
|
$sha = new SHA;
|
|
|
|
$label = "{SHA}";
|
|
$count = 1;
|
|
while(<>) {
|
|
chomp;
|
|
$hash = $sha->hash ($_);
|
|
printf ("%s:%s%s:%d:%d:%s:/home/%s/:\n",
|
|
$_, $label, encode_base64 ($hash . $salt, ""), $count, $count,
|
|
$_, $_);
|
|
$count++;
|
|
}
|