Post Game

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.

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).

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;

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;

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;

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]);

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;

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.

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;

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.