Cara Membuat Injek Squid Proxy Sendiri | Delphi Terbaru

Selamat pagi para blogger indonesia . Kali ini Saya akan berbagi artikel seputar Cara Membuat Injek Squid Proxy Sendiri Terbaru 2015 . langsung saja kita bahas nyah .

1. Pertama buka program delphi anda lalu buat 1 memo, 1 button, 2 edit, 1 grupbox, 1 panel,  1 TCP , 1 Combobox, lalu atur untuk nama2nya seperti gambar dibawah ini;

2. Yang kedua sisiapkan kode zonksel: boolean; diantara kode seperti dibawah ini;

  private
  zonksel: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

3. Yang ketiga klik button1/start lalu masukan kode, dan jangan lupa ubah dulu nama TCPnya menjadi Squid,:

 if Zonksel then
begin
Squid.Active := False;
Squid.Bindings.Clear;
Sleep(100);
Button1.Caption := 'ON';
zonksel := False;
end else
begin
Button1.Caption := 'OFF';
Squid.Bindings.Add.IP := '127.0.0.1';
Squid.Bindings.Add.Port := StrToInt('8877'); // ini adalah listen post
Squid.MappedHost :=edit1.text; // Ini Buat Proxy Serversnya
Squid.MappedPort := StrToIntDef(edit2.text, 8000); // ini buat port squidnya
Squid.Active := True;
zonksel := True;
end; 

4. Yang keempat klik OutboundData pada komponen TCP lalu masukan kode:

Memo1.Lines.Add(AThread.NetData);
if (pos('302 Moved Temporarily',athread.netdata)>0) or (pos('302 Found',athread.netdata)>0)  or (pos('403 Forbidden',athread.netdata)>0) then begin
AThread.NetData :='HTTP/1.1 200 OK';
end else

5. Yang kelima lalu klik Execute pada komponen TCP lalu masukan kode (Hapus Begin):

var
Request: string;
begin
Memo1.Lines.Add(AThread.NetData);
if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP/1.0',athread.NetData)<>0) then begin
Request :='GET http://Bug/ HTTP/1.1'+#13#10#10#10#10#10;
athread.NetData:= Request + Athread.Netdata;
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 200 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]);
end else

// Tulisan Bug Ganti dengan Bug host andalan anda.

6. Yang keenam lalu klik combobox dan masukan kode:

if ComboBox1.Text ='80' then
 edit2.Text:= '80';
if ComboBox1.Text ='443' then
 edit2.Text:= '443';
if ComboBox1.Text ='3128' then
 edit2.Text:= '3128';
if ComboBox1.Text ='8080' then
 edit2.Text:= '8080';

7. Masih di combobox cari tulisan Item - Tstrings klik aja dipinggirnya lalu masukan kode:

80
443
3128
8080

8. Untuk menghilangkan tulisan memo1 di depan/form 1 klik formya lalu masukan kode:

memo1.Clear;

9. Yang kesembilan agar formnya tidak bisa ditarik kesamping klik form1 > event > oncanresize lalu masukan kode:

resize:= false;

10 Selesai dan silahkan bulid atau run untuk melihat hasilnya dan Dibawah ini adalah contoh listing lengkapnya:

unit Squid_Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Squid: TIdMappedPortTCP;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure SquidOutboundData(AThread: TIdMappedPortThread);
    procedure SquidExecute(AThread: TIdMappedPortThread);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
  zonksel: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Zonksel then
begin
Squid.Active := False;
Squid.Bindings.Clear;
Sleep(100);
Button1.Caption := 'ON';
zonksel := False;
end else
begin
Button1.Caption := 'OFF';
Squid.Bindings.Add.IP := '127.0.0.1';
Squid.Bindings.Add.Port := StrToInt('8877');
Squid.MappedHost :=edit1.text;
Squid.MappedPort := StrToIntDef(edit2.text, 8000);
Squid.Active := True;
zonksel := True;
end;
end;

procedure TForm1.SquidOutboundData(AThread: TIdMappedPortThread);
begin
Memo1.Lines.Add(AThread.NetData);
if (pos('302 Moved Temporarily',athread.netdata)>0) or (pos('302 Found',athread.netdata)>0)  or (pos('403 Forbidden',athread.netdata)>0) then begin
AThread.NetData :='HTTP/1.1 200 OK';
end else
 end;

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.SquidExecute(AThread: TIdMappedPortThread);
var
Request: string;
begin
Memo1.Lines.Add(AThread.NetData);
if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP/1.0',athread.NetData)<>0) then begin
Request :='GET http://Bug/ HTTP/1.1'+#13#10#10#10#10#10;
athread.NetData:= Request + Athread.Netdata;
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 200 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]);
end else
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text ='80' then
 edit2.Text:= '80';
if ComboBox1.Text ='443' then
 edit2.Text:= '443';
if ComboBox1.Text ='3128' then
 edit2.Text:= '3128';
if ComboBox1.Text ='8080' then
 edit2.Text:= '8080';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
resize:= false;
end;
end. 
Sekian dan terima kasih , semoga bermanfaat !
Sumber : http://aimeegracecatering.blogspot.sg/