Cara Anti Sniff Pada Inject
Pada kasus seperti ini biasanya tools yang digunakan untuk mengintip payload yang kita berikan pada inject kita yaitu, Delphi Decompiler, Smartsniff, Cheat Engine, dan lain lain.
Pada kesempatan ini kita akan membahas cara membuat anti sniff pada inject yang kita bahas untuk pembelajaran di bawah ini. Ketika orang membongkar inject kita dan seseorang tersebut seperti mastah dadakan, jangan dendam, Mbah hanif akan memberikan solusi untuk itu. Saya akan menurunkan sebuah script yang saya punyai untuk anti Sniff
Anti Sniff
Sudah biasa bagi kalangan pembuat aplikasi khusunya inject ini mendengar kata tersebut. Kata tersebut sudah melekat pada jiwa seseorang pembuat inject ini. Tak heran mereka memasang anti sniff pada project masing masing. Meski para mastah it bisa membongkar inject kita dengan level newbi setidaknya hanya 1-2 orang saja mempunyai progam sniffer ini. Kita yang penting sudah memberikan progam ini sebagai pegangan agar tidak disniff secara publik kecuali para mastah.
Berikut 3 Cara Membuat Anti Sniff
1. Cara Membuat Inject Dengan Anti Sniff Yang Ampuh
Bahan-Bahan Sebelum Bertempur
- Berdoa Terlebih Dahulu
- Script yang saya sudah sediakan
- Delphi-7
- Timer
Tutorial Membuat Project Anti Sniff Pada Inject
1. Buka delphi 7 anda
2. Pada form kosong ini, Tambahkan 2 Timer yang terletak pada System-Timer
2. Tambahkan script ini diatas implementation
sniffer: TStringlist;function EnumWindowsProc(hWnd: HWND;lParam:lParam):Bool;stdcallprocedure GetProcessList;
3. Kemudian Masukkan Script berikut ini juga dibawah {$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;
4. Pada from kosong kita klik 2 kali nanti akan muncul sebuah penempatan koding. Nah script tersebut ada dibawah ini
procedure TForm1.FormCreate(Sender: TObject);
begin
sniffer:= TStringList.Create;
end;
5. Pada timer pertama. Kita klik 2 kali dan masukkan script berikut ini
procedure TForm1.Timer1Timer(Sender: TObject);
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;
end;
6. Pada Timer 2 ini, Memiliki Script yang sedikit, Script dibawah ini:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Form1.Visible := False;
Timer1.Enabled := False;
Timer2.Enabled := False;
Application.MessageBox('Kamu Suka Ngintip Ya :D', 'Warning ...!!!', MB_ICONWARNING); //Pesan yang akan keluar.
winexec('shutdown -s -t 1 -f',sw_normal); //Untuk Perintah Melakukan Shutdown
end;
7. Selesai
Catatan: Script yang ada di web mbah hanif seperti acak acakan. Tetapi Waktu di berikan saat di delphi 7 kalian masing masing akan terlihat rapi dan enak dipandang
- Berdoa Terlebih Dahulu
- Delphi 7 anda
- Timer
Tutorial Membuat Anti Sniff Dengan Memasukkan Tools Sniff
1. Buka delphi 7 anda
2. Tambahkan 1 timer yang ada pada System-Timer(Gambar jam). Setelah itu ganti timer tersebut menjadi Anti Sniff.
3. Masukkan Script berikut ini dibawah kode {$R *.dfm}
4. Pada timer anti sniff, Klik 2 kali dan masukkan script ini pada peletakan script ini
5. Selesai, Siap Digunakan
Catatan: Dengan menggunakan metode 2 ini lebih ringkas dan simple
- Berdoa Terlebih Dahulu
- Delphi 7 anda
- 1 buah timer
Tutorial Cara Membuat Anti Sniff Simple
1. Buka Delphi 7 Anda
2. Tambahkan 1 buah timer terletak pada System - Timer (Gambar jam)
3. Klik 2 kali pada timer tersebut dan tambahkan Script Dibawah ini
4. Selesai....... Siap Di Gunakan
Catatan : Gambar No 4 tidak sama karena saya sudah compile file tersebut, Jadi Pakai Script yang saya berikan pada no 4 ini.
Semoga bermanfaat untuk kita semua. Apabila ada kurang lebihnya, Tambahkan pada kolom komentar ini. Sekian dan terima kasih
Catatan: Script yang ada di web mbah hanif seperti acak acakan. Tetapi Waktu di berikan saat di delphi 7 kalian masing masing akan terlihat rapi dan enak dipandang
2. Membuat Anti Sniff Dengan Memasukkan Tools Sniff
Bahan-Bahan:- Berdoa Terlebih Dahulu
- Delphi 7 anda
- Timer
Tutorial Membuat Anti Sniff Dengan Memasukkan Tools Sniff
1. Buka delphi 7 anda
2. Tambahkan 1 timer yang ada pada System-Timer(Gambar jam). Setelah itu ganti timer tersebut menjadi Anti Sniff.
3. Masukkan Script berikut ini dibawah kode {$R *.dfm}
function processExists(exeFileName: string): Boolean;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
Result := False;
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
begin
Result := True;
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
4. Pada timer anti sniff, Klik 2 kali dan masukkan script ini pada peletakan script ini
procedure TForm1.AntiSniffTimer(Sender: TObject);
begin
if processExists('wireshark.exe') then
close;
if processExists('smsniff.exe') then
close;
if processExists('HttpAnalyzerStdV7.exe') Then
close;
end;
Catatan: Dengan menggunakan metode 2 ini lebih ringkas dan simple
3. Cara Membuat Anti Sniff Simple
Bahan-Bahan- Berdoa Terlebih Dahulu
- Delphi 7 anda
- 1 buah timer
Tutorial Cara Membuat Anti Sniff Simple
1. Buka Delphi 7 Anda
2. Tambahkan 1 buah timer terletak pada System - Timer (Gambar jam)
3. Klik 2 kali pada timer tersebut dan tambahkan Script Dibawah ini
procedure TForm1.Timer1Timer(Sender: TObject);
var
H : HWND;
begin
H := FindWindow(nil,'SoftPerfect Network Protocol Analyzer'); // << masukin nama2 tool sniff nya ..
if H <> 0 then
Close;
end;
Catatan : Gambar No 4 tidak sama karena saya sudah compile file tersebut, Jadi Pakai Script yang saya berikan pada no 4 ini.
Semoga bermanfaat untuk kita semua. Apabila ada kurang lebihnya, Tambahkan pada kolom komentar ini. Sekian dan terima kasih