#Funcion para cifrar y descifrar cadenas usando xor
proc cifradoXor(cadena:string, password:string):string=
var Result=""
for i in countup(0,high(cadena)):
Result.add(char(ord(cadena[i]) xor (len(password) mod 255)))
return Result
var cadena="Hola Mundo"
cadena=cifradoXor(cadena,"1234")
echo(cadena)#Muestra la cadena Cifrada
cadena=cifradoXor(cadena,"1234")
echo(cadena)#Mustra la cadena Descifrada
discard readLine(stdin)#pausamos el programa para ver la pantalla
Funcion para cifrar cadenas usando XOR en el lenguaje Nim
Skype:crack8111