05.12.2009, 14:44
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
С нами:
8854881
Репутация:
35
|
|
Вот функция расшифровки хэша для qip infium:
Код:
procedure Decrypt(var S: String);
var
i: Byte;
begin
for i:= 1 to Length(S) do
S[i]:= not (Ord(S[i]) + i);
end;
Это всего лишь расшифровка, а поиск хэша приводить не буду =) любителям copy & paste придется подумать =) |
|
|