procedure LoginXORDecrypt - или как обратить функцию.

[Алёна]

Уважаемые форумчане. Приветствую всех, и прошу помоч тех что разбирается в программировании. Есть функция (взята с этого форума), нужно сделать обратную ей, кто может помогите- сколько билась - никак не получается

Собственно функция:

procedure LoginXORDecrypt(var buff:array of char; size: integer);
var
  i,k: Integer;
begin
  i:=size-8;
  k:=PInteger(@buff[i])^;
  while i>=6 do begin
    PInteger(@buff[i])^:=PInteger(@buff[i])^ xor k;
    k:=k-PInteger(@buff[i])^;
    i:=i-4;
  end;
end;

собственно нужно сделать LoginXOREncript ...

[Sherman]

перехват трафика, расшифровка пакета и отправка логина и пароля на почту?)))

[Алёна]

Сообщение от Sherman

перехват трафика, расшифровка пакета и отправка логина и пароля на почту?)))

... я ведь просто хочу авторизовать валкера

[xkor]

Алёна,

procedure LoginXOREncrypt(var xpck: TFixPck);
var
  i,k: Integer;
begin
  i:=xpck.size-8;
  k:=PInteger(@xpck.ch[i])^;
  i:=6;
  while i<xpck.size-8 do begin
    k:=k+PInteger(@xpck.ch[i])^;
    PInteger(@xpck.ch[i])^:=PInteger(@xpck.ch[i])^ xor k;
    i:=i+4;
  end;
  i:=xpck.size-8;
  PInteger(@xpck.ch[i])^:=k;
end;

procedure LoginXORDecrypt(var xpck: TFixPck);
var
  i,k: Integer;
begin
  i:=xpck.size-8;
  k:=PInteger(@xpck.ch[i])^;
  while i>=6 do begin
    PInteger(@xpck.ch[i])^:=PInteger(@xpck.ch[i])^ xor k;
    k:=k-PInteger(@xpck.ch[i])^;
    i:=i-4;
  end;
end;

[Алёна]

xkor, Спасибо

Добавлено через 7 часов 39 минут
Сколько не парилась что бы найти рабочую реализацию RSA шифрации которую можно было бы прикрутить к реализации логин сервера l2 так и не получилось... может у кого нибудь есть наработки по этой теме? кто чем поможет - буду благодарна. Хочу сделать логин сервер л2, xor`у это уже вроде не помешает так что с чистой совестью прошу помочь...

[xkor]

http://coderx.ru/showpost.php?p=32816&postcount=69
и
http://coderx.ru/showpost.php?p=58035&postcount=24

Добавлено через 1 минуту
впринципе ещё могу дать сорци моей попытки сделать л2 сервак, RSA авторизацию я там сделать успел до того как забил)

[guplen]

Сообщение от xkor

http://coderx.ru/showpost.php?p=32816&postcount=69
и
http://coderx.ru/showpost.php?p=58035&postcount=24

Добавлено через 1 минуту
впринципе ещё могу дать сорци моей попытки сделать л2 сервак, RSA авторизацию я там сделать успел до того как забил)

Я бы не отказался от таких исходничков

[xkor]

ну ловите раз не отказываетесь)

[Алёна]

xkor, Спасибо большое, ты опять меня выручаешь

[Алёна]

xkor, не подскажешь как реализовать Гейм сервер? а то я пытаюсь пакет 0x2E (KeyPacket) от другого сервера слать, но приём и расшифровка пакетов роходит норм, а вот шифрация и отправление клиенту - уже что то не так...