Home Delphi7 MappedPortTcp Squid Tre

MappedPortTcp Squid Tre

Kesempatan kali ini saya akan membagikan source simple project idmappedporttcp, biasa di gunakan untuk mengakses internet menggunakan bughost provider, mungkin sudah tidak asing lagi di kalangan gretongan dan lebih akrab bagi mereka dengan sebutan inject, jika anda baru dalam hal gratisan sebaiknya anda melihat tutorial penggunaan alat ini.

Disini saya menggunakan tambahan komponen alphaskin, untuk memperindah form atau tampilan project, selain itu komponen yang di gunakan adalah standar delphi, untuk versi delphi saya masih pada delphi 7, saya lebih senang dengan versi lama ini karena di samping ringan, software ini juga sangat sederhana dan bisa dengan capat di pahami sekalipun baru dalam hal pemograman.
Berikut source kode :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP,
  StdCtrls, ExtCtrls, sComboBox, sSkinProvider, sSkinManager, ComCtrls,
  sLabel, IdIPWatch, Winsock, ShellAPI, sEdit, sBevel, sStatusBar;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    TCP: TIdMappedPortTCP;
    Timer1: TTimer;
    Label3: TLabel;
    Label4: TLabel;
    sEdit1: TsEdit;
    sBevel1: TsBevel;
    sComboBox1: TsComboBox;
    hosts: TsEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TCPExecute(AThread: TIdMappedPortThread);
    procedure FormCreate(Sender: TObject);
    procedure TCPOutboundData(AThread: TIdMappedPortThread);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  request: string;
  Download : Integer;
  Upload : Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
request:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TCP.Bindings.Add.IP := '127.0.0.1';
TCP.Bindings.Add.Port := StrToInt('8888');
TCP.MappedHost := '49.213.20.11';
TCP.MappedPort := StrToInt('80');
TCP.Active:=True;
  Button1.Enabled:=False;
  Button2.Enabled:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TCP.Active:=False;
TCP.Bindings.Clear;
  Button1.Enabled:=True;
  Button2.Enabled:=False;
end;

procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);
var Bughost:string;
begin
upload:= upload+Length(AThread.NetData);
  if (Pos('GET', AThread.NetData)) or (Pos('POST', AThread.NetData)) or (Pos('CONNECT', AThread.NetData)) <> 0 then 
  begin
  AThread.NetData := StringReplace(athread.NetData,'443','443@'+Bughost+'@',[rfReplaceAll]);
  end;
end;

procedure TForm1.TCPOutboundData(AThread: TIdMappedPortThread);
begin
download:= download+Length(AThread.NetData);

if Pos ('403 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
 end else
if Pos ('400 Bad Request', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'400 Bad Request','200 OK',[rfReplaceAll]);
 end else
 if Pos (' Set-Cookie', AThread.NetData) <>0 then begin
     AThread.NetData := StringReplace(AThread.NetData,' Set-Cookie',' 200 OK',[rfReplaceAll]);
 end else
if Pos ('302 Found', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'302 Found','200 OK',[rfReplaceAll]);
   end;
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label3.Caption :=  FormatFloat('Down: ##0.## KB/s',download/1024);
label4.Caption :=  FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;
end;

end.

Silahkan kreasikan dan kembangkan sesuai keinginan anda dan jangan lupa untuk membagikannya jika telah selesai di buat pada grup facebook saya, semoga artikel ini dapat membantu teman-teman dalam pembuatan project idmappedporttcp.

MappedPortTcp Squid Tre

Related Post

1 comments:

Send Quick Massage

Pages