26 lines
763 B
QBasic
26 lines
763 B
QBasic
|
1 LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
|
||
|
|
10 FOR I = 1 TO ARGC%-1
|
||
|
|
LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
|
||
|
|
IF TH_HASLOGIN(ARGV$(I)) = 0 THEN GOSUB 1000
|
||
|
|
21 TH_EXEC "rlogin "+ARGV$(I)
|
||
|
|
IF INSTR(DIR$, "porthack", 0) = -1 THEN GOSUB 2000
|
||
|
|
REM print ARGV$(I)+"$ ls"
|
||
|
|
REM TH_EXEC "ls"
|
||
|
|
REM PRINT ARGV$(I)+"$"
|
||
|
|
REM PRINT ARGV$(I)+"$ netstat"
|
||
|
|
REM TH_EXEC "netstat"
|
||
|
|
REM PRINT ARGV$(I)+"$"
|
||
|
|
30 NEXT I
|
||
|
|
END
|
||
|
|
|
||
|
|
1000 PRINT "No login on " + ARGV$(I)
|
||
|
|
IF INSTR(DIR$, "porthack", 0) = -1 THEN GOSUB 2000
|
||
|
|
TH_EXEC("porthack " + ARGV$(I))
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
2000 PRINT "Porthack not on " + TH_HOSTNAME$ + ". Trying to fetch it from " + LASTHOST$
|
||
|
|
TH_EXEC("ftp " + LASTHOST$)
|
||
|
|
TH_EXEC("get porthack.exe")
|
||
|
|
TH_EXEC("quit")
|
||
|
|
RETURN
|