|
Message-ID: <20130211151139.GA15143@openwall.com> Date: Mon, 11 Feb 2013 19:11:39 +0400 From: Solar Designer <solar@...nwall.com> To: john-users@...ts.openwall.com Subject: Re: SSHA-512 supported? On Mon, Feb 11, 2013 at 09:57:39AM -0500, Jon Schipp wrote: > $ time perl -e '$p = "{ssha512}04\$................"; print crypt("", > $p), "\n"; for ($n = 0; $n < 100000; $n++) { $c = crypt($n, $p); print > "$n $c\n" if ($c =~ /\.\.\.[^\$]*$/); }' > aFTwL7aZk7T3g I was afraid it'd be something like that... Can you try adding a trailing "$" to the salt string? That is: time perl -e '$p = "{ssha512}04\$................\$"; print crypt("", $p), "\n"; for ($n = 0; $n < 100000; $n++) { $c = crypt($n, $p); print "$n $c\n" if ($c =~ /\.\.\.[^\$]*$/); }' time perl -e '$p = "{ssha512}06\$................\$"; print crypt("", $p), "\n"; for ($n = 0; $n < 100000; $n++) { $c = crypt($n, $p); print "$n $c\n" if ($c =~ /\.\.\.[^\$]*$/); }' time perl -e '$p = "\$6\$................\$"; print crypt("", $p), "\n"; for ($n = 0; $n < 100000; $n++) { $c = crypt($n, $p); print "$n $c\n" if ($c =~ /\.\.\.[^\$]*$/); }' Also try with {ssha1} in place of {ssha512}: time perl -e '$p = "{ssha1}04\$................\$"; print crypt("", $p), "\n"; for ($n = 0; $n < 100000; $n++) { $c = crypt($n, $p); print "$n $c\n" if ($c =~ /\.\.\.[^\$]*$/); }' time perl -e '$p = "{ssha1}06\$................\$"; print crypt("", $p), "\n"; for ($n = 0; $n < 100000; $n++) { $c = crypt($n, $p); print "$n $c\n" if ($c =~ /\.\.\.[^\$]*$/); }' Thanks! Alexander
Powered by blists - more mailing lists
Confused about mailing lists and their use? Read about mailing lists on Wikipedia and check out these guidelines on proper formatting of your messages.