nontxt
28.08.2011, 14:34
Доброе время суток.
Юзаю l2phx.3.5.33.172
Собственно дело в том, что сервер не пускает с исходником из этой темы Как писать newxor.dll (http://coderx.ru/showthread.php?t=6674)
Без него пускает,а с ним доходит только до выбора серва.
Сервер High Five новый, очень много багов и недочетов, (даже оли с багами).
И как я понимаю, с этого исходника newxor.dll (http://coderx.ru/attachment.php?attachmentid=2324&stc=1&d=1314523782) это стандартная шифрация?
Компилил Delphi 7. Навыки работы с ним имеются.
И да, алгоритм шифровки ведь в этой операции?:
Код:
procedure TXorCodingOut.InitKey(const XorKey; Interlude: Boolean);
const
KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);
KeyIntrl: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97);
var key2:array[0..15] of Byte;
begin
if Interlude then begin
keyLen:=15;
Move(XorKey,key2,8);
Move(KeyIntrl,key2[8],8);
end else begin
keyLen:=7;
Move(XorKey,key2,4);
Move(KeyConst,key2[4],4);
end;
Move(key2,GKeyS,16);
Move(key2,GKeyR,16);
end;
Юзаю l2phx.3.5.33.172
Собственно дело в том, что сервер не пускает с исходником из этой темы Как писать newxor.dll (http://coderx.ru/showthread.php?t=6674)
Без него пускает,а с ним доходит только до выбора серва.
Сервер High Five новый, очень много багов и недочетов, (даже оли с багами).
И как я понимаю, с этого исходника newxor.dll (http://coderx.ru/attachment.php?attachmentid=2324&stc=1&d=1314523782) это стандартная шифрация?
Компилил Delphi 7. Навыки работы с ним имеются.
И да, алгоритм шифровки ведь в этой операции?:
Код:
procedure TXorCodingOut.InitKey(const XorKey; Interlude: Boolean);
const
KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);
KeyIntrl: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97);
var key2:array[0..15] of Byte;
begin
if Interlude then begin
keyLen:=15;
Move(XorKey,key2,8);
Move(KeyIntrl,key2[8],8);
end else begin
keyLen:=7;
Move(XorKey,key2,4);
Move(KeyConst,key2[4],4);
end;
Move(key2,GKeyS,16);
Move(key2,GKeyR,16);
end;