| onikishov |
05.01.2008 14:40 |
Доработка античита для Lineage
нашел в инете прогу написанную на делфи, она должна убивать все читерские прогив линейке. Вот исходник:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
const
max_L= 256;
max_L2= 256;
var
bl:boolean;
str2:array[0..max_L-1] of char;
str:array[0..max_L-1] of char;
buff: array[0..127] of Char;
_caption:string;
_caption2:string;
te:string;
te2:string;
lpString:string;
y:string;
st: PChar;
g:integer;
i:integer;
Wnd: hWnd;
begin
for list_I:=0 to high(p_list1) do //Убивает все процессы из загруженного листа по имени exe
begin
killtask(p_list1[list_I]);
end;
killtask('patcher171.exe');
killtask('la2fun.exe');
killtask('wpf406.exe');
killtask('la2monster.exe');
killtask('WP406F.exe');
killtask('l2phx.exe');
killtask('la2reklamer.exe');
killtask('LordPE.EXE');
killtask('L2Walker.exe'); //убивает стандартные проги по Exe
killtask('l2proxy.exe');
killtask('la2fun.exe');
killtask('L2Pilot.exe');
killtask('L2dummy.exe');
killtask('l2phx.exe');
killtask('la2brute.exe');
killtask('L2Cheat_InformeR_1.3.exe');
killtask('hlapex.exe');
kilLtask('la2brute.exe');
ListBox1.Clear;
ListBox2.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst); //получение WND окна
while Wnd <> 0 do
begin
if (Wnd <> Application.Handle) and {-Собственное окно} IsWindowVisible(Wnd) and {-Невидимые окна} (GetWindow(Wnd, gw_Owner) = 0) and {-Дочернии окна} (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков} then
begin
GetWindowText(Wnd, buff, sizeof(buff));
listbox2.Items.Add(inttostr(wnd));
ListBox1.Items.Add(StrPas(buff));
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end;
ListBox1.ItemIndex := 0;
ListBox2.ItemIndex := 0;
for i:=0 to listbox2.Items.Count -1 do
begin
try wnd:=strtoint(listbox2.Items[i]);
except;
end;
if wnd <> 0 then
begin
getwindowtext(wnd,@str,max_L);
te:=str;
label1.Caption :=inttostr(g);
label2.caption:=te;
bl:=false;
if (pos('L2 CHEAT',ansiuppercase(te)) <> 0 )or (pos('L2WALKER',ansiuppercase(te)) <> 0 )or (pos('LA2REKLAMER',ansiuppercase(te)) <> 0 )or (pos('PACKETHACK',ansiuppercase(te)) <> 0 )or (pos('LORDPE',ansiuppercase(te)) <> 0 ) or (pos('HLAPEX',ansiuppercase(te)) <> 0 ) or (pos('L2PROXY',ansiuppercase(te)) <> 0 ) or (pos('LA2BRUTE',ansiuppercase(te))<>0)or(pos('L2CHEAT',ansiuppercase(te))<>0)OR (pos('LA2FUN',ansiuppercase(te))<>0) OR (pos('L2PILOT',ansiuppercase(te))<>0) OR (pos('L2 CHEAT',ansiuppercase(te))<>0)OR (pos('L2PACKET',ansiuppercase(te))<>0) OR (pos('L@MONSTER',ansiuppercase(te))<>0)then
begin
bl:=true; //проверка Caption окана по списку стандартныъ
end;
for list_I:=0 to high(p_list2) do
begin
if (pos(ansiuppercase(p_list2[list_I]),ansiuppercase(te)) <> 0 ) then
bl:=true; //проверка Caption окана по списку загруженных
end;
if bl then
begin
g:=0;
PostMessage(FindWindow(nil,str), WM_CLOSE, 0, 0);
PostMessage(FindWindow(nil, str), WM_QUIT, 0, 0);
killtask('l2.dll');
MessageBox(handle,pchar('Program internal error, cant read memory 0xffffff memory is not read type'),pchar('Buffer overflow'),16);
listbox2.Items.Delete(i);
application.Terminate;
end;
end;
end;
end;
Я ниразу не работал с делфи, помогите плиз как эту прогу скомпилировать и ваще что дальше) |
