Siapkan delphi7 yang sudah di install alpha skins. jika belum menginstall alphaskins silahkan download komponen alphaskins di www.alphaskins.com
untuk cara menginstall alphaskins cari di google, nanti tutor dari ane menyusul
kemudian buka applikasi delphi anda dan tambahkan sPannel kemudian Captionnya di kosongin aja
seperti ini
Stelah itu tambahkan 2 buah sEdit masih di tab AlphaStandar,
taruh sEditnya tepat pada sPannel yang sudah di buat tadi
kemudian sEdit1 ganti Text nya sEdit1 dengan proxy provider operator, dalam hal ini saya menggunakan provider telkomsel jadi proxynya 10.1.89.130
kemudian sEdit2 ganti Text nya sEdit2 menjadi 8000 itu port proxy provider telkomsel bukan listen port inject
untuk lebih jelasnya silahkan lihat screenshot dibawah.
langkah selanjutnya tambahkan 1 buah sGroupBox dan ganti caption sGroupBox1 dengan L.Port atau apalah terserah itu untuk menjunjukkan listen port inject
kemudian tambahkan sPannel di tengah-tengah sGroupBox tadi, yang sudah di ganti menjadi L.Port. dan ganti caption sPannel2 menjadi 8894 atau yang lain, terserah, itu listen port inject
untuk lebih jelasnya silahkan lihat gambar di bawah
Selanjutnya tambahkan 1 buah sButton dan taruh pada sPannel1 atau di samping L.port juga bisa, intinya harus tepat pada area sPannel1
kemudian ganti Caption sButton1 menjadi Listen atau start atau apa ajalah tersrah mau-mau sendiri.
lbih jelas lihat gambar dibawah.
Kemudian langkah terakhir
tambahkan TCP. TCP ada pada tab Indy Servers
kemudian ganti nama IdMappedPortTCP1 menjadi TCP
seperti gambar dibawah ini
sekarang kita mulai memasukkan script nya
terlebih dahulu tambahkan kode Tombol:Boolean; tepat dibawah private diatas { Private declarations }
seperti gambar dibawah
kemudian double clik atau klik dua kali pad sButton1 atau tombol start
dan masukkan kode di bawah ini tepat di bawah begin
if Tombol then
begin
TCP.Active := False;
TCP.Bindings.Clear;
Sleep(100);
sButton1.Caption := 'Listen';
Tombol := False;
end else
begin
sButton1.Caption := 'Abort';
TCP.Bindings.Add.IP := '127.0.0.1';// localhost, nggk boleh di ganti
TCP.Bindings.Add.Port := StrToInt('8894');//Listen port inject
TCP.MappedHost := sEdit1.Text;
TCP.MappedPort := StrToInt(sEdit2.Text);
TCP.Active := True;
Tombol := True;
end;
lebih jelas lihat gambar di bawah
langkah selanjutnya klik satu kali saja pada TCP
kemudian lihat pada Object Inspector dan klik tab events
klik dua kali tepat di samping OnExecute
kemudian hapus begin dan masukkan kode dibawah ini
var
Payload,Header: string;
begin
if (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('http',athread.NetData)<>0) or (pos('https',athread.NetData)<>0) then begin
header:=Addheader(Athread.NetData,'Proxy-Connection: Keep-Alive'+#13#10+'Connection: Keep-Alive'+#13#10);
Payload :='HEAD http://bug host/ HTTP/1.1'+#13#10'Host : bug host'+#13#10+athread.NetData;
athread.OutboundClient.Write(header); Sleep (1000);
athread.NetData:=Payload;
end;
Payload,Header: string;
begin
if (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('http',athread.NetData)<>0) or (pos('https',athread.NetData)<>0) then begin
header:=Addheader(Athread.NetData,'Proxy-Connection: Keep-Alive'+#13#10+'Connection: Keep-Alive'+#13#10);
Payload :='HEAD http://bug host/ HTTP/1.1'+#13#10'Host : bug host'+#13#10+athread.NetData;
athread.OutboundClient.Write(header); Sleep (1000);
athread.NetData:=Payload;
end;
ganti yang warna biru dengan bug host sendiri, silahkan cari di http://atsameip.intercode.ca/
lebih jelasnya lihat gambar dibawah
Masih pada TCP
Pada Object Inspector dan tab events
klik dua kali tepat di samping OnOutboundData
kemudian masukkan kode dibawah ini tepat di bawah begin
if Pos ('Set-Cookie', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'Set-Cookie',' 200 OK',[rfReplaceAll]);
end else
if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'407 Proxy Authentication Required','200 OK',[rfReplaceAll]);
end else
if Pos ('503 Service Unavailable', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'503 Service Unavailable','200 OK',[rfReplaceAll]);
end else
if Pos ('405 Method Not Allowed', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'405 Method Not Allowed','200 OK',[rfReplaceAll]);
end else
if Pos ('301 Moved Permanently', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'301 Moved Permanently','200 OK',[rfReplaceAll]);
end else
if Pos ('302 Found', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'302 Found','200 OK',[rfReplaceAll]);
end else
if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'407 Proxy Authentication Required','200 OK',[rfReplaceAll]);
end else
if Pos ('403 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
end else
if Pos ('HTTP/1.1 302 Found', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 Ok',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 302 Moved Temporarily', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 302 Moved Temporarily','HTTP/1.1 200 Ok',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 402 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 402 Forbidden','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.0 402 Bad request', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 402 Bad request','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.1 403 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 403 Forbidden','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.0 502 Gateway Timeout', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 502 Gateway Timeout','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.1 502 Internal Server Error', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 502 Internal Server Error','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.1 402 not authenticated', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 402 not authenticated','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.1 100 Connection established', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 100 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]);
end else
if Pos (':22', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,' :22 ',' :443',[rfReplaceAll]);
end else
if Pos (':80', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,' :80 ',' :443',[rfReplaceAll]);
end else
if Pos (':143', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,' :143 ',' :443',[rfReplaceAll]);
end else
Seperti ini
Kemudian sekarang kita tambahkan fungsi Header
Tambahkan kode dibawah ini tepat diatas procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);
function AddHeader(header, Newheader:string):string;
begin
header := StringReplace(header, #13#10 + #13#10, #13#10 + Newheader + #13#10 + #13#10, [rfReplaceAll]); Result := header;
end;
untuk lebih jelasnya lagi silahkan lihat gambar
begin
header := StringReplace(header, #13#10 + #13#10, #13#10 + Newheader + #13#10 + #13#10, [rfReplaceAll]); Result := header;
end;
untuk lebih jelasnya lagi silahkan lihat gambar
sekarang silahkan klik file kemudian save as
setelah di save as klik file lagi dan pilih save all
sekarang coba run atau tekan F9
sampai disini sudah bisa konek, jika anda memasukkan scriptnya dengan benar pasti tidak akan ada eror
klo masih ada yang eror berarti anda masih salam memasukkan script, silahkan periksa kembali
kemudian sekarang kita akan memberikan skins
prtama tambahkan 1 buah komponen sSkinManager dan 1 buah komponen sSkinProvider. sSkinManager dan sSkinProvider ada di tab AlphaTools
kemudian klik satu kali pada sSkinManager dan lihat Object Inspector, pada tab properties cari InternalSkins kemudian klik Add New dan cari dimana folder alphaskins yang sudah di install sebelumnya, pilih folder skins kmudian klik ok dan pilih skin mana yang akan di gunakan kemudian Ok.
untuk lbih jelasnya lihat gambar
masih di tab properties sSkinsManager cari kata SkinName kemudian pilih nama skin yang sudah dipilih tadi pada internal skins, misalkan saya tadi memilih skin Windows 10 (internal)
sekarang save all.
oke sampai disini tampilan sudah bagus dan bisa anda gunakan
langkah trakhir klik tab project dan pilih build project1
jadi deh inject nya dengan tampilan yang lembut.
Untuk para mastah, jika ada kesalahan mohon kritik dan sarannya
Untuk para mastah, jika ada kesalahan mohon kritik dan sarannya
0 comments:
Post a Comment