Hola. ¿Alguien sabe alguna forma para cifrar con XOR en VBS?
Gracias de antemano.
Buenas.....
Aquí te dejo un ejemplo de como se puede cifrar un texto, es realmente sencillo, y cifra el texto en base a la longitud del mismo (número de caracteres)
set fso = createobject("scripting.filesystemobject")
set archivo = fso.opentextfile("c:\origen.txt",1)
cadena = archivo.readall
set destino = fso.opentextfile("c:\destino.txt",8,True)
For i = 1 to len(cadena)
texto = mid(cadena,i,1)
codificado = chr(Asc(texto) Xor Asc(len(cadena)))
destino.write codificado
Next
Como verás, este script, obtiene todo el texto del archivo c:\origen.txt, lo codifica caracter a caracter, y lo escribe en el archivo c:\destino.txt
Es decir, que para ver este ejemplo, debes de tener el archivo c:\origen.txt con algún texto dentro (porque no hace ningún tipo de comprobación de si el texto es nulo ) :P
Espero te sirva de ayuda ;D
Sigue preguntando por *.vbs que lo prefiero al *.bat, y todo el mundo pregunta por *.bat XD
Saludos
Gracias, Novlucker. Me ha sido de gran utilidad.