Follow @Openwall on Twitter for new release announcements and other news
[<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.