Source Code Injek SSL dan Cara Membuat Injek SSL Random Host

kebutuhan koneksi atau mengakses internet memang untuk saat ini apalagi di jaman milenial yang serba modern dan canggih ini menjadikan akses internet menjadi kebutuhan yang utama terutama yang sering membuka media sosial facebook, path, instagram, twitter, whatsaap dll akan tetapi kadang untuk mengakses internet tersebut membutuhkan biaya untuk membeli kuota data tersebut apalagi kuota saat ini banyak dibagi bagi untuk ini itu misal khusus kuota games, music, video, medsos akan tetapi jangan khawatir saya akan memberikan solusi cerdas untuk kamu semuanya yang kebetulan mempunyai dan memiliki kuota yang gak ge pake tersebut menjadi kuota serba guna dan bisa digunakan buat mengkases semua situs.

Berikut adalah bagaimana untuk mendapatkan Source Code Injek SSL dan Cara Membuat Injek SSL Random Host 2019 baik pengguna telkomsel, indosat ooredoo, xl, smartfren, tri, axis tentu saja bisa memanfaatkan kuota kuota yang dibagi bagi tersebut menjadi kuota 24 jam dan bisa digunain buat buka segala situs, oke akan tetapi disini saya hanya akan menjelaskan dulu tentang sebuah project delphi baik untuk delphi xe maupun generasi sebelumnya.

Lantas bagaimana cara membuat inject yang support SNI Host atau injek ssl atau injek https disini saya akan jelaskan cara membuatnya atau anda bisa lihat dipostingan sebelumnya tentang Cara membuat injek ssl sni support telkomsel xl axis tri indosat terbaru 2019 dimana disana dijelaskan cara pembuatannya yaitu yang menggunakan komponen idhtp, idcookiemanager, dan idopensll dan disini saya akan menjelaskan bagaimana cara agar injek ssl yang kita buat atau mungkin kamu sudah memiliki atau mempunyai sourcenya maka anda bisa memanfaatkan source kode tersebut yang asalnya single host menjadi random host dan yang perlu anda cari adalah kumpulan bug hostnya saja sehingga semakin memudahkan kita untuk memfilter host host yang bisa digunakan untuk kebutuhan internet gratis tersebut.

Oke gaess langsung saja ke prakteknya bagaimana cara membuat random host atau recent host di delphi yang bisa digunakan untuk kebutuhan merolling host host tersebut sehingga kamu tidak perlu cek bug bug support ssl tersebut secara satu persatu, langkah selanjutnya silahkan buka project delphi kamu yang sudah ada injeknya karena disini admin hanya menjelaskan penambahan parameter untuk host tersebut saja.

Berikut source code mentahnya:

unit R_SSL;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
   ListHost, IndexHost, BacaHost: Integer;
 Bug: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
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;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
BacaHost:=listbox1.itemindex;
Bug:=listbox1.Items.Strings[BacaHost];
end;
procedure TForm1.Timer1Timer(Sender: TObject);
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;
     end;
       Bug:=listbox1.Items.Strings[BacaHost];
     Timer1.Interval:= strtoint('1500');
     Edit1.Text:= Bug;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Button2.Caption = 'Start' then begin
    Button2.Caption := 'Stop';
Timer1.Enabled :=True;
 end else
  begin
Timer1.Enabled :=False;
    Button2.Caption := 'Start';
  end;
end;
end.

Bagi kamu yang membutuhkan source codenya nanti bisa dicek dibawah karena untuk contoh source codenya saya sertakan dengan modul mappedhostnya untuk anda pelajari soalnya source mentah yang saya bagikan diatas dengan source code yang harus kamu download tentu saja banyak perbedaannya soalnya sudah ditambahkan modul2 lainnya yang bisa kamu oprek-oprek lagi buat bikin dan buat mode direct (no proxy) atau mode sll dll.

Berikut adalah gambarannya bagaimana cara memulai membuat source diatas tersebut dan langsung dibuka saja delphi masing-masing:

Tambahkan button2x, listbox1x, edit1x, timer1x, opendialog1x perhatikan pada gambar dibawah ini: Untuk Button1 captionnya pada object inspector ganti menjadi file soalnya button1 ini yang digunain buat open file host nantinya, kemudian button2 pada object inspector captionnya ganti menjadi Start, kemudian untuk timernya pada object inspector ganti enabled dari true ke false contoh cek gambar bawah

Lalu kemudian pada open dialog silahkan ubah parameter filternya seperti pada gambar dibawah ini:

Selanjutnya sebelum implementation tambahkan kode dibawah ini:

ListHost, IndexHost, BacaHost: Integer;

 Bug: string;

Contoh bisa lihat gambar dibawah ini:

Kemudian selanjutnya silahkan klik pada button1 lalu tambahkan kode dibawah ini:

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;

Contoh pemasangan lihat gambar dibawah ini

Lalu arahkan kursor pada lisbox1 kemudian pada object inspector pada bagian event lalu klik pada ondblclick lalu masukan kode dibawah ini:

BacaHost:=listbox1.itemindex;

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

Contoh pemasangan cek gambar dibawah:

Next lalu setelah itu silahkan langsung klik pada timernya lalu masukan kode dibawah ini:

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;

     end;

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

     Timer1.Interval:= strtoint('1500');

     Edit1.Text:= Bug;

Contoh pemasangannya silahkan lihat pada gambar dibawah ini:

Lalu yang terakhir silahkan klik pada button2 lalu masukan kode dibawah ini:

if Button2.Caption = 'Start' then begin

    Button2.Caption := 'Stop';

Timer1.Enabled :=True;

 end else

  begin

Timer1.Enabled :=False;

    Button2.Caption := 'Start';

  end;

Contoh pemasangannnya bisa lihat gambar dibawah ini:

Dan yang terakhir silahkan build project kamu, kemudian silahkan cari bug host sebanyak-banyaknya dan input pada tools tersebut maka kamu setelah mencobanya maka akan tahu bagaimana tools tersebut bekerja.

Lupa! Dan bagi kamu yang membutuhkan source codenya silahkan langsung ambil (1) SC SSL Random (No Mapped) disini atau disini (2) SC SSL Random (With Mapped) disini atau disini dan silahkan dikembangkan lagi, atau dibagikan lagi bagi siapa saja yang membutuhkannya tetapi jangan lupa mampir lagi kesini ya.

Dan sekiranya itu saja dulu apa yang bisa kami sampaikan pada kesempatan kali ini yang menyangkut dengan bagaimana cara atau Source Code Injek SSL dan Cara Membuat Injek SSL Random Host 2019 yang bisa kamu gunain untuk kartu telkomsel, indosat, xl, tri, axis, smartfren dan lain-lain yang terpenting adalah gunakan payload yang work di tkp kamu saja, sekian dan teima kasih.