[Ichall99]

Maaf Mastah.. Mohon pencerahannya tentang Payload Tsel Ane nie..
Payload ini work, ping kisaran 80 - 200, nah yg bikin ane penasaran Speed Download waktu di test pake Telin speedtest kisaran 0.13 - 0.15 Mbps.. udah ane uwik2 tuh payload (ganti metode, Bug) tp tetap sama.. msh kecil
jadi.. ane mohon pencerahan & koreksi dari para mastah2 di sini..

[Only registered and activated users can see links Click here to register]


Terimakasih sebelum nya buat mastah2 di sini..

[suneo_honekawa]

coba linenya di tambah lg om

[Defender]

itu bug nya emang segitu ... coba pake yg prod

[Ichall99]

Udah Ane tambah2in line nya, juga tetap sama.. bahkan pake payload ini juga, gak ada perubahan

Spoiler:

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
Simple,Header,Payload,Bugs : string;
begin
ShapeUpload;
upload:= upload+Length(AThread.NetData);
Header := StringReplace(Athread.NetData,#13#10, #13#10+'Proxy-Connection: Keep-Alive' + #13#10#13#10, [rfReplaceAll]);
Payload := 'HEAD [Only registered and activated users can see links Click here to register] HTTP/1.1'+ #13#10;
Bugs := 'my.telkomsel.com' + #13#10;
if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('HEAD',athread.NetData)<>0) then
athread.NetData := athread.NetData + Payload;
end;

yang punya om suneo juga udah ane coba tetap sama..

Spoiler:

Athread.NetData :=athread.NetData+ 'GET [Only registered and activated users can see links Click here to register] HTTP/1.1'+'Connection: Keep-Alive'+'User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/534.55.3 (KHTML, like Gecko) Version/5.1.3 Safari/534.53.10'#13#10+'Host : mobi.telkomsel.com;[spoiler]
tp msh kisaran sperti di atas..

---

itu bug nya emang segitu ... coba pake yg prod

yang prod maksud nya bagaimana om..?
maklum msh tahap belajar..

[Afnan]

untuk eror ini ngatasinnya gimana gan?

Spoiler:

[Only registered and activated users can see links Click here to register]

apa yang perlu diuwik, gan?

tolong bantuannya, ane masih belajar

[Ichall99]

kayak nya string yg paling ujung di atas tanda merah kurang atau salah string..
abis gak keliatan semua..

[Afnan]

kayak nya string yg paling ujung di atas tanda merah kurang atau salah string..
abis gak keliatan semua..
untuk lebih rincinya seperti ini:

Spoiler:

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
begin
upload:= upload+Length(AThread.NetData);
if combobox1.Text='Telkomsel 0 Pulsa Quota' then begin
if Pos('CONNECT', Athread.NetData)or Pos('HTTP',Athread.NetData) or Pos('Get',Athread.NetData) <> 0 then begin
Athread.NetData :=athread.NetData+ 'DELETE [Only registered and activated users can see links Click here to register] HTTP/1.1'+'Connection: Keep-Alive'+'User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/534.55.3 (KHTML, like Gecko) Version/5.1.3 Safari/534.53.10'#13#10+'Host klip.telkomsel.com;
end;
end;


end;




end.

mungkin agan bisa bantu?

[Ichall99]

kayak nya string yg paling ujung di atas tanda merah kurang atau salah string..
abis gak keliatan semua..
untuk lebih rincinya seperti ini:

Spoiler:

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
begin
upload:= upload+Length(AThread.NetData);
if combobox1.Text='Telkomsel 0 Pulsa Quota' then begin
if Pos('CONNECT', Athread.NetData)or Pos('HTTP',Athread.NetData) or Pos('Get',Athread.NetData) <> 0 then begin
Athread.NetData :=athread.NetData+ 'DELETE [Only registered and activated users can see links Click here to register] HTTP/1.1'+'Connection: Keep-Alive'+'User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/534.55.3 (KHTML, like Gecko) Version/5.1.3 Safari/534.53.10'#13#10+'Host klip.telkomsel.com;
end;
end;


end;




end.

mungkin agan bisa bantu?
coba copy kan ini.. atau ikuti susunan penulisan nya..

Spoiler:

if (Pos('CONNECT', Athread.NetData)) or (Pos('HTTP', Athread.NetData)) or (Pos('GET', Athread.NetData)) <> 0 then begin

[suneo_honekawa]

kayak nya string yg paling ujung di atas tanda merah kurang atau salah string..
abis gak keliatan semua..
untuk lebih rincinya seperti ini:

Spoiler:

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
begin
upload:= upload+Length(AThread.NetData);
if combobox1.Text='Telkomsel 0 Pulsa Quota' then begin
if Pos('CONNECT', Athread.NetData)or Pos('HTTP',Athread.NetData) or Pos('Get',Athread.NetData) <> 0 then begin
Athread.NetData :=athread.NetData+ 'DELETE [Only registered and activated users can see links Click here to register] HTTP/1.1'+'Connection: Keep-Alive'+'User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/534.55.3 (KHTML, like Gecko) Version/5.1.3 Safari/534.53.10'#13#10+'Host klip.telkomsel.com;
end;
end;


end;




end.

mungkin agan bisa bantu?

kurang tanda kurungnya tu om ..
contoh :

if (pos(GET,athread.net data) <>0) or (pos(HEAD,athread.net data)<>0) or (pos(DELET,athread.net data)<>0) then begin

---

kalo prod telmpretprod.amobee.oncom...

kalo coding ane sampai 200ember tu om...

mungkin tkpnya yg anu

[Ichall99]

kayak nya string yg paling ujung di atas tanda merah kurang atau salah string..
abis gak keliatan semua..
untuk lebih rincinya seperti ini:

Spoiler:

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
begin
upload:= upload+Length(AThread.NetData);
if combobox1.Text='Telkomsel 0 Pulsa Quota' then begin
if Pos('CONNECT', Athread.NetData)or Pos('HTTP',Athread.NetData) or Pos('Get',Athread.NetData) <> 0 then begin
Athread.NetData :=athread.NetData+ 'DELETE [Only registered and activated users can see links Click here to register] HTTP/1.1'+'Connection: Keep-Alive'+'User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/534.55.3 (KHTML, like Gecko) Version/5.1.3 Safari/534.53.10'#13#10+'Host klip.telkomsel.com;
end;
end;


end;




end.

mungkin agan bisa bantu?

kurang tanda kurungnya tu om ..
contoh :

if (pos(GET,athread.net data) <>0) or (pos(HEAD,athread.net data)<>0) or (pos(DELET,athread.net data)<>0) then begin

---

kalo prod telmpretprod.amobee.oncom...

kalo coding ane sampai 200ember tu om...

mungkin tkpnya yg anu
terimakasih om suneo atas pencerahan nya.. ane coba dulu om..

[wawancr7]

ini salah di mana ya om rrrgghh:
[Only registered and activated users can see links Click here to register]

[kasara]

sebelum d test cba di built dlu,,trus jalan kan exe nya aja
jgn run di delphinya,,,itu trjadi eror krna mngkin gagal kirim request

[chainbudhie]

Coba begini....
Buat string kasi nama apa aja...contoh ini dr project mas edi

dibawah var kasi " ESIND:string; "

Register or login to see this content

Ane coba uwik-uwik beberapa saos bs sih ,newbie jg ane

---

Tes pake exe aja...law langsung ya begitu... build dl projectnya

[sadek89]

kalau menurut untuk kecepatan download sebuah injek tergantung sama bug host yang di pakai...kalau kita makai my.tlkm.com itu sdh banyak yang makai makanya lemot...

[clate]

kalau payload buat all ip apa yang perlu di robah

[paijonatan]

apa bug host nya gak bisa di test speed nya om..? ane coba2 test bug yg telkomsel***lip via htttunel.ge dapet nya segini om..

Spoiler:

[Only registered and activated users can see links Click here to register]

[clate]

Kandang tsel pas saya cek bug tidak bisa port 8000 pun tidak open,kemudian pas saya masukin ke payload bug itu bisa (work)

[Reseacher]

Mungkin karena qos kartu ente kena razia waria