[<prev] [next>] [<thread-prev] [thread-next>] [day] [month] [year] [list]
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.
