[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re: [FWP] crypt() fun
At 07:21 PM 6/14/00 +0100, Adam Sampson wrote:
>#!/usr/bin/perl
>@a = ('a'..'z', 'A'..'Z', '0'..'9', '/', '.');
>$w = join "", map { $a[rand @a] } 0..10;
>$w = crypt($c = $w, (substr $w, 2)) while ($c ne $w);
>print "$w\n";
>
>Not that it's found any results yet. ;)
Something to think about...
If you're DOING this work... save your failures.
You'd be creating a WONDERFUL crack dictionary. :)
Think of it as "if every hacker had access to that data, maybe we'd see MD5
getting used more often..." *G*
D
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe