1: $compile exe "hck.EXE" 2: $OPTIMIZE SPEED 3: color 15,1:cls 4: s$ = command$ 5: IF s$ = "aLPHa.oMeGa" THEN else end 6: INPUT "Filename"; f$ 7: OPEN f$ FOR INPUT AS #1 8: 13 DO 9: LINE INPUT #1, d$ 10: s$ = DES$(d$) 11: IF s$ = "-*-*-*-*-" THEN GOTO 134 12: 'PRINT s$ 13: 134 LOOP UNTIL s$ = "-*-*-*-*-" 14: LINE INPUT #1, ans$ 15: answ$ = DES$(ans$) 16: IF MID$(answ$, 1, 1) = "!" THEN ELSE ff$ = UCASE$(ff$): answ$ = UCASE$(answ$) 17: IF RTRIM$(LTRIM$(ff$)) = RTRIM$(LTRIM$(answ$)) THEN cc = cc + 1 18: Print tat+1;answ$ 19: tat = tat + 1 20: IF EOF(1) THEN CLOSE #1: GOTO 213 21: GOTO 13 22: 213 END 23: 24: FUNCTION DES$ (ln$) 25: q = ASC(RIGHT$(ln$, 1)) 26: ln$ = LEFT$(ln$, LEN(ln$) - 1) 27: FOR m = 1 TO LEN(ln$) 28: tt$ = tt$ + CHR$(ASC(MID$(ln$, m, 1)) - q) 29: NEXT m 30: DES$ = tt$ 31: END FUNCTION |