Разработка Раздел для совместной разработки/доработки программы
01.08.2008, 06:48
#1
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
L2PacketHack 3.5.x
Исходники
здесь
Вот
такие скомпилированные версии есть у меня.
Ниже данные устарели.
Репозиторий находится
тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер
тут
Скомпилированные версии
тут Пароль к архиву:
coderx.ru
Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?
Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (
http://fast-report.com/ru/products/fast-script.html )
- JCL (
http://sourceforge.net/projects/jcl/ )
- JVCL (
http://sourceforge.net/projects/jvcl/ )
Дополнительные компоненты брать
тут .
(<-- TPerlRegEx есть только там)
/
upd :
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (
letitbit /
upload.com.ua )
Немного подправленный FastScript искать в файловом архиве.
Последний раз редактировалось NLObP, 17.10.2016 в 00:02 .
За это сообщение NLObP нажился 111 спасибками от:
-=Ma}{imuS=- ,
4erteg ,
Agat ,
ak47 ,
Alan ,
alexsl ,
alexteam ,
AoWpwnz ,
APXAHGEJI ,
Asmalaa Asrety ,
Benefit ,
BISMARCK_555 ,
boy200007 ,
boypush ,
Breadfan ,
BuKbI4 ,
CCCP ,
Crypto ,
Curious ,
cutter ,
DashKAaa ,
Denis63RUS ,
dyh9l ,
Elecktron ,
Emocean ,
Evgeniy ,
FatalHistori ,
Fer123 ,
Ferrari3200 ,
FFALL777 ,
Fim ,
freeworld ,
GameCoder ,
gavr1l0 ,
gexiss ,
goodvin1709 ,
Green ,
Grinch ,
HacPaTyc ,
INFERION ,
isya ,
Johnson ,
Keeper ,
Keisei ,
Kotyara2014 ,
lomoWAR ,
lordka) ,
LostQ ,
Lotar ,
Ma3aXakA ,
march ,
marslem ,
mat1s ,
MHz ,
micoach ,
MiRoN ,
mirt ,
MoD_Hanes ,
MrIICUX ,
Mulder ,
Murdoc ,
neonv1 ,
nezabudkin ,
Nigga ,
Niros ,
NoFear ,
OleSha ,
OMOH8787 ,
PanAm ,
pascalpwnz ,
PerioH ,
PIONER ,
QaK ,
rastaman_228 ,
ratvier ,
RockTeam ,
RoZ ,
Rubicosha ,
Rysis ,
Ryth ,
saxa24111 ,
shunder ,
skaner ,
skiner4119 ,
Snowbars ,
StekloReZ ,
stopicot ,
TAMBIK ,
Tchep ,
Therapyst ,
TryLaw ,
vahes ,
Velizarx ,
victor_rvm ,
Vilson ,
Vklu4atel^^ ,
vlad00777 ,
vovanchik ,
vul-test ,
wanick ,
wasabi_100 ,
WhiteDevil ,
Xelat ,
xkor ,
Yegor ,
Yellowboy ,
zDiablik ,
АлисаХочетСекс ,
Арти ,
женька
05.09.2008, 15:20
#131
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Цитата:
Сообщение от
exit
а как было в версии 3.3.3? она же работает без сбивки.
Попробуйте inject.dll и newxor.dll взять из версии 3.3.3 может это из-за них?
За это сообщение NLObP нажился спасибкой от:
05.09.2008, 15:36
#132
Пользователь
Регистрация: 04.02.2008
Сообщений: 63
Сказал Спасибо: 44
Имеет 25 спасибок в 15 сообщенях
Взял newxor.dll от 3.3.3. Всё стало нормально. Чем они отличаются?
06.09.2008, 01:18
#133
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Цитата:
Сообщение от
Emocean
Взял newxor.dll от 3.3.3. Всё стало нормально. Чем они отличаются?
Делал
3.2.13 от 13.08.2008
+ добавил в newxor.dpr - CryptoInit: Boolean; //Добавил новый флаг by PanAm
delphi Код:
library newxor;
uses
windows,
Coding in 'Coding.pas' ;
type
TXorCoding = class ( TCodingClass)
private
keyLen: Byte ;
CryptoInit: Boolean ; //Добавил новый флаг
public
constructor Create;
procedure InitKey( const XorKey; Interlude: Boolean = False ) ;override;
procedure DecryptGP( var Data; const Size: Word ) ;override;
procedure EncryptGP( var Data; const Size: Word ) ;override;
end ;
TXorCodingOut = class ( TCodingClass)
private
keyLen: Byte ;
public
constructor Create;
procedure InitKey( const XorKey; Interlude: Boolean = False ) ;override;
procedure DecryptGP( var Data; const Size: Word ) ;override;
procedure EncryptGP( var Data; const Size: Word ) ;override;
end ;
function CreateCoding( Value:PCodingClass) : HRESULT; stdcall;
begin
Result:=0 ;
try
Value^:=TXorCoding.Create ;
except
Result:=-1 ;
Value^:=nil ;
end ;
end ;
function CreateCodingOut( Value:PCodingClass) : HRESULT; stdcall;
begin
Result:=0 ;
try
Value^:=TXorCodingOut.Create ;
except
Result:=-1 ;
Value^:=nil ;
end ;
end ;
exports CreateCoding, CreateCodingOut;
{ TXorCoding }
constructor TXorCoding.Create ( ) ;
begin
FillChar ( GKeyS[0 ],SizeOf ( GKeyS) ,0 ) ;
FillChar ( GKeyR[0 ],SizeOf ( GKeyR) ,0 ) ;
keyLen := 0 ;
CryptoInit := false ;
End ;
procedure TXorCoding.DecryptGP ( var Data; const Size: Word ) ;
var
k:integer ;
pck:array[0 ..$4FFF] of Byte absolute Data;
begin
if pck[0 ] = 0 then begin //вставил проверку
CryptoInit := true ; //поднял флаг
InitKey( pck[2 ]) ; //устанавил новый ключ шифрования, InitKey(pck[2], true); для интрерлюда
exit ; //дальнейшая обработка не нужна, вышел
end ;
for k:=size-1 downto 1 do
pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1 ];
if size<>0 then pck[0 ]:=pck[0 ] xor GKeyR[0 ];
Inc ( PLongWord( @GKeyR[keyLen-7 ]) ^,size) ;
end ;
procedure TXorCoding.EncryptGP ( var Data; const Size: Word ) ;
var
i:integer ;
pck:array[0 ..$4FFF] of Byte absolute Data;
begin
if CryptoInit then begin //это был CryptoInit
CryptoInit := false ; //сбосил флаг
exit ; //шифрация не требуется - вышел
end ;
if size<>0 then pck[0 ]:=pck[0 ] xor GKeyS[0 ];
for i:=1 to size-1 do
pck[i]:=pck[i] xor GKeyS[i and keyLen] xor pck[i-1 ];
Inc ( PLongWord( @GKeyS[keyLen-7 ]) ^,size) ;
end ;
procedure TXorCoding.InitKey ( const XorKey; Interlude: Boolean = False ) ;
const
KeyConst: array[0 ..3 ] of Byte = ( $A1,$6C,$54 ,$87 ) ;
KeyIntrl: array[0 ..7 ] of Byte = ( $C8,$27 ,$93 ,$01 ,$A1,$6C,$31 ,$97 ) ;
var key2:array[0 ..15 ] of Byte ;
begin
if Interlude then begin
keyLen:=15 ;
Move ( XorKey,key2,8 ) ;
Move ( KeyIntrl,key2[8 ],8 ) ;
end else begin
keyLen:=7 ;
Move ( XorKey,key2,4 ) ;
Move ( KeyConst,key2[4 ],4 ) ;
end ;
Move ( key2,GKeyS,16 ) ;
Move ( key2,GKeyR,16 ) ;
end ;
{ TXorCodingOut }
constructor TXorCodingOut.Create ;
begin
FillChar ( GKeyS[0 ],SizeOf ( GKeyS) ,0 ) ;
FillChar ( GKeyR[0 ],SizeOf ( GKeyR) ,0 ) ;
keyLen := 0 ;
end ;
procedure TXorCodingOut.DecryptGP ( var Data; const Size: Word ) ;
var
k:integer ;
pck:array[0 ..$4FFF] of Byte absolute Data;
begin
for k:=size-1 downto 1 do
pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1 ];
if size<>0 then pck[0 ]:=pck[0 ] xor GKeyR[0 ];
Inc ( PLongWord( @GKeyR[keyLen-7 ]) ^,size) ;
end ;
procedure TXorCodingOut.EncryptGP ( var Data; const Size: Word ) ;
var
i:integer ;
pck:array[0 ..$4FFF] of Byte absolute Data;
begin
if size<>0 then pck[0 ]:=pck[0 ] xor GKeyS[0 ];
for i:=1 to size-1 do
pck[i]:=pck[i] xor GKeyS[i and keyLen] xor pck[i-1 ];
Inc ( PLongWord( @GKeyS[keyLen-7 ]) ^,size) ;
end ;
procedure TXorCodingOut.InitKey ( const XorKey; Interlude: Boolean ) ;
const
KeyConst: array[0 ..3 ] of Byte = ( $A1,$6C,$54 ,$87 ) ;
KeyIntrl: array[0 ..7 ] of Byte = ( $C8,$27 ,$93 ,$01 ,$A1,$6C,$31 ,$97 ) ;
var key2:array[0 ..15 ] of Byte ;
begin
if Interlude then begin
keyLen:=15 ;
Move ( XorKey,key2,8 ) ;
Move ( KeyIntrl,key2[8 ],8 ) ;
end else begin
keyLen:=7 ;
Move ( XorKey,key2,4 ) ;
Move ( KeyConst,key2[4 ],4 ) ;
end ;
Move ( key2,GKeyS,16 ) ;
Move ( key2,GKeyR,16 ) ;
end ;
begin
end .
PS: Надо из 3.2.0 newxor.dpr нормальный брать.
Добавлено через 9 часов 15 минут
3.3.6 от 05.09.2008
[-] вернул newxor.dpr как в версии 3.2.0;
[+] заменен TTRrayIcon на TJvTrayIcon;
Оффтоп
delphi Код:
Файл l2pbx.exe получен 2008 .09 .05 22 :16 :13 ( CET)
Текущий статус: закончено
Результат: 2 /36 ( 5 .56 %)
Форматированные
Печать результатов Антивирус Версия Обновление Результат
AhnLab-V3 2008 .9 .5 .1 2008 .09 .05 -
AntiVir 7 .8 .1 .28 2008 .09 .05 -
Authentium 5 .1 .0 .4 2008 .09 .05 -
Avast 4 .8 .1195 .0 2008 .09 .05 -
AVG 8 .0 .0 .161 2008 .09 .05 -
BitDefender 7 .2 2008 .09 .05 -
CAT-QuickHeal 9 .50 2008 .09 .02 -
ClamAV 0 .93 .1 2008 .09 .05 -
DrWeb 4 .44 .0 .09170 2008 .09 .05 -
eSafe 7 .0 .17 .0 2008 .09 .03 -
eTrust-Vet 31 .6 .6071 2008 .09 .05 -
Ewido 4 .0 2008 .09 .05 -
F-Prot 4 .4 .4 .56 2008 .09 .05 -
F-Secure 8 .0 .14332 .0 2008 .09 .05 -
Fortinet 3 .14 .0 .0 2008 .09 .03 -
GData 19 2008 .09 .05 -
Ikarus T3.1 .1 .34 .0 2008 .09 .05 -
K7AntiVirus 7 .10 .443 2008 .09 .05 -
Kaspersky 7 .0 .0 .125 2008 .09 .05 -
McAfee 5378 2008 .09 .05 -
Microsoft 1 .3903 2008 .09 .05 -
NOD32v2 3419 2008 .09 .05 -
Norman 5 .80 .02 2008 .09 .05 -
Panda 9 .0 .0 .4 2008 .09 .05 -
PCTools 4 .4 .2 .0 2008 .09 .05 -
Prevx1 V2 2008 .09 .05 -
Rising 20 .60 .42 .00 2008 .09 .05 -
Sophos 4 .33 .0 2008 .09 .05 Mal/Basine-C
Sunbelt 3 .1 .1610 .1 2008 .09 .05 -
Symantec 10 2008 .09 .05 -
TheHacker 6 .3 .0 .8 .072 2008 .09 .04 -
TrendMicro 8 .700 .0 .1004 2008 .09 .05 -
VBA32 3 .12 .8 .5 2008 .09 .05 -
ViRobot 2008 .9 .5 .1365 2008 .09 .05 -
VirusBuster 4 .5 .11 .0 2008 .09 .05 -
Webwasher-Gateway 6 .6 .2 2008 .09 .05 Virus.Win32 .FileInfector .gen !90 ( suspicious)
Дополнительная информация
File size: 1669632 bytes
MD5...: c28108e095410bd106c965b9779a600e
Последний раз редактировалось NLObP, 06.09.2008 в 01:21 .
Причина: Добавлено сообщение
За это сообщение NLObP нажился спасибкой от:
07.09.2008, 04:51
#134
Местный
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
3.3.6 от 05.09.2008
не сохраняется при выходе состояние переключателя "способ внедрения.."
07.09.2008, 11:34
#135
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Цитата:
Сообщение от
PanAm
3.3.6 от 05.09.2008
не сохраняется при выходе состояние переключателя "способ внедрения.."
Никогда и не сохранялось.
[+] сохраняем выбранный метод внедрения;
Последний раз редактировалось NLObP, 07.09.2008 в 12:11 .
За это сообщение NLObP нажился спасибкой от:
07.09.2008, 16:21
#136
Новичок
Регистрация: 07.09.2008
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Версия 3.3.6. И есть два ноута: на первом стоит Vista Buissness x32, на втором Vista Home Premium SP1 x32. Копии линейки однаковые. Запуск от админа. Контроль юзеров выключен. FW нет. Антивирусов нет.
Так вот проблема в том что на первом ноуте все работает, а на втором линейка трапается с криками (крики ниже) сразу после авторизации (или после выбора сервера, но сообщение чуть иначе). Изменение способа inject не влияет.
Где искать камни?
ICQ 394054815
Код:
OS: Windows XP 5.1 (Build: 2600)
CPU: GenuineIntel PentiumPro-class processor @ 1796 MHz with 1023MB RAM
Video: NVIDIA GeForce 8400M GT (111)
General protection fault!
History: NConsoleWnd::RequestAuthLogin <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::DispatchWndMsg <- NConsoleWnd::DispatchWndMsgX <- NConsoleWnd::DispatchWndMsg <- UWindowsViewport::ViewportWndProc <- WWindow::StaticProc <- MessagePump <- MainLoop
07.09.2008, 16:23
#137
Admin!
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
ennot , eula-e.dat есть в папке system клиента?, если нет то из за того что нет)
__________________
Я здесь практически не появляюсь!, Skype - ikskor
07.09.2008, 16:42
#138
Новичок
Регистрация: 07.09.2008
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Цитата:
Сообщение от
xkor
ennot , eula-e.dat есть в папке system клиента?, если нет то из за того что нет)
Разумеется есть. Клиенты полностью одинаковые (специально синкнул).
Такой трап возникает если "перехват" включать после логина и перед выбором сервера.
Код:
OS: Windows XP 5.1 (Build: 2600)
CPU: GenuineIntel PentiumPro-class processor @ 1796 MHz with 1023MB RAM
Video: NVIDIA GeForce 8400M GT (111)
General protection fault!
History: UNetworkHandler::Tick <- Function Name=RevivePacket <- UGameEngine::Tick <- UpdateWorld <- MainLoop
07.09.2008, 22:09
#139
Местный
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Чтобы исключить перехват до выбора гейм сервера, добавь в Неигровые порты 2106;
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
За это сообщение Breadfan нажился 2 спасибками от:
08.09.2008, 14:38
#140
Местный
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
не писал, думал привыкну, а нет..
на вкладке "просмотр" в списке паетов, можно номер пакета поставить первым столбцом?
Последний раз редактировалось PanAm, 08.09.2008 в 14:44 .
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 03:32 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!