%"Compiled" with Version: 4.0.5 of Turing.

%Your passkey (Must be shorter or equal the same amount of characters as your message)
var key : string := "12"
var information : string := "aaaaaaaa" %You Protected Info!
var output : string := "" %The Output Text (Decrypted or Encrypted)
var xor2string : int := 0

var keyletter : array 1 .. length(key) of string
var keybytes : array 1 .. length(key) of int
var keymax : int

var infoletter : array 1 .. length(information) of string
var infobytes : array 1 .. length(information) of int
var infomax : int
 %Start of Encryption



% Convert Key To Decimals
for x : 1 .. length (key)
keyletter(x) := key (x)
keybytes(x) := ord(keyletter(x))

if x = length (key) then %Find Length of key
keymax := x
end if
end for

% Convert information to Decimals
for y : 1 .. length (information)
infoletter(y) := information (y)
infobytes(y) := ord (infoletter(y))

if y = length (information) then %Find Length of information
infomax := y
end if
end for

 %End of Encryption
var x : int := 0 % Key Array
var y : int := 0  % Info Array

loop
y := y + 1
x := x + 1


xor2string := (keybytes(x) xor infobytes(y))

if xor2string = 0 or xor2string = 128 then
xor2string := 255  %Protection against unsupported Bytes (0) (128)
end if
output := output + chr(xor2string)

if x = keymax then
x := 0
end if

exit when y = infomax

end loop
put ""
put "Your Key Was: ", key
put "Your Original Message Was: ", information
put "Encrypted Your Message Was: ", output