Membuat Program Anti Sniffer Dengan Delphi

5:51 AM

Membuat Program Anti Sniffer Dengan Delphi - Seorang Developer aplikasi pasti tidak suka jika sebuah program buatan nya di sniff atau di intip. Tujuan sniff itu sendiri biasanya ingin mengambil / meng-copy data atau bahasa pemprograman yang ada di satu aplikasi yang nantinya akan mereka remake atau buat baru dengan data yang mereka sniff tadi.

Untuk meminimalis tindakan seperti itu, wajib terapkan Anti Sniff di project kalian. Kenapa meminimalis ? yaah, karna sebenarnya skalipun sudah di pasang Anti Sniff aplikasi tetap akan bisa di sniff. Tapi setidaknya buat mereka kesulitan dalam men-sniff aplikasi buatan kita.
Sebelumnya buat variable sniffer: TStringlist; beserta funcion dan procedure sniffer nya. letakkan tepat di atas implementation.
  sniffer: TStringlist;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;
procedure GetProcessList;
Kemudian copy dan pastekan cooding ini tepat di bawah {$R *.dfm}
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;
Setelah itu masuk ke FormCreate atau klik 2x pada form kosong dan tambahkan ini.
sniffer:= TStringList.Create;
Pasang 2 buah Timer, untuk Timer1 properties nya Enabled = True; Interval = 20; dan untuk Timer2 properties nya Enabled = False; Interval = 1000;. Kemudian masukkan cooding ini ke Timer1.
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; //Mengaktifkan Timer2
      end;
    end;
      finally
      list.Free;
  end;
Eit jangan lupakan timer 2, yang nanti fungsi nya akan memunculkan message/pesan ketika menjalankan salah satu software sniffer. silahkan masukkan cooding ini di Timer2.
  Form1.Visible          := False;
  Timer1.Enabled      := False;
  Timer2.Enabled      := False;
  Application.MessageBox('Eits ketahuan mau ngintip :p.', 'Bahaya!', MB_ICONWARNING); //Pesan yang akan keluar.
  Application.Terminate; //inject akan tutup otomatis.
Sampai sini program antisniff kamu sudah jadi, dan sebagai tambahan PESAN yang akan keluar nanti bisa kamu rubah sesuai selera kamu. liat di bagian cooding Timer2, dan untuk menambahkan daftar program yang kamu anggak sniffer silahkan rombak di cooding Timer1, tinggal tambahkan saja, biar semakin kuat pertahanan nya. Untuk kamu tipe brutal gak tau ampun. bisa kamu buat PC yang terdeteksinff otomatis Shutdown/Restart caranya. ganti Application.Teminate; di Timer2 dengan (pilih salah satu) :
winexec('shutdown -s -t 1 -f',sw_normal); //Untuk Shutdown
winexec('shutdown -r -t 1 -f',sw_normal); //Untuk Restart
Sekarang coba Run project kamu (F9) dan coba buka salah satu aplikasi/software yang kamu masukkan ke list di Timer1. Jika berhasil maka akan muncul message sniff nya.

Artikel Terkait

Previous
Next Post »
Blogger
Disqus
Pilih Sistem Komentar Yang Kamu Sukai

No comments