Halo gan sekarang kita akan membuat inject terlebih dahulu
ada siapka komponen 2 butom yang ada menu standart dan 1 TCP yang ada di menu INDY
SERVERS
1.silakan klic butom pertama silakan ganti nama kode dengan
on mulai dan masukan kode dibawah ini
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;
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;
Kaya gambar dibawah
2.klick butom yang kedua silakan masukan kode dibawah ini
IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;
3. klick pada TCP propetis event pilih exucute maukan ode terebut
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;
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;
4. klick TCP PILIH EVENTS ONOUTBUNDCONNECT masukan code tersebut
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]);
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]);
Kaya gambar
dibawah
Silaka di
save project as klick tanda hijau diatas terimakasi
UPDATE AKUN SSH TERBARU KLIK DI SINI