Kamis, 16 April 2015

Cara Membuat Injek Squid Proxy Sendiri Terbaru 2015

Kali ini Saya akan berbagi info seputar Cara Membuat Injek Squid Proxy Sendiri Terbaru 2015 mungkin yang bisa anda butuhkan dalam melakukan prakteknya ok sebelumnya juga sudah saya bahas seputar Download Inject Telkomsel Terbaru 16 April 2015 ok tanpa panjang lebar lagi bagi anda yang membutuhkannya cara pembuatannya silahkan langsung disimak saja dibawah ini dan silahkan langsung praktek saja yah.

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;

Cara Buat Injek Squid Proxy

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.

11. Kalau masih bingung buatnya silahkan tonton saja video tutorial dibawah ini cara buatnya kalau anda mau tools jadinya silahkan cek KLIK DISINI, selamat menyaksikan.


Hanya itu saja informasi seputar Cara Membuat Injek Squid Proxy Sendiri Terbaru 2015 semoga bermanfaat dan terima kasih.