Help for this page

Select Code to Download


  1. or download this
    D:\>perl -le "use Digest::MD5 ('md5_base64'); local $/; open my $fh,sh
+ift or die $!; binmode $fh if shift; $file=<$fh>; print qq(Bytes: ),l
+ength($file),qq( ),md5_base64($file); " E:\Perl\bin\perl.exe 1
Bytes: 20540 vzpQPjhNDRjGpJccEa4iMw
  2. or download this
    D:\>perl -le "use Digest::MD5 ('md5_base64'); local $/; open my $fh,sh
+ift or die $!; binmode $fh if shift; $file=<$fh>; print qq(Bytes: ),l
+ength($file),qq( ),md5_base64($file); " E:\Perl\bin\perl.exe
Bytes: 8295 ZFaA5qHXAClj0d1czg6hQA