s$ = "C:\DDEC"
SHELL "COPY " + s$ + " BACKUP.DAT"
OPEN "FIRSTLIN.E" FOR INPUT AS #2
LINE INPUT #2, LookFor$
CLOSE 2
FOR q# = 0 TO 2000000
SHELL "CIPHER " + LTRIM$(RTRIM$(STR$(q#))) + " " + s$
OPEN s$ FOR INPUT AS #1
LINE INPUT #1, TmpH$
CLOSE 1
IF TmpH$ = LookFor$ THEN PRINT q#: END: EXIT FOR
SHELL "CIPHER " + LTRIM$(RTRIM$(STR$(q#))) + " " + s$

NEXT q#