Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5

Mohon Bantuan

#1


Mohon bantuannya mastah.. ini kug blm work..

Code:
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;

procedure TFormInject.TCPExecute(AThread: TIdMappedPortThread);
begin
  if (pos('CONNECT',athread.NetData)<>0)then
  begin
    header:=Addheader(Athread.NetData,'Refresh: 10; url=http://tcm.telkomsel.com/'+#13#10);
    AThread.OutboundClient.Write(stringreplace(athread.netdata,#13#10,#13#10+ 'X-Online-Host: tcm.telkomsel.com'#13#10'Host : tcm.telkomsel.com'#13#10'X-Forward-F : 10.1.89.130:8000'#13#10,[rfReplaceAll]));
    payload :='CONNECT http://tcm.telkomsel.com/ HTTP/1.1'+#13#10;
    Athread.NetData :=Athread.NetData+'Connection: Keep-Alive'#13#10;
  end;
end;
priant47, proud to be a member of ForNesia Family since Mar 2015.
#2
(05-13-2015, 06:07 PM)priant47 Wrote:

Mohon bantuannya mastah.. ini kug blm work..

Code:
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;

procedure TFormInject.TCPExecute(AThread: TIdMappedPortThread);
begin
  if (pos('CONNECT',athread.NetData)<>0)then
  begin
    header:=Addheader(Athread.NetData,'Refresh: 10; url=http://tcm.telkomsel.com/'+#13#10);
    AThread.OutboundClient.Write(stringreplace(athread.netdata,#13#10,#13#10+ 'X-Online-Host: tcm.telkomsel.com'#13#10'Host : tcm.telkomsel.com'#13#10'X-Forward-F : 10.1.89.130:8000'#13#10,[rfReplaceAll]));
    payload :='CONNECT http://tcm.telkomsel.com/ HTTP/1.1'+#13#10;
    Athread.NetData :=Athread.NetData+'Connection: Keep-Alive'#13#10;
  end;
end;


playload ribet amat responsnya gann wtfwtfwtf
saling percaya, proud to be a member of ForNesia Family since Feb 2014.
#3
Btw, salah kamar om + hapoes bh-nya dong agar panjang oemoer.

Terima kasih atas pengertiannja.

Greetz,
M
Munfaqqiha, proud to be a member of ForNesia Family since Jul 2014. dan saya suka Kimcil.
#4
bhnya kok ga di samarin om.
biar ga terlalu vulgar.
nicx, proud to be a member of ForNesia Family since Mar 2015.
#5
(05-13-2015, 06:58 PM)saling percaya Wrote:
(05-13-2015, 06:07 PM)priant47 Wrote:

Mohon bantuannya mastah.. ini kug blm work..

Code:
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;

procedure TFormInject.TCPExecute(AThread: TIdMappedPortThread);
begin
  if (pos('CONNECT',athread.NetData)<>0)then
  begin
    header:=Addheader(Athread.NetData,'Refresh: 10; url=http://tcm.telkomsel.com/'+#13#10);
    AThread.OutboundClient.Write(stringreplace(athread.netdata,#13#10,#13#10+ 'X-Online-Host: tcm.telkomsel.com'#13#10'Host : tcm.telkomsel.com'#13#10'X-Forward-F : 10.1.89.130:8000'#13#10,[rfReplaceAll]));
    payload :='CONNECT http://tcm.telkomsel.com/ HTTP/1.1'+#13#10;
    Athread.NetData :=Athread.NetData+'Connection: Keep-Alive'#13#10;
  end;
end;


playload ribet amat responsnya gann wtfwtfwtf

Tolong di benerin gan..
priant47, proud to be a member of ForNesia Family since Mar 2015.
#6
Spertinya itu header sma pilotx kgak kepake ya di playload punya om itu, maap klo slah,,, Smile
siapa tau bisa konak jg d tempat om pake ini,,,
Spoiler:
dan ini bukti ngonak d ktp ane,,,
Cah_Bagoes, ILmu tidak ada batas, maka berbagi iLmu adalah berkah
#7
Om btw mau nanya, kalo athread.netdata itu kalo d python apaan ya? Ga nemu2
3nd0y, proud to be a member of ForNesia Family since Oct 2014. dan saya suka Kimcil.
#8
(05-13-2015, 06:07 PM)priant47 Wrote:

Mohon bantuannya mastah.. ini kug blm work..

Code:
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;

procedure TFormInject.TCPExecute(AThread: TIdMappedPortThread);
begin
  if (pos('CONNECT',athread.NetData)<>0)then
  begin
    header:=Addheader(Athread.NetData,'Refresh: 10; url=http://tcm.telkomsel.com/'+#13#10);
    AThread.OutboundClient.Write(stringreplace(athread.netdata,#13#10,#13#10+ 'X-Online-Host: tcm.telkomsel.com'#13#10'Host : tcm.telkomsel.com'#13#10'X-Forward-F : 10.1.89.130:8000'#13#10,[rfReplaceAll]));
    payload :='CONNECT http://tcm.telkomsel.com/ HTTP/1.1'+#13#10;
    Athread.NetData :=Athread.NetData+'Connection: Keep-Alive'#13#10;
  end;
end;

coba bagian querynya ditambahain

Quote: Athread.NetData :=Athread.NetData+'Connection: Keep-Alive'#13#10+payload;

moga bisa nyantoel

atau payload nya di ganti dengan athread.netdata
Quote: Athread.NetData :=Athread.NetData+athread.netdata+ 'Connection: Keep-Alive'#13#10;
Code:
DOGMA
#9
Ini gak d sensor akun kloningan fb jd tw.
Gak respon udah coid oms
freaks, proud to be a member of ForNesia Family since Apr 2014.
#10
Maka dari itu, buat mimin bin momod, langsung trash sahaja post semacam di atas. Inilah akibatnya. Marilah belajar dari peristiwa-kejadian yg sudah-sudah. Termasuk yg sekarang.

By the way, daripada saling menyalahkan, mari kita ngoprek yuk...

Greetz,
M
Munfaqqiha, proud to be a member of ForNesia Family since Jul 2014. dan saya suka Kimcil.
#11
Kok gak di sensor ya TS? kacau ni.. Kena oprek lg..
hbnetworks, proud to be a member of ForNesia Family since Sep 2014. dan saya suka Kimcil.
#12
Ah jd ketauan n dah d laporin hansip si tcm..pfffft