Sabtu, 03 September 2016

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

Anti Bongkar Injek dan Anti Sniffer 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;

Program Anti Sniffer Dengan Delphi 7

2. Lalu lanjut ke timer 2 lalu ubah propertiesnya seperti pada gambar dibawah ini:

Enabled:=False;
Interval:=1000;

Program Anti Sniffer Dengan Delphi 7

3. Kemudian diatas implementation lalu silahkan masukan coding dibawah ini:

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

Program Anti Sniffer Dengan Delphi 7

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;

Program Anti Sniffer Dengan Delphi 7

5. Kemudian pada Form Create atau double klik form kosong dan masukan coding dibawah ini:

sniffer:= TStringList.Create;

Program Anti Sniffer Dengan Delphi 7

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;

Program Anti Sniffer Dengan Delphi 7

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

Program Anti Sniffer Dengan Delphi 7

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.


EmoticonEmoticon