Post Game

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.

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.