Cara Membuat Injek Menggunakan Delphi XE7

Halo kawan2, kali ini  '  The Nubitol  '  akan Sedikit memberikan Tutorial cara membuat injek sederhana menggunakan Delphi XE7

Bagaimana Kelanjutanya, silahkan di simak,.


1. Kita buka dulu Delphi XE7 Embarcadero nya dulu ya  ..

File - New - Vcl Forms Application - Delphi

Sebelumnya kita set dulu output folder EXE nya

Kita Set Sekalian ICO nya..

Selanjutnya . . . .

2. Kita buat 2 Button

3. Kita buat 3 Edit

4. Kita ambil IdMappedPortTCP buat execute dan outbound nya

Kl mau di tambahkan shape, untuk lampu led kedip2 nya

5. Kita ambil 2 shape ,trs kita pasang dulu prosedur nya

( Untuk menghemat waktu, kebetulan sudah saya tulis dulu di notepad ini  :D )

Lupa, psng prosedure


procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;

if shape1.brush.color=clWhite then
begin
  shape1.brush.color:=cllime;
end else
begin
  shape1.brush.color:=clWhite ;
end;

end;

procedure TForm1.LedBlinkDownload;
begin
shape2.Refresh;

if shape2.brush.color=clWhite  then
begin
  shape2.brush.color:=clRed;
end else
begin
  shape2.brush.color:=clWhite;
end;

end;

Nah Sekarang mari kita mulai pembuatan injek nya . . .

Sebelumnya kita psng dulu prosedure buat net.data nya

//== > ini string netdata
function netstring(A : TidContext): string;
var
B : String;
begin
B := TIdEncoderMIME.EncodeBytes(TIdMappedPortContext(A).NetData);
B := TIdDecoderMIME.DecodeString(B);
Result := B;
end;

//== > ini merubah string menjadi netdata
function netbyte(B : string) : TIdBytes;
var
A : TIdBytes;
begin
B := TIdEncoderMIME.EncodeString(B);
A := TIdDecoderMIME.DecodeBytes(B);
Result := A;
end;

Di Uses tambahkan . . .  ,IdCoder,IdGlobal, IdCoder3to4, IdCoderMIME

Lanjut ke tombol Button nya

a. Button1
    Kita beri nama tombol nya dengan START di Caption nya
    Kita klik 2x tombol button1

Kita isikan code berikut :

IdMappedPortTCP1.Active := false;
IdMappedPortTCP1.Bindings.Clear;
IdMappedPortTCP1.MappedHost:= Edit1.Text;
IdMappedPortTCP1.MappedPort:= StrToInt(Edit2.Text);
IdMappedPortTCP1.Bindings.Add.IP:= '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:= StrToInt(Edit3.Text);
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=true;

b.  Button2
     Kita beri nama tombol nya dengan STOP di Caption nya
     Kita klik 2x tombol button2

Kita isikan code berikut :

IdMappedPortTCP1.Active := false;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=true;
Button2.Enabled:=false;

Sekarang kita ke IdMappedPortTCP Execute . . .

kemudian kita masukan :

var
netdata:string;
begin

LedBlinkUpload;
If Pos('HTTP', netstring(AContext)) <>0 then
begin
netdata := netdata+'METODE http://BUG/ HTTP/1.1'#13#10'connection: keep-Alive'#13#10'Host: BUG'#10#10#10;
TIdMappedPortContext(AContext).NetData := netbyte(netdata);
end;

Sekarang kita ke IdMappedPortTCP Outbound Data . . .

kemudian kita masukan :

LedBlinkDownload;
if (Pos('302 Found',netstring(AContext)) <> 0) then
begin
TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(netstring(AContext),'302 Found','200 OK',[rfReplaceAll]));
end;

Karena kita membuat injek telkampret,kita isikan dulu di edit2 yg sdh kita psng td
edit1 = host p , edit2=port edit3 = isten port injek kita

sekarang kita rapikan dulu form exe nya dan kita ksh nama tool injek kita

Sekarang kita Run dan kita tester jalan apa ndak injek nya

Oke sudah jalan,.

Harap maklum kl agak lelet,. soale ini ssh gratisan dr anu.com  :D

Sekarang Kta tutup dulu trs kita save project kita

Jangan Lupa , waktu save di bagian Project jg di Compile projet-OK
sama Build Project-OK

Sekarang kita cek di folder output ,biar n kl mau di buka sdh ada di sana project nya

Kita cek ke folder output dl,biat nt kl mau di buka project nya sdh siap

Demikian Sedikit Tutorial Cara Membuat Injek Menggunakan Delphi XE7

Sampai Jumpa di Video Tutorial lainya by The Nubitol

Cheerrrrrrsssss . . . .

Download