Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 03.12.2008, 18:18   #11
Пользователь
 
Регистрация: 06.03.2008
Сообщений: 32
Сказал Спасибо: 8
Имеет 1 спасибку в 1 сообщении
NoFear
По умолчанию

Ну уж не такой тупой что б не додуматься акк вбить))
а на счет рестарта не знал

Добавлено через 48 секунд
скажите как подключиться к логин серверу?? всь день бьюсь.. инфы в инете ваще нету(

Добавлено через 6 минут
Код:
var
  packet:string;
  size:word;
function StringToHex(str1,Separator:String):String;
var
  buf:String;
  i:Integer;
begin
  buf:='';
  for i:=1 to Length(str1) do begin
    buf:=buf+IntToHex(Byte(str1[i]),2)+Separator;
  end;
  Result:=buf;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Host:=Edit1.Text;
IdTCPClient1.Port:=StrToInt(Edit2.Text);
try
IdTCPClient1.Connect;
except
end;
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
IdTCPClient1.ReadBuffer(size,2);
SetLength(packet, size-2);
IdTCPClient1.ReadBuffer(packet[1], size-2);
memo1.Lines.Add(StringToHex(packet,' '));
end;
мне приходит пакет 00 04 2B 28 45 5A 78 00 00 - причем 2 байт всегда разный ...
дальше как я понимаю должно быть RequestAuthLogin ... - скажите как правильно отправить пакет на RequestAuthLogin? и как правильно шифровать Логин и пароль .. если можно дайте компонент

Последний раз редактировалось NoFear, 03.12.2008 в 18:18. Причина: Добавлено сообщение
NoFear вне форума   Ответить с цитированием
Старый 03.12.2008, 18:35   #12
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

Цитата:
Сообщение от NoFear Посмотреть сообщение
мне приходит пакет 00 04 2B 28 45 5A 78 00 00 - причем 2 байт всегда разный ..
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;
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
За это сообщение xkor нажился спасибкой от:
Старый 03.12.2008, 18:46   #13
Пользователь
 
Регистрация: 06.03.2008
Сообщений: 32
Сказал Спасибо: 8
Имеет 1 спасибку в 1 сообщении
NoFear
По умолчанию

Но все равно не вкуриваю (
Если кому не сложно можете сделать программу.. которая конектиться к серверу ...и показывает список серверов ...
очень хочу разобарться!!
ип 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. Причина: Добавлено сообщение
NoFear вне форума   Ответить с цитированием
Старый 03.12.2008, 18:48   #14
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

NoFear, ну TPacket это мой объект для работы с пакетами, я его не выкладывал.., я код дал не для компиляции а для изучения)
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 04.12.2008, 09:17   #15
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от NoFear Посмотреть сообщение
очень хочу разобарться!!
читать как: очень хочу поиметь готовое и почитать?
QaK вне форума   Ответить с цитированием
Старый 05.12.2008, 18:15   #16
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
очень хочу поиметь готовое и почитать
+1
PanAm вне форума   Ответить с цитированием
Старый 06.12.2008, 13:04   #17
Гость
 
Сообщений: n/a
Смех

все хотят поиметь что нибудь
  Ответить с цитированием
Старый 06.12.2008, 13:19   #18
Пользователь
 
Регистрация: 06.03.2008
Сообщений: 32
Сказал Спасибо: 8
Имеет 1 спасибку в 1 сообщении
NoFear
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
читать как: очень хочу поиметь готовое и почитать?
нет)
хочеться разобраться с подключением к логин серверу... а то ловиться токо 1 пакет а дальше ваще хз что делать (
NoFear вне форума   Ответить с цитированием
Старый 06.12.2008, 13:20   #19
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

кстати, поиск рулит - http://coderx.ru/showpost.php?p=13769&postcount=33
PanAm вне форума   Ответить с цитированием
Старый 06.12.2008, 13:33   #20
Пользователь
 
Регистрация: 06.03.2008
Сообщений: 32
Сказал Спасибо: 8
Имеет 1 спасибку в 1 сообщении
NoFear
По умолчанию

Рулит рулит.... я уже давно это на рулил ..но .. непонятного слишком много
NoFear вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 04:03.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!