[smoz]

Register or login to see this content

Tujuannya:
-kalo ada yg mau sniff inject kita itu pake killtask,,, jd alat sniffnya langsung mental alias close sendiri...

[ranay]

function EnumProcess(hHwnd: HWND; lParam: integer): boolean; stdcall;
var
title, className: string;
begin
SetLength(className, 255);
SetLength(className, GetClassName(hHwnd, PChar(className), Length(className)));
SetLength(title, 255);
SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
proclist.Add(title + ' ' + className);
result := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
proclist := TStringList.Create;
forbid := TStringList.Create;
forbid.CommaText := 'monsock,dump,sniff'; //---> tambahi app sniffer lainnya
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
proclist.Free;
forbid.Free;
end;

for i := 0 to proclist.Count - 1 do
begin
for d := 0 to forbid.Count - 1 do
begin
if Pos(forbid[d], LowerCase(proclist.Strings[i])) <> 0 then
close;
end;
end;
end;

end.


yang ini ditambahkan pada bagian mana ya om..?

[smoz]

function EnumProcess(hHwnd: HWND; lParam: integer): boolean; stdcall;
var
title, className: string;
begin
SetLength(className, 255);
SetLength(className, GetClassName(hHwnd, PChar(className), Length(className)));
SetLength(title, 255);
SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
proclist.Add(title + ' ' + className);
result := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
proclist := TStringList.Create;
forbid := TStringList.Create;
forbid.CommaText := 'monsock,dump,sniff'; //---> tambahi app sniffer lainnya
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
proclist.Free;
forbid.Free;
end;

for i := 0 to proclist.Count - 1 do
begin
for d := 0 to forbid.Count - 1 do
begin
if Pos(forbid[d], LowerCase(proclist.Strings[i])) <> 0 then
close;
end;
end;
end;

end.


yang ini ditambahkan pada bagian mana ya om..?

kan udah jelas peletakannya di mana tuh...

-di bwah {$R *.dfm}

function EnumProcess(hHwnd: HWND; lParam: integer): boolean; stdcall;
var
title, className: string;
begin
SetLength(className, 255);
SetLength(className, GetClassName(hHwnd, PChar(className), Length(className)));
SetLength(title, 255);
SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
proclist.Add(title + ' ' + className);
result := true;
end;

-di bagian form create

procedure TForm1.FormCreate(Sender: TObject);
begin
proclist := TStringList.Create;
forbid := TStringList.Create;
forbid.CommaText := 'monsock,dump,sniff'; //---> tambahi app sniffer lainnya
end;

-di bagian form close

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
proclist.Free;
forbid.Free;
end;

-di bagian timer

procedure TForm1.tmr1Timer(Sender: TObject);
var
i, d: Integer;
begin
if proclist.Count > 0 then proclist.Clear;
EnumWindows(@EnumProcess, 0);

for i := 0 to proclist.Count - 1 do
begin
for d := 0 to forbid.Count - 1 do
begin
if Pos(forbid[d], LowerCase(proclist.Strings[i])) <> 0 then
close;
end;
end;
end;

end.

[Kizuma Wa]

ini anti sniff doang apa anti di bongkar juga om ?

[ranay]

ini khusus mematikan program sniff...
tapi kalo program di rename kena juga tuh sniff...

[mbahgogix]

gini aja cukup om tambah timer 1

timer 1
500
===================
sniffer: TStringlist;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;
procedure GetProcessList;

======
procedure TForm1.Timer3Timer(Sender: TObject);
var
i,d: Integer;
list: TStringList;
begin
list:= TStringList.Create;
list.Text := 'smartsniff'; // filter nama window yang diperkirakan mengandung sniffer
list.Text := StringReplace(list.Text,'|',#13#10,[rfReplaceAll]);
try
sniffer.Clear;
GetProcessList;
for i:=0 to sniffer.Count -1 do begin
for d:=0 to list.Count - 1 do begin
if Pos(list[d],LowerCase(sniffer[i])) <> 0 then
Close; // aplikasi injek di close ketika aplikasi sniffer dijalankan
end;
end;
finally
list.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
sniffer:= TStringList.Create;
end;
procedure GetProcessList;
begin
EnumWindows(@EnumWindowsProc, 0);
end;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool;
var
Title, ClassName: array[0..255] of Char;
begin
GetWindowText(hWnd, Title, 255);
GetClassName(hWnd, ClassName, 255);
if IsWindowVisible(hWnd) then
sniffer.Add(string(Title)); // mendapatkan nama title window dan dimasukan ke dalam list
end;

[smoz]

gini aja cukup om tambah timer 1

timer 1
500
===================
sniffer: TStringlist;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;
procedure GetProcessList;

======
procedure TForm1.Timer3Timer(Sender: TObject);
var
i,d: Integer;
list: TStringList;
begin
list:= TStringList.Create;
list.Text := 'smartsniff'; // filter nama window yang diperkirakan mengandung sniffer
list.Text := StringReplace(list.Text,'|',#13#10,[rfReplaceAll]);
try
sniffer.Clear;
GetProcessList;
for i:=0 to sniffer.Count -1 do begin
for d:=0 to list.Count - 1 do begin
if Pos(list[d],LowerCase(sniffer[i])) <> 0 then
Close; // aplikasi injek di close ketika aplikasi sniffer dijalankan
end;
end;
finally
list.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
sniffer:= TStringList.Create;
end;
procedure GetProcessList;
begin
EnumWindows(@EnumWindowsProc, 0);
end;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool;
var
Title, ClassName: array[0..255] of Char;
begin
GetWindowText(hWnd, Title, 255);
GetClassName(hWnd, ClassName, 255);
if IsWindowVisible(hWnd) then
sniffer.Add(string(Title)); // mendapatkan nama title window dan dimasukan ke dalam list
end;

iya gan...begitu juga bisa

[Kizuma Wa]

kalau anti dumb yg enak pke apa om ?

[dedy]

[Only registered and activated users can see links Click here to register]
klo kayak gini gmna ya om?
hanya newbie yg pngin belajar

[smoz]

peletakkannya salah tuh...dilihat betul2 sourcenya

[kakashi83]

untuk yg paker timer 500, kok pas di run eror disni yaa,, kira2 apanya yg salam master
[Only registered and activated users can see links Click here to register]

[denitri]

Mas kalau Errornya Sperti ini gimana
[Image: 15ydi6p.jpg]

[smoz]

Mas kalau Errornya Sperti ini gimana

begin di bagian ats dibuang gan...
sprti di bwah..

procedure TForm1.tmr1Timer(Sender: TObject);
var
i, d: Integer;
begin
if proclist.Count > 0 then proclist.Clear;
EnumWindows(@EnumProcess, 0);

[DewaPerseus]

klo semacam aplikasi dede berati tinggal di tambah namanya disitu trus pake .exe gak???

[Kizuma Wa]

kalau pengen aman dari dede pke baju enigma wa

[UmarDoanx]

pake enigma gan, bisa di expiredin bisa di limit launc, dll
pokoknya enak deh hehe, cuma suka kedetect false alarm sama sebagian antivirus, tapi aman ko.

[bawahtanah]

pake baju enigma mksdnya bagimana om

[0n3phr34k]

ya setidaknya cukup lumayan untuk mengelabuhi,,