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