Current time: 01-16-2018, 04:15 PM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



[Share] Source Code Anti Sniffer

04-17-2014 03:42 PM Source Code Anti Sniffer
#1


smoz Away
Coding Moderators
Coding Moderators
*****

Posts: 78
Joined: Feb 2014

Reputation:

FCoin: 2.09ƒc
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...

[Image: fornesia_2.gif]
04-17-2014 04:48 PM RE: Source Code Anti Sniffer
#2


ranay Away
ForNesia Family
Registered
*

Posts: 314
Joined: Feb 2014

Reputation:

FCoin: 2.00ƒc
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..?

ranay, proud to be a member of ForNesia Family since Feb 2014.
04-17-2014 08:17 PM RE: Source Code Anti Sniffer
#3


smoz Away
Coding Moderators
Coding Moderators
*****

Posts: 78
Joined: Feb 2014

Reputation:

FCoin: 2.09ƒc
(04-17-2014 04:48 PM)ranay Wrote:  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}
Quote: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
Quote: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
Quote:procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
proclist.Free;
forbid.Free;
end;

-di bagian timer
Quote: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.

[Image: fornesia_2.gif]
04-17-2014 10:06 PM RE: Source Code Anti Sniffer
#4


Kizuma Wa Away
HunteR
HunteR
*

Posts: 70
Joined: Mar 2014

Reputation:

FCoin: 2.46ƒc
ini anti sniff doang apa anti di bongkar juga om ?

Kizuma Wa, proud to be a member of ForNesia Family since Mar 2014.
04-18-2014 08:19 AM RE: Source Code Anti Sniffer
#5


ranay Away
ForNesia Family
Registered
*

Posts: 314
Joined: Feb 2014

Reputation:

FCoin: 2.00ƒc
ini khusus mematikan program sniff...
tapi kalo program di rename kena juga tuh sniff...

ranay, proud to be a member of ForNesia Family since Feb 2014.
04-18-2014 11:32 AM RE: Source Code Anti Sniffer
#6


mbahgogix Away
HunteR
HunteR
*

Posts: 38
Joined: Feb 2014

Reputation:

FCoin: 2.27ƒc
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;

mbahgogix, proud to be a member of ForNesia Family since Feb 2014.
04-18-2014 12:23 PM RE: Source Code Anti Sniffer
#7


smoz Away
Coding Moderators
Coding Moderators
*****

Posts: 78
Joined: Feb 2014

Reputation:

FCoin: 2.09ƒc
(04-18-2014 11:32 AM)mbahgogix Wrote:  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

[Image: fornesia_2.gif]
04-18-2014 04:56 PM RE: Source Code Anti Sniffer
#8


Kizuma Wa Away
HunteR
HunteR
*

Posts: 70
Joined: Mar 2014

Reputation:

FCoin: 2.46ƒc
kalau anti dumb yg enak pke apa om ?

Kizuma Wa, proud to be a member of ForNesia Family since Mar 2014.
04-19-2014 10:29 AM RE: Source Code Anti Sniffer
#9


dedy Away
FNS MEMBER
FNS Member
**

Posts: 85
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒc
[Image: Capture.jpg]
klo kayak gini gmna ya om?
hanya newbie yg pngin belajar

==___MEMBERI DAN MENERIMA HASIL ___==
angguk2
www.fornesia.com
04-20-2014 12:14 AM RE: Source Code Anti Sniffer
#10


smoz Away
Coding Moderators
Coding Moderators
*****

Posts: 78
Joined: Feb 2014

Reputation:

FCoin: 2.09ƒc
(04-19-2014 10:29 AM)dedy Wrote:  [img]/71e8bvuhb/Capture.jpg[/img]
klo kayak gini gmna ya om?
hanya newbie yg pngin belajar

peletakkannya salah tuh...dilihat betul2 sourcenya

[Image: fornesia_2.gif]
04-23-2014 09:50 PM RE: Source Code Anti Sniffer
#11


kakashi83 Away
ForNesia Family
Registered
*

Posts: 38
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒc
untuk yg paker timer 500, kok pas di run eror disni yaa,, kira2 apanya yg salam master
[Image: eror.jpg]

kakashi83, proud to be a member of ForNesia Family since Mar 2014.
04-24-2014 06:44 AM RE: Source Code Anti Sniffer
#12


denitri Away
Banned
Banned

Posts: 85
Joined: Mar 2014

FCoin: 12.25ƒc
Mas kalau Errornya Sperti ini gimana
[Image: 15ydi6p.jpg]
04-24-2014 03:21 PM RE: Source Code Anti Sniffer
#13


smoz Away
Coding Moderators
Coding Moderators
*****

Posts: 78
Joined: Feb 2014

Reputation:

FCoin: 2.09ƒc
(04-24-2014 06:44 AM)denitri Wrote:  Mas kalau Errornya Sperti ini gimana
[IMG]/15ydi6p.jpg[/IMG]

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

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

[Image: fornesia_2.gif]
04-29-2014 04:50 PM RE: Source Code Anti Sniffer
#14


DewaPerseus Away
moderator kece
FNS Member
**

Posts: 121
Joined: Dec 2013

Reputation:

FCoin: 2.46ƒc
klo semacam aplikasi dede berati tinggal di tambah namanya disitu trus pake .exe gak???

DewaPerseus, proud to be a member of suryadewa forum since Dec 2013.

* Diatas langit masih ada langit, we are just big family *

==============fb.com/dewa.perseus==============
==============fb.com/dewa.perseuss==============
04-29-2014 04:59 PM RE: Source Code Anti Sniffer
#15


Kizuma Wa Away
HunteR
HunteR
*

Posts: 70
Joined: Mar 2014

Reputation:

FCoin: 2.46ƒc
kalau pengen aman dari dede pke baju enigma wa

Kizuma Wa, proud to be a member of ForNesia Family since Mar 2014.




Possibly Related Threads...
Thread: Author Last Post
  [Share] ForNesia Http Injector Source Code ForNesiaFreak 01-12-2018 01:01 PM
Last Post: wahyu64
  [Share] OpenVpn Delphi Source Code ForNesiaFreak 07-28-2017 12:58 PM
Last Post: Lordemax

Search thread:


[-]
Advertisement