[ilhamhafidz]

Persiapan Belajar :

1. Delphi 7
2.Komponen delphi Indy
3.Komponen delphi AlphaSkin (untuk mempercantik tampilan)

Spoiler:

Sebelum belajar membuat inject sendiri pastikan komponen-komponen ini terinstall di Delphi 7

Komponen utama TCPindy
idMapperdPort


Komponen mempercanti tampilan : sSkinManager dan sSkinProvider
AlphaSkin

Source code yang di pelajari :
------------------------------------------------------------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP,
StdCtrls,ComCtrls, Winsock, jpeg, ExtCtrls, sSkinProvider, sSkinManager, acPNG,
sMemo, sCheckBox, sButton, IdIPWatch, ShellAPI, sStatusBar, XPMan,
acImage;

type
TForm1 = class(TForm)
btn1: TButton;
edt2: TEdit;
IdMappedPortTCP1: TIdMappedPortTCP;
proxy: TEdit;
port: TEdit;
sSkinManager1: TsSkinManager;
autoroute: TsCheckBox;
IdIPWatch1: TIdIPWatch;
bar: TsStatusBar;
tmr1: TTimer;
sSkinProvider1: TsSkinProvider;
XPManifest1: TXPManifest;
procedure btn1Click(Sender: TObject);
procedure IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
procedure IdMappedPortTCP1OutboundData(AThread: TIdMappedPortThread);
procedure tmr1Timer(Sender: TObject);
private
mulai:Boolean;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{$R 'RequestAdmin.RES'}

procedure TForm1.btn1Click(Sender: TObject);
var
rt: string;
del: string;
begin
rt := '/C route add 10.1.89.130 mask 255.255.255.255 '+IdIPWatch1.LocalIP;
del := '/C route delete 0.0.0.0';
if Mulai then
begin
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
Sleep(100);
btn1.Caption := 'Start';
Mulai := False;
end
else
begin
btn1.Caption := 'Stop';
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt(edt2.Text);
IdMappedPortTCP1.MappedHost := proxy.text;
IdMappedPortTCP1.MappedPort := StrToInt(port.Text);
IdMappedPortTCP1.Active := True;
Mulai := True;
if autoroute.Checked = True then
begin
ShellExecute(0, nil, 'cmd.exe', PChar(rt), nil, SW_HIDE);
ShellExecute(0, nil, 'cmd.exe', PChar(del), nil, SW_HIDE);
end;
end;
end;


procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
payload:string;
begin
payload:='HEAD [Only registered and activated users can see links Click here to register] HTTP/1.1' + #10#13 + 'Connection: Keep-alive' + #10#13 + 'Host : bug.opsel.com/' +#10#13#10#13#10#13;

if Pos('HTTP',AThread.NetData)<>0 then
AThread.NetData := AThread.NetData+payload+AThread.NetData;
end;

procedure TForm1.IdMappedPortTCP1OutboundData(
AThread: TIdMappedPortThread);
begin
if Pos (' 302 Found', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' 302 Found',' 200 OK',[rfReplaceAll]);
end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
bar.Panels[0].Text:=IdIPWatch1.LocalIP;
bar.Panels[1].Text:=IdIPWatch1.LocalName;
bar.Panels[2].Text:=TimeToStr(Now);
end;

end.
------------------------------------------------------------------------------------------------------------

[student]

min .. ane mau tnya klo buat yang nambain respon download sma upload ,,, komponennya ap ajaj trus codingnya bgaimana ....??
thanks sblumnya ....

[Daru]

makasih bro,,
sangat bermanfaat.. ane mau coba belajar dan uwik-uwik, biar mandiri bikin inject. thnks bro

[suneo_honekawa]

min .. ane mau tnya klo buat yang nambain respon download sma upload ,,, komponennya ap ajaj trus codingnya bgaimana ....??
thanks sblumnya ....

Register or login to see this content

Register or login to see this content

Register or login to see this content

Register or login to see this content

maaf kalo salah

[Ichall99]

Maaf kalau salah.. kayaknya Coding Injeck Newbie gak ada SreenShot bentuk injeck nya..
kalau bisa ScreenShot bentuk jadi Injeck nya juga om ilham..
biar tau bentuk jadi nya bagaimana & memudahkan bagi yang belajar..
tapi tetap nice share nya..

[petrikalice]

nice share gan
cocok buat ane yang nubie banget pingin belajar bikin sendiri injek
kalau boleh di kasih penjelasan juga gan fungsi2nya biar nubie kaya ane bisa sedikit mengerti

[DN13]

ane baca post diatas punya om ilham

begin
rt := '/C route add 10.1.89.130 mask 255.255.255.255 '+IdIPWatch1.LocalIP;
del := '/C route delete 0.0.0.0';
if Mulai then

susunan proses awalnya di "ROUTE ADD" akhirnya di "ROUTE DELETE"
ane(nubie) artikan bahwa injek tersebut saat jalan tanpa route karena proses akhirnya di DELETE. kalo ane salah tolong penjelasannya om ilham... thks ya om....

[lutfailham96]

tambahan, hilangin ini: XPManifest1: TXPManifest;
klw pke request admin gk ush pke xp manifest, nanti jdi gk work admin requestnya