Contact Admin
bandar Q
Cara Membuat Inject SSH dengan Delphi 7

Cara Membuat Inject SSH dengan Delphi 7

Pada kesempatan kali ini saya akan mencoba menjelaskan cara membuat Inject SSH dengan Delphi7, ada beberapa langkah agar Inject dapat bekerja dengan maksimal, ya itu tergantung dari konsep Payload yang anda gunakan. namun pada tutorial ini saya akan membuat versi simple nya saja, silahkan anda berkreasi setelah itu. Untuk langkah langkah nya mari kita lihat dibawah ini.

  • Buka aplikasi delphi lalu buat 2 BUAH BUTTON kaya gambar dibawah ini

cara1

  • Kemudian Cari tulisan INDY SERVERS pilih atau klik yang TCP

cara2

  • Klik pada BUTTON 1 ganti nama CAPTION terserah yang anda mau, lalu pada BUTTON 2 lalukan seperti pada BUTTON 1
  • Double klik BUTTON1 lalu masukan kode dibawah ini tepat dibawah tulisan BEGIN

IdMappedPortTCP1.Bindings.Add.Ip:=’127.0.0.1′;
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt(‘1985′);
IdMappedPortTCP1.MappedHost:=’10.1.89.130’;
IdMappedPortTCP1.MappedPort:=StrToInt(‘8000’);
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;

cara4Keterangan Kode diatas adalah :

  1. IdMappedPortTCP1.MappedHost dan  IdMappedPortTCP1.MappedPort:=StrToInt adalah proxy dan port default milik operator telkomsel ini dapat anda ganti sesuai dengan proxy dan port milik operator anda masing – masing
  2. IdMappedPortTCP1.Bindings.Add.Port adalah out port yang terhubung nantinya ke BITVISE
  • Selanjutnya Double klik BUTTON2 lalu masukan kode dibawah ini tepat dibawah BEGIN

IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;

cara5

  • Langkah selanjutnya Double klik TCP > EVENTS > ONEXECUTE lalu masukan source kode dibawah ini, namun sebelum nya hapus dulu tulisan begin dan juga silahkan ganti tulisan isi bugs opsel dengan bugs andalan anda

var
Header,Payload:string;
begin
Header := StringReplace(header,’ #13#10 + #13#10, #13#10 + ‘,’ + #13#10 + #13#10 200 ok’, [rfReplaceAll]);
Payload:=’POST http://ISI BUGS OPSEL/ HTTP/1.1 SSH-2.0-1.91 sshlib: Bitvise SSH Client (Tunnelier) 4.60’+#13#10+’User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0’+#13#10+’Connection: Keep-Alive’+#13#10+’ Host : ISI BUGS OPSEL‘#13#10+athread.NetData;
if pos(‘CONNECT’,athread.NetData) <>0 then
athread.NetData:=athread.NetData+Payload;

cara6

  • Double klik TCP > EVENTS > ONOUTBUNDCONNECT lalu ganti dengan kode berikut ini

AThread.NetData := stringreplace(AThread.NetData,’ :22 ‘,’ :443′,[rfReplaceAll]);
AThread.NetData := stringreplace(AThread.NetData,’ 403 Forbidden’,’ 200 OK’,[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,’HTTP/1.1 302 Found’,’HTTP/1.1 200 Ok’,[rfReplaceAll, rfIgnoreCase]);

cara7

  • Setelah itu silahkan anda simpan dengan cara pilih FILE dan SAVE AS lalu simpan.
  • Silahkan klik tanda SEGITIGA HIJAU jika tampilannya masih kurang srek silahkan anda edit kembali.