Rabu, 07 September 2016

Cara Membuat Injek Sendiri Dengan Delphi XE Indy 10 Terbaru 2016

06 September 2016 - www.indoblog.me Ok sobat Blogger silahkan langsung disimak tips Cara Membuat Injek Sendiri Dengan Delphi XE Indy 10 Terbaru 2016 mungkin tutorial cara bikin dan buat inject dengan delphi 7 bukanlah hal baru lagi karena sudah bejibun yang bahasnya, oke pada kesempatan kali ini mimin akan kasih tips cara buat injector ssh internet gratis dengan delphi XE dan kebetulan admin sendiri menggunakan Delphi XE10 (RAD Studio 10 Seattle).

Yang jadi pertanyaannya apakah payload maupun listing program untuk indy 10 dan indy 10 berbeda ya tentu saja berbeda contohnya adalah payload yang untuk delphi 7 itu termasuk indy 9 okelah biar tidak pada bingung lagi langsung saja dipraktekin, oh iya nanti juga dilain kesempatan waktu saya juga akan shareing tutorial bikin injek versi android (apk file) mungkin anda juga pernah menggunakan aplikasi injek android berbasis apk,, contohnya aplikasi paling hot untuk android adalah HTTP Injector, nah nanti kita akan coba belajar cara membuat injek untuk android, karena selama pantauan admin memang masih jarang ada yang share tentang hal tersebut.


Buat Inject Apk Android Dengan Delphi XE10

Baca Juga: Cara Buat Ballon Message Minimize To Tray Keren dan Menarik Dengan Delphi

Ok untuk versi indy 10 anda bisa menggunakan versi delphi dibawah XE10 misal menggunakan versi XE8 harap diingat bahwa instalasi delphi XE10 saja bergiga-giga jadi pastikan system operasi anda memadai, terutama ram anda harus minimal 1GB kebetulan PC saya ramnya sudah 8GB okelah langsung simak tutorialnya dibawah ini:

1. Untuk Contoh Payload Delphi XE/Indy10 Buat Telkomsel, XL, Axis, THree , Indosat Silahkan Lihat DISINI , Pastikan anda sudah mengunduh Delphi XE versi berapa saja karena sudah termasuk indy 10 tinggal cari-cari saja di google yah, kemudian silahkan buka dan buatlah sebuah folder kosong di hardisk D atau terserah anda untuk menaruh hasil save asnya nanti, kemudian pilih FILE > NEW > VCL FORM APPLICATION - DELPHI , kalau anda mau membuat aplikasi hp pilih saja yang dibawahnya.

Membuat Aplikasi Android dan Iphone Dengan Delphi XE1

2. Kemudian silahkan tambahkan 1 Button, 1 Edit dan komponen tersebut ada di palette standar karena sama dengan delphi yang versi sebelumnya juga :D

Membuat Aplikasi Android dan Iphone Dengan Delphi XE2

3. Kemudian tambahkan komponen mappedporttcp ada di palette indy server dan masih sama juga seperti di delphi sebelumnya juga.

Membuat Aplikasi Android dan Iphone Dengan Delphi XE3

4. Untuk penulisan kode program simplenya biar tidak ribet dan pusing ke andanya silahkan klik TOGGLE FORM lihat gambar dibawah ini saja.

Membuat Aplikasi Android dan Iphone Dengan Delphi XE4

5. Kemudian silahkan masukan kode dibawah ini tepat dibawah implementation

uses IdCoder, IdCoder3to4, IdCoderMIME, IdGlobal;

Membuat Aplikasi Android dan Iphone Dengan Delphi XE5

6. Kemudian silahkan anda tambahkan kode dibawah ini tepat dibawah {$R *.dfm} kode yang digambar dengan yang diberikan gunakan atau copas saja semuanya yang dibawah karena digambar hanya sebagai contoh saja:

function netstring(B: TIdContext): string;
var S: String;
begin
  S := TIdEncoderMIME.EncodeBytes(TIdMappedPortContext(B).NetData);
  S := TIdDecoderMIME.DecodeString(S);
  Result := S;
end;

function netbyte(S: string): TIdBytes;
var B: TIdBytes;
begin
  S := TIdEncoderMIME.EncodeString(S);
  B := TIdDecoderMIME.DecodeBytes(S);
  Result := B;
end;

function AddHeader(S, Header:string):string;
begin
 S:= StringReplace(S, #13#10 + #13#10, #13#10 + Header + #13#10 + #13#10, [rfReplaceAll]);
 Result:= S;
end;

function Middle(netdata, M:string):string;
begin
 M := StringReplace(netdata,':',M +':',[rfReplaceAll]);
 Result := M;
end;

function Back(netdata, B:string):string;
begin
 B := StringReplace(netdata,' HTTP',B + ' HTTP',[rfReplaceAll]);
 Result := B;
end;

function Front(netdata, F:string):string;
begin
 F := StringReplace(netdata,'CONNECT ','CONNECT '+F,[rfReplaceAll]);
 Result := F;
end;


Membuat Aplikasi Android dan Iphone Dengan Delphi XE5

7. Kemudian silahkan double klik button1 lalu masukan code dibawah ini:

if Button1.Caption = 'Start' then begin
    IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1'; 
    IdMappedPortTCP1.Bindings.Add.Port := StrToInt(Edit1.Text); // Listen On Port
    IdMappedPortTCP1.MappedHost := '10.1.89.130'; // Proxy Server ISP
    IdMappedPortTCP1.MappedPort := 8000; // Proxy Port ISP
    IdMappedPortTCP1.Active := True;
    Button1.Caption := 'Stop';
  end else begin
    IdMappedPortTCP1.Active := False;
    IdMappedPortTCP1.Bindings.Clear;
    Button1.Caption := 'Start';
  end;

Membuat Aplikasi Android dan Iphone Dengan Delphi XE7

8. Kemudian beralih ke mappedporttcp > object inspector > events > onexecute sebenarnya urutan ini sama dengan yang delphi 7 lalu masukan kode dibawah ini, perhatikan baik-baik gambarnya;

var
payload: string;
begin
if (pos('CONNECT',netstring(AContext))<>0) or (pos('HTTP',netstring(AContext))<>0) then
  begin
    payload := 'GET http://my.telkomsel.com/ HTTP/1.1'+#13#10+
           'Host: my.telkomsel.com'+#13#10+
           'X-Forward-Host: today.line.me'+#13#10+
           'Connection: Keep-Alive'+#13#10;
TIdMappedPortContext(AContext).OutboundClient.IOHandler.Write(Netbyte(AddHeader(NetString(AContext),'Proxy-Connection: Keep-Alive')));
TIdMappedPortContext(AContext).NetData := Netbyte(AddHeader(NetString(AContext),'User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0'));
TIdMappedPortContext(AContext).NetData := Netbyte(StringReplace(NetString(AContext),'HTTP','SHTTP/1.0 200 OK',[rfReplaceAll]));
TIdMappedPortContext(AContext).NetData := Netbyte(NetString(AContext) + payload);
  end;

Membuat Aplikasi Android dan Iphone Dengan Delphi XE8

9. Kemudian silahkan masuk ke mappedporttcp > object inspector > events > onoutbounddata lalu masukan kode dibawah ini;

TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'502 Bad Gateway','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'408 Request Time-out','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'404 Not Found','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'403 Forbidden','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'400 Bad Request','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'408 Request Time-out','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'307 Temporary Redirect','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'302 Found','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'302 Moved Temporarily','200 OK',[rfReplaceAll]));
  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'301 Moved Permanently','200 OK',[rfReplaceAll]));

Membuat Aplikasi Android dan Iphone Dengan Delphi XE9

10. Kemudian silahkan save as atau coba tekan f9 atau tekan RUN bisa anda lihat gambar segitiga hijau klik saja yang itu maka harusnya seperti gambar dibawah ini, oh iya untuk hasil build project anda bisa anda lihat didalam isi folder 32 karena saya instal delphi ini di x86 walaupun system operasi windows saya menggunakan x64 tapi saya instal di x86 buka saja didalamnya harusnya ada file projectnya.

Membuat Aplikasi Android dan Iphone Dengan Delphi XE10

Ok dan jika anda sebelumnya pernah menginstal delphi 7 maka untuk membuka kembali project delphi xe tersebut adalah KLIK KANAN > OPEN WITH > EMBARCADERO RAD STUDIO LAUNCER FOR WINDOWS dan jangan langsung di klik, ok jika anda yang membutuhkan source code pada tutorial ini silahkan bisa anda download secara gratis DISINI dan passrarnya silahkan copas URL dari postingan ini saja.

Lihat Juga: Internet Access With Free Proxy List Server Update September 2016

Ok Guys Itu saja dulu ya info dengan Cara Membuat Injek Sendiri Dengan Delphi XE Indy 10 Terbaru 2016 semoga bermanfaat dan membantu dan terima kasih anda telah bersedia menyempatkan belajar bahasa program delphi, Wassalam.


EmoticonEmoticon