#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

crack81 escribió:Funcion para cifrar cadenas usando XOR en el lenguaje Nim

#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