Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016
Sabtu 03 September 2016 - www.indoblog.me Ok Bray langsung saja disimak Tips atau Tutorial Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016 sebenarnya tutorial ini juga bukanlah tutorial baru karena dari tahun tahun sebelumnya juga pernah di bagikan dan disini admin akan coba ulas kembali hanya untuk sekedar mengingatkan saja.
Ok program anti sniffer atau anti bongkar program yang kita buat dan dengan menerapkan tekhnik ini maka akan sedikit memberikan tingkat keamanan yang lebih baik terhadap project yang kita buat dan tidak mudah berpindah tangan ke tangan programmer lainnya yang hanya sekedar mengedit-edit dan bumm program milik kita sudah menjadi atas nama milik orang lain maka setidaknya dengan melakukan hal ini akan lebih memproteksi program yang kita buat lebih baik lagi.
Lihat Juga: Cara Buat dan Bikin Inject Internet Gratis Terbaru All Operator Terbaru 2016
Ok bagi sahabat sahabat delphier silahkan langsung saja dibuka program delphi anda delphi 7/indy9 dan silakan langsung dipraktekan.
1. Tambahkan 2 buah Timer ada di palette system lalu Timer 1 ubah propertiesnya seperti pada gambar dibawah ini:
Enabled:= True;
Interval:=10;
2. Lalu lanjut ke timer 2 lalu ubah propertiesnya seperti pada gambar dibawah ini:
Enabled:=False;
Interval:=1000;
3. Kemudian diatas implementation lalu silahkan masukan coding dibawah ini:
sniffer: TStringlist;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;
procedure GetProcessList;
4. Kemudian lalu dibawah {$R *.dfm} silahkan tambahkan coding dibawah ini:
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));
end;
procedure GetProcessList;
begin
EnumWindows(@EnumWindowsProc, 0);
end;
5. Kemudian pada Form Create atau double klik form kosong dan masukan coding dibawah ini:
sniffer:= TStringList.Create;
6. Kemudian lalu silahkan double klik Timer 1 lalu masukan coding dibawah ini:
var i: Integer;
d: Integer;
list: TStringList;
begin
list:= TStringList.Create;
list.Text:= smartsniff+#13#10+ollydbg+#13#10+dump+#13#10+wireshark+#13#10+
wincap+#13#10+popcap+#13#10+unpacker+#13#10+unupx+#13#10+cheat engine+#13#10+
dede+#13#10+ce portable+#13#10+package sniffing;
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
Timer2.Enabled := True; //Perintah Untuk Mengaktifkan Timer2
end;
end;
finally
list.Free;
end;
7. Kemudian yang terakhir silahkan double klik Timer 2 lalu masukan coding dibawah ini:
Form1.Visible := False;
Timer1.Enabled := False;
Timer2.Enabled := False;
Application.MessageBox(Kamu Suka Ngintip Ya :D, Warning ...!!!, MB_ICONWARNING); //Pesan yang akan keluar.
Application.Terminate; //Untuk Perintah Menutup Program Saja
// winexec(shutdown -s -t 1 -f,sw_normal); //Untuk Perintah Melakukan Shutdown
// winexec(shutdown -r -t 1 -f,sw_normal); //Untuk Perintah Melakukan Restart
8. Jika sudah beres silahkan RUN atau tekan f9 apakah ada yang error atau tidak lalu Perhatikan baris perintah ini:
Application.Terminate; silahkan anda bisa hapus dan ganti dengan winexec(shutdown -s -t 1 -f,sw_normal); jika anda ingin membuatnya langsung shutdown dan atau bisa diganti dengan yang winexec(shutdown -r -t 1 -f,sw_normal); jika anda ingin membuatnya restart.
Lihat Juga Bos: Cara Buat Injek Rolling Otomatis Paling Mantap Terbaru 2016
Dan untuk contoh source code jadinya silahkan download DISINI dan untuk passrarnya silahkan Copy Paste url lengkap postingan atau artikel ini saja dan sekian Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016 semoga bermanfaat dan membantu dan wassalam.
Go to link Download
