Source Code Inject Tsel Delphi 7

Source Code Inject Tsel Delphi 7

Memang ga di sarankan untuk beerinternetan gratis terus , entar jadi kecanduan lho .. heheh ..
kalo agan agan ingin belajar membuat inject monggo silahkan , ini source code inject untuk tsel , inject ini type payload standar yang cuma bermodalkan HOST, beda dengan inject yg lain yang memakai , inject ini bebas pake host terserah ente ... kalo payload yang lain memang harus membutuhkan BUG yang benar-benar valid atau work kalo gak injectnya ga bisa konnect , tapi keuntungan inject yang memakai BUG yg work , dia lebih stabil , ga naik turun gunung " Ngartikan maksud ane ?? "

noh kalo mau seret aja di bawah ....
==============================================
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
  IdMappedPortTCP, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    IdMappedPortTCP1: TIdMappedPortTCP;
    GroupBox3: TGroupBox;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
    procedure IdMappedPortTCP1OutboundData(AThread: TIdMappedPortThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 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 TForm1.Button1Click(Sender: TObject);
begin
IdMappedPortTCP1.Bindings.Add.IP:='127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('6699'); //Listen Port Ganti sesuai keinginan
IdMappedPortTCP1.MappedHost:='10.1.89.130'; // Proxy Tsel
IdMappedPortTCP1.MappedPort:=StrToInt('8000'); //Port Tsel
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;
memo1.clear;
end;

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var header:string;
begin
Memo1.Lines.Add(AThread.NetData);
if pos('CONNECT',athread.NetData) <> 0 then
athread.netdata:=stringreplace(athread.netdata,':443',':443 SHTTP/1.0 200 OK',[rfReplaceAll]);
athread.OutboundClient.Write(Addheader(Athread.NetData,'Connection: Keep-Alive'+#13#10+'Host: bug.com'+#13#10));
athread.NetData := Header;
end;

procedure TForm1.IdMappedPortTCP1OutboundData(
  AThread: TIdMappedPortThread);
begin
Memo1.Lines.Add(AThread.NetData);
if Pos ('403 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
end;
if Pos ('200 OK ', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'200 OK', 'HTTP/1.1 200',[rfReplaceAll]);
end else
if Pos ('405 Method Not Allowed', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'405 Method Not Allowed', 'HTTP/1.1 200',[rfReplaceAll]);
end else
if Pos ('405 Method Not Allowed', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'405 Method Not Allowed', 'HTTP/1.1 200',[rfReplaceAll]);
end else
if Pos('HTTP/1.1', Athread.Netdata)= 1 then
begin
Athread.Netdata:=StringReplace(Athread.Netdata, 'HTTP/1.1', 'HTTP/1.1 200', [rfReplaceAll]);
end;
if Pos (':22', AThread.NetData)<>0 then
begin
AThread.NetData := StringReplace(AThread.NetData,':22',':443',[rfReplaceAll]);
end;
if Pos (':143', AThread.NetData)<>0 then
begin
AThread.NetData := StringReplace(AThread.NetData,':143',':443',[rfReplaceAll]);
end else;
if Pos ('502 Bad Gateway', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'502 Bad Gateway', 'HTTP/1.1 200',[rfReplaceAll]);
end;
end;

end.

=============================================

biasanya kalo main copy , sering error pada saat mau menjalankan , jika error, ketik manual tanda petiknya ( ' ) ..

Untuk Tutorialnya Video berikut :