[icq-devel] icq 2000 protocol (oscar?)



Massimo Melina rejetto at libero.it
Wed Aug 22 23:44:55 CEST 2001


Hello Daniel,

Tuesday, August 21, 2001, 9:04:33 AM, you wrote:

DW> does anyone know how the encryption of the password works?

i saw you use delphi, that's the function i succesfully use in my client

function encrypted(s:string):string;
const
  cryptData:array [1..16] of byte=($F3,$26,$81,$C4,$39,$86,$DB,$92,$71,$A3,$B9,$E6,$53,$7A,$95,$7C);
var
  i:integer;
begin
i:=length(s);
setLength(result,i);
while i > 0 do
  begin
  byte(result[i]):=byte(s[i]) xor cryptData[i];
  dec(i);
  end;
end; // encrypted

-rejetto





More information about the icq-devel mailing list