www. – kebutuhan koneksi atau mengakses internet memang untuk dikala ini apalagi di jaman milenial yang serba modern dan canggih ini menyebabkan kanal internet menjadi kebutuhan yang utama terutama yang sering membuka media umum facebook, path, instagram, twitter, whatsaap dll akan tetapi kadang untuk mengakses internet tersebut membutuhkan biaya untuk membeli kuota data tersebut apalagi kuota dikala ini banyak dibagi bagi untuk ini itu misal khusus kuota games, music, video, medsos akan tetapi jangan khawatir aku akan memperlihatkan solusi cerdas untuk kau semuanya yang kebetulan mempunyai dan mempunyai kuota yang gak ge pake tersebut menjadi kuota serba guna dan dapat dipakai buat mengkases semua situs.
Berikut yaitu bagaimana untuk mendapat Source Code Injek SSL dan Cara Membuat Injek SSL Random Host 2019 baik pengguna telkomsel, indosat ooredoo, xl, smartfren, tri, axis tentu saja dapat memanfaatkan kuota kuota yang dibagi bagi tersebut menjadi kuota 24 jam dan dapat digunain buat buka segala situs, baiklah akan tetapi disini aku hanya akan menjelaskan dulu wacana sebuah project delphi baik untuk delphi xe maupun generasi sebelumnya.
Lantas bagaimana cara menciptakan inject yang support SNI Host atau injek ssl atau injek https disini aku akan jelaskan cara membuatnya atau anda dapat lihat dipostingan sebelumnya wacana Cara menciptakan injek ssl sni support telkomsel xl axis tri indosat terbaru 2019 dimana disana dijelaskan cara pembuatannya yaitu yang memakai komponen idhtp, idcookiemanager, dan idopensll dan disini aku akan menjelaskan bagaimana cara semoga injek ssl yang kita buat atau mungkin kau sudah mempunyai atau mempunyai sourcenya maka anda dapat memanfaatkan source instruksi tersebut yang asalnya single host menjadi random host dan yang perlu anda cari yaitu kumpulan bug hostnya saja sehingga semakin memudahkan kita untuk memfilter host host yang dapat dipakai untuk kebutuhan internet gratis tersebut.
Oke gaess pribadi saja ke prakteknya bagaimana cara menciptakan random host atau recent host di delphi yang dapat dipakai untuk kebutuhan merolling host host tersebut sehingga kau tidak perlu cek bug bug support ssl tersebut secara satu persatu, langkah selanjutnya silahkan buka project delphi kau yang sudah ada injeknya alasannya 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 kau yang membutuhkan source codenya nanti dapat dicek dibawah alasannya untuk tumpuan source codenya aku sertakan dengan modul mappedhostnya untuk anda pelajari soalnya source mentah yang aku bagikan diatas dengan source code yang harus kau download tentu saja banyak perbedaannya soalnya sudah ditambahkan modul2 lainnya yang dapat kau oprek-oprek lagi buat bikin dan buat mode direct (no proxy) atau mode sll dll.
Berikut yaitu gambarannya bagaimana cara memulai menciptakan source diatas tersebut dan pribadi 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 tumpuan cek gambar bawah
Lalu kemudian pada open obrolan silahkan ubah parameter filternya menyerupai pada gambar dibawah ini:
Selanjutnya sebelum implementation tambahkan instruksi dibawah ini:
ListHost, IndexHost, BacaHost: Integer;
Bug: string;
Contoh dapat lihat gambar dibawah ini:
Kemudian selanjutnya silahkan klik pada button1 kemudian tambahkan instruksi 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 bab event kemudian klik pada ondblclick kemudian masukan instruksi dibawah ini:
BacaHost:=listbox1.itemindex;
Bug:=listbox1.Items.Strings[BacaHost];
Contoh pemasangan cek gambar dibawah:
Next kemudian sehabis itu silahkan pribadi klik pada timernya kemudian masukan instruksi 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 kemudian masukan instruksi 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 dapat lihat gambar dibawah ini:
Dan yang terakhir silahkan build project kamu, kemudian silahkan cari bug host sebanyak-banyaknya dan input pada tools tersebut maka kau sehabis mencobanya maka akan tahu bagaimana tools tersebut bekerja.
Lupa! Dan bagi kau yang membutuhkan source codenya silahkan pribadi 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 dapat 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 dapat kau gunain untuk kartu telkomsel, indosat, xl, tri, axis, smartfren dan lain-lain yang terpenting yaitu gunakan payload yang work di tkp kau saja, sekian dan teima kasih.
Sumber https://www.indoblog.me/
