1: DECLARE SUB EncryptScreen () 2: DECLARE FUNCTION getpass$ (prompt$) 3: DECLARE SUB center (t$) 4: DECLARE SUB PopupWindow (lx!, ly!, sx!, sy!, fc!, bc!, cap$) 5: DECLARE SUB Sleepa (a!) 6: 20 xx = 21: yy = 49 7: COLOR 15, 1: CLS 8: COLOR 15, 4: center "N.A.S.A. Satellite Remote Systems": COLOR 15, 1 9: IF asd = 1 THEN Sleepa .3: PRINT "Unable connect with remote host.": END 10: LINE INPUT "Login: ", login$ 11: passwd$ = getpass$("Password: ") 12: IF login$ = "root" AND (passwd$ = "cracker" OR passwd$ = "r00t") THEN ELSE PRINT "[" + TIME$ + "] Invaild login attempt for " + login$ + " logged.": END 13: IF passwd$ = "cracker" THEN 14: CLS 15: COLOR 15, 4: center "N.A.S.A. Remote Console: User: (NULL)": COLOR 15, 1 16: PRINT "+v2+ Password cracker activated" 17: PRINT "+v2+ Press any key to begin cracking." 18: a$ = INPUT$(1) 19: PopupWindow xx, yy, 3, 25, 15, 4, "Cracking" 20: VIEW PRINT xx + 1 TO xx + 3 21: fill$ = STRING$(19, " ") + "r00t" 22: cracked$ = "" 23: cntr = 0 24: LOCATE , 1: COLOR 15, 1: PRINT STRING$(yy - 1, 32); : COLOR 15, 4: PRINT "º"; STRING$(23, 42); "º"; : COLOR 15, 1: PRINT ; 25: FOR i = 1 TO 23 26: FOR q = 32 TO 255 27: cntr = cntr + 1 28: LOCATE , 1: COLOR 15, 1: PRINT STRING$(yy - 1, 32); : COLOR 15, 4: PRINT "º"; cracked$; CHR$(q); STRING$(22 - LEN(cracked$), 42); "º"; : COLOR 15, 1: PRINT ; 29: VIEW PRINT 6 TO xx - 1 30: LOCATE xx - 1, 1 31: PRINT "Invalid Password attempt: "; cntr 32: VIEW PRINT xx + 1 TO xx + 3 33: Sleepa .002 34: NEXT q 35: cracked$ = cracked$ + MID$(fill$, i, 1) 36: NEXT i 37: LOCATE , 1: COLOR 15, 1: PRINT STRING$(yy - 1, 32); : COLOR 15, 4: PRINT "ºCracked password: r00t º"; : COLOR 15, 1: PRINT ; 38: BEEP 39: VIEW PRINT 1 TO 25 40: LOCATE 4, 1: PRINT "+v2+ Cracked. Press any key to login." 41: a$ = INPUT$(1) 42: END IF 43: COLOR 7, 0 44: CLS 45: COLOR 15, 4: center "N.A.S.A. Remote Console: User: root": COLOR 7, 0 46: VIEW PRINT 2 TO 25 47: 10 LINE INPUT "nasa.gov:~# ", tcmd$ 48: Sleepa .2 49: IF INSTR(tcmd$, " ") <> 0 THEN cmd$ = LEFT$(tcmd$, INSTR(tcmd$, " ") - 1): arg$ = RIGHT$(tcmd$, LEN(tcmd$) - INSTR(tcmd$, " ")) ELSE cmd$ = tcmd$: arg$ = "" 50: IF cmd$ = "" THEN GOTO 10 51: IF cmd$ = "exit" THEN PRINT "logout": END 52: IF cmd$ = "ls" AND arg$ = "" THEN 53: COLOR 9, 0: PRINT "x33/ starwars/ stealth/"; 54: COLOR 7, 0: PRINT " nasa.sat.codes" 55: Sleepa .15 56: COLOR 9, 0: PRINT "nsa/ disaster/ bluebook/ area51/" 57: Sleepa .15 58: PRINT "coverups/"; : COLOR 7, 0: PRINT " spy.sats"; : COLOR 10, 0: PRINT " launch* reboot*" 59: Sleepa .15 60: PRINT "aim.sat*"; : COLOR 7, 0: PRINT 61: Sleepa .15 62: GOTO 10 63: END IF 64: IF cmd$ = "ls" AND LEFT$(arg$, 1) = "-" THEN PRINT "ls: invaild option: " + arg$: GOTO 10 65: IF cmd$ = "ls" AND LEFT$(arg$, 1) <> "-" THEN PRINT "ls: permission denied: " + arg$: GOTO 10 66: IF cmd$ = "cd" AND arg$ <> "" THEN PRINT "permission denied: " + arg$: GOTO 10 67: IF cmd$ = "cd" AND arg$ = "" THEN GOTO 10 68: IF cmd$ = "pwd" AND arg$ = "" THEN PRINT "/root": GOTO 10 69: IF cmd$ = "cat" THEN 70: IF arg$ = "spy.sats" OR arg$ = "nasa.sat.codes" OR arg$ = "launch" OR arg$ = "aim.sat" OR arg$ = "reboot" THEN PRINT "cat: permission denied" ELSE PRINT "cat: " + arg$ + " not found" 71: GOTO 10 72: END IF 73: 30 IF cmd$ = "reboot" THEN 74: Sleepa 1.5 75: PRINT "Connection to remote host lost." 76: VIEW PRINT 1 TO 25 77: asd = 1 78: Sleepa 5 79: GOTO 20 80: END IF 81: IF cmd$ = "launch" THEN 82: Sleepa 1.5 83: INPUT "Satellite # ", tmpnum$ 84: INPUT "X Cor: ", x$ 85: INPUT "Y Cor: ", y$ 86: INPUT "Z Cor: ", z$ 87: PRINT "Press Any Key to Launch..." 88: a$ = INPUT$(1) 89: FOR i = 10 TO 1 STEP -1 90: PRINT i; "..."; 91: Sleepa 1 92: NEXT i 93: PRINT 94: PRINT "Launch..." 95: Sleepa 2.5 96: BEEP 97: COLOR 20: PRINT "*** WARNING! ***": COLOR 7 98: Sleepa .5 99: PRINT "Missile on collision cource to server location..." 100: Sleepa .5 101: PRINT "ETA: 10 seconds..." 102: FOR i = 10 TO 5 STEP -1 103: PRINT i; "..."; 104: Sleepa 1 105: NEXT i 106: PRINT 107: PRINT "Five seconds until impact" 108: FOR i = 4 TO 1 STEP -1 109: PRINT i; "..."; 110: Sleepa 1 111: NEXT i 112: FOR i = 1 TO 120 113: RANDOMIZE TIMER 114: PRINT CHR$(RND * (255 - 32) + 32); 115: Sleepa .005 116: NEXT i 117: PRINT 118: cmd$ = "reboot": GOTO 30 119: END IF 120: IF cmd$ = "who" THEN 121: PRINT "root Nov 5 (localhost)": Sleepa .02 122: PRINT "wgates Oct 6 (gates.microsoft.)": Sleepa .02 123: PRINT "root Dec 6 (murrah.k12.ms.us)": Sleepa .02 124: PRINT "nasa Oct 32 (nasa.gov)": Sleepa .02 125: PRINT "bclinton Aug 12 (president.whiteh)": Sleepa .02 126: GOTO 10 127: END IF 128: IF cmd$ = "aim.sat" THEN 129: xxx = 10: yyy = 20 130: EncryptScreen 131: PopupWindow xxx, yyy, 3, 41, 15, 4, "HACKED" 132: VIEW PRINT xxx + 1 TO xxx + 3 133: LOCATE , yyy: PRINT "º HACKED FROM murrah.k12.ms.us, logging º"; 134: END 135: END IF 136: PRINT "bash: "; cmd$; ": command not found" 137: GOTO 10 138: 139: SUB center (t$) 140: LOCATE CSRLIN, 1 141: PRINT STRING$(40 - CINT(LEN(t$) / 2), " "); t$; STRING$((40 - (LEN(t$) / 2)) - 1, " ") 142: END SUB 143: 144: SUB EncryptScreen 145: DEF SEG = &HB800 146: FOR q = 0 TO 4000 147: IF q / 2 = INT(q / 2) THEN POKE q, ((PEEK(q) * INT(q / 40)) MOD 256) ELSE POKE q, ((PEEK(q) * q) MOD 32) 148: NEXT q 149: END SUB 150: 151: FUNCTION getpass$ (prompt$) 152: PRINT prompt$; 153: DO UNTIL a$ = CHR$(13) 154: a$ = INKEY$ 155: IF a$ = CHR$(13) THEN EXIT DO 156: IF a$ = CHR$(8) THEN 157: IF m$ = "" THEN ELSE m$ = LEFT$(m$, LEN(m$) - 1) 158: ELSE 159: m$ = m$ + a$ 160: END IF 161: LOOP 162: PRINT 163: getpass$ = m$ 164: END FUNCTION 165: 166: SUB PopupWindow (lx, ly, sx, sy, fc, bc, cap$) 167: LOCATE lx, ly, 0 168: COLOR fc, bc 169: PRINT "É["; : COLOR 2, bc: PRINT "þ"; : COLOR fc, bc: PRINT "]Í " + cap$ + " " + STRING$((sy - 8) - LEN(cap$), "Í") + "»" 170: FOR q = 1 TO sx - 2 171: LOCATE lx + q, ly 172: PRINT "º"; STRING$(sy - 2, 32); "º" 173: NEXT q 174: LOCATE lx + sx - 1, ly 175: PRINT "È" + STRING$(sy - 2, 205) + "¼" 176: END SUB 177: 178: SUB Sleepa (a) 179: aa = TIMER + a 180: DO UNTIL TIMER >= aa: LOOP 181: END SUB 182: |