Tutorial Cara membuat Anti Sniff Atau Anti Intip Aplikasi Delphi7

Cara membuat anti sniff atau dapat juga kita sebut anti intip injek, yaitu supaya daleman/isi injek kita tidak bisa di bobol orang, biar gak bisa di intip pakai alat sniffer yang biasa dipakai, melindungi aplikasi kita dari hak cipta sendiri supaya aman dan gak bisa ditiru orang lain.

Supaya aplikasi delphi kita gak bisa di lihat oleh orang lain, misalnya dengan alat unpack dan DD/Decompiler yang bisa melihat isi daripada injek kita, dengan memasang anti sniff injek kita aman gak bisa di contek orang.

Memang ada beberapa cara supaya injek kita anti sniff, seperti contoh cara shutdown jika ter deteksi alat sniffer atau alat unpacker, dan ada juga menggunakan cara penerapan close sendiri aplikasi nya jika terdeteksi alat mencurigakan. Disini yang akan saya ulas yaitu cara anti sniff dengan memasang script supaya shutdown komputer jika terdeteksi alat sniff.

Cara membuat anti sniff Delphi7, anti bongkar/intip injek

Caranya pertama Letakkan kode dibawah ini, masukkan di bawah var atau di atas Implementation:

Forbidden: TStringlist;
function Enum Windows Proc  (hWnd: HWND; lParam: lParam): Bool; stdcall;
procedure GetProcessList;

Kemudian Klik dua Kali pada Form Kosong atau dalam procedure FormCreat dan Masukkan Kode berikut:

Forbidden:= TStringList.Create;
end;
procedure GetProcessList;
begin
EnumWindows(@EnumWindowsProc,0);
end;
function Enum Windows Proc ( 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
Forbidden.Add(string(Title));

Ambil Komponen Timer dari pallate dan Dengan Properties seperti berikut rubah nama Timer dan setting interval nya:
Nama :TimerForbidden
Interval : 1
Untuk interval boleh di isi 50 atau 10, tergantung ingin berapa cepat respon menuju komputer shutdown. Kemudian Klik dua kali Pada Timer dan masukkan kode berikut, Sisipkan code berikut diatas/sebelum Begin:

var
i: Integer;
d: Integer;
list: TStringList;

Kemudian setelah Begin pada timer masukan code berikut:

list:= TStringList.Create;
list.Text:= 'smartsniff'#13#10'monsocks'#13#10'dump'#13#10'wireshark'#13#10'wincap'#13#10'popcap'#13#10'unpacker'#13#10'unupx'#13#10'aspack'#13#10'cheat engine'#13#10'memory view'#13#10'dede'#13#10'ce portable'#13#10'cheat engine portable'; // filter nama window yang mengandung Forbidden atau aplikasi untuk bongkar inject
list.Text:= StringReplace(list.Text,'|',#13#10,[rfReplaceAll]);
try
Forbidden.Clear;
GetProcessList;
for i:= 0 to Forbidden.Count -1 do begin
for d:= 0 to list.Count -1 do begin
if Pos(list[d],LowerCase(Forbidden[i])) <> 0
then
winexec('shutdown -s -t 0 -f',sw_normal); //PC SUTDOWN OTOMATIS
//Close: //aplikasi inject di close//
end;
end;
finally
list.Free;
end;