Rabu, 02 September 2015

Cara Buat Injek Telkomsel Indosat XL Axis 3 Smartfren Anti Freeze September 2015

Berikut adalah Cara Buat Injek Telkomsel Indosat XL Axis 3 Smartfren Anti Freeze September 2015 dimana konsep injek yang akan kita bahas disini adalah menggunakan remote cache pada servernya anda bisa pelajari tentang kegunaan anti freeze di embarcardo pascal secara resminya, dan pada konsep ini kita akan memanfaatkan konsep ini untuk menembus bug bug yang lama yang sudah ditutup, pada dasarnya setiap bug host untuk internet gratis mati bukan berarti mati sitenya melainkan server telah memblokir karakter atau algoritma yang mengandung konsep crlf sehingga saat ini banyak trik trik atau bug host bug host yang ditutup oleh para pakar IT Operator maka dari itu kita akan belajar kembali bagaimana kita akan membongkar kembali bug yang sudah terkunci dan kita buka kembali kuncinya, jika diibaratkan sebuah rumah memiliki kunci yang berbeda beda maka untuk membuka rumah tersebut kita harus mempunyai duplikate dari kunci tersebut.

Dan sebelumnya juga sudah dishare tentang Cara Internet Gratis PC 2015 ok kita simak lagi, pada saat ini lebih tepatnya konsep CRLF injection, atau bisa kita sebut injek inject karena pada dasarnya injek gratis yang dibuat berjalan pada jalur CRLF Injection yang mengacu kepada string 10,11,13,14,15 dan yang paling umum digunakan adalah string 10 dan 13 , LF dan CR, #10 atau LF atau Line Feed karakternya adalah dia akan membuat baris baru tetapi tidak mengulanginya ke awal sedangkan #13 atau CR atau Cariage Return dia akan mengulanginya keawal maka dari itu bagi anda yang masih belajar membuat payload pahami dulu setiap karakter yang akan anda tuliskan sebelum anda masukan ke listing programnya.

Pada pelajaran ini kita akan menguji log header lewat log yang dimiliki oleh memo, karena netdata akan kita inputkan hasil responenya lewat  memo, tetapi pada dasarnya log memo hanyalah untuk menampilkan sebuah pesan dari hasil string netdata itu sendiri, maka dari itu kita akan mengujinya dengan penambahan xp manifest dan antifreeze yang penting adalah anda memasukan TCP (Indi Server) dan Anti Freeze ( Indi Misc) dan kita akan membuat hasil result untuk lowercase ( small karakter) dan netdata jika yang umum sering anda temukan adalah fungsi header tanpa lowercase sehingga kita akan memanfaatkan 2 fungsi pencarian sekaligus, disini saya akan memberikan kode dasarnya baik untuk indosat, xl, 3 aon, smartfren, axis, telkomsel pada dasarnya sama jadi gunakan konsep listing kode dibawah ini yang perlu anda perhatikan yang membedakan dari setiap injek masing masing operator adalah posisi netdata, payload dan proxy, netdata disini adalah konsep payload pada data injeknya nanti akan saya kasih tahu mana yang membedakannya, dan kita lasngung praktek.

1. Yang pertama buka program desktop delphi anda lalu buat dulu sebuah folder baru berinama apa saja kecual nama "con" tidak mungkin bisa anda buat untuk nama folder, lalu ganti nama FORM1 menjadi INJECTSAKTI lalu save as dan arahkan ke folder yang sudah suruh saya buat.

Cara Internet Gratis 2015

Catatan: Jika delphi32.exe tidak ada di shortcut menu dan desktop bisa anda cari di C > Program File > Borland > Delphi7 (Sesuai Versi) > bin > Delphi32.exe

2. Yang kedua berikut adalah contoh hasil save as pada point 1 diatas lalu close dulu programnya dan silahkan klik lagi project.dpr yang ada disana file dpr tergantung nama yang anda kasih sebelumnya.

Cara Internet Gratis 2015

3. Yang ketiga lalu tambahkan dulu nama nama komponen seperti dibawah ini, kebetulan komponen dibawah ini memakai dari alpha anda bisa gunakan yang biasa juga karena dari nama nama komponen tersebut akan kita ganti nama.

Daftar Komponen: memo (10, edit (3), label (2), button (1), xp manifest (1), anti freeze (1), dan mapped tcp (1).

Cara Internet Gratis 2015

4. Yang Keempat ganti dulu setiap nama komponen yang sudah dinputkan seperti dibawah ini:

Nama memo1 ganti menjadi  logheader
Nama button1 ganti menjadi start
Nama Edit1 ganti menjadi serverproxy
Nama Edit2 ganti menjadi localproxy
Nama Edit3 ganti menjadi listenport
Nama IdMappedTCP ganti menjadi injectTCP
Nama IdAntiFreeze ganti menjadi AntiBlock
Nama xpmanifest ganti menjadi InjectXP
untuk text dan captionnya silahkan sesuaikan saja dengan keperluan karena pergantian nama nama komponen tersebut akan dituliskan biar nantinya tidak banyak error ketika di F9 atau di run dan di buildnya.

Cara Internet Gratis 2015

5. Dan berikut adalah gambar yang sudah siap kita tuliskan kode programnya dan mari kita mulai untuk menghiasi listing codingnnya dan silahkan langsung ke point 6 dibawah.

Cara Internet Gratis 2015

6. Yang keenam silahkan tambahkan  Zonksel:Boolean; sebelum kode { Private declarations } dan hasilnya seperti dibawah ini dan gambar dibawah ini.

  private
  Zonksel:Boolean;
  { Private declarations }

Cara Internet Gratis 2015

7. Yang ketujuh kemudian klik tombol BUTTON1 atau START lalu masukan kode dibawah ini, lihat gambar dibawah ini:

procedure Tinjectsakti.startClick(Sender: TObject);
var
I: Integer;
Thread: TIdMappedPortThread;
 begin
 if Zonksel then
begin
with InjectTCP.Threads.LockList do
try
for I := 0 to Count-1 do
begin
Thread := TIdMappedPortThread(Items[I]);
Thread.Connection.Disconnect;
Thread.OutboundClient.Disconnect;
end;
finally
InjectTCP.Threads.UnlockList;
end;
  serverproxy.Enabled := true;
  localproxy.Enabled := true;
  listenport.Enabled := true;
  sleep (10);
  AntiBlock := TIdAntiFreeze.Create(nil);
 InjectTCP.Active := False;
 InjectTCP.Bindings.Clear;
 AntiBlock.Active := False;
 Logheader.Clear;
start.Caption :='Start Inject';
Zonksel := False;
end else
begin
 start.Caption :='Stop Inject';
 serverproxy.Enabled := false;
 localproxy.Enabled := false;
 listenport.Enabled := false;
 sleep (10);
 AntiBlock := TIdAntiFreeze.Create(nil);
 InjectTCP.Bindings.Add.IP := ('127.0.0.1');
 InjectTCP.Bindings.Add.Port := StrToInt (listenport.text);
 InjectTCP.TerminateWaitTime := 15000;
 InjectTCP.MappedHost := (serverproxy.text);
 InjectTCP.MappedPort := StrToInt(localproxy.text);
 InjectTCP.Active := True;
 AntiBlock.Active := true;
 AntiBlock.OnlyWhenIdle:=true;
 AntiBlock.IdleTimeOut:=10;
Zonksel := True;
end;
end;

Cara Internet Gratis 2015

Catatan: Listenport, serverproxy. localproxy nantinya silahkan sesuaikan dengan operator masing masing.

8. Yang kedelapan silahkan klik InjectTCP > Event > Outboundata lalu masukan kode dibawah ini:

procedure Tinjectsakti.injectTCPOutboundData(AThread: TIdMappedPortThread);
var
LowerCase: string;
begin
  Logheader.Lines.Add(AThread.NetData);
if Pos (' #13 ', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,' #13 ',' #13#10 ',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos (' #10 ', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,' #10 ',' #13#10 ',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos (' #10#13 ', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,' #10#13 ',' #13#10 ',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('SHTTP/1.0 200 OK', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'SHTTP/1.0 200 OK','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 100 Continue', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 100 Continue','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
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,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 101 Switching Protocols', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 101 Switching Protocols','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 102 Processing', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 102 Processing','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 110 Connection timed out', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 110 Connection timed out',' 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 200 Connection established', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 200 Connection established','HTTP/1.0 200 Connection established',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 201 Created', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 201 Created','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 202 Accepted', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 202 Accepted','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 203 Non-Authoritative Information', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 203 Non-Authoritative Information','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 204 No Content', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 204 No Content','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 205 Reset Content', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 205 Reset Content','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 206 Partial Content', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 206 Partial Content','HTTP/1.1 200 Ok',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 207 Multi-Status', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 207 Multi-Status','HTTP/1.1 200 Ok',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 300 Multiple Choices', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 300 Multiple Choices','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 301 Moved Permanently', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 301 Moved Permanently','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
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.0 302 Found', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.0 302 Found','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 302 TEMPORARY REDIRECT', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 302 TEMPORARY REDIRECT','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 303 See Other', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 303 See Other','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 304 Not Modified', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 304 Not Modified','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 305 Use Proxy', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 305 Use Proxy','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 306 unused', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 306 unused','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 307 Temporary Redirect', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 307 Temporary Redirect','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 400 Bad Request', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 400 Bad Request','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 401 Unauthorized', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 401 Unauthorized','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 402 Payment Required', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 402 Payment Required','HTTP/1.1 200 Ok',[rfReplaceAll,rfIgnoreCase]);
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,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 404 Not Found', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 404 Not Found','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 405 Method Not Allowed', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 405 Method Not Allowed','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 406 Not Acceptable', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 406 Not Acceptable','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 407 Proxy Authentication Required', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 407 Proxy Authentication Required','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 408 Request Time-out', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 408 Request Time-out','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 409 Conflict', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 409 Conflict','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 410 Gone', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 410 Gone','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 411 Length Required', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'HTTP/1.1 411 Length Required','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 412 Precondition Failed', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 412 Precondition Failed','HTTP/1.1 200 Ok',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 413 Request Entity Too Large', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 413 Request Entity Too Large','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 414 Request-URI Too Large', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 414 Request-URI Too Large','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 415 Unsupported Media Type', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 415 Unsupported Media Type','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 416 Requested range not satisfiable', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 416 Requested range not satisfiable','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 417 Expectation Failed', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 417 Expectation Failed','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 418 unused', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 418 unused','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 419 unused', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 419 unused','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 420 unused', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 420 unused','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 421 unused', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 421 unused','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 422 Unprocessable Entity', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 422 Unprocessable Entity','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 423 Locked', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 423 Locked','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 424 Failed Dependency', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 424 Failed Dependency','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 425 No code', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 425 No code','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 426 Upgrade Required', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 426 Upgrade Required','HTTP/1.1 200 OK',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 500 Internal Server Error', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 500 Internal Server Error','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 501 Method Not Implemented', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 501 Method Not Implemented','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 501 Not Implemented', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 501 Not Implemented','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 502 Bad Gateway', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 502 Bad Gateway','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 503 Service Temporarily Unavailable', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 503 Service Temporarily Unavailable','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 503 Service Unavailable', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 503 Service Unavailable','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 504 Gateway Time-out', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 504 Gateway Time-out','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,rfIgnoreCase]);
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,rfIgnoreCase]);
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,rfIgnoreCase]);
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,rfIgnoreCase]);
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,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 504 Gateway Time-out', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 504 Gateway Time-out','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 505 HTTP Version Not Supported', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 505 HTTP Version Not Supported','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 506 Variant Also Negotiates', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 506 Variant Also Negotiates','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 507 Insufficient Storage', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 507 Insufficient Storage','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 508 unused', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 508 unused','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 509 unused', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 509 unused','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 510 Not Extended', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 510 Not Extended','HTTP/1.1 200 OK', [rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('Connection: Close', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,'Connection: Close','Connection: Keep-Alive',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('Set-Cookie:', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,'Set-Cookie:','Set-Cookie:SSID : @wifi.id; Domain=my.telkom.co.id; Path=/; Expires=Wed, 13 Jan 2021 22:23:01 GMT; Secure; HttpOnly',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('Content-Length: ', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,'Content-Length: ','Content-Length: 0',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('Location: ', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,'Location: ',' /index.php?option=com_users&view=registration',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos (':22', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,' :22 ',' :443',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos (':80', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,' :80 ',' :443',[rfReplaceAll,rfIgnoreCase]);
end else
 If Pos('HTTP/1.', Athread.NetData) = 1 then begin
 If LowerCase <> '' then begin
 Athread.OutboundClient.Write(LowerCase);
 LowerCase:='';
   end;
 If Pos('HTTP/2.', Athread.NetData) = 1 then begin
 If LowerCase <> '' then begin
 Athread.OutboundClient.Write(LowerCase);
 LowerCase:='';
    //if athread.netdata contain 'server: apache' then athread.netdata := '';
   end;
  end;
 end;
end;

Cara Internet Gratis 2015

9. Yang kesembilan lalu tambahkan fungsi AddNetdata dan Lowercase pasang diatas outubounddata seperti gambar dibawah ini:

function AddNetdata(Netdata, NewNetdata:string):string;
begin
Netdata := StringReplace(Netdata, #13#10 + #13#10, #13#10 + NewNetdata + #13#10 + #13#10, [rfReplaceAll, rfIgnoreCase]);
Result := Netdata;
end;
function LowerCase(const Netdata: string): string;
begin
result:=LowerCase(Netdata);
end;


Cara Internet Gratis 2015

10. Yang kesepuluh lalu klik injectTCP > Event > Execute lalu masukan kode dibawah ini:

procedure Tinjectsakti.injectTCPExecute(AThread: TIdMappedPortThread);
var
LowerCase: string;
CE : string;
begin
  logheader.Lines.Add(AThread.NetData);
 if pos('HTTP/1.0 200 Connection established',athread.NetData)<> 0 then begin
CE:=athread.NetData;
delete(CE,1,(pos('HTTP/1.0 200 Connection established',CE)-1));
LowerCase := StringReplace(athread.NetData,copy(CE,1,(pos(#13#10,CE)-1)),'HTTP/1.0 100 Connection established', [rfReplaceALL,rfIgnoreCase]);
AThread.OutboundClient.Write(stringreplace(athread.netdata,'HTTP/1.0 200 Connection established','HTTP/1.0 100 Connection established',[rfreplaceall,rfIgnoreCase]));
athread.NetData := 'isi dengan data yang telah anda temukan karena setiap operator berbeda beda' ;

end else
if (Pos('CONNECT',AThread.NetData)<>0)
or (Pos('GET',AThread.NetData)<>0)
or (Pos('GETS',AThread.NetData)<>0)
or (Pos('HEAD',AThread.NetData)<>0)
or (Pos('POST',AThread.NetData)<>0)
or (Pos('HTTP',AThread.NetData)<>0)
or (Pos('HTTPS',AThread.NetData)<>0)
or (Pos('PUT',AThread.NetData)<>0)
or (Pos('TRACE',AThread.NetData)<>0)
or (Pos('OPTIONS',AThread.NetData)<>0)
or (Pos('PATCH',AThread.NetData)<>0)
or (Pos('PROPFIN',AThread.NetData)<>0)
or (Pos('PROPPATCH',AThread.NetData)<>0)
or (Pos('MKCOL',AThread.NetData)<>0)
or (Pos('COPY',AThread.NetData)<>0)
or (Pos('MOVE',AThread.NetData)<>0)
or (Pos('LOCK',AThread.NetData)<>0)
or (Pos('UNLOCK',AThread.NetData)<>0)
or (Pos('VERSION_CONTROL',AThread.NetData)<>0)
or (Pos('CHECKOUT',AThread.NetData)<>0)
or (Pos('UNCHECKOUT',AThread.NetData)<>0)
or (Pos('CHECKIN',AThread.NetData)<>0)
or (Pos('UPDATE',AThread.NetData)<>0)
or (Pos('LABEL',AThread.NetData)<>0)
or (Pos('REPORT',AThread.NetData)<>0)
or (Pos('MKWORKSPACE',AThread.NetData)<>0)
or (Pos('MKACTIVITY',AThread.NetData)<>0)
or (Pos('BASELINE_CONTROL',AThread.NetData)<>0)
or (Pos('MERGE',AThread.NetData)<>0)
or (Pos('INVALID',AThread.NetData)<>0)
or (Pos('DELETE',AThread.NetData)<>0) then begin
Athread.NetData:=AddNetdata(Athread.NetData,'Proxy-Connection: Keep-Alive'+#13#10);
LowerCase := StringReplace(athread.NetData,copy(CE,1,(pos(#13#10,CE)-1)),'HTTP/1.0 100 Connection established', [rfReplaceALL,rfIgnoreCase]);
// Disini anda harus mengisi data payload dan menuliskannya sesuai dengan payload yang telah anda temukan karena payload setiap operator berbeda beda cara kerjanya.
Athread.OutboundClient.Write(LowerCase); Sleep (100);
AThread.OutboundClient.Write(AThread.NetData + #13#10);
athread.NetData := 'isi dengan data yang telah anda temukan karena setiap operator berbeda beda' ;
athread.NetData:= athread.NetData;
end else
  If Pos('HTTP/1.', Athread.NetData) = 1 then begin
 If LowerCase <> '' then begin
 athread.OutboundClient.Write(LowerCase);
 LowerCase:='';
   end;
 If Pos('HTTP/2.', Athread.NetData) = 1 then begin
 If LowerCase <> '' then begin
 athread.OutboundClient.Write(LowerCase);
 LowerCase:='';
    //if athread.netdata contain 'server: apache' then athread.netdata := '';
  end;
 end;
end;
end;


Cara Internet Gratis 2015

11. Yang terakhir adalah silahkan klik form utamanya lalu masukan kode dibawah ini;

procedure Tinjectsakti.FormCreate(Sender: TObject);
begin
InjectTCP := TIdMappedPortTCP.Create(self);
  with TIdAntiFreeze.Create(self) do begin
    Active := true;
  end;
end;

Cara Internet Gratis 2015

Yang membedakan injek yang paling berpengaruh adalah yang saya kasih tanda warna merah dan silahkan anda kembangkan harus diisi apa, anda bisa pelajari kembali tentang payload payload yang banyak dibahas digoogle dan silahkan implementasikan kembali, karena itu adalah kunci utama yang yang sangat membedakannya, silahkan dicoba.

Catatan: Mapped akan dijalankan lewat antifreeze sehingga log hedaer tidak akan muncul dan seperti yang sudah saya bilang log header hanya untuk pengujian hasil data yang didapatkan dan silahkan pelajari kembali.

Hanya itu saja dulu info seputar Cara Buat Injek Telkomsel Indosat XL Axis 3 Smartfren Anti Freeze September 2015 semoga bermanfaat dan terima kasih, dan jika anda ingin share ulang listing kode diatas dimohon dengan sangat untuk memberikan link sumbernya jika tidak maka kami tidak akan pernah membagikan kembali trik trik seperti ini makasih. :)

Baca Juga: Bentuk Bentuk Kelemahan Pada Jaringan System ISP