03.12.2008, 18:46
|
#13
|
Пользователь
Регистрация: 06.03.2008
Сообщений: 32
Сказал Спасибо: 8
Имеет 1 спасибку в 1 сообщении
|
Но все равно не вкуриваю (
Если кому не сложно можете сделать программу.. которая конектиться к серверу ...и показывает список серверов ...
очень хочу разобарться!!
ип 195.218.197.251
порт 2106
акк admin9999
пасс 123123123
протоком 656
хроники С4
Добавлено через 46 секунд
Цитата:
Сообщение от xkor
04 2B 28 45 - это ID сессии, на него при ревизии 5A 78 00 00 можн забить
пакетик с логином и паролем формируется примерно так:
delphi Код:
procedure AddChecksum(var data:array of char; position: Word);
var
i,k:Word;
begin
k := (position div 4)-1;
for i := 0 to k do
PCardinal(@data[position])^:=PCardinal(@data[position])^ xor PCardinal(@data[i*4])^;
end;
function RequestAuthLogin_785a(const Login,
Pasword: String): string;
var
Packet: TPacket;
LoginD:array[0..13] of Char;
PaswordD:array[0..15] of Char;
begin
with Packet do begin
InitWrite;
FillChar(LoginD,14,0);
FillChar(PaswordD,16,0);
Move(Login[1],LoginD,Length(Login));
Move(Pasword[1],PaswordD,Length(Pasword));
WriteB(0); // Packet ID
Write(LoginD,14); // Login
Write(PaswordD,16); // Password
WriteB(8); // Seporator
WriteD(0);
WriteD(0);
WriteD(0); // Checksum
WriteD(0);
AddChecksum(data[3],40);
Result:=data;
end;
end;
|
Делфи 7 ругаеться на строчку Packet: TPacket;
Последний раз редактировалось NoFear, 03.12.2008 в 18:46.
Причина: Добавлено сообщение
|
|
|