' Xor Encryption Example

' Clear the screen
CLS

' The message about to be encrypted
dat$ = "Hey, Look. Im about to be encrypted"

' Password. Can be changed to any 8 bit number
passwd = 128

' Dump Data to screen
COLOR 4: PRINT "Original : "; : COLOR 1: PRINT dat$

' Move passowrd into a temporary integer
passwdz = passwd

' Start a loop. increments X
FOR x = 1 TO LEN(dat$)
       
' Xor's the password with 1 byte from string. Adds to DONE$     
        done$ = done$ + CHR$(ASC(MID$(dat$, x, 1)) XOR passwdz)
       
' Adds 1 to temp integer
        passwdz = passwdz + 1
       
'if temp integer = 256 (no longer 8 bit) then make it 0
        IF passwdz = 256 THEN passwdz = 0

' loops back
NEXT x

' Dumps data to screen
COLOR 4: PRINT "Encrypted: "; : COLOR 1: PRINT done$

' Re-init data
dat$ = done$
passwdz = passwd
done$ = ""

' Start a loop. increments X
FOR x = 1 TO LEN(dat$)
      
' Xor's the password with 1 byte from string. Adds to DONE$   
        done$ = done$ + CHR$(ASC(MID$(dat$, x, 1)) XOR passwdz)
      
' Adds 1 to temp integer
        passwdz = passwdz + 1
      
'if temp integer = 256 (no longer 8 bit) then make it 0
        IF passwdz = 256 THEN passwdz = 0

' loops back
NEXT x

' Dumps data to screen
COLOR 4: PRINT "Decrypted: "; : COLOR 1: PRINT done$