Cara Pasang Anti Sniff Aplikasi Di Delphi7

Androhardcore - Pada kesempatan kali ini admin akan share sebuh trik jadul, di mana kita akan mengamankan isi dari dalam project aplikasi yang kita buat dari bahasa pemerograman Delphi7,
ini adalah pengalaman saya pada saat membuat sebuh software kemudian tau-tau ada orang yang dapat melihat isi penting dari dalam aplikasi tersebut tentu kita sebagai developmen aplikasi tersebut merasa jengkel akan tingkah para sniffing yang tidak tau untuk tersebut, maka saya coba jalan-jalan ke google bertanya script untuk mengamankan aplikasi dari para penjahat aplikasi tersebut, maka saya sudah menemukan script yang pas untuk di jadikan alat pengamanan aplikasi kita ini, untuk pembuatanya pun tidak terlalu sulit, cukup 1 komponen Timer saja, baiklah silahkan lanjut di tutorial di bawah :

Yang pertama adalah kita buat atau edit project yang akan kita amankan dengan script ini, di sini saya akan edit aplikasi yang saya buat yaitu loginner wifi.id, untuk mendownload projectnya silahkan download di sini ,

di bawah akan kita lakukan bilamana sniffing mencoba membongkar aplikasi kita, maka pc mereka langsung shutdown otomatis dengan cepat, sesuai interval timer yang nantinya kita pasang.

Tutorial lengkap memasukan script anti sniff

• seperti yang saya katakan di atas terlebih dahulu buka aplikasi borland delphi7/project yang akan di amankan
• tambahkan 1 buah komponen Timer yang berada pada palet system, kemudian taruh di Form

penerapan

• kemudian ganti nama komponen Timer tsb dengan 'TimerForbidden' (Tanpa kutip), dan interval ganti menjadi 10, biar cepat shutdown PC si sniffing
• yang pertama copy kode ini di atas implemention/di bawah var

Forbidden: TStringlist;
function EnumWindowsProc (hWnd: HWND; lParam: lParam): Bool; stdcall;
procedure GetProcessList;

penerapan

• kemudian Klik 2 kali pada komponen Timer yang sudah di pasang tadi
• kemudian masukan hapus kode begin, dan masukan script di bawah : 

var
i: Integer;
d: Integer;
list: TStringList;
begin
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;

penerapan

• jik sudah masukan lagi script di bawah ini ke Form1 > Event > oncreat, tepat di bawah kode begin

Forbidden:= 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
Forbidden.Add(string(Title));
end;

penerapan

• Samapi di sini kita sudah dapat mengamankan aplikasi kita, silahkan save and run :)

Nb : jika ada error silahkan berkomentar di bawah.......