Cara Membuat Program atau Inject Anti Sniffer Dengan Delphi 7 Terbaru

Assalamualaikum...
KENEONO - Dikesempatan kali ini saya akan share Cara Membuat Program atau Inject Anti Sniffer Dengan Delphi 7 Terbaru. 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, setidaknya dengan melakukan hal ini akan lebih memproteksi program yang kita buat lebih baik lagi.
Dengan cara ini project kita bisa aman untuk tidak bisa dibongkar contoh mau ngintip bug host inject yang udah kita buat.

Baca juga : Cara Membuat Inject Auto Rolling Bug atau Payload Secara Otomatis

Berikut tutorialnya brow 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 dibawah ini:

Enabled:= True;
Interval:=10;

2. Lalu lanjut ke timer 2 lalu ubah propertiesnya seperti 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;

KET : Pada tulisan list.Text bisa ditambahkan nama-nama software lain yang biasanya buat bongkar.

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 Mau Ngintip Ya :D', 'Warning !!!', MB_ICONWARNING); //Pesan yang akan keluar.
  winexec('shutdown -s -t 1 -f',sw_normal); //Untuk Perintah Melakukan Shutdown

8. Jika sudah beres silahkan RUN atau tekan f9. Selesai

Sekian postingan artikel Cara Membuat Program atau Inject Anti Sniffer Dengan Delphi 7 Terbaru.
Semoga bermanfaat. yang mau comot source codenya dibawah ini

Download

Wassalamualaikum...