Sign in
googlers
/
maze
/
klibc
/
klibc-0.75
/
.
/
klibc
/
md5hash.pl
blob: a3aa8f6b38175d214317b881d3bcfea0d6c6895c [
file
] [
log
] [
blame
]
#!/usr/bin/perl
#
# Create a base64 MD5 hash of the input
#
use
Digest
::
MD5
;
$ctx
=
Digest
::
MD5
->
new
;
$ctx
->
addfile
(*
STDIN
);
$hash
=
$ctx
->
b64digest
;
$hash
=~
tr
/
\/
/
_
/;
# Slashes not wanted
print
$hash
,
"\n"
;