Post Game

Sabtu, 1 Oktober 2016 - www.indoblog.me Apa itu Random Host Injector? Pertanyaan yang bagus, lah yang nanya itu admin sendiri :D Silahkan Disimak Tips Cara Membuat Injek Sendiri Dengan Delphi 7 Terbaru 2016 yang dimana Random Host Injector adalah sebuah cara agar list host yang dimasukan ke listing tidak perlu kita inputkan dan cek secara satu-satu bahkan anda bisa cek kumpulan bug server tanpa perlu cek satu-satu bahkan anda bisa cek hingga ribuan dan tak terbatas jumlahnya.

Konsep pembuatan random injector ini belum pernah ada yang bahas, bahkan admin menyarankan pengembangan http injector untuk menggunakan modul ini, untuk random host injector ini juga sebenarnya pernah admin bahas hanya saja kita membuatnya berdasarkan jumlah timer yang kita gunakan maka misal kita menggunakan 10 timer maka maksimum pengecekannya adalah 10 bug host maka jika anda kebetulan membaca tutorial ini sangat beruntung sekali, karena list host yang anda cek tidak akan ada batasan dan ditutorial ini kita hanya cukup menggunakan 1 timer.

Saya jamin tutorial random injector ini belum pernah ada yang bahas, kalaupun nanti ada yang bahas kemungkinan tutorialnya ngambil dari website cara apa saja ini, :D , awalnya admin ragu membagikan trik random host ini karena jujur konsep ini yang selama ini admin gunakan untuk cek bug server.

Tetapi jika tutorial ini bermanfaat, silahkan anda bagikan ke teman-teman anda, share ke facebook, twitter, instagram, whatsapp, bbm, googleplus, agar bisa dipelajari secara bersama-sama, sebenarnya admin juga bingung kalau bikin tutorial delphi karena sebenarnya tutorial-tutorial delphi sudah banyak dibahas di tahun-tahun sebelumnya.

Tapi admin pastikan tutorial random hos injector ini baru pertama kali admin bahas dan bahkan belum ada 1 forum dan blogpun yang membahasnya, semoga anda semakin sakti dalam mengembangkan lsiting coding dasarnya yang akan dibahas dibawah ini:

Oh iya dan adminpun akan berikan contoh payload terbarunya, tetapi harap diingat untuk payloadnya silahkan anda kembangkan lagi, atau bisa anda edit atau tambahkan sesuai dengan kebutuhan dan admin hanya bisa memberikan modul dasarnya jika ingin payload terbaru work berdasarkan isp masing-masing semisal payload telkomsel, payload indosat, payload xl, payload axis, payload three silahkan gabung saja di grup facebook.

Berikut adalah tutorial dasar cara membuat inject random host dengan bantuan delphi 7 dan untuk delphi XE tinggal konversi string saja, silahkan langsung disimak.

1. Pada tahap pertama silahkan buka Dephi 7 anda, kemudian anda membutuhkan 1 Listbox, 2 Button, 1 IdMappedPortTCP, 1 Timer, dan 1 Opendialog dan untuk letak letak komponen tersebut admin asumsikan anda mengetahuinya karena pada standart delphi semua komponen tersebut harusnya ada, beberapa parameter komponen tersebut harus anda setting seperti dibawah ini:

Button1 Captionnya ganti menjadi = Start
Button1 Enabled dari True ganti menjadi = false;

Button2 Captionnya ganti menjadi = Add List

Timer1 Enabled dari True ganti menjadi = False

Timer1 intervalnya dari 1000 ganti menjadi = 5000

OpenDialog1 filternya masukan data ini = Text Files|*.txt

OpenDialog1 DefaultEXT masukan data ini = Text Files|*.txt

Dan untuk nama-nama komponennya itu sendiri biarkan default saja, atau jika anda sudah memahami penerapannya silahkan anda gonta-ganti juga tidak apa-apa tetapi jika anda belum paham silahkan ikuti panduan ini saja.

2. Yang kedua kemudian pada variable form utama silahkan masukan coding dibawah ini, atau anda bisa perhatikan gambar sebagai contoh penempatannya.

ListHost, IndexHost, BacaHost: Integer;

 Bug: string;

3. Lalu kemudian yang ketiga kita akan menambahkan fungsi baru terutama ini untuk fungsi header baru, letakan coding dibawah ini tepat dibawah {$R *.dfm} contohnya bisa anda lihat digambar saja.

function AddHeader(Payload, Header:string):string;

begin

 Payload:= StringReplace(Payload, #13#10 + #13#10, #13#10 + Header + #13#10 + #13#10, [rfReplaceAll]);

  Result:= Payload;

end;

4. Lalu yang keempat silahkan masuk dan beralih pada Button1 > Object Inspector > Events > OnClick atau double klik button1 saja, lalu masukan coding dibawah ini, contoh perhatikan gambar saja;

if Button1.Caption = Start then begin

    Button1.Caption := Stop;

    with IdMappedPortTCP1.Bindings.Add do begin

  IP:=127.0.0.1;

  Port:=strtoint(9201);

end;

    IdMappedPortTCP1.MappedHost:=10.1.89.130;

     IdMappedPortTCP1.MappedPort:=StrToInt(8000);

      IdMappedPortTCP1.Active:=true;

      Timer1.Enabled:=True;

  end else

  begin

    IdMappedPortTCP1.Active:=false;

     IdMappedPortTCP1.Bindings.Clear;

     Timer1.Enabled:=False;

    Button1.Caption := Start;

  end;

Penjelasan singkat diatas;

 Port:=strtoint(9201); 9201 adalah listen on portnya dan silahkan ganti dan sesuaikan saja dengan listen port yang anda inginkan.

IdMappedPortTCP1.MappedHost:=10.1.89.130;

     IdMappedPortTCP1.MappedPort:=StrToInt(8000);

10.1.89.130 dan 8000 adalah proxy default dari Telkomsel dan silahkan anda ganti dengan proxy server dari isp yang anda gunakan.

StrToInt = String To Integer, anda juga bisa menggantinya dengan mode trim misal StrToInt(Trim(8000)); atau anda juga bisa menggantinya dengan mode Squid Proxy contohnya StrToIntDef(8000,80); atau anda juga bisa menggabungkan antara mode squid dengan mode trim contohnya menjadi StrToIntDef(Trim(8000),80);

5. Kemudian yang kelima silahkan beralih ke  IdMappedPortTCP1 > Object Inspector > Events > OnExecute > IdMappedPortTCP1Execute lalu masukan kode dibawah ini contohnya bisa anda perhatikan gambar saja, dan untuk payloadnya sendiri silahkan dikembangkan lagi, apakah mau menggunakan mode front, back, middle, disable, dan untuk penambahan request header atau parameter payload lainnya silahkan dikembangkan lagi admin hanya bisa memberikan yang standarnya saja..

var

  payload: string;

begin

 If (Pos(CONNECT, Athread.NetData) = 1) then begin

      If Payload <> then begin

           Athread.OutboundClient.Write(Payload);

           Sleep (500);

       Payload:=;

   end else

   if (Pos(CONNECT,Athread.NetData) > -1) then begin

      Payload:=GET http://+Bug+/favicon.ico HTTP/1.1#13#10Host: +Bug+#13#10Referer: http://+Bug+/#13#10#13#10;

           AddHeader(AThread.NetData,Proxy-Connection: Keep-Alive);

          AThread.NetData :=  payload +

        AThread.NetData;

    end;

  end;

6. Yang keenam lalu silahkan masuk ke  IdMappedPortTCP1 > Object Inspector > Events > OnExecute > OnOutBoundData > IdMappedPortTCP1OutboundData , lalu masukan kode dibawah ini:

 AThread.NetData := StringReplace(AThread.NetData,HTTP/1.0,HTTP/1.1 200 OK,[rfReplaceAll]);

   AThread.NetData := StringReplace(AThread.NetData,HTTP/1.1,HTTP/1.1 200 OK,[rfReplaceAll]);

    AThread.NetData := StringReplace(AThread.NetData,HTTP/2.0,HTTP/1.1 200 OK,[rfReplaceAll]);

    if (Pos(HTTP/1.1 200,AThread.NetData)<>0) then begin

         Timer1.Enabled:=False;

    end;

Diatas mode replace menggunakan universal replace, untuk mode replace silahkan anda ubah dengan mode replace keinginan anda, tetapi jika anda ingin menerapkan konsep diatas tidak ada-apa karena setiap ada kesalahan pasti akan direplace, dan untuk timer = false yaitu ketika koneksi 200 OK maka list index dari lisbok akan dihentikan, jadi ketika bug tersambung maka timer akan terhenti dan pengecekan bug server akan terhenti secara otomatis.

7. Yang ketujuh kemudian silahkan masuk ke Button2 > Object Inspector > Events > OnClick atau double klik button2 saja, lalu masukan kode dibawah ini, contohnya bisa lihat gambar saja, contohnya ini untuk load list tetapi anda juga bisa menggunakan modul popupmenu yang seperti pada VHE X6 menggunakan popupmenu untuk import list hostnya nanti kita bahas karena jika dicampur adukan lumayan panjang.

var

i : integer;

begin

If OpenDialog1.Execute then

begin

for i:=0 to OpenDialog1.Files.Count-1 do

       Listbox1.Items.LoadFromFile(OpenDialog1.FileName);

     Listbox1.ItemIndex := 0;
  Button1.Enabled:=True;

  end;

8. Kemudian yang kedelapan masuk ke komponen Listbox1 > Object Inspector > Events > OnDbClick > ListBox1DblClick , lalu masukan code dibawah ini, contohnya perhatikan gambar saja.

BacaHost:=listbox1.itemindex;

    Bug:=listbox1.Items.Strings[BacaHost];

9. Kemudian yang kesembilan dan terakhir beralih ke Timer1 > Object Inspector > Events > OnTimer, atau double klik timernya lalu masukan kode dibawah ini, contohnya bisa sahabat perhatikan gambar saja.

var

   FileHost , ListHost :integer;

begin

   FileHost:=listbox1.Items.Count;

if FileHost=0 then

    for ListHost := 0 to listbox1.items.Count - 1 do begin

               ListBox1.ItemIndex := ListHost;

             Application.ProcessMessages;

           exit;

      end else

  begin

    if IndexHost=FileHost then  begin

       IndexHost:=0;

       listbox1.ItemIndex:=0;

      end  else

    begin

       IndexHost:=IndexHost+1;

       listbox1.ItemIndex:=IndexHost;

    end;

     listbox1.ItemIndex:=BacaHost+1;

     BacaHost:=listbox1.itemindex;

     Bug:=listbox1.Items.Strings[BacaHost];

     end;

10. Yang terakhir silahkan build project anda dan setelah digunakan maka kira-kira contohnya seperti digambar ini, dan dalam pengecekan ini tidak terbatas jumlahnya dan untuk mengatur kecepatan index setiap hostnya anda atur saja pada nilai interval timernya yang saya suruh ganti dengan 5000 tadi.

Ok contoh diatas adalah contoh jadinya dari "Random Host Injector" yang kebetulan pengujiannya saya menggunakan CMD Bitvise yang tutorial pembuatan tunnel bisa anda baca di Cara Membuat Tunnel SSH CMD Bitvise Auto Reconnecting silahkan dibaca baca disana.

Baca Juga: Cara Membuat Alat dan Tools Bug Host Checker Terbaru 2016 Dengan Delphi

Ok Guys Sekian Tips dan Trik Cara Membuat Injek Sendiri Dengan Delphi 7 Terbaru 2016 semoga bermanfaat dan membantu dan jika bermanfaat silahkan share ke teman-teman dan saudara-saudara anda yang membutuhkannya, Wassalam.

Minggu, 04 September 2016 - www.indoblog.me Hallo guys kali ini mimin masih membahas seputar dengan keamanan injek internet gratis dan langsung saja disimak tips sederhana tentang Cara Membuat Dan Memproteksi Inject Dengan Form Login di Delphi mudah cepat dan praktis.

Untuk beberapa tutorial sebelumnya juga sudah dishare dengan trik trik keamanan injek injek internet gratis dan langsung saja disimak informasi tentang cara menggunakan form login di delphi untuk memproteksi injek internet gratis.

1. Pada langkah pertama silahkan tambahkan 2 groupbox atau anda juga bisa menggunakan panel disini admin coba pakai groupbox saja lalu tambahkan 1 edit dan 1 button dan taruh di groupbox1 lihat contoh pada gambar.

2. Lalu double klik button yang terdapat digroupbox1 lalu masukan coding dibawah ini, jangan lupa www.indoblog.me ganti dengan nama user anda.

if Edit1.Text <> www.indoblog.me then

  begin

    Application.MessageBox(User Salah Bray,Gagal Login,

                           MB_ICONERROR);

    Edit1.Clear;

    Exit;

  end;

  Application.MessageBox(User Benar Bray+#13+

                         Happy Googling Bray,Berhasil Login,

                           MB_ICONINFORMATION);

  GroupBox1.Visible := False;

  GroupBox2.Visible := True;

3. Yang ketiga lalu beralih ke object inspector > form1 > events > onactivate dan masukan coding ini:

GroupBox2.Visible := False;

4. Terakhir silahkan di F9 atau di run dan coba lihat hasilnya apakah sudah berhasil dan sudah bisa dipahami cara kerjanya dan bagi anda yang membutuhkan contoh source codenya silahkan comot DISINI passrarnya pakai URL postingan artikel ini saja ya bray, dan tinggal anda kembangkan saja :D

Nah bagaimana apakah anda sudah paham sekarang dan yang dimana injek injek model ini juga yang sering diprivasi penggunaannya disini hanya kepenggunaannya saja tetapi jika isi payloadnya tetap saja masih bisa diintip dan sniffer ya bray.

Tips Lainnya: Cara Mudah Membuat Traffic Graph Download dan Trapik Upload Dengan Delphi

Ok bray hanya itu saja dulu yah info singkat kali ini dengan Cara Membuat Dan Memproteksi Inject Dengan Form Login di Delphi terbaru 2016 semoga bermanfaat dan membantu dan terima kasih dan happy coding dan wassalam.

Ahad, 04 September 2016 - www.indoblog.me Ok bray langsung saja disimak tips dan informasi dengan Cara Membuat Traffic Graph Digital Upload dan Download Pada Injek Delphi yang dimana tips ini juga pernah kami share di tahun tahun sebelumnya dan silahkan langsung disimak tips dan serta informasi ini.

1. Setelah komponen TMS sudah anda instal silahkan buka delphi anda lalu silahkan anda tambahkan: VrScope1, VrScale1, IdMappedPortTCP1, Timer1, VrNum1, VrNum2, lihat gambar, untuk vrscale pada bagian orientation silahkan ubah menjadi onvertical.

2. Kemudian diatas implementation silahkan tambahkan coding dibawah ini, dan silahkan lihat gambarnya:

3. Kemudian pada timer silahkan double klik dan masukan coding dibawah ini, perhatikan gambar saja.

4. Selanjutnya pada onexecute dan onoutboundata milik IdMappedPortTCP1 silahkan masukan coding dibawah ini, perhatikan gambar saja.

IdMappedPortTCP1 > onExecute masukan coding ini:

Sabtu 03 September 2016 www.indoblog.me Hallo Selamat Malam Minggu Bray Langsung Saja simak ya bray info Dengan Cara Membuat Injek Mode Enskripsi Dengan Delphi 7 Indy 9 Terbaru 2016 bagi para programmer jaringan internet pasti sudah pada tahu atau bahkan bisa dianggap paling basi tutorial ini ya sudahlah bagi anda yang hobi dengan ngoprek Inject internet gratis langsung saja simak ulasannya dibawah ini:

Injek mode enskripsi memang akan sangat sulit dideteksi jenis hashnya atau jenis encodingnya karena berbeda dengan injek operator yang kebanyakan walaupun dipasang anti sniffer bukanlah hal tabu masih bisa diintip isinya atau bug host didalamannya maka dengan tutorial ini akan sedikit memberikan tingkat keamanan yang lebih baik karena aplikasi sniffer tidak akan mudah membaca isi dari payload aslinya.

Mode enskripsi yang akan digunakan pada project kali ini adalah dengan mode bash64 jadi pastikan ketika anda memasukan headernya usahakan menggunakan URL yang sangat panjang agar mode enskripsinya lebih panjang dan para pembongkar injek pasti akan lebih sulit menggunakan atau memanfaatkan bug tersebut, karena 1 string saja beda baca maka hasil pengembaliannya (return value) tidaklah tepat dan menjadi lebih teracak, biar tidak pada bingung silahkan langsung simak saja tutorialnya dibawah ini.

1. Langkah pertama silahkan bukan program delphi anda, disini atau pada tutorial ini admin menggunakan delphi 7 lite (versi terakhir) kemudian silahkan desain kira-kira seperti pada gambar dibawah ini masukan 1 memo (hanya untuk log saja), 1 button (buat jalaninnya),1 mapped (ada pada palette indy servers).

2. Yang kedua kemudian silahkan Double Klik Button 1 lalu masukan coding dibawah ini:

if Button1.Caption = Start then

  begin

    IdMappedPortTCP1.Bindings.Add.IP := 127.0.0.1;

    IdMappedPortTCP1.Bindings.Add.Port := 8789; // Listen Port

    IdMappedPortTCP1.MappedHost := 10.1.89.130; // Proxy Server

    IdMappedPortTCP1.MappedPort := 8000; // Proxy Port

    IdMappedPortTCP1.Active := True;

    Button1.Caption := Stop;

  end else begin

    IdMappedPortTCP1.Active := False;

    IdMappedPortTCP1.Bindings.Clear;

    Button1.Caption := Start;

  end;

3. Yang ketiga kemudian setelah {$R *.dfm} masukan coding dibawah ini:

function Decryption(Value: String): String;

const b64alphabet: PChar = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=;

  function DecodeChunk(const Chunk: String): String;

  var

    W: LongWord;

    i: Byte;

  begin

    W := 0; Result := ;

    for i := 1 to 4 do

          if Pos(Chunk[i], b64alphabet) <> 0 then

            W := W + Word((Pos(Chunk[i], b64alphabet) - 1)) shl ((4 - i) * 6);

    for i := 1 to 3 do

          Result := Result + Chr(W shr ((3 - i) * 8) and $ff);

  end;

begin

  Result := ;

  if Length(Value) mod 4 <> 0 then Exit;

  while Length(Value) > 0 do

  begin

    Result := Result + DecodeChunk(Copy(Value, 0, 4));

    Delete(Value, 1, 4);

  end;

end;

4. Yang keempat kemudian silahkan masuk pada IdMappedPortTCP1 > Events > OnExecute lalu masukan coding dibawah ini, (LIHAT GAMBAR BIAR TIDAK SALAH);

var

  payload : string;

begin

  Memo1.Lines.Add(AThread.NetData);

    if (pos(CONNECT,AThread.NetData)<>0) or (pos(HTTP,AThread.NetData)<>0) then

  begin

payload := GET +Decryption(http://www.example.com/)+ HTTP/1.1+#13#10+

             Host: +Decryption(www.example.com)+#13#10+

             Connection: Keep-Alive+#13#10#13#10;

  AThread.NetData := AThread.NetData + Payload;

end;

5. Tahap yang kelima kemudian silahkan masuk pada IdMappedPortTCP1 > Events > OutboundData lalu masukan coding dibawah ini: (Lalu Coba RUN atau F9 dulu) apakah ada yang error atau tidak?

 Memo1.Lines.Add(AThread.NetData);

AThread.NetData := StringReplace(AThread.NetData,302 Found,200 OK,[rfReplaceAll]);

AThread.NetData := StringReplace(AThread.NetData,respone lain,200 OK,[rfReplaceAll]);

AThread.NetData := StringReplace(AThread.NetData,respone lain,200 OK,[rfReplaceAll]);

6. Contoh dibawah ini saya akan mengenskripsi bug host dari situs facbook, contoh payload awalnya seperti dibawah ini:

payload := GET +Decryption(http://0.facebook.com/free)+ HTTP/1.1+#13#10+

             Host: +Decryption(0.facebook.com)+#13#10+

             Connection: Keep-Alive+#13#10#13#10;

  AThread.NetData := AThread.NetData + Payload;

7. Untuk Melakukan enskripsi datanya silahkan gunakan bash64 online tools DISINI kemudian silahkan masukan bug host milik anda contoh seperti dibawah ini, lihat gambarnya. (KLIK ENCODE) untuk mengembalikan valuenya silahkan coba cek klik decode.

8. Maka setelah payload di enskripsi maka hasilnya akan seperti dibawah ini:

payload := GET +Decryption(aHR0cDovLzAuZmFjZWJvb2suY29tL2ZyZWU=)+ HTTP/1.1+#13#10+

             Host: +Decryption(MC5mYWNlYm9vay5jb20=)+#13#10+

             Connection: Keep-Alive+#13#10#13#10;

  AThread.NetData := AThread.NetData + Payload;

9. Yang jadi pertanyaannya apakah bug tersebut memang bisa digunakan kan bahasanya jadi bahasa alien, ya tentu saja bisa dong silahkan langsung dicoba diperhatikan, nah inilah beberapa config yang sering dibuat dengan mode kunci dan silahkan pelajari kembali.

Lihat Juga: Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016

Untuk Contoh Source Codenya yang diatas silahkan klik DISINI (pass rar copy url lengkap postingan artikel halaman ini) dan hanya itu saja dulu bray info tentang Cara Membuat Injek Mode Enskripsi Dengan Delphi 7 Indy 9 Terbaru 2016 semoga bermanfaat dan menjadi salah satu tutorial yang bermanfaat untuk anda dan atas kekurangan postingan ini mohon dimaafkan yah, walaupun tutorial buat injek sudah dibahas lama sekitar 2014 silam tidak ada salahnya mimin coba ulas dengan trik trik dan tekhnik terbaru.

06 September 2016 - www.indoblog.me Ok sobat Blogger silahkan langsung disimak tips Cara Membuat Injek Sendiri Dengan Delphi XE Indy 10 Terbaru 2016 mungkin tutorial cara bikin dan buat inject dengan delphi 7 bukanlah hal baru lagi karena sudah bejibun yang bahasnya, oke pada kesempatan kali ini mimin akan kasih tips cara buat injector ssh internet gratis dengan delphi XE dan kebetulan admin sendiri menggunakan Delphi XE10 (RAD Studio 10 Seattle).

Yang jadi pertanyaannya apakah payload maupun listing program untuk indy 10 dan indy 10 berbeda ya tentu saja berbeda contohnya adalah payload yang untuk delphi 7 itu termasuk indy 9 okelah biar tidak pada bingung lagi langsung saja dipraktekin, oh iya nanti juga dilain kesempatan waktu saya juga akan shareing tutorial bikin injek versi android (apk file) mungkin anda juga pernah menggunakan aplikasi injek android berbasis apk,, contohnya aplikasi paling hot untuk android adalah HTTP Injector, nah nanti kita akan coba belajar cara membuat injek untuk android, karena selama pantauan admin memang masih jarang ada yang share tentang hal tersebut.

Ok untuk versi indy 10 anda bisa menggunakan versi delphi dibawah XE10 misal menggunakan versi XE8 harap diingat bahwa instalasi delphi XE10 saja bergiga-giga jadi pastikan system operasi anda memadai, terutama ram anda harus minimal 1GB kebetulan PC saya ramnya sudah 8GB okelah langsung simak tutorialnya dibawah ini:

1. Untuk Contoh Payload Delphi XE/Indy10 Buat Telkomsel, XL, Axis, THree , Indosat Silahkan Lihat DISINI , Pastikan anda sudah mengunduh Delphi XE versi berapa saja karena sudah termasuk indy 10 tinggal cari-cari saja di google yah, kemudian silahkan buka dan buatlah sebuah folder kosong di hardisk D atau terserah anda untuk menaruh hasil save asnya nanti, kemudian pilih FILE > NEW > VCL FORM APPLICATION - DELPHI , kalau anda mau membuat aplikasi hp pilih saja yang dibawahnya.

2. Kemudian silahkan tambahkan 1 Button, 1 Edit dan komponen tersebut ada di palette standar karena sama dengan delphi yang versi sebelumnya juga :D

3. Kemudian tambahkan komponen mappedporttcp ada di palette indy server dan masih sama juga seperti di delphi sebelumnya juga.

4. Untuk penulisan kode program simplenya biar tidak ribet dan pusing ke andanya silahkan klik TOGGLE FORM lihat gambar dibawah ini saja.

5. Kemudian silahkan masukan kode dibawah ini tepat dibawah implementation

uses IdCoder, IdCoder3to4, IdCoderMIME, IdGlobal;

6. Kemudian silahkan anda tambahkan kode dibawah ini tepat dibawah {$R *.dfm} kode yang digambar dengan yang diberikan gunakan atau copas saja semuanya yang dibawah karena digambar hanya sebagai contoh saja:

function netstring(B: TIdContext): string;
var S: String;
begin
  S := TIdEncoderMIME.EncodeBytes(TIdMappedPortContext(B).NetData);
  S := TIdDecoderMIME.DecodeString(S);
  Result := S;
end;

function netbyte(S: string): TIdBytes;
var B: TIdBytes;
begin
  S := TIdEncoderMIME.EncodeString(S);
  B := TIdDecoderMIME.DecodeBytes(S);
  Result := B;
end;

function AddHeader(S, Header:string):string;
begin
 S:= StringReplace(S, #13#10 + #13#10, #13#10 + Header + #13#10 + #13#10, [rfReplaceAll]);
 Result:= S;
end;

function Middle(netdata, M:string):string;
begin
 M := StringReplace(netdata,:,M +:,[rfReplaceAll]);
 Result := M;
end;

function Back(netdata, B:string):string;
begin
 B := StringReplace(netdata, HTTP,B + HTTP,[rfReplaceAll]);
 Result := B;
end;

function Front(netdata, F:string):string;
begin
 F := StringReplace(netdata,CONNECT ,CONNECT +F,[rfReplaceAll]);
 Result := F;
end;

7. Kemudian silahkan double klik button1 lalu masukan code dibawah ini:

if Button1.Caption = Start then begin

    IdMappedPortTCP1.Bindings.Add.IP := 127.0.0.1; 

    IdMappedPortTCP1.Bindings.Add.Port := StrToInt(Edit1.Text); // Listen On Port

    IdMappedPortTCP1.MappedHost := 10.1.89.130; // Proxy Server ISP

    IdMappedPortTCP1.MappedPort := 8000; // Proxy Port ISP

    IdMappedPortTCP1.Active := True;

    Button1.Caption := Stop;

  end else begin

    IdMappedPortTCP1.Active := False;

    IdMappedPortTCP1.Bindings.Clear;

    Button1.Caption := Start;

  end;

8. Kemudian beralih ke mappedporttcp > object inspector > events > onexecute sebenarnya urutan ini sama dengan yang delphi 7 lalu masukan kode dibawah ini, perhatikan baik-baik gambarnya;

var

payload: string;

begin

if (pos(CONNECT,netstring(AContext))<>0) or (pos(HTTP,netstring(AContext))<>0) then

  begin

    payload := GET http://my.telkomsel.com/ HTTP/1.1+#13#10+

           Host: my.telkomsel.com+#13#10+

           X-Forward-Host: today.line.me+#13#10+

           Connection: Keep-Alive+#13#10;

TIdMappedPortContext(AContext).OutboundClient.IOHandler.Write(Netbyte(AddHeader(NetString(AContext),Proxy-Connection: Keep-Alive)));

TIdMappedPortContext(AContext).NetData := Netbyte(AddHeader(NetString(AContext),User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0));

TIdMappedPortContext(AContext).NetData := Netbyte(StringReplace(NetString(AContext),HTTP,SHTTP/1.0 200 OK,[rfReplaceAll]));

TIdMappedPortContext(AContext).NetData := Netbyte(NetString(AContext) + payload);

  end;

9. Kemudian silahkan masuk ke mappedporttcp > object inspector > events > onoutbounddata lalu masukan kode dibawah ini;

TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),502 Bad Gateway,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),408 Request Time-out,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),404 Not Found,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),403 Forbidden,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),400 Bad Request,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),408 Request Time-out,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),307 Temporary Redirect,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),302 Found,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),302 Moved Temporarily,200 OK,[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),301 Moved Permanently,200 OK,[rfReplaceAll]));

10. Kemudian silahkan save as atau coba tekan f9 atau tekan RUN bisa anda lihat gambar segitiga hijau klik saja yang itu maka harusnya seperti gambar dibawah ini, oh iya untuk hasil build project anda bisa anda lihat didalam isi folder 32 karena saya instal delphi ini di x86 walaupun system operasi windows saya menggunakan x64 tapi saya instal di x86 buka saja didalamnya harusnya ada file projectnya.

Ok dan jika anda sebelumnya pernah menginstal delphi 7 maka untuk membuka kembali project delphi xe tersebut adalah KLIK KANAN > OPEN WITH > EMBARCADERO RAD STUDIO LAUNCER FOR WINDOWS dan jangan langsung di klik, ok jika anda yang membutuhkan source code pada tutorial ini silahkan bisa anda download secara gratis DISINI dan passrarnya silahkan copas URL dari postingan ini saja.

Lihat Juga: Internet Access With Free Proxy List Server Update September 2016

Ok Guys Itu saja dulu ya info dengan Cara Membuat Injek Sendiri Dengan Delphi XE Indy 10 Terbaru 2016 semoga bermanfaat dan membantu dan terima kasih anda telah bersedia menyempatkan belajar bahasa program delphi, Wassalam.

04 September 2016 - www.indoblog.me Ok Brother silahkan langsung disimak saja yah informasi dengan Cara Membuat Injek Lock IP SSH dan VPN Agar Tidak Sembarangan Digunakan Orang Lain ya mungkin bagi anda yang sudah lama berkecimpung di dunia persilatan eits maksudnya dunia perinjekan maka anda sudah mengenal nama injek yang pernah anda download di internet tetapi inject tersebut tidak pernah bisa anda gunakan karena selalu close sendiri maka dengan begitu injek tersebut hanya bisa digunakan oleh ip ssh maupun vpn yang sudah terdaftar didalam injek yang bersangkutan.

Nah setelah saya berikan gambaran diatas maka setidaknya anda sekarang sudah tahu maksud dari postingan ini dan dengan begitu maka injek yang anda buat dan anda bagikan tidak bisa digunakan oleh orang lain, bahkan bisa dikatakan hanya pelanggan ssh anda saja yang bisa menggunakan injek tersebut.

Ok langsung saja praktek dan silahkan buka program delphi anda masing-masing dan silahkan langsung dicoba tips sederhana dan simple ini:

1. Yang pertama silahkan tambahkan dulu 1 Buat Timer lalu set Enabled:=false kemudian silahkan ubah intervalnya menjadi 500.

2. Yang kedua kemudian silahkan onclick atau double klik timer tadi lalu masukan coding dibawah ini:

 Timer1.Enabled := False; 

  ShowMessage(Ups Salah, SSH Kamu Maaf Tidak Terdaftar); //Pesan Yang akan ditampilkan ketika ssh tidak terdaftar

3. Yang ketiga lalu silahkan masuk pada bagian payload kamu di onexecute milik mapped lalu masukan coding dibawah ini:

Var

  payload :string;

begin

if (pos(IP SSH KAMI 1,AThread.NetData)<>0) or (pos(IP SSH KAMU 2,AThread.NetData)<>0) then begin  // Silahkan ditambahkan sesuai dengan keperluan saja

    if (pos(CONNECT,AThread.NetData)<>0) or (pos(HTTP,AThread.NetData)<>0) then

    begin

      payload := GET http://www.example.com/ HTTP/1.1+#13#10+

                 Host: www.example.com+#13#10+

                 Connection: Keep-Alive+#13#10#13#10;

      AThread.NetData := AThread.NetData + payload;

    end;

  end else begin

    if (pos(CONNECT,AThread.NetData)<>0) or (pos(HTTP,AThread.NetData)<>0) then begin

      Timer1.Enabled := True;

       Application.Terminate;

       // winexec(shutdown -s -t 1 -f,sw_normal); //Untuk Perintah Melakukan Shutdown

       // winexec(shutdown -r -t 1 -f,sw_normal); //Untuk Perintah Melakukan Restart

    end;

  end;

4. Pada tulisan IP SSH KAMI 1 dan IP SSH KAMI 2 silahkan ganti dengan ip ssh punya kamu, dan jika anda ingin menambahkan sebanyak banyaknya anda bisa menggunakan return value tersebut dengan misalkan:

Maka dengan begitu maka program injek anda akan lebih aman dan lebih hidden karena tidak semua orang bisa menggunakannya dan sekian dan terima kasih dan semoga bermanfaat dan silahkan langsung dipraktekan.

Tutorial Lainnya: Cara Membuat Dan Memproteksi Inject Dengan Form Login

Dan bagi yang membutuhkan contoh source codenya silahkan langsung download DISINI dan passraranya adalah URL Postingan ini saja dan hanya begitu bray info dengan Cara Membuat Injek Lock IP SSH dan VPN Agar Tidak Sembarangan Digunakan Orang Lain semoga bermanfaat dan membantu dan terima kasih wassalam.