'===========================================================================
' Subject: SIMPLE TEXT ENCRYPTION             Date: 03-09-00 (16:56)       
'  Author: Paul Malcher                       Code: QB, QBasic, PDS        
'  Origin: kake26@yahoo.com                 Packet: MISC.ABC
'===========================================================================
10 CLS
PRINT "Enc v 2.0"
INPUT "File:", f$
OPEN f$ FOR BINARY AS #1
INPUT "Output file:", o$
OPEN o$ FOR BINARY AS #2
INPUT "Key: (number) ", key1
i = 1
t = LOF(1)
num = i
DO UNTIL num = t
GET #1, num, f$
z = ASC(f$)
x = z + 3 + LEN(key1)
x1 = LEN(x) + x
x$ = CHR$(x1)
PUT #2, num, x$
num = num + 1
LOOP
GOTO done
done:
PRINT "Encrypted!"
END