сново я что то делаю не так :\ почему то уверен что я не очень красиво перегоняю массивы)
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 каким то образом передается на сервер имя программы или процесса, которая через него подключается?
вот читаю и вспоминаю то что делал два года назад
хотелось что бы опять появилось желание написать что нить такого покруче - да вот стимула нету никакого...
вот читаю и вспоминаю то что делал два года назад
хотелось что бы опять появилось желание написать что нить такого покруче - да вот стимула нету никакого...
Тебе надоела линейка или нужен материальный стимул?
та линейка то - надоела
а вдохновения на нуле - не вижу свет в конце тунеля
Нет признания твоей работе или поставил такие перед собой задачи, которые трудно осуществимы? Ты вроде бы сделал колосальную работу, это же твое творение L2Jes? Что ещё нужно?
Нет признания твоей работе или поставил такие перед собой задачи, которые трудно осуществимы? Ты вроде бы сделал колосальную работу, это же твое творение L2Jes? Что ещё нужно?
задачу то поставил -сложного ничего в этом нету - но заставить себя сделать это почти невозможно
хотелось бы еще чего нить интересного написать для юзеров....