Sabtu, 20 Februari 2016

Cara Membuat Injek Rolling Bug Host Server Otomatis Terbaru 2016 [T1]

Berikut adalah Tips Cara Membuat Injek Rolling Bug Host Server Otomatis Terbaru 2016 dan pada tutorial ini admin tidak berbagi program internet gratisnya melainkan hanya berbagi bagaimana membuat program sebuah rooling atau bergantian suatu varibale yang ada didalam sebuah komponen edit teks sehingga kita tidak melakukan star stop secara manual dan sehingga tulisan yang ada didalam sebuah edit teks tersebut akan bergantian sebenarnya dengan konsep fo to do juga bisa lain kali akan dibahas, jadi konsep pembuatan program sederhana ini menggunakan delphi 7 walaupun admin sebenarnya sudah menggunakan delphi paling terbaru sehubung masih banyak yang belajar tentang delphi 7 jadi admin ulas dan kupas dengan delphi 7 saja.

Cara Buat Injek Telkomsel 3 Axis Indosat XL Maxis Sendiri Dengan Delphi


Heboh gan? Saeful Jamil di Hebohkan Dengan Cabuli Anak Anak , Ok Contoh Injek rooling host adalah bisa anda coba lihat seperti pada gambar yang diatas yang dimana anda tidak perlu menginputkan setiap listnya secara manual disini dalam demonya admin akan memberikan 5 Bug host server sebagai contohnya seperti gambar yang diatas, yang dimana pada tutorial ini adalah masih konsep yang sangat sederhananya, dan tutorial ini akan ada kelanjutannya jadi bagi anda yang membuat project dengan bantuan tutorial ini jangan dihilangkan karena akan disambungkan nantinya yang dimana nantinya kita bisa menggabungkan dengan beberapa tunnel dan beberapa komponen yang lainnya yang sering anda temui silahkan langsung praktek yah.

DAFTAR KOMPONEN, CAPTION DAN PERGANTIAN NAMA KOMPONEN:

Tambahkan Dulu 17 Komponen yang ada dibawah ini, silahkan cari pasti anda tahu, kemudian lihat dan perhatikan pergantian namanya untuk pergantian nama dari komponen tersebut ada di bagian Object Inspector pada menu properties.

1. Timer1 Ganti namanya menjadi logtcp Ganti Juga Interval Jadi 10 Enabled True
2. Timer2 Ganti namanya menjadi b1 Ganti Juga Interval Jadi 7000 Enabled False
3. Timer3 Ganti namanya menjadi b2 Ganti Juga Interval Jadi 7000 Enabled False
4. Timer4 Ganti namanya menjadi b3 Ganti Juga Interval Jadi 7000 Enabled False
5. Timer5 Ganti namanya menjadi b4 Ganti Juga Interval Jadi 7000 Enabled False
6. Timer6 Ganti namanya menjadi b5 Ganti Juga Interval Jadi 7000 Enabled False
7. IdMappedPortTCP1 Ganti namanya menjadi TCP
8. Button1 Ganti namanya menjadi ButtonStart Untuk Captionnya Ganti Jadi START
9. Button2 Ganti namanya menjadi ButtonStop Untuk Captionnya Ganti Jadi STOP
10. Memo1 Ganti namanya menjadi MemoTCP
11. Edit1 Ganti namanya menjadi p1 Ganti text mejadi (Isi Bug Server 1)
12. Edit2 Ganti namanya menjadi p2 Ganti text mejadi (Isi Bug Server 2)
13. Edit3 Ganti namanya menjadi p3 Ganti text mejadi (Isi Bug Server 3)
14. Edit4 Ganti namanya menjadi p4 Ganti text mejadi (Isi Bug Server 4)
15. Edit5 Ganti namanya menjadi p5 Ganti text mejadi (Isi Bug Server 5)
16. Label1 Ganti namanya menjadi pt Untuk Captionya Ganti Jadi TCP OFF
17. Label2 Ganti namanya menjadi nobh Untuk Captionya Ganti Jadi BH 0

PRAKTEK PEMBUATAN DASAR PROGRAMNYA:

1. Pada Langkah yang pertama silahkan tambahkan dulu bh:string; diatas implementation kemudian tambahkan Procedure tcpyes; Procedure tcpno; diatas kode private lalu tekan CTRL+SHIFT+C maka kode procedure akan di genrate otomatis kebawah, contoh langsung ke gambar 2 dibawah.

Cara Membuat Injek Sendiri Terbaru 2016

2. Pada langkah yang kedua lalu kemudian masukan kode dibawah ini pada masing masing hasil genrate pada point 1 diatas, contoh seperti pada gambar dibawah ini:

 TCP.Active := False;
 TCP.Bindings.Clear;

  TCP.Bindings.Add.Ip:='127.0.0.1'; // Local IP
  TCP.Bindings.Add.Port:=StrToInt('3128'); //Listen Port
  sleep (100);
  TCP.MappedHost:='10.1.89.130'; //Server Proxy ISP
  TCP.MappedPort:=StrToInt('8000'); // Port Proxy ISP
  TCP.Active:=True;

Cara Membuat Injek Sendiri Terbaru 2016


3. Pada langkah yang ketiga lalu silahkan klik atau onclick pada Button Start, lalu tambahkan kode dibawah ini:

pt.Caption:='TCP Start';
b1.Enabled:=true;
Buttonstart.enabled:=false;
Buttonstop.enabled:=true;

Cara Membuat Injek Sendiri Terbaru 2016


4. Pada langkah yang keempat kemudian silahkan onclick atau click pada ButtonStop lalu masukan kode dibawah ini:

pt.Caption:='TCP OFF';
nobh.Caption := 'BH 0';
memotcp.Clear;
b1.Enabled:=false;
b2.Enabled:=false;
b3.Enabled:=false;
b4.Enabled:=false;
b5.Enabled:=false;
Buttonstop.enabled:=false;
Buttonstart.enabled:=true;
Sleep (100);
tcpno;

Cara Membuat Injek Sendiri Terbaru 2016


5. Pada langkah yang kelima kemudian silahkan beralih ke komponen TCP > Object Inspector > Event > On OutboundData lalu masukan kode dibawah ini, lihat gambarnya dibawah:

memotcp.lines.add (athread.netdata);
if (Pos('HTTP/1.0', AThread.NetData)<>0) then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.0','HTTP/1.1 200',[rfReplaceAll,rfIgnoreCase]);
end else
if (Pos('HTTP/1.1', AThread.NetData)<>0) then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1','HTTP/1.1 200',[rfReplaceAll,rfIgnoreCase]);
end else
if (Pos('HTTP/2.0', AThread.NetData)<>0) then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/2.0','HTTP/1.1 200',[rfReplaceAll,rfIgnoreCase]);
end else

Cara Membuat Injek Sendiri Terbaru 2016

Petunjuk: rfReplaceAll,rfIgnoreCase adalah perintah untuk melakukan replace semuanya pada segala kondisi yang ada kalau hanya rfReplaceAll pada kondisi tertentu tidak akan di replace.

6. Pada langkah yang keenam silahkan kemudian masuk ke TCP > Object Inspector > Event > OnExecute lalu masukan kode dibawah ini silahkan perhatikan gambarnya:

memotcp.lines.add (athread.netdata);
if (Pos('CONNECT', AThread.NetData)<>0) or (Pos('HTTP', AThread.NetData)<>0) then begin
   Athread.Netdata := ('GET http://'+bh+':80/tcp HTTP/1.1'+#13#10);
   Athread.Netdata :=Athread.Netdata ;
end else

Cara Membuat Injek Sendiri Terbaru 2016


7. Pada langkah yang ketujuh kemudian silahkan cari komponen logtcp yaitu komponen timer yang sudah diubah namanya tadi kemudian onclick komponen tersebut lalu masukan kode dibawah ini, silahkan bisa perhatikan gambarnya:

if (pos('@',memotcp.Text) <> 0)
or (pos('¶',memotcp.Text) <> 0)
or (pos('‡',memotcp.Text) <> 0)
or (pos('¼',memotcp.Text) <> 0)
or (pos('½',memotcp.Text) <> 0)
or (pos('¾',memotcp.Text) <> 0)
or (pos('#',memotcp.Text) <> 0)
or (pos('&',memotcp.Text) <> 0)
or (pos('®',memotcp.Text) <> 0)
or (pos('™',memotcp.Text) <> 0)
or (pos('©',memotcp.Text) <> 0)
or (pos('$',memotcp.Text) <> 0)
or (pos('Ö',memotcp.Text) <> 0)
or (pos('~',memotcp.Text) <> 0)
or (pos('#',memotcp.Text) <> 0)
or (pos('ß',memotcp.Text) <> 0)
or (pos('‰',memotcp.Text) <> 0)
or (pos('¤',memotcp.Text) <> 0)
or (pos('†',memotcp.Text) <> 0)
or (pos('à',memotcp.Text) <> 0)
or (pos('ƒ',memotcp.Text) <> 0)
or (pos('§',memotcp.Text) <> 0)
or (pos('¦',memotcp.Text) <> 0)
or (pos('Ø',memotcp.Text) <> 0) then
begin
 pt.Caption:='TCP ON';
 b1.Enabled:=false;
 b2.Enabled:=false;
 b3.Enabled:=false;
 b4.Enabled:=false;
 b5.Enabled:=false;
end;

Cara Membuat Injek Sendiri Terbaru 2016


8. Pada langkah yang kedelapan kemudian silahkan klik pada b1 lalu masukan kode yang ada dibawah ini:

 if ((pt.caption = 'TCP Start')) then
begin
tcpno;
sleep (250);
nobh.Caption := 'BH 1';
tcpyes;
bh:=p1.Text;
b1.Enabled:=false;
sleep (1000);
b2.Enabled:=true;
if ((pt.Caption ='TCP ON')) then

b2.Enabled:=false;
end else

Cara Membuat Injek Sendiri Terbaru 2016


9. Pada langkah yang kesembilan kemudian silahkan klik pada b2 lalu masukan kode dibawah ini;

 if ((pt.caption = 'TCP Start')) then
begin
tcpno;
sleep (250);
nobh.Caption := 'BH 2';
tcpyes;
bh:=p2.Text;
b2.Enabled:=false;
sleep (1000);
b3.Enabled:=true;
if ((pt.Caption ='TCP ON')) then

b3.Enabled:=false;
end else

Cara Membuat Injek Sendiri Terbaru 2016


10. Pada langkah yang kesepuluh kemudian silahkan klik pada b3 lalu masukan kode dibawah ini;

 if ((pt.caption = 'TCP Start')) then
begin
tcpno;
sleep (250);
nobh.Caption := 'BH 3';
tcpyes;
bh:=p3.Text;
b3.Enabled:=false;
sleep (1000);
b4.Enabled:=true;
if ((pt.Caption ='TCP ON')) then

b4.Enabled:=false;
end else

Cara Membuat Injek Sendiri Terbaru 2016


11. Pada tahap yang kesebelas kemudian klik pada b4 lalu masukan kode dibawah ini;

 if ((pt.caption = 'TCP Start')) then
begin
tcpno;
sleep (250);
nobh.Caption := 'BH 4';
tcpyes;
bh:=p4.Text;
b4.Enabled:=false;
sleep (1000);
b5.Enabled:=true;
if ((pt.Caption ='TCP ON')) then

b5.Enabled:=false;
end else

Cara Membuat Injek Sendiri Terbaru 2016


12. Pada tahap dan langkah yang terakhir silahkan klik pada b5 lalu masukan kode dibawah ini;

 if ((pt.caption = 'TCP Start')) then
begin
tcpno;
sleep (250);
nobh.Caption := 'BH 5';
tcpyes;
bh:=p5.Text;
b5.Enabled:=false;
sleep (1000);
b1.Enabled:=true;
if ((pt.Caption ='TCP ON')) then

b1.Enabled:=false;
end else


Cara Membuat Injek Sendiri Terbaru 2016


TAHAP LANJUTAN DARI TUTORIAL INI;

dan untuk tahap lanjutannya pasti ada yang dimana kita akan belajar bagaimana menambahkan led speednya, bagaimana mengatur intervalnya, bagaimana kita membuat save, delete pada config bug servernya, bagaimana cara mempercantiknya, bagaimana kita menggabungkan dengan ssh dengan proxifier bahkan nanti kita akan belajar menggabungkan dengan modemnya langsung dan masih banyak lagi.

Jadi harap catat dan pahami tutorial ini karena akan ada kelanjutannya dan seterusnya akan terus digabungkan hingga menjadi 1 buah project yang yang multy guna, yang perlu anda pahami pada tutorial ini adalah onexecute pada bagian TCPnya, karena kunci keberhasilan project ini letaknya ada disana.

Note: Setiap Tutorial Yang berhubungan dengan tutorial ini pada setiap ujung judul artikelnya akan diberikan tanda [T1], [T2], [T3], [T4], dst.

Untuik [T2]nya atau tutorial kelanjutannya silahkan bisa dibaca DISINI

Ok hanya itu saja dulu informasi tentang Cara Membuat Injek Rolling Bug Host Server Otomatis Terbaru 2016 semoga bermanfaat dan silahkan pelajari dengan sebaik mungkin terima kasih banyak dan silahkan modifikasi kembali sesuai dengan kebutuhan saja, terima kasih banyak.