Cara Membuat Injek dengan Delphi Plus Source Code

Untuk hari ini saya akan mencoba membuat postingan tentang bagaimana cara membuat injek yang mana sekarang banyak kita temui yang sharing membagi-bagikan suatu injek,ini adalah dasar dari injekan untuk semua operator,jadi dengan tutorial ini apabila kita ingin membuat injekan suatu operator  dengan tutorial ini bisa dijadikan suatu panduan.Dan tentunya kita akan merasa lebih puas apabila kita bisa membuatnya sendiri.

Langkah Pembuatan Injek

Baiklah sekarang langsung ke cara pembuatan injek tentunya pada PC sudah terinstall delphinya dan tentunya untuk membuat injek bukan hanya dengan Delphi tapi juga bisa dengan Visual Basic atau dengan Bahasa pemograman yang lain.
Tapi disini untuk sekarang saya akan coba membuatnya dengan Delphi dan mungkin lain waktu akan saya coba buat tutorial membuat injek dengan Bahasa pemograman yang lain.
Sekarang kita buka aplikasi delphinya dan pada Form kita tambahkan komponen:
1.    2 Buah Memo.
2.    1 Buah Label.
3.    1 Buah Edit
4.    2 Buah Button.
5.    2 Buah Shape yang berada pada tab Additional.
6.    1 Buah IdMappedPortTCP yang berada pada tab Indy Servers.
7.    1 Buah XPManifest yang berada pada tab Win32.

Saya coba menempatkan komponen-komponen tersebut pada Form seperti pada gambar dibawah ini

Penempatan komponen pada form

Setelah kita tempatkan komponen-komponen tersebut sesuai dengan keinginan kita sekarang lanjut ke pemogramannya.

Langkah Pembuatan Kode

1.Yang pertama saya akan membuat kode untuk  indikator lampu kedap-kedip/Blink yang dibuat dengan komponen shape,jadi komponen ini akan kedap-kedip pada saat proses baik itu request atau respon yang mana diwakili dengan masing-masing komponen shape.
Misal untuk request kita wakili dengan shape1 dan lampunya berwarna merah,dan untuk respond kita gunakan Shape2 dan lampunya berwarna Hijau.
Untuk kodenya masing-masing shape sebagai berikut
1.    Kita buat procedure dahulu dan tempatkan pada private
       a. Untuk lampu request kita buat procedure LampuRequest;
       b. Dan untuk lampu respond kita buat procedure LampuRespond;

Membuat procedure untuk indikator

Setelah itu kita deklarasikan masing-masing procedure tersebut
Untuk procedure LampuRequest adalah sebagai berikut:

procedure TForm1.LampuRequest;
begin
  if Shape1.Brush.Color = clWhite then
    Shape1.Brush.Color := clRed
    else
    Shape1.Brush.Color := clWhite;
end;

Dan untuk procedure LampuRespond adalah sebagai berikut:

procedure TForm1.LampuRespond;
begin
  if Shape2.Brush.Color = clWhite then
    Shape2.Brush.Color := clLime
    else
    Shape2.Brush.Color := clWhite;
end;

Penampakan dengan gambar

Procedure indikator komponen shape

2. Selanjutnya klik pada komponen IdMappedPortTCP dan pada object inspector pada MappedHost kita isi proxy opsel yang akan di buat contoh kita isi dari salah satu dari proxy opsel yang ada misalnya 10.19.19.19 dan pada MappedPort isi dengan 8080

Isi proxy operator pada IdMappedportTCP

Kemudian pada tab events dan pada OnExecute  klik 2 kali dimana kita akan buat kodenya untuk request dan kodenya seperti ini

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
  payload: String;
begin
  LampuRequest;
  Memo1.Lines.Add(AThread.NetData);
  payload := 'GET http://bugs yang masih bisa/ HTTP/1.1'#13#10 +
              'Host: bugs yang masih bisa'#13#10 +
              'Connection: Keep-Alive'#13#10#13#10#13#10;
  if Pos('CONNECT', AThread.NetData) <> 0 then
  begin
  AThread.NetData := AThread.NetData + payload;
  end;
end;

Kemudian untuk respond pada OnOutbondData kita klik 2 kali dan kita buat kodenya seperti ini

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

Gambar penampakan

Procedure Events IdmappedportTCP

3. Sekarang kita buat kode untuk tombol start klik 2 kali tombol start dan buat kodenya seperti ini

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
  IdMappedPortTCP1.Bindings.Add.Port := StrToInt(Edit1.Text);
  IdMappedPortTCP1.Active := True;
  Button1.Enabled := False;
  Button2.Enabled := True;
end;

4.    Dan sekarang kita buat kode untuk tombol stop dan kodenya kita buat seperti ini

procedure TForm1.Button2Click(Sender: TObject);
begin
  IdMappedPortTCP1.Active := False;
  IdMappedPortTCP1.Bindings.Clear;
  Button1.Enabled := True;
  Button2.Enabled := False;
end;

Begitulah kira-kira cara membuat injekan yang simple,bagi yang mau source nya dan tinggal di load bisa di ambil di Sini Source code Injek dan silahkan kembangkan mungkin nanti bisa akan jauh lebih baik,untuk password rar silahkan gunakan m4m3ns.
Salam Blogger.