SHA1 key stretching - Printable Version

Code:
#!/usr/bin/perl



use strict;

use Digest::SHA1;





die "usage: $0 <hash list> <dictionary> <skey>\n" unless @ARGV == 3;

my $skey = $ARGV[2];



open(H, "<$ARGV[0]") || die "bad hash list";



my $i = 0;

$|++;

my $time = time;

while (<H>)

{

    $i++;



    my $sec = time - $time;

    $time = time;

    print "\rTesting hash $i... ($sec secs/hash)";

    chomp;

    my ($h, $s) = split(':');

    open(W, "<$ARGV[1]") || die "bad pass list";

    while (<W>)

    {

        chomp(my $w = $_);

        my $x = "--$s--$w--$skey";

        my $i = $skey;

        $i = Digest::SHA1::sha1_hex($i . $x) for 1 .. 10;

        if ($i eq $h)

        {

            print "\rgot: $h => $w\n";

            last;

        }

    }

    close W;

}



__DATA__    

    for (int b = c_start_block; b < blks; b++) {

        write("Processing block: %d\n", b);

        foreach (words[b * BLKSIZE..(b + 1) * BLKSIZE - 1], w) {

            foreach (hashes; h; s) {

                x = "--" + s + "--" + w + "--" + skey;

                i = skey;

                

                for (n = 0; n < 10; n++) {

                    i = String.string2hex(Crypto.SHA1.hash(i + x));

                }

            

                if (i == h) {

                    write("%s        %s\n", h, w);

                    f_cracked->write("%s:%s\n", h, w);

                }

            }

        }

    }