Assalamualaikum Wr. Wb.
Salam bahagia teman-teman semuanya
Dikesempatan ini saya akan membagikan tutorial cara membuat inject sendiri dengan delphi 7
Inject itu sebagai aplikasi utuk inet gratis, kurang lebihnya begitu lah :v hehe..
Bahan yang dibutuhkan delphi 7 untuk yang belum punya download dulu
Langsung saja kita ke tkp
1. Jalankan program delphi 7
2. Buat 2 Button dan 1 TCP, Button1 ganti Caption START dan Button2 STOP
3. Kalau sudah klik 2x Button1dan Button2 isi code source berikut taruh di bawah begin dan diatas end; : Untuk Button1 :
Untuk Button2 :
Salam bahagia teman-teman semuanya
Dikesempatan ini saya akan membagikan tutorial cara membuat inject sendiri dengan delphi 7
Inject itu sebagai aplikasi utuk inet gratis, kurang lebihnya begitu lah :v hehe..
Bahan yang dibutuhkan delphi 7 untuk yang belum punya download dulu
Langsung saja kita ke tkp
1. Jalankan program delphi 7
2. Buat 2 Button dan 1 TCP, Button1 ganti Caption START dan Button2 STOP
3. Kalau sudah klik 2x Button1dan Button2 isi code source berikut taruh di bawah begin dan diatas end; : Untuk Button1 :
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1'; // proxy default
IdMappedPortTCP1.Bindings.Add.Port := StrToInt('3030'); // listen port inject
IdMappedPortTCP1.MappedHost := '10.1.89.130'; // Sesuaikan proxy provider
IdMappedPortTCP1.MappedPort := StrToInt('8000'); // Port proxy provider
IdMappedPortTCP1.Active := True;
Button1.Visible := False;
Button2.Visible := True;
Untuk Button2 :
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Visible := True;
Button2.Visible := False;
4. Terus gantian ke TCP klik pilih tab bagian Event terus klik 2x OnExecute isi code berikut :
var
Payload,Header:String;
begin
if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('https',athread.NetData)<>0) or (pos('ALIVE',athread.NetData)<>0) then begin
payload:= 'GETS http://BUG/ HTTP/1.1'+#13#10+'Connection: Keep-Alive'+#13#10#13#10#13#10+'Host: BUG'+#13#10;
athread.OutboundClient.Write(header); Sleep (1000);
athread.NetData:=payload;
end;
NB: Untuk tulisan BUG yang saya kasih warna merah itu ganti sesuai bughost masing" provider.
Kemudian Klik 2x pilih OnOutboundData isi code berikut :
if Pos (' 400 Bad Request', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' 400 Bad Request',' 200 OK',[rfReplaceAll]);
end;
if Pos (' 403 forbidden', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' 403 forbidden',' 200 OK',[rfReplaceAll]);
end;
if Pos (' HTTP/1.1', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' HTTP/1.1',' HTTP/1.0',[rfReplaceAll]);
end;
if Pos (' %2f', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' %2f',' /',[rfReplaceAll]);
end;
if Pos (' %20', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' %20',' _',[rfReplaceAll]);
end;
if Pos (' Set-Cookie', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' Set-Cookie',' 200 OK',[rfReplaceAll]);
end;
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]);
end;
if Pos (' 302 Found', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' 302 Found',' 200 OK',[rfReplaceAll]);
end;
if Pos (' 302 Found 200', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' 302 Found 200',' 200 OK',[rfReplaceAll]);
end;
if Pos (' :22', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' :22',' :443',[rfReplaceAll]);
end;
if pos (' 405 Method', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' 405 Method',' 200 OK',[rfReplaceAll]);
end;
If Pos('HTTP/1.', Athread.NetData) = 1 then
begin
If Pos('HTTP/1.1 200 OK', Athread.NetData) = 1 then
end;
5. Terakhir simpan dulu projectnya terus Klik Run / tekan F9. dan ini hasilnya :)
Tutorial diatas ini hanya sederhana kalau mau lebih keren lagi bisa dikreasikan sendiri lagi yah :)
semoga postingan ini bermafaat dan jangan disalah gunakan hehehe...
Untuk yang mau download source codenya disini
Wassalamualaikum Wr. Wb.
Wassalamualaikum Wr. Wb.
Jika sobat ingin menjadi donatur silahkan hubungi admin via Whatsapp. Dana hasil dari Donasi akan digunakan untuk memperpanjang domain
keneono.net
. Terima Kasih