Openwall GNU/*/Linux - a small security-enhanced Linux distro for servers
[<prev] [next>] [<thread-prev] [thread-next>] [day] [month] [year] [list]
Date: Mon, 11 Feb 2013 10:26:01 -0500
From: Jon Schipp <jonschipp@...il.com>
To: john-users@...ts.openwall.com
Subject: Re: SSHA-512 supported?

$ 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 =~ /\.\.\.[^\$]*$/); }'
6TE2Fa9WkC.UM
1607 oqC.5dB...SaU
3519 alD62qyEoy...
16457 8H0...dvts4ms
17297 BzCKFf1gyw...
30474 8/.GrurfQE...
34168 ...Bm0urKkWvU
63731 RlQHQWvj...Pc

real    0m17.227s
user    0m13.449s
sys     0m0.498s

$ 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 =~ /\.\.\.[^\$]*$/); }'
LfB6OBF02uEP2
17254 JRp38RTXmz...
19860 Vscj9W8q...vg
23622 5TGhb4Q6U4...
24713 rOwLfA03l...g
33907 ym...sblDPlWI
38769 F...xdh7OR4Ts
53391 sDPFvkB...2i6
73599 j5UgmZIEsc...
89502 D...DX0zrxJkk

real    0m17.214s
user    0m13.444s
sys     0m0.499s

$ 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 =~ /\.\.\.[^\$]*$/); }'
$6yW4NzrSbN6w
29894 $6T4GM...dv0Q
35767 $6z...9t2XCto
47580 $6auc50jGP...
51974 $6aD1zpdFg...
80755 $6HL...R3BO86
94591 $6LNKPfe...v2

real    0m15.688s
user    0m12.708s
sys     0m0.004s

w / {ssha1}:

$ 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 =~ /\.\.\.[^\$]*$/); }'
DeAGMxYPTdjUA
42705 ...Cq9agenAL6
66328 .Oj618...w0ZI
67272 ...aJp/SKgWpc
91331 ...QFIgZNcmgo

real    0m17.215s
user    0m13.445s
sys     0m0.498s

$ 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 =~ /\.\.\.[^\$]*$/); }'
2QIbV4ux6/GSg
27055 .ac6doUq98...
37041 VikCL/aaG...c
50445 6Bvr...JkVcX2
53168 .6odS...ODzVE
54006 nPh4Su...D0HA
57301 kgk...Fq4BGLw
82165 UWcYXdeYmA...
92747 A...y6qLtEjRw

real    0m17.228s
user    0m13.449s
sys     0m0.502s

On Mon, Feb 11, 2013 at 10:11 AM, Solar Designer <solar@...nwall.com> wrote:
> 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

Your e-mail address:

Confused about mailing lists and their use? Read about mailing lists on Wikipedia and check out these guidelines on proper formatting of your messages.