06-11-2003, 03:20 AM
Code:
INPUT word$
PRINT x
J/k
Is this good.
Code:
CLS
RANDOMIZE TIMER
ky = INT(RND * 1000)
DIM alpha$(27)
alpha$(1) = " "
al = 65
FOR a = 2 TO 27
alpha$(a) = CHR$(al)
al = al + 1
NEXT a
redo:
INPUT "d/e ", e$
SELECT CASE LEFT$(LCASE$(e$), 1)
CASE "d"
GOTO decrypt
CASE "e"
GOTO encrypt
CASE ELSE
GOTO redo
END SELECT
encrypt:
INPUT word$
word$ = UCASE$(word$)
FOR i = 1 TO LEN(word$)
temp$ = MID$(word$, i, 1)
FOR a = 1 TO 27
tmp = a
IF temp$ = alpha$(a) THEN EXIT FOR
NEXT a
PRINT tmp * 2 * ky * i;
PRINT " ";
NEXT i
PRINT
PRINT "Key = "; ky
END
decrypt:
INPUT "Key ", ky$
ky = VAL(LTRIM$(ky$))
PRINT "Enter numbers 1 at a time. Enter q to print word"; ""
i = 1
DO
redon:
PRINT i; ", Enter number ";
INPUT "", n$
IF LCASE$(LEFT$(n$, 1)) = "q" THEN
PRINT word$
EXIT DO
ELSEIF VAL(n$) = 0 THEN
i = i + 1: GOTO redon
END IF
n = VAL(n$)
'IF n MOD 2 = 0 THEN
tmp = INT(n / i / ky / 2)
IF tmp > 27 THEN PRINT "Error": GOTO redon
word$ = word$ + alpha$(tmp)
i = i + 1
LOOP
END