TUTORIAL BELAJAR MEMBUAT INJEK PC

Borland Delphi 7 Enterprise merupakan salah satu Aplikasi pemrograman yang berfungsi sebagai software pembuat aplikasi yang berekstensi windows [.exe ].Borland Delphi 7 Enterprise ini juga sering digunakan oleh bangsa pemrograman yang hobi unutuk membuat aplikasi atau games yang berjenis file.exe,jadi apabila anda ingin membuat kreasi seperti aplikasi,software,inject dan sebagainya yang bersangkutan dengan perangkat lunak komputer dan smarphone anda bisa gunakan software aplikasi Borland Delphi 7 Enterprise Terbaru Full ini.

Download Borland Delphi 7

• 1. Langkah Pertama siapkan 1 buah foleder beri nama LATIHAN BUAT INJEK biar nanti anda tidak bingung save as dimana, lalu buka aplikasi delphi anda saya menggunakan delphi 7 belum pake alpaskin, lalu buat 2 BUAH BUTTON kaya gambar dibawah ini:

• 2. Langkah yang kedua Kemudian Cari tulisan INDY SERVERS pilih atau klik yang TCP kaya gambar dibawah ini:

 

• 3. Langkah yang ketiga Silahkan klik BUTTON 1 dan ganti nama CAPTION tulisan terserah anda mau START bisa, ON bisa, MULAI bisa, MAJU bisa silahkan tulis saja menurut anda dan ganti juga pada BUTTON 2 lalukan seperti pada BUTTON 1

• 4. Pada langkah yang keempat silahkan klik 2x atau double klik BUTTON1/START/ON (sesuai dengan kehendak anda tadi), lalu masukan kode dibawah ini tepat dibawah tulisan BEGIN

IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('1985');
IdMappedPortTCP1.MappedHost:='10.1.89.130';
IdMappedPortTCP1.MappedPort:=StrToInt('8000');
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;

Keterangan tambahan: angka 10.1.89.130 dan 8000 adalah proxy dan port default milik operator telkomsel silahkan sesuaikan proxynya dengan operator anda masing-masing, dan angka 1985 adalah out port yang terhubung nantinya ke BITVISE silahkan ubah angka 1985 tersebut sesuai dengan selera anda saja, yang penting jangan lupa saja karena itu port buat di setting ke bitvise nantinya.

• 5. Langkah yang kelima klik 2x BUTTON2/OFF (sesuai tulisan anda pada point3 diatas) atau double klik saja, lalu masukan kode dibawah ini tepat dibawah BEGIN

IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;

• 6. Langkah yang keenam silahkan klik 2x TCP > EVENTS > ONEXECUTE lalu masukan source kode dibawah ini , karena disana sudah ada tulisan BEGIN anda bisa hapus saja dulu biar gak bingung lalu ganti dengan kode dibawah ini:

var
Header,Payload:string;
begin
Header := StringReplace(header,' #13#10 + #13#10, #13#10 + ',' + #13#10 + #13#10 200 ok', [rfReplaceAll]);
Payload:='POST http://ISI BUGS OPSEL/ HTTP/1.1 SSH-2.0-1.91 sshlib: Bitvise SSH Client (Tunnelier) 4.60'+#13#10+'User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0'+#13#10+'Connection: Keep-Alive'+#13#10+' Host : ISI BUGS OPSEL'#13#10+athread.NetData;
if pos('CONNECT',athread.NetData) <>0 then
athread.NetData:=athread.NetData+Payload;

Keterangan tambahan: silahkan ganti tulisan isi bugs opsel dengan bugs andalan anda, pastikan bugs yang akan anda pasangkan adalah bugs yang masih open, karena jika tidak open maka tidak akan konek dan akan bla...bla..bla.. HTTP Respone di log bitvisenya.

• 7. Langkah ke tujuh lakukan seperti langkah yang keenam, klik 2x TCP > EVENTS > ONOUTBUNDCONNECT lalu masukan kode replace dibawah ini tepat dibawah tulisan BEGIN

AThread.NetData := stringreplace(AThread.NetData,' :22 ',' :443',[rfReplaceAll]);
AThread.NetData := stringreplace(AThread.NetData,' 403 Forbidden',' 200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 Ok',[rfReplaceAll, rfIgnoreCase]);

Keterangan tambahan: tujuan kode replace diatas adalah mungkin saja ada bug host yang anda pasangkan atau mau anda gunakan harus di replace hostnya dan pernah saya bahas tentang replace replace ini silahkan anda cari tutorialnya di blog ini.

• 8. Langkah kedelapan jika dirasa sudah selesai silahkan pilih FILE dan SAVE AS lalu simpan pada folder LATIHAN BUAT INJEK tadi yang sudah saya suruh pada nomer 1 diatas.

• 9. Langkah yang kesembilan untuk melihat hasilnya silahkan klik tanda SEGITIGA HIJAU jika tampilannya masih kurang srek silahkan anda edit kembali untuk mengatur lebar tingginya tinggal anda arahkan kursor anda ke pinggirnya dan tarik mundur maju saja.

• 10. Langkah yang kesepuluh untuk mengganti tulisan kaya dibawah ini , silahkan anda cari saja tulisan CAPTION kaya dibawah ini.

• 11. Langkah yang kesebelas bagi yang mau mengganti iconnya silahkan klik ICON lalu loda dan cari icon yang akan anda gunakan lalu klik ok.

• 12. Langkah yang terakhir adalah memberi warna dasar silahkan klik CLOR dan ssuaikan dengan warna favorit anda, ingat ini masih terbilang monoton dari segi tampilannya karena untuk tampilan yang lebih waw harus menginstal alphaskin. (SELESAI)

Jika kalian masih ada kesulitan dengan tutorial diatas silahkan coment dibawah
Semoga bermanfaat :D

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest