blob: 93d4940759a66043f6b8c3d5fdf5cbbe04d0b199 (
plain) (
tree)
|
|
Index: main/Crypt.pm
diff -u main/Crypt.pm.orig main/Crypt.pm
--- main/Crypt.pm.orig 2010-02-12 03:34:31.000000000 +0900
+++ main/Crypt.pm 2014-05-28 10:25:14.117593425 +0900
@@ -25,7 +25,7 @@
# encryptedのsaltでrawをcrypt()してみて、一致したかどうかを真偽値で返す。
my ($raw,$encrypted) = @_;
- return crypt($raw,substr($encrypted,0,2)) eq $encrypted;
+ return crypt($raw,$encrypted) eq $encrypted;
}
sub gen_salt {
|