Tutorial Delphi 7 Injek Dasar All Operator

Selamat pagi agan-agan, semoga di pagi yang cerah ini semua yang hadir disini mendapatkan berkah. amin. :) Kali ini saya akan membagikan bagaimana cara membuat injek dasar manual proxy untuk semua operator.

Jika kalian sudah menyimaknya pasti akan sangat mudah di coba. Untuk penbuatan injek dasar ini hanya dibutuhkan 3 komponen saja, yaitu komponen Edit1, Edit2 dan IdMappedPortTCP.

Untuk source code lengkapnya lihat dibawah ini:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
XPManifest1: TXPManifest;
TCP: TIdMappedPortTCP;
procedure Button1Click(Sender: TObject);
procedure TCPExecute(AThread: TIdMappedPortThread);
procedure TCPOutboundData(AThread: TIdMappedPortThread);
private
{ Private declarations }
tombol: boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Tombol then
begin
TCP.Active := False;
TCP.Bindings.Clear;
Sleep(100);
Button1.Caption := 'CONNECT';
Tombol := False;
end else
begin
Button1.Caption := 'DISCONNECT';
TCP.Bindings.Add.IP := '127.0.0.1';
TCP.Bindings.Add.Port := StrToInt('8888');
TCP.MappedHost :=edit1.text;
TCP.MappedPort :=strtoint(edit2.text);
TCP.Active := True;
Tombol := True;
end;
end;
end;

procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);
var
pilot:string;
begin
if pos('CONNECT',athread.NetData)<>0 then
begin
pilot:= 'GET http://BUG KAMU/ HTTP/1.1'#13#10' Host: BUG KAMU'#13#10;
athread.NetData := pilot;
end;
end;

procedure TForm1.TCPOutboundData(AThread: TIdMappedPortThread);
begin
if Pos ('403 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
end else
if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin AThread.NetData := StringReplace(athread.NetData,'407 Proxy Authentication Required','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 else
if Pos ('301 Moved Permanently', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'301 Moved Permanently','200 OK',[rfReplaceAll]);
end else
if Pos ('HTTP/1.0 405 Method Not Allowed', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'405 Method Not Allowed','200 OK',[rfReplaceAll]);
end else
if Pos ('503 Service Unavailable', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'503 Service Unavailable','200 OK',[rfReplaceAll]);
end else
if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(athread.NetData,'407 Proxy Authentication Required','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 ('HTTP/1.1 302 Moved Temporarily', AThread.NetData) <> 0 then begin
AThread.NetData := '';
end;
end;

end.

Untuk memudahkan lihat  video tutorial dibawah ini

Jika masih mengalami kesulitan, langsung saja download Source Codenya dibawah ini.