perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 15
Click for quality!




12.02.2012 / 02:55

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitragperl skript to generate a look up table
Seitenanfang
hallo,
kann mir jemand einen Perl skript zur generierung von Look-up table schicken?
gruß.
Laure

Datum: 09.05.2007-14:45

Beitragre: perl skript to generate a look up table
Seitenanfang
Wenn's nichts weiter ist, hier:

#!/usr/bin/perl
# quick 'n' dirty script that generates lookup tables of md5 hashed passwords as hash data structure (no salts! memory expensive!)

use strict;
use warnings;

use Digest;
use Storable;

my %lut;

for my $pw ('aaaaa' .. 'zzzzz') {
my $ctx = Digest->new('MD5');

$lut{$pw} = $ctx->add($pw)->hexdigest();
}

store \%lut, 'lookup.tbl';


siehe auch
perldoc perlintro
perldoc perlfaq2

Datum: 09.05.2007-15:43

-






-
-