Opened by Gast at 2008-07-06 15:09
Ich habe hier versucht ein kleines Skript zu schreiben an dem ich
peinlicherweise direkt gescheitert bin.
Ich wollte 2 gegebene Dateien einlesen. (salts.txt) und (worte.txt)
und mit der crypt Funktion jedes Wort in allen 4096 DES salts verschlüsseln.
Nun klappt das mit den salts zwar, aber es wird nur "blank" mit den salts ver-
schlüsselt und nicht die gegebenen Wörter aus dem worte.txt file.
In einem anderen Versuch (nur verschlüsseln mit random salts) wurde automatisch
jedes Wort mit weniger als 8 Zeichen durch "Leerzeichen" auf 8 Zeichen ergänzt.
Hat irgendjemand eine erhellende Idee?
Und ja ich bin absoluter n00b was perl programmieren angeht.
Wollte es einfach mal probieren. :-S
Danke
Dirk
Anbei das "buggy" Skript das ich zusammengemurkst habe.
oder hier zum saugen:
hxxp://rapidshare.com/files/127567327/crypt_versuch.rar.html
peinlicherweise direkt gescheitert bin.
Ich wollte 2 gegebene Dateien einlesen. (salts.txt) und (worte.txt)
und mit der crypt Funktion jedes Wort in allen 4096 DES salts verschlüsseln.
Nun klappt das mit den salts zwar, aber es wird nur "blank" mit den salts ver-
schlüsselt und nicht die gegebenen Wörter aus dem worte.txt file.
In einem anderen Versuch (nur verschlüsseln mit random salts) wurde automatisch
jedes Wort mit weniger als 8 Zeichen durch "Leerzeichen" auf 8 Zeichen ergänzt.
Hat irgendjemand eine erhellende Idee?
Und ja ich bin absoluter n00b was perl programmieren angeht.
Wollte es einfach mal probieren. :-S
Danke
Dirk
Anbei das "buggy" Skript das ich zusammengemurkst habe.
oder hier zum saugen:
hxxp://rapidshare.com/files/127567327/crypt_versuch.rar.html
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open (SALT, "salts.txt") or die $!;
my @salts = <SALT>;
close (SALT);
open (DATEI, "worte.txt") or die $!;
my @daten = <DATEI>;
close (DATEI);
foreach (@salts)
{
$salt = <@salts>;
foreach (@daten)
{
$pwd = <@daten>;
print crypt($pwd,$salt)."\n";
}
}