diff -ruN -x '*.png' -x '*.jpg' -x '*.ogg' -x '*_image_archive' ../orig/libcrypt-passwdmd5-perl-1.3/PasswdMD5.pm ./PasswdMD5.pm
--- ../orig/libcrypt-passwdmd5-perl-1.3/PasswdMD5.pm	2011-08-30 18:35:06.000000000 +0200
+++ ./PasswdMD5.pm	2004-02-17 12:21:38.000000000 +0100
@@ -95,7 +95,7 @@
     }
     else {
 	$salt = '';	 	# in case no salt was proffered
-	$salt .= substr($itoa64,int(rand(64)+1),1)
+	$salt .= substr($itoa64,int(rand(64)),1)
 			while length($salt) < 8;
     }