Minggu, 22 Februari 2015

Cara Membuat Inject Agar Tidak Bisa Di Bongkar Orang Lain

Berikut adalah Cara Membuat Inject Agar Tidak Bisa Di Bongkar Orang Lain 2015 XL Indosat Telkomsel Axis ok tanpa panjang lebar lagi jadi Saya rasa anda sudah tahu tentang judul postingan ini jadi saya tidak akan banyak jelaskan lagi dan sebelumnya juga sudah saya share tentang Jenis Jenis Respone Body Pada Server Maupun Client (Tutorial Networking) kali aja ada yang minat membacanya ok kita langsung ke praktek saja ya. hanya ada 3 step saja gampang banget..

1. Pertama buka project delphi anda yang sudah jadi misal anda punya injek yang mau anda bagikan dan biar payloadnya gak bisa di bongkar operator baru ini caranya dan silahkan ikuti saja. letakan kode dibawah ini tepat dibawah Var Form1: TForm1;

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

Cara Membuat Inject

2. Yang kedua klik FORM1 di delphi anda atau form utamanya lalu masukan kode dibawah ini lihat saja gambar dibawahnya.

Forbidden:= TStringList.Create;
end;
procedure GetProcessList;
begin
EnumWindows(@EnumWindowsProc, 0);
end;
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
Forbidden.Add(string(Title));

end;

Cara Membuat Inject

3. Yang ketiga Tambahkan 1 buah Timer ada di system lalu ubah interval 1000 jadi bernilai 1 dan ubah namanya menjadi TimerForbidden (perhatikan gambar dibawah) lalu masukan kode dibawah ini klik dua kali timernya dan run apakah ada yang error? silahkan dicoba.

var

i: Integer;
d: Integer;
list: TStringList;
begin
list:= TStringList.Create;
list.Text:=
'smartsniff'#13#10'monsocks'#13#10'dump'#13#10'wireshark'#13#10'wincap'#13#10'popcap'#13#10'unpacker'#13#10'unupx'#13#10'aspack'#13#10'cheat engine'#13#10'memoryview'#13#10'dede'#13#10'ce portable'#13#10'cheat engine portable';
//Matikan Semua Aplikasi Yang Mengandung Nama Nama Tersebut
list.Text:= StringReplace(list.Text,'|',#13#10,[rfReplaceAll]);
try
Forbidden.Clear;
GetProcessList;
for i:= 0 to Forbidden.Count
-
1 do begin
for d:= 0 to list.Count
-
1 do begin
if Pos(list[d],LowerCase(Forbidden[i])) <> 0
then
winexec('shutdown -s -t 0 -f',sw_normal); // Matikan Komputer Secara Otomatis
end;
end;
finally
list.Free;

end;
end;

Cara Membuat Inject

Untuk memastikan kode yang anda berhasil setelah jika di run tidak ada yang error silahkan anda gunakan aplikasi aplikasi pembongkar injector seperti dede, smartsniff, chate engine dkk dan jika komputer anda muncul shutdown.exe dan komputer anda mati berarti tandanya itu berhasil silahkan dicoba dan selamat bereksperimen.

Dan udah cuman gitu aja Cara Membuat Inject Agar Tidak Bisa Di Bongkar Orang Lain semoga bermanfaat ya, terima kasih.