1. Langkah Pertama siapkan 1 buah foleder beri nama LATIHAN BUAT INJEK
biar nanti anda tidak bingung save as dimana, lalu buka aplikasi delphi
anda saya menggunakan delphi 7 belum pake alpaskin, lalu buat 2 BUAH
BUTTON kaya gambar dibawah ini:
2. Langkah yang kedua Kemudian Cari tulisan INDY SERVERS pilih atau klik yang TCP kaya gambar dibawah ini:
3. Langkah yang ketiga Silahkan klik BUTTON 1 dan ganti nama CAPTION
tulisan terserah anda mau START bisa, ON bisa, MULAI bisa, MAJU bisa
silahkan tulis saja menurut anda dan ganti juga pada BUTTON 2 lalukan
seperti pada BUTTON 1
4. Pada langkah yang keempat silahkan klik 2x atau double klik
BUTTON1/START/ON (sesuai dengan kehendak anda tadi), lalu masukan kode
dibawah ini tepat dibawah tulisan BEGIN
IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('1985');
IdMappedPortTCP1.MappedHost:='10.1.89.130';
IdMappedPortTCP1.MappedPort:=StrToInt('8000');
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('1985');
IdMappedPortTCP1.MappedHost:='10.1.89.130';
IdMappedPortTCP1.MappedPort:=StrToInt('8000');
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;
Keterangan tambahan: angka 10.1.89.130 dan 8000 adalah proxy dan port
default milik operator telkomsel silahkan sesuaikan proxynya dengan
operator anda masing-masing, dan angka 1985 adalah out port yang
terhubung nantinya ke BITVISE silahkan ubah angka 1985 tersebut sesuai
dengan selera anda saja, yang penting jangan lupa saja karena itu port
buat di setting ke bitvise nantinya.
5. Langkah yang kelima klik 2x BUTTON2/OFF (sesuai tulisan anda pada
point3 diatas) atau double klik saja, lalu masukan kode dibawah ini
tepat dibawah BEGIN
IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;
6. Langkah yang keenam silahkan klik 2x TCP > EVENTS > ONEXECUTE
lalu masukan source kode dibawah ini , karena disana sudah ada tulisan
BEGIN anda bisa hapus saja dulu biar gak bingung lalu ganti dengan kode
dibawah ini:
var
Header,Payload:string;
begin
Header := StringReplace(header,' #13#10 + #13#10, #13#10 + ',' + #13#10 + #13#10 200 ok', [rfReplaceAll]);
Payload:='POST http://ISI BUGS OPSEL/ HTTP/1.1 SSH-2.0-1.91 sshlib: Bitvise SSH Client (Tunnelier) 4.60'+#13#10+'User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0'+#13#10+'Connection: Keep-Alive'+#13#10+' Host : ISI BUGS OPSEL'#13#10+athread.NetData;
if pos('CONNECT',athread.NetData) <>0 then
athread.NetData:=athread.NetData+Payload;
Header,Payload:string;
begin
Header := StringReplace(header,' #13#10 + #13#10, #13#10 + ',' + #13#10 + #13#10 200 ok', [rfReplaceAll]);
Payload:='POST http://ISI BUGS OPSEL/ HTTP/1.1 SSH-2.0-1.91 sshlib: Bitvise SSH Client (Tunnelier) 4.60'+#13#10+'User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0'+#13#10+'Connection: Keep-Alive'+#13#10+' Host : ISI BUGS OPSEL'#13#10+athread.NetData;
if pos('CONNECT',athread.NetData) <>0 then
athread.NetData:=athread.NetData+Payload;
Keterangan tambahan: silahkan ganti tulisan isi bugs opsel dengan bugs
andalan anda, pastikan bugs yang akan anda pasangkan adalah bugs yang
masih open, karena jika tidak open maka tidak akan konek dan akan
bla...bla..bla.. HTTP Respone di log bitvisenya.
7. Langkah ke tujuh lakukan seperti langkah yang keenam, klik 2x TCP
> EVENTS > ONOUTBUNDCONNECT lalu masukan kode replace dibawah ini
tepat dibawah tulisan BEGIN
AThread.NetData := stringreplace(AThread.NetData,' :22 ',' :443',[rfReplaceAll]);
AThread.NetData := stringreplace(AThread.NetData,' 403 Forbidden',' 200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 Ok',[rfReplaceAll, rfIgnoreCase]);
AThread.NetData := stringreplace(AThread.NetData,' 403 Forbidden',' 200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 Ok',[rfReplaceAll, rfIgnoreCase]);
Keterangan tambahan: tujuan kode replace diatas adalah mungkin saja ada
bug host yang anda pasangkan atau mau anda gunakan harus di replace
hostnya dan pernah saya bahas tentang replace replace ini silahkan anda
cari tutorialnya di blog ini.
8. Langkah kedelapan jika dirasa sudah selesai silahkan pilih FILE dan
SAVE AS lalu simpan pada folder LATIHAN BUAT INJEK tadi yang sudah saya
suruh pada nomer 1 diatas.
9. Langkah yang kesembilan untuk melihat hasilnya silahkan klik tanda
SEGITIGA HIJAU jika tampilannya masih kurang srek silahkan anda edit
kembali untuk mengatur lebar tingginya tinggal anda arahkan kursor anda
ke pinggirnya dan tarik mundur maju saja.
10. Langkah yang kesepuluh untuk mengganti tulisan kaya dibawah ini , silahkan anda cari saja tulisan CAPTION kaya dibawah ini.
11. Langkah yang kesebelas bagi yang mau mengganti iconnya silahkan klik
ICON lalu loda dan cari icon yang akan anda gunakan lalu klik ok.
12. Langkah yang terakhir adalah memberi warna dasar silahkan klik CLOR
dan ssuaikan dengan warna favorit anda, ingat ini masih terbilang
monoton dari segi tampilannya karena untuk tampilan yang lebih waw harus
menginstal alphaskin. (SELESAI)
_silahkan Run Project agan :D