CARA BUAT INJECT PEMULA

Get paid to share your links!

CARA BUAT INJECT DASAR

Oke buat sobat yang mau nyoba belajar buat inject bisa lihat langkah2'y di bawah

Untuk ramuan yg perlu di sediakan adalah sbb :

 1. 2 Buah Button
 2. 1 Panel ( Kalo Mau )
 3. 2 Bevel ( Kalo Mau )
 4. 2 Shape led
 5. 2 Edit
 6. 10 Label
 7. 2 VrNum
 8. 1 Timer
 9. 1 IdMappedPortTCP2
10. 1 IdIPWatch1
11. 1 sSkinManager1
12. 1 sSkinProvider1

Mungkin itu yg di perlukan untuk sementara pembuatan yg sederhana'


                                          UNTUK PENAMPAKAN'Y SEPERTI BERIKUT

MASUKAN DI BUTTON START
masukan code ini

procedure TForm1.Button1Click(Sender: TObject);
begin
    if Tombol then
begin
TCP.Active := False;
TCP.Bindings.Clear;
  Sleep(100);
  Button1.Caption := 'START';
  Tombol := False;
end
else
begin
  Button1.Caption := 'STOP';
TCP.Bindings.Add.IP := '127.0.0.1';
TCP.Bindings.Add.Port := StrToInt(Edit3.Text);
TCP.MappedHost :=Edit1.Text;
TCP.MappedPort := StrToInt(Edit2.Text);
TCP.Active := True;
  Tombol := True;
end;
end;



 MASUKAN DI TCP EXECUTE

procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);
var temp:string;
begin

//payload 1
if (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) then
Athread.NetData :=aThread.NetData+ 'method http://bug.com/ HTTP/1.1'+#13#10+'Host: bug.com'#13#10#13#10#13#10;

// payload 2

if pos('CONNECT',athread.NetData)<>0 then
begin

temp :='Method http://bug.com/ HTTP/1.1'#13#10#13#10#13#10#13#10;
athread.OutboundClient.Write( 'method http://bug.com/ HTTP/1.1'#13#10);
athread.OutboundClient.Write('Host: bug.com'#13#10);
athread.OutboundClient.Write('Proxy-Connection: Keep-Alive'#13#10#13#10);
athread.OutboundClient.Write(#13);
athread.OutboundClient.Write(#10);
athread.OutboundClient.Write(#13);
athread.OutboundClient.Write(#10);
athread.OutboundClient.Write(#13);
athread.OutboundClient.Write(#10);
athread.netdata := athread.NetData+#13#10#13#10 ;
end;

// payload 3
if Pos ('CONNECT', AThread.NetData) <>0 then begin
Athread.NetData :='MOVE http://bug.com/ HTTP/1.1'#13#10'Host : bug.com'#13#10#13#10;
 end;

// Payload 4
if Pos ('CONNECT', AThread.NetData) <>0 then begin
     AThread.NetData := StringReplace(AThread.NetData,'443','443@tri.co.id@',[rfReplaceAll]);
  end;

end;

MASUKAN DI TCP OUTBOUNDDATA


procedure TForm1.TCPOutboundData(
  AThread: TIdMappedPortThread);
begin
  download:= download+Length(AThread.NetData);
AThread.NetData := stringreplace(AThread.NetData,' 403 Forbidden',' 200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 Ok',[rfReplaceAll, rfIgnoreCase]); //


if Pos (' 403 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData :='HTTP/1.0 200 OK';
AThread.NetData := StringReplace(AThread.NetData,' 403 Forbidden',' 200 OK',[rfReplaceAll]);
end;

end;


MASUKAN DI TIMER

procedure TForm1.Timer1Timer(Sender: TObject);
begin

label1.Caption :=  FormatFloat('Down: ##0.## KB/s',download/1024);
label2.Caption :=  FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;
end;
end.


TERUS MASUKAN DI VRNUM
SAMA PAKE LABEL SEPERTI DI TIMER DI ATAS

 sLabel3.Caption :=  FormatFloat('0',download/1024);
sLabel4.Caption :=  FormatFloat('0',upload/1024);
VrNum1.Value := StrToInt (sLabel1.Caption);
VrNum2.Value := StrToInt (sLabel2.Caption);
download:= 0;
upload:= 0;

UNTUK LED BLINK MASUKAN CODE INI DI BAWAH 
var
  Form1: TForm1;

implementation

{$R *.dfm}

buat procedure pada project

Code:
procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;

if shape1.brush.color=clSilver then
begin
  shape1.brush.color:=clLime;
end else
begin
  shape1.brush.color:=clSilver;
end;
end;

procedure TForm1.LedBlinkDownload;
begin
shape2.Refresh;

if shape2.brush.color=clSilver then
begin
  shape2.brush.color:=clAqua;
end else
begin
  shape2.brush.color:=clSilver;
end;
end;

LALU MASUKAN CODE JADI SERTI INI DI BAWAH

  private
    { Private declarations }
  public
    { Public declarations }
  end;

Procedure LedBlinkUpload;
Procedure LedBlinkDownload;

DI EXECUTE MASUKAN INI DI BAWAH BEGIN

LedBlinkUpload;

DI OUTBOUNDDATA MASUKAN INI

LedBlinkDownload;

Get paid to share your links!

Nah kalo ga salah kurang lebih seperti itu kalo ada yg salah mohon maaf, buat sobat yg mao belajar sok tinggal
 ikuti langkah2 di atas insyaallah bisa dan sukses, kalo dah bisa kan minimal buat di pake sendiri dan ga perlu
 kesana kemari untuk cari Inject yg trial dan ga maksimal, kalo bisa sendiri kita kan bisa buat yg lebih wuzz..
 dan bisa cari bug sendiri yg masih virgin di jamin bakalan waz wiz wuz...hehehe..
Ok sob mungkin hanya itu yg bisa saya share dalam membuat Inject sederhana ala Koemazia v007, yg terakhir saya doakn
semoga sukses
=========================================================================
Untuk Tutorial Gambar.y lihat di sini

Get paid to share your links!