сново я что то делаю не так :\ почему то уверен что я не очень красиво перегоняю массивы)
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 байт - размер и тип)
Последний раз редактировалось ElKornacio, 19.06.2009 в 15:59.
Причина: Добавлено сообщение
в 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 байты до первого нулевого...
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor,у меня без Wpf при конекте на логин сервер не приходит даже волкеру первый пакет, пускал через пакетхак как прокси. Если в разрыв в цепочку поставить wpf то все ок, такое ощущение что сервер палит по имени процесса что я запускаю именно бот
Yegor, ээ, а ты настройку конектиться через wpf то в валкере и/или wss убираешь при выключенном wpf?
Да я меняю порт на прокси на тот что указан в пакетхаке. Когда без него пробовал то вообще в wss использование прокси убирал. ПКХ показывает что есть кооннект с сервером, причем порт и IP верный, но сервер не присылает ниодного пакета а сразу отваливается, именно первым отваливается сервер. Мне уже дело принципа разобраться. Интересно просто что за магия. Через протокол socks5 каким то образом передается на сервер имя программы или процесса, которая через него подключается?
Все я начал делать программу для тестирования коннекта на логин сервер. xkor,не конектиться я имел в виду если пытаться волкером подключиться через WSS.
Все моя микропрограммка подключилась на порт 2106 и приняла первый пакет размером 186 байт от сервера . Осталось всего ничего реализовать алгоритм дешифровки шифровки пакетов .
Последний раз редактировалось Yegor, 20.06.2009 в 18:47.
вот читаю и вспоминаю то что делал два года назад
хотелось что бы опять появилось желание написать что нить такого покруче - да вот стимула нету никакого...