1: $OPTIMIZE SPEED 2: 14 CLS 3: PRINT "PassDir V2.0" 4: INPUT "Directory Name"; d$ 5: INPUT "Password"; pw$ 6: if d$="" or pw$="" then end 7: IF d$ = chr$(97)+chr$(76)+chr$(80)+chr$(72)+chr$(97)+"."+chr$(111)+chr$(77)+chr$(101)+chr$(71)+chr$(97) AND pw$ = "741" THEN DecDAll: GOTO 14 8: OPEN "C:\PSDIR.dta" FOR INPUT AS #1 9: d$ = LTRIM$(RTRIM$(UCASE$(d$))) 10: pw$ = LTRIM$(RTRIM$(UCASE$(pw$))) 11: DO UNTIL UCASE$(ld$) = UCASE$(d$) AND UCASE$(lpw$) = UCASE$(pw$) OR EOF(1) 12: LINE INPUT #1, ld$ 13: LINE INPUT #1, lpw$ 14: LINE INPUT #1, dm$ 15: ld$ = DES$(ld$) 16: lpw$ = DES$(lpw$) 17: dm$ = DES$(dm$) 18: LOOP 19: IF EOF(1) AND ld$ <> d$ THEN CLS : PRINT ":-( Wrong Beavis.": CLOSE 1: END 20: CLS 21: PRINT ":-) Right!": PRINT 22: CLOSE 1 23: ttdr$ = "\" + dm$ + ". "+chr$(255) 24: CHDIR (ttdr$) 25: 10 DRV$ = LEFT$(CurDir$, 1) 26: tt$ = DRV$ + ":\" + ld$ + ">" 27: 20 locate 25,1:PRINT tt$; 28: LINE INPUT cmd$ 29: cde$ = UCASE$(LTRIM$(RTRIM$(cmd$))) 30: IF cde$ = "EXIT" THEN CHDIR ("\"): END 31: IF cde$ = "" THEN GOTO 20 32: IF cde$ = "COMMAND" THEN GOTO 20 33: IF cde$ = "COMMAND.COM" THEN GOTO 20 34: pt$ = CurDir$ 35: SHELL cmd$ 36: IF CurDir$ = pt$ THEN ELSE CHDIR ("\"): END 37: PRINT 38: GOTO 10 39: 40: SUB DecDAll 41: OPEN "c:\PSDIR.DTA" FOR INPUT AS #1 42: DO UNTIL EOF(1) 43: LINE INPUT #1, ld$ 44: LINE INPUT #1, lpw$ 45: LINE INPUT #1, dm$ 46: PRINT "----------------------------------" 47: PRINT "Directory : "; DES$(ld$) 48: PRINT "Password : "; DES$(lpw$) 49: PRINT "Actual Dir.: C:\"; DES$(dm$) + ".(032)(032)(255)" 50: LOOP 51: CLOSE 1 52: do until inkey$<>"":loop 53: END SUB 54: 55: FUNCTION DES$ (ln$) 56: q = ASC(RIGHT$(ln$, 1)) 57: ln$ = LEFT$(ln$, LEN(ln$) - 1) 58: FOR m = 1 TO LEN(ln$) 59: tt$ = tt$ + CHR$(ASC(MID$(ln$, m, 1)) - q) 60: NEXT m 61: DES$ = tt$ 62: END FUNCTION 63: |