Berikut adalah Info dengan Cara Buat Injek Delete Host dan Reset Limit All Operator Terbaru 2015 dan sebelumnya juga sudah dibahas dengan Cara Mudah Cek Harga Data Internet Telkomsel 2015 ok berikut adalah penjelasan singkatnya dari saya tentang buat injek reset limit dan delet host.
Sebelum saya bahas lebih jauh bagi sahabat yang mempunyai blog juga dimohon jika ingin share ulang source code atau listing program ini untuk selalu memberikan link sumbernya sebagai pembuatnya, he he itu saja, buat eye eye silahkan kalau mau ikutan bikin juga,, hi hi hi
Ok Untuk membuat inject reset limit atau RELIT yang saat ini tengah naik daun ha ha kaya artis holywood saja, kita akan membahas dulu konsep konsep dasarnya dulu, yang paling banyak dibahas payload atau source code injek reset limit adalah pada dasarnya dengan konsep manual karena kita menjalankan reset lewat button, sebenarnya konsepnya sangat simple kita hanya perlu menambahkan sebuah timer aktif contoh timer1:= enabled; pada tombol aktif timer1.enabled:=false; pada tombol mati, tetapi pada form.active jangan lupa di buat false timernya karena jika tidak dibuat false berarti contoh timer1:= enabled; sama saja sudah diaktifkan sebelum tombol dijalankan lah jadinya gimana ko reset limit sebelum ada koneksi terjadi,, he he
Kita lanjutkan kembali apakah reset limit harus menggunakan manual tombol untuk melakukan resetnya sebenarnya tidak juga kita bisa melakukan reset limit secara otomatis dengan tanpa harus melakukan on click pada button yaitu dengan menambahkan fungsi array,,
Kita akan membuat topologi sederhananya yaitu misalkan kita akan melakukan reset data dibawah 50Kbps misalakan dengan array minimum 50. . . . . xxxx dan secara defaultnya execute yang biasa anda kenal sebenarnya netdata menjalankan fungsi array hanya saja array tersebut dijalankan di server dengan awal string 0.....xxx atau zero string nah pada penulisan array tersebut kita bisa mengatur minimum string yang muncul pada netdata , ingat ya netdata ditujukan atau kotak atau wadah untuk sebuah server host.
Sekarang anda paham bahwa reset limit atau relit bisa dilakukan secara otomatis, tetapi pada konsep yang pernah saya bahas kita juga sudah pernah belajar konsep SIP silahkan baca lagi tentang Session Initiation Protocol, untuk jenis payloadnya sudah lama pernah saya bahas, ok dan untuk payload reset limit kita akan bahas kembali dipostingan selanjutnya, dan sekarang kita akan belajar membuat inject delet host, serta payload roll host akan saya bahas di postingan selanjutnya juga.
Untuk membuat injek delet host saya tidak akan banyak bahas ini itu dulu nanti kita akan sambung lagi disini kita akan langsung praktek penulisan kode programnya, ingat ini hanya baru dasarnya saja sisanya bisa anda kembangkan kembali, oh iya injek delet host bisa dikatakan sebagai injek pengganti multy header, atau yang sering anda temui dengan penambahan fungsi addheader karena kemungkinan besar sebentar lagi akan tewas karena banyak eye eye berkeliaran,, he he
Yuk ah Kita Praktekin Saja dan Berikut adalah Listing Codingnya:
1. Pertama buka dulu delphi anda lalu tambahkan 4 Komponennya yaitu TCP pada Indy Server (1), TCP Pada Indy Client (1), Button (1), Memo (2), jika anda tidak suka memo sebagai lognya bisa anda hilangkan atau ganti dengan yang lainnya. untuk nama nama komponennya silahkan sesuaikan dengan keinginan masing masing saja.
type
TForm1 = class(TForm)
IdMappedPortTCP1: TIdMappedPortTCP;
IdTCPClient1: TIdTCPClient;
Button1: TButton;
Request: TMemo;
Respone: TMemo;
2. Yang kedua lalu tambahkan dulu fungsi Get Host , Get Port , dan Delet Host kaya gambar dibawah ini:
function GetHost(URL: string):string;
function GetPort(URL: string):integer;
function DelHostOfURL(URL,Host:string;Port:integer):string;
Oh iya agar button ketahan silahkan diakhir anda tambahkan bevel, lalu anda tambahkan kode dibawah ini:
private
zonksel:boolean;
{ Private declarations }
Kode diatas agar button bisa menjalankan fungis ON OFF saja (Single Button) simplenya gitu,, he he
3. Yang ketiga lalu tambahkan kode uses wininet, idUri; dibawah implementation dan diatas {$R *.dfm} lalu dibawah {$R *.dfm} tambahkan kode dibawah ini, lihat saja gambarnya:
function TForm1.GetHost(URL: string):string;
var
LURI:TIdURI;
begin
LURI:=TIdURI.Create(URL);
result:=LURI.Host;
LURI.Free;
end; //Mengambil Host
function TForm1.GetPort(URL: string):integer;
var
LURI:TIdURI;
begin
LURI:=TIdURI.Create(URL);
if Length(LURI.Port)<>0 then
result:=StrToInt(LURI.Port)
else
result:=80;
LURI.Free;
end; //Mengambil Port
function TForm1.DelHostOfURL(URL,Host:string;Port:integer):string;
var
s:string;
begin
result:= URL;
s:='http://'+Host;
if Port <> 80 then
s:= s + ':' + IntToStr(Port);
Delete(result,pos(s,result),length(s));
end; //Menghapus Host Dalam URL
4. Yang keempat silahkan onclick buttonnya atau Klik Saja buttonnya lalu masukan kode dibawah ini:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Thread: TIdMappedPortThread;
begin
if Zonksel then
begin
with IdMappedPortTcp1.Threads.LockList do
try
for I := 0 to Count-1 do
begin
Thread := TIdMappedPortThread(Items[I]);
Thread.Connection.Disconnect;
Thread.OutboundClient.Disconnect;
end;
finally
IdMappedPortTcp1.Threads.UnlockList;
end;
IdMappedPortTcp1.Active := False;
IdMappedPortTcp1.Bindings.Clear;
Button1.Caption :='ON TCP';
Zonksel := False;
end else
begin
Button1.Caption :='OFF TCP';
IdMappedPortTCP1.DefaultPort := 9201; // Buat Listen Port
IdMappedPortTCP1.MappedHost := '10.1.89.130'; // Proxy Sesuaikan dengan OP Masing2
IdMappedPortTCP1.ListenQueue := 15;
IdMappedPortTCP1.MaxConnections := 0;
IdMappedPortTCP1.TerminateWaitTime := 3000;
IdMappedPortTCP1.MappedPort := 8000; // Port Sesuaikan dengan OP Masing2
IdMappedPortTCP1.Active := true;
Zonksel := True;
end;
end;
5. Yang kelima silahkan menuju Mapped TCP > Event > OnExecute lalu tambahkan kode dibawah ini:
procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
RequestHost:string;
RequestPort:integer;
begin
Request.Lines.Add(Athread.NetData);
//Mengambil
try
RequestHost:=GetHost(AThread.NetData);
RequestPort:=GetPort(AThread.NetData);
if (RequestHost<>IdMappedPortTcp1.MappedHost) or
(RequestPort<>IdMappedPortTcp1.MappedPort) then
begin
IdMappedPortTCP1.MappedHost:=RequestHost;
IdMappedPortTCP1.MappedPort:=RequestPort;
TidTcpClient(AThread.OutboundClient).Host:=RequestHost;
TidTcpClient(AThread.OutboundClient).Port:=RequestPort;
TidTcpClient(AThread.OutboundClient).Disconnect;
TidTcpClient(AThread.OutboundClient).Connect(AThread.ConnectTimeOut);
end; //Mengolah
finally
//Menghubungkan
end;
end;
6. Yang keenam lalu menuju ke Outboundata masih di event mapped TCP lalu tambahkan kode:
procedure TForm1.IdMappedPortTCP1OutboundData(
AThread: TIdMappedPortThread);
begin
Respone.Lines.Add(Athread.NetData);
// Tambahkan Replace
end;
Jadi itulah konsep sederhana dari maskud payload delet host sisanya tinggal anda kembangkan sedikit lagi, ya itu sebenarnya sudah jadi tinggal sedikit lagi ko, mungkin anda bingung dimana sih bug harus ditaruh, bug host tetap harus di load oleh execute anda perhatikan lagi saja diatas ada ko bug anda taruh pada fungsinya yang terhubung ke execute jangan lupa juga karakter CRLF tidak ikut diinputkan setelah bug host anda , and happy coding.
Catatan: NETDATA ditujukan untuk Bug host, CONNECT ditujukan untuk layer SS/VPN pastikan anda menambahkan fungsi tersebut, silahkan uwik uwik lagi ya. he he
Catatan: NETDATA ditujukan untuk Bug host, CONNECT ditujukan untuk layer SS/VPN pastikan anda menambahkan fungsi tersebut, silahkan uwik uwik lagi ya. he he
Ya itu saja dulu ya postingan kali ini tentang Cara Buat Injek Delete Host dan Reset Limit All Operator Terbaru 2015 semoga bermanfaat dan terima kasih dan silahkan pelajari kembali.
Download Juga: Download Software ISPCE
Download Juga: Download Software ISPCE
CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger
ConversionConversion EmoticonEmoticon