Кто перекомпилил ПакетХак под Дельфи? [Архив]

Просмотр полной версии : Кто перекомпилил ПакетХак под Дельфи?

QaK

12.12.2007, 10:44

Собственно сабж. Еще вопрос по компонентам JVC&JVCL они ставятся только на Дельфи 6 с вторым апдейтом или есть версия для простой дельфи 6 без апдейтов?

BotLegacy

12.12.2007, 11:30

у мну JVCL вообще не на что не встало...

stirena

12.12.2007, 12:36

у мну JVCL вообще не на что не встало...
Я ставила на Delphi 10 lite из сборки 2005 студии,
всё нормально установилось

QaK

12.12.2007, 13:14

Я ставила на Delphi 10 lite из сборки 2005 студии,
всё нормально установилось
Тогда другой вопрос. Стирена, ты пробовала типы добавлять в Пакетхак, чтоб их фаст скритп видел, например тип-запись ...
Лана дома 7я Дельфа стоит попробую на нее поставить...

QaK

18.12.2007, 10:32

В общем, дома проверил, все поставилось норм, только компонента TTrayIcon найти не могу, может кто-нить вылодить пас+дцу сюда?

xkor

18.12.2007, 21:46

TTrayIcon появилась в стандартных компонентах вроде тока в delphi 2005, для 7го юзай чтонить сторонее например из JVCL аналог

04.01.2008, 00:22

AbstractProxy in 'прокси5\AbstractProxy.pas',
Socks5Proxy in 'прокси5\Socks5Proxy.pas',
winsock2 in 'прокси5\winsock2.pas',
Где взять эти файлы %) че-та там нашел, видимо не то :(

xkor

04.01.2008, 02:58

нигде, надо удалить их обьявления)

04.01.2008, 06:13

откомпилил :) правда половину деклараций исключил :)

05.01.2008, 17:46

При попытке отладки прога сама собой закрывается это так и должно быть?

NLObP

06.01.2008, 01:14

06.01.2008, 01:54

NLObP

06.01.2008, 03:30

Так может исходники нужны.
Вот нашел еще.
Исходники версии 3.1.8 написаны в среде Borland Developer Studio 2006 с использованием следующих дополнительных библиотек компонентов:
- FastScript (http://fast-report.com/ru/products/fast-script.html)
- JCL (http://sourceforge.net/projects/jcl/)
- JVCL (http://sourceforge.net/projects/jvcl/)
В Делфи 2007 все замечательно компилится.

06.01.2008, 06:51

Да я уж откомпилил теперь разбираюсь самой прогой
Вот допустим не пойму что такое

GetSocketData(SSockl,Packet,2); //я так понимаю считываются 2 первых байта
if Thread[id].IsGame then begin //Если уже в игре
Thread[id].AutoPing:=True; // устанавливаем автопинг (зачем хз :) )
end;
IsGamel:=Thread[id].IsGame;
Thread[id].NoUsed:=False; //Резервируем поток? а где это проверяется?
if L2PacketHackMain.CheckBox2.Checked and (not IsGamel) then begin //если не игровые можно пропустить
send(CSockl,PacketB,2,0); // это что? в пакет копируем первые 2 байта?
repeat until send(CSockl,PacketB,recv(SSockl,PacketB,$FFFF,0),0 )<=0; //скачиваем весь пакет?
end else repeat
//иначе скачиваем пакет без 2х байт откуда берется Size? Или я не догоняю
if not GetSocketData(SSockl,Packet.DataB,Packet.Size-2) then Break;
// тут понятно в обработчик пакетов отправляем пакет и идентификатор типа пакета - в/из игровой/логин
if IsGamel then PacketProcesor(PacketB,CSockl,id,4)
else PacketProcesor(PacketB,CSockl,id,2);
if not GetSocketData(SSockl,Packet,2) then Break; // а это что?
until False; //тоже строчечка %)

NLObP

07.01.2008, 00:30

Вкратце, дело происходит примерно так:
1 - считываем два байта, это как раз длина следующих за ними данных, т.е. длина пакета - 2
GetSocketData(SSockl,Packet,2);

2 - считываем сам пакет
if not GetSocketData(SSockl,Packet.DataB,Packet.Size-2) then Break;

3- отсылаем в обработчик пакетов
if IsGamel then PacketProcesor(PacketB,CSockl,id,4)
else PacketProcesor(PacketB,CSockl,id,2);

Все обернуто в цикл и всякие проверки.

08.01.2008, 14:44

Я оказывается упирался не туда -
У меня почему то последний байт в пакете принимает неправильно :(
Звезда в шоке :(

09.01.2008, 01:57

Все логин сервер Камаэльки победил
Кто-нить знает че там и как шифруется после логин сервера :roll:

NLObP

10.01.2008, 05:00

Все логин сервер Камаэльки победил
Кто-нить знает че там и как шифруется после логин сервера :roll:
Можно наверно посмотреть как это сделано в Java-серваках.