26.04.2010, 06:50
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
Провел на форуме:
520157
Репутация:
35
|
|
Вот функция расшифровки хэша из профиля *.qip :
Код:
procedure Decrypt(var S: String);
var
i: Integer;
begin
for i:= 1 to Length(S) do
S[i]:= not (Ord(S[i]) + i);
end;
Поиск хэша в профиле делай сам =Р |
|
|