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;
Добавлено через 7 часов 39 минут
Сколько не парилась что бы найти рабочую реализацию RSA шифрации которую можно было бы прикрутить к реализации логин сервера l2 так и не получилось... может у кого нибудь есть наработки по этой теме? кто чем поможет - буду благодарна. Хочу сделать логин сервер л2, xor`у это уже вроде не помешает так что с чистой совестью прошу помочь...
__________________
Coding is my live...
Последний раз редактировалось Алёна, 08.06.2010 в 01:31.
Причина: Добавлено сообщение
xkor, не подскажешь как реализовать Гейм сервер? а то я пытаюсь пакет 0x2E (KeyPacket) от другого сервера слать, но приём и расшифровка пакетов роходит норм, а вот шифрация и отправление клиенту - уже что то не так...