Forum: Object-Pascal / Delphi-Language
Delphi
by gammatester,
11. Jan 2008
Hier ist ein Code, der zumindest Dein Beispielshadow erzeugt. Units gibts auf http://home.netsurf.de/wolfgang.ehrhardt/crchash_de.html
bzw. im zip
Ausgabe ist:
Test:"L8QJdkpAkAe6/ucGxAbBq."
Calc:"L8QJdkpAkAe6/ucGxAbBq."
Schönes Wochenende
Gammatester
Forum: Object-Pascal / Delphi-Language
Delphi
by gammatester,
9. Jan 2008
Ein einfaches Salt-Dekodieren und dann wieder Zusammenbastelm wie zB so
salt:= Base64DecStr('7fX5iR5l');
MD5Init(Context);
MD5Update(Context, @salt, length(salt));
MD5Update(Context, @password, sizeof(password));
MD5Final(Context,Digest);
shadow := Base64Str(@digest, sizeof(Digest));