[Delphi] Odkodowywanie hasła

czy ktoś wie jak odkodować hasło z gadu gadu z katalogu users/username/config.dat ? to to coś po słowie password2 ... ?

Kiedyś odczytałem Siostrze lol :D
Najlepiej ustaw sobie hasło abcdefgh
I sprawdź jakie literki czemu odpowiadają :-D

w necie jest program do łamania haseł z gadu gadu (nazwy nie pamiętam niestety)

Ale mu chodziło o kod w Delphi ;]

a jak nie: www.powergg.prv.pl

mailnij do mnie..dam ci kod
(BTW do celów edukacyjnych :-) )

Ktos kiedys na forum podal kodzik jak mozna to haselko odszyfrowac http://www.4programmers.net/forum/viewtopic.php?id=13394 tu wlasnie mozna to znaleŹĆ :)

procedure TForm1.Button1Click(Sender: TObject);
var
str,haslo : string;
i,licz,licz1,liczba : integer;
begin
if length(edit1.text) > 0 then
begin
str:=edit1.text;
i:=0;
repeat
i:=i+1;
licz:=ord(str[i])-65;
i:=i+1;
licz1:=ord(str[i])-65;
liczba:=licz1*16+licz;
haslo:=haslo+(chr(liczba));
until i=length(str);
edit2.text:=haslo;
end;
end;

edit1 text to kod z config.dat (password2)
a edit2 to juz rozkodowany tekst

Wszystko ładnie, pięknie, tylko czy po modyfikacjach zadziała to także w drugą stronę? [diabel]

na www.cc-team.org jest art jak wyciągać info z gg w tym pass

Em.. nie rozumiesz.. teraz mi chodzi o napisanie procedury odwrotnej w działaniu procedury Ziombera [:)] Ale thx za link :)

Witam
Po pierwsze sorka za odgrzebywanie starych tematów ,ale nie chciałem zakładać nowego.
Mam problem. Chce napisać prosty i uniwersalny program od odkodowywania nr i hasło gg. Z numerem sobie poradziłem ponieważ numer zawsze jest zakodowany w 3 znakach, czyli mogłem ustalić wartość Copy tak:

Copy(S,Pos('Number',S)+8,3);

ale w przypadku hasła nie jest już tak łatwo. Na przykład moje hasło zawiera 14 znakow w pliku config.dat i moge ustalic wartosc Copy tak:

Copy(dane,Pos('Password2',dane)+11,14)

Ale jak zrobić aby "Odczytywacz haseł" był uniwersalny

Z góry thx za pomoc