Tutorial membuat Injek Telkomsel dasar dengan Delphi 7
Selamat Malam sobat, kali ini saya akan berbagi tutorial cara membuat injek telkomsel dengan Delphi 7 untuk internet gratis. Dalam pembuatan injek Telkomsel edisi work 2014 sangatlah sederhana, Komponen utama yang dibutuhkan untuk pembuatan injek telkomsel hanyal komponent IdMappedPortTCP, sementara komponen lain sebenarnya bisa ditiadakan.
Namun kali ini saya akan menambahkan komponent button dan edit agar mudah dalam pengoperasian injek.
Baiklah, tanpa basa-basi kita akan mulai membuat injek Telkomsel yang sangat sederhana. Komponen yang dibutuhkan adalah
1. Button2. Edit
3.IdMappedPortTCP
Cara pembuatannya:
1. Buka terlebih dahulu applikasi delphi 7 anda, kemudian buatlah satu projek baru dari menu file ==> New ==> application
2. masukkan 1 buah button, 1 buah komponen edit, dan satu buah IdMappedPortTCP1
3. Beri nama caption pada:
Button1 = Start
Edit1 = 1904 (angka ini boleh berapa saja)
cara memberi nama pada caption lihat gambar berikut:
4. klik dua kali pada tombol start (Button1) lalu masukkan source code berikut taruh diantara begin dan end;
if (button1.Caption='Start') then
begin
button1.caption:='Stop';
Sleep(400);
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt(Edit1.Text);
IdMappedPortTCP1.MappedHost := '10.1.89.130';
IdMappedPortTCP1.MappedPort := StrtoInt ('8000');
IdMappedPortTCP1.Active := True;
end
else
begin
if (button1.Caption='Stop') then
begin
Sleep(400);
button1.caption:= 'Start';
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
end;
end;
5. Selanjutnya klik satu kali pada IdMappedPortTCP1 lalu pada object inspector klik tab events, cari OnExecute kemudian klik dua kali. masukkan source berikut diantara begin dan end;
if (Pos('HTTP',AThread.NetData)<>0) then begin
Athread.Netdata:=Athread.Netdata+'GETS http://mobi.telkomsel.com/ HTTP/1.1'#13#10+'Host: telkomsel.com'#13#10;
end;
6. Simpan semua Project anda dengan memilih File >> Save All atau dengan menekan Shift + Ctrl + S pada keyboard anda.
7. Coba jalankan project anda dengan menekan tanda run atau dengan menekan F9
8. jika anda berada didaerah kandang dengan ip kepala 10, 39, 172 anda harus mengganti/merubah bagian pada gambar ini
Ganti GETS Menjadi GET atau OPTION, CONNECT, dan seterusnya.
Semoga berhasil.
Bagi anda yang kesulitan, anda bisa download contoh projectnya disini
Jika masih kesulitan juga silahkan tonton video
Tag: cara membuat Injek Telkomsel sederhana dengan Delphi 7, dasar-dasar injek Delphi 7, Download Source code Injek Delphi 7.
Category: Download, Proxy, Sock, SSH, Tips Trik Komputer, Trik Internet, VPN
0 komentar