Ботик

[ElKornacio]

сново я что то делаю не так :\ почему то уверен что я не очень красиво перегоняю массивы)
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
const
b: array[0..15] of Byte = ($6B, $60, $CB, $5B, $82, $CE, $90, $B1, $CC, $2B, $6C, $55, $6C, $6C, $6C, $6C);
var
s:string;
e,v:string;
z:word;
i:integer;
pck: TFixPck;
begin
s:=Socket.ReceiveText;
e:=Copy(s,3,length(s)-2);
z:=length(s)-2;
BF.Init(b,16);
BF.bfDecode(e[1],length(e));
pck.size:=length(s);
i:=0;
while i<>length(s) do begin
pck.ch[i]:=s[i+1];
i:=i+1;
end;
LoginXORDecrypt(pck);
e:=pck.ch;
e:=StrToHex(e,' ');
Form1.ListBox2.Items.Add('<');
Form1.ListBox1.Items.Add(IntToHex(ord(s[1]),2)+' '+IntToHex(ord(s[2]),2)+' '+e);
t.Add('0'+IntToStr(z));
Form1.ServerSocket1.Socket.Connections[0].SendText(s);
end;

Добавлено через 1 минуту
ошибок не лезет, но от пакета остаются только 6 байт - размер и тип)

[xkor]

в pck.size надо пихать первые два байта пакета а не то что ты
но так как ты делаешь:

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

while i<>length(s) do begin
pck.ch[i]:=s[i+1];
i:=i+1;
end;

то в pck.size ваще ничего пихать не надо так как это pck.ch[0] и pck.ch[1]

а вообще всё это

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

pck.size:=length(s);
i:=0;
while i<>length(s) do begin
pck.ch[i]:=s[i+1];
i:=i+1;
end;

надо заменить на Move(s[1],pck,Length(s));
как будет работать e:=pck.ch; я себе плохо представляю, не уверен что так как ты хочешь.., скорее всего запихнет в e байты до первого нулевого...

[Yegor]

xkor,у меня без Wpf при конекте на логин сервер не приходит даже волкеру первый пакет, пускал через пакетхак как прокси. Если в разрыв в цепочку поставить wpf то все ок, такое ощущение что сервер палит по имени процесса что я запускаю именно бот

[xkor]

Yegor, ээ, а ты настройку конектиться через wpf то в валкере и/или wss убираешь при выключенном wpf?

[Yegor]

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

Yegor, ээ, а ты настройку конектиться через wpf то в валкере и/или wss убираешь при выключенном wpf?

Да я меняю порт на прокси на тот что указан в пакетхаке. Когда без него пробовал то вообще в wss использование прокси убирал. ПКХ показывает что есть кооннект с сервером, причем порт и IP верный, но сервер не присылает ниодного пакета а сразу отваливается, именно первым отваливается сервер. Мне уже дело принципа разобраться. Интересно просто что за магия. Через протокол socks5 каким то образом передается на сервер имя программы или процесса, которая через него подключается?

[xkor]

Yegor, сервер абсолютно никак не может узнать чем к нему приконектились, только с какого ИП и порта...

[Yegor]

xkor, что ж такое тогда . Я устанавливаю соеденение на порт 2106 и сервер молчит как партизан, а должен заговорить первым.

[xkor]

Yegor, хз, мой xBot спокойно коннектиться и бегает)

[Yegor]

Все я начал делать программу для тестирования коннекта на логин сервер.
xkor,не конектиться я имел в виду если пытаться волкером подключиться через WSS.


Все моя микропрограммка подключилась на порт 2106 и приняла первый пакет размером 186 байт от сервера . Осталось всего ничего реализовать алгоритм дешифровки шифровки пакетов .

[Jes]

вот читаю и вспоминаю то что делал два года назад
хотелось что бы опять появилось желание написать что нить такого покруче - да вот стимула нету никакого...