Sabtu, 03 September 2016

Cara Membuat Injek Mode Enskripsi Dengan Delphi 7 Terbaru 2016

Sabtu 03 September 2016 www.indoblog.me Hallo Selamat Malam Minggu Bray Langsung Saja simak ya bray info Dengan Cara Membuat Injek Mode Enskripsi Dengan Delphi 7 Indy 9 Terbaru 2016 bagi para programmer jaringan internet pasti sudah pada tahu atau bahkan bisa dianggap paling basi tutorial ini ya sudahlah bagi anda yang hobi dengan ngoprek Inject internet gratis langsung saja simak ulasannya dibawah ini:

Injek mode enskripsi memang akan sangat sulit dideteksi jenis hashnya atau jenis encodingnya karena berbeda dengan injek operator yang kebanyakan walaupun dipasang anti sniffer bukanlah hal tabu masih bisa diintip isinya atau bug host didalamannya maka dengan tutorial ini akan sedikit memberikan tingkat keamanan yang lebih baik karena aplikasi sniffer tidak akan mudah membaca isi dari payload aslinya.

Lihat Juga: Aplikasi Untuk Internet Gratis All Operator Terbaru 2016

Kriptografi , Enskripsi dan Deskripsi


Mode enskripsi yang akan digunakan pada project kali ini adalah dengan mode bash64 jadi pastikan ketika anda memasukan headernya usahakan menggunakan URL yang sangat panjang agar mode enskripsinya lebih panjang dan para pembongkar injek pasti akan lebih sulit menggunakan atau memanfaatkan bug tersebut, karena 1 string saja beda baca maka hasil pengembaliannya (return value) tidaklah tepat dan menjadi lebih teracak, biar tidak pada bingung silahkan langsung simak saja tutorialnya dibawah ini.

1. Langkah pertama silahkan bukan program delphi anda, disini atau pada tutorial ini admin menggunakan delphi 7 lite (versi terakhir) kemudian silahkan desain kira-kira seperti pada gambar dibawah ini masukan 1 memo (hanya untuk log saja), 1 button (buat jalaninnya),1 mapped (ada pada palette indy servers).

Tutorial Membuat Inject Internet Gratis Terbaru 2017

2. Yang kedua kemudian silahkan Double Klik Button 1 lalu masukan coding dibawah ini:

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

Tutorial Membuat Inject Internet Gratis Terbaru 2018

3. Yang ketiga kemudian setelah {$R *.dfm} masukan coding dibawah ini:

function Decryption(Value: String): String;
const b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
  function DecodeChunk(const Chunk: String): String;
  var
    W: LongWord;
    i: Byte;
  begin
    W := 0; Result := '';
    for i := 1 to 4 do
          if Pos(Chunk[i], b64alphabet) <> 0 then
            W := W + Word((Pos(Chunk[i], b64alphabet) - 1)) shl ((4 - i) * 6);
    for i := 1 to 3 do
          Result := Result + Chr(W shr ((3 - i) * 8) and $ff);
  end;
begin
  Result := '';
  if Length(Value) mod 4 <> 0 then Exit;
  while Length(Value) > 0 do
  begin
    Result := Result + DecodeChunk(Copy(Value, 0, 4));
    Delete(Value, 1, 4);
  end;
end;

Tutorial Membuat Inject Internet Gratis Terbaru 2019

4. Yang keempat kemudian silahkan masuk pada IdMappedPortTCP1 > Events > OnExecute lalu masukan coding dibawah ini, (LIHAT GAMBAR BIAR TIDAK SALAH);

var
  payload : string;
begin
  Memo1.Lines.Add(AThread.NetData);
    if (pos('CONNECT',AThread.NetData)<>0) or (pos('HTTP',AThread.NetData)<>0) then
  begin
payload := 'GET '+Decryption('http://www.example.com/)+' HTTP/1.1'+#13#10+
             'Host: '+Decryption('www.example.com')+#13#10+
             'Connection: Keep-Alive'+#13#10#13#10;
  AThread.NetData := AThread.NetData + Payload;
end;

Tutorial Membuat Inject Internet Gratis Terbaru 2020

5. Tahap yang kelima kemudian silahkan masuk pada IdMappedPortTCP1 > Events > OutboundData lalu masukan coding dibawah ini: (Lalu Coba RUN atau F9 dulu) apakah ada yang error atau tidak?

 Memo1.Lines.Add(AThread.NetData);
AThread.NetData := StringReplace(AThread.NetData,'302 Found','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'respone lain','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'respone lain','200 OK',[rfReplaceAll]);

Tutorial Membuat Inject Internet Gratis Terbaru 2021

6. Contoh dibawah ini saya akan mengenskripsi bug host dari situs facbook, contoh payload awalnya seperti dibawah ini:

payload := 'GET '+Decryption('http://0.facebook.com/free')+' HTTP/1.1'+#13#10+
             'Host: '+Decryption('0.facebook.com')+#13#10+
             'Connection: Keep-Alive'+#13#10#13#10;
  AThread.NetData := AThread.NetData + Payload;

Tutorial Membuat Inject Internet Gratis Terbaru 2022
7. Untuk Melakukan enskripsi datanya silahkan gunakan bash64 online tools DISINI kemudian silahkan masukan bug host milik anda contoh seperti dibawah ini, lihat gambarnya. (KLIK ENCODE) untuk mengembalikan valuenya silahkan coba cek klik decode.

Tutorial Membuat Inject Internet Gratis Terbaru 2023

8. Maka setelah payload di enskripsi maka hasilnya akan seperti dibawah ini:

payload := 'GET '+Decryption('aHR0cDovLzAuZmFjZWJvb2suY29tL2ZyZWU=')+' HTTP/1.1'+#13#10+
             'Host: '+Decryption('MC5mYWNlYm9vay5jb20=')+#13#10+
             'Connection: Keep-Alive'+#13#10#13#10;
  AThread.NetData := AThread.NetData + Payload;

Tutorial Membuat Inject Internet Gratis Terbaru 2023
9. Yang jadi pertanyaannya apakah bug tersebut memang bisa digunakan kan bahasanya jadi bahasa alien, ya tentu saja bisa dong silahkan langsung dicoba diperhatikan, nah inilah beberapa config yang sering dibuat dengan mode kunci dan silahkan pelajari kembali.

Lihat Juga: Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016

Untuk Contoh Source Codenya yang diatas silahkan klik DISINI (pass rar copy url lengkap postingan artikel halaman ini) dan hanya itu saja dulu bray info tentang Cara Membuat Injek Mode Enskripsi Dengan Delphi 7 Indy 9 Terbaru 2016 semoga bermanfaat dan menjadi salah satu tutorial yang bermanfaat untuk anda dan atas kekurangan postingan ini mohon dimaafkan yah, walaupun tutorial buat injek sudah dibahas lama sekitar 2014 silam tidak ada salahnya mimin coba ulas dengan trik trik dan tekhnik terbaru.


EmoticonEmoticon