Tutorial Dasar Membuat Inject SSH (Lengkap + Video)

Konnichiwa (Admin Korban Anime Jepun) Kali ini PancalSSH akan memberi sebuah Ilmu kepada Pembaca PancalSSH yang setia, Membuat Inject SSH , Apa kalian berfikir membuat Inject itu sulit ? Ya bisa di bilang begitu, tapi selama Kalian berusaha dengan giat dan bisa memahami Postingan ini secara Teliti admin yakin kalian Pasti bisa , Postingan ini adalah awal bagi kalian untuk terjun kedunia Opreker Delphi, Kalian adalah calon Mastah Mastah di masa depan, Kalau bukan kalian Siapa lagi penerusnya .

Adapun Bahan Bahan yang Harus kalian Siapkan adalah diantaranya :

Delphi 7 Download di (Cari di Googel saja , belum sempat Upload)
Bug Provider, bisa di cek di Atsameip
Methode Inject, bisa di cek di Urivalet
Source Code Versi Text di sini

Tutorial Membuat Inject SSH :

1. Siapkan Sebuah Bug dan Methode Provider

2. Buka Delphi 7

3. Masukkan Source ini sebelum " Private Declaration "

pancalssh:boolean;

4. Tambahkan Komponen 1 Button dan 1 TCP

5. Klik dua kali pada Button1 kemudian masukkan Source berikut

if pancalssh then

begin

IdMappedPortTCP1.Active:=False;

IdMappedPortTCP1.Bindings.Clear;

Sleep(100);

Button1.Caption:='START';

pancalssh:=false;

end else

begin

Button1.Caption:='STOP';

IdMappedPortTCP1.Bindings.Add.IP:='127.0.0.1'; // Proxy Inject

IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('1928') // Listen Port Inject Bisa di isi sesukanya

IdMappedPortTCP1.MappedHost:='10.1.89.130'; // Proxy Telkomsel

IdMappedPortTCP1.MappedPort:=StrToInt('8000'); // Port Telkomsel

IdMappedPortTCP1.Active:=True; // Untuk Mengaktifkan TCP

pancalssh:=True;

end;

6. Klik sekali di Komponen TCP Pilih "Event" tepat di sebelah Properties , Kemudian Klik 2 kali pada "Execute" masukkan Source berikut

if pos('CONNECT', athread.NetData) <>0 then

begin

Athread.NetData:=Athread.NetData+'GET http://bugkamu.com/ HTTP/1.1'+#13#10+'Host : bughostkamu.com'+#13#10+'Connection: Keep-Alive'+#13#10#13#10;

end;

7. Masuk ke "OutBounData" di bagian bawah Execute dan masukkan Source berikut

if Pos ('403 Forbidden', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(athread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);

end else

if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(athread.NetData,'407 Proxy Authentication Required','200 OK',[rfReplaceAll]);

end else

if Pos ('302 Found', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(athread.NetData,'302 Found','200 OK',[rfReplaceAll]);

end else

if Pos ('301 Moved Permanently', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(athread.NetData,'301 Moved Permanently','200 OK',[rfReplaceAll]);

end else

if Pos ('HTTP/1.0 405 Method Not Allowed', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(athread.NetData,'405 Method Not Allowed','200 OK',[rfReplaceAll]);

end else

if Pos ('503 Service Unavailable', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(athread.NetData,'503 Service Unavailable','200 OK',[rfReplaceAll]);

end else

if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(athread.NetData,'407 Proxy Authentication Required','200 OK',[rfReplaceAll]);

end else

if Pos (' Set-Cookie', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(AThread.NetData,' Set-Cookie',' 200 OK',[rfReplaceAll]);

end else

if Pos ('HTTP/1.1 302 Moved Temporarily', AThread.NetData) <> 0 then begin

AThread.NetData := '';

end;

8. Terakhir Build Project Kamu kemudian Test Hasilnya .

Jika Tutorial di Atas Kurang Jelas Kalian bisa langsung Melihat Video Berikut :

Mencari Bug Provider

Membuat Inject SSH

Jika masih kurang jelas lagi silahkan di tanyakan di Komentar atau biar lebih nyamannya di Forum Diskusi PancalSSH . Sekian tutorial dari saya , semoga bermanfaat .