Jumat, 27 Maret 2015

Download Source Code Dasar Inject Squid Proxy Terbaru 2015

Kali ini Saya Mau Berbagi Seputar Download Source Code Dasar Inject Squid Proxy Terbaru Juni Juli Agustus September Oktober November Desember 2015 Mungkin Dari anda yang ingin mempelajarinya atau mencoba membuatnya silahkan simak dibawah ini saja yah, dan sebelumnya juga sudah saya bahas seputar Download Inject Squid Proxy Terbaru 27 Maret 2015 All Operator ok karena ini merupakan paling dasar dari source kode injek squid proxy tinggal anda kembangkan saja yah, dan silahkan disimak.

Source Code Dasar Injek Squid Proxy


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    IdMappedPortTCP1: TIdMappedPortTCP;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
    procedure IdMappedPortTCP1OutboundData(AThread: TIdMappedPortThread);
    procedure FormCreate(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin  // Dalam 1 Procedure Jika Terdapat 1 Begin Biasakan Harus diakhiri dengan 1 end;
IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';  // Ini Aadalah Local IP
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('8877');  // Ini adalah Listen Port
IdMappedPortTCP1.MappedHost:=edit1.text; // Ini adalah Untuk Host Proxy
IdMappedPortTCP1.MappedPort:=StrToInt(edit2.text);  // Ini adalah untuk Port Proxy
IdMappedPortTCP1.Active:=True;  // Koneksi TCP Diaktifkan
Button1.Enabled:=False;   // Perintah Button di Tutup
Button2.Enabled:=True;    // Perintah Button Dibuka
end;

procedure TForm1.Button2Click(Sender: TObject);
begin  // Dalam 1 Procedure Jika Terdapat 1 Begin Biasakan Harus diakhiri dengan 1 end;
IdMappedPortTCP1.Active:=False;  // Koneksi TCP Dimatikan
IdMappedPortTCP1.Bindings.Clear;   // Perintah Membersihkan Koneksi TCP
Button1.Enabled:=True;       // Perintah Button Dibuka
Button2.Enabled:=False;    // Perintah Button di Tutup
end;

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
begin   // Dalam 1 Procedure Jika Terdapat 1 Begin Biasakan Harus diakhiri dengan 1 end;
if (pos('CONNECT',athread.NetData)<>0) or (pos('HEAD',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) then  // Ini Adalah Bagian Awal Client Melakukan Panggilan Header
Athread.NetData :=aThread.NetData+ 'GET http://freezone.google.com:80/ HTTP/1.1'+#10#13#10#13#10#13+'Connection: Keep-Alive'+#10#13+'Host: freezone.google.com:80'#10#13;  // Ini Adalah Perintah Requset Client Ke Servers
end;

procedure TForm1.IdMappedPortTCP1OutboundData(
  AThread: TIdMappedPortThread);
begin // Dalam 1 Procedure Jika Terdapat 1 Begin Biasakan Harus diakhiri dengan 1 end;
Memo1.Lines.Add(AThread.NetData);  // Ini adalah Log Data Untuk Respone Header Yang ditampilkan di Memo1 pada Form1
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 503 Forbidden','HTTP/1.1 200 OK', [rfReplaceAll]);  // Ini Adalah Bagian Untuk Replace Respone Header
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 402 Forbidden','HTTP/1.1 200 OK', [rfReplaceAll]);  // Ini Adalah Bagian Untuk Replace Respone Header
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 402 Bad Request','HTTP/1.1 200 OK', [rfReplaceAll]);  // Ini Adalah Bagian Untuk Replace Respone Header
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 402 Bad Request','HTTP/1.1 200 OK', [rfReplaceAll]);    // Ini Adalah Bagian Untuk Replace Respone Header
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 502 Gateway Timeout','HTTP/1.1 200 OK', [rfReplaceAll]);  // Ini Adalah Bagian Untuk Replace Respone Header
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 502 Internal Server Error','HTTP/1.1 200 OK', [rfReplaceAll]);  // Ini Adalah Bagian Untuk Replace Respone Header
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 402 not authenticated','HTTP/1.1 200 OK', [rfReplaceAll]);   // Ini Adalah Bagian Untuk Replace Respone Header
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 100 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]); // Ini Adalah Bagian Untuk Replace Respone Header
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear; // Ini adalah untuk menghilangkan Tulisan memo1 didepan pada form1
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 resize:= false; // Ini Adalah Perintah Agar Form1 Tidak Bisa Ditarik Ke Samping Ketika Sudah di Build
end;
end.

Selanjutnya; Cara Mempercepat Koneksi Internet Dengan Dialer ICCID Protection

 Untuk Contoh Source Code jadinya silahkan Download Disini untuk passrarnya adalah jalanjalanyuk  Hanya Itu Saja Informasi Seputar Download Source Code Dasar Inject Squid Proxy Terbaru 2015 Semoga bermanfaat dan membantu, Terima kasih.