Opened by Gast at 2008-07-06 15:09
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use strict;
use warnings;
open (SALT, "salts.txt") or die $!;
my @salts = <SALT>;
close (SALT);
open (DATEI, "worte.txt") or die $!;
my @daten = <DATEI>;
close (DATEI);
foreach my $salt (@salts)
{
foreach my $pwd (@daten)
{
chomp $salt;
chomp $pwd;
print crypt($pwd,$salt)."\n";
}
}
Immer wieder faszinierend wie einfach etwas geht wenn jemand weiss was er tut.
Vielen Dank Renee, das Skript tut jetzt was es soll und das um den Faktor 10000 schneller. :-?
Wenn mir jemand noch sagen kann weshalb das Teil jetzt so fliegt wäre ich komplett glücklich. :-P
Erstmal danke für die prompte Hilfe
Dirk