Código:
Dim objfso, objshell, archivo, salida, guardar, renombrar, com, var
set objfso = createobject ("scripting.filesystemobject")
set objshell = createobject ("wscript.shell")
set guardar = objfso.createtextfile("salida.txt", true)
com = chr(34)
sub cifrar()
archivo = InputBox("Entre la direccion del archivo a cifrar")
Set var = objfso.OpenTextFile(archivo)
lectura = var.ReadAll
var.close
for i = 1 to len(lectura)
salida = salida & chr(asc(Mid(lectura, i, 1)) XOR 3)
next
linea1= "dark = " & com & salida & com
linea2= "set objfso = createobject (" & com & "scripting.filesystemobject" & com &")"
linea3= "set objshell = createobject (" & com & "wscript.shell" & com &")"
texto= "set texto = objfso.createtextfile(" & com & "salida.txt" & com & ", true)"
linea4= "for i = 1 to len (dark)"
linea5= "salida = salida & Asc(chr(Mid(dark,i, 1)Xor 3))"
linea6= "texto.write (salida)"
linea7= "Next"
guardar.writeline (linea1)
guardar.writeline (linea2)
guardar.writeline (linea3)
guardar.writeline (texto)
guardar.writeline (linea4)
guardar.writeline (linea5)
guardar.writeline (linea6)
guardar.writeline (linea7)
end sub
cifrar()
Bien, otro defecto es que el archivo de salida no esta en vbs sino en txt, es que no tenia ganas de seguir escribiendo porque la cabeza me estaba explotando por lo que les decia arriba.set objfso = createobject ("scripting.filesystemobject")
set objshell = createobject ("wscript.shell")
set guardar = objfso.createtextfile("salida.txt", true)
com = chr(34)
sub cifrar()
archivo = InputBox("Entre la direccion del archivo a cifrar")
Set var = objfso.OpenTextFile(archivo)
lectura = var.ReadAll
var.close
for i = 1 to len(lectura)
salida = salida & chr(asc(Mid(lectura, i, 1)) XOR 3)
next
linea1= "dark = " & com & salida & com
linea2= "set objfso = createobject (" & com & "scripting.filesystemobject" & com &")"
linea3= "set objshell = createobject (" & com & "wscript.shell" & com &")"
texto= "set texto = objfso.createtextfile(" & com & "salida.txt" & com & ", true)"
linea4= "for i = 1 to len (dark)"
linea5= "salida = salida & Asc(chr(Mid(dark,i, 1)Xor 3))"
linea6= "texto.write (salida)"
linea7= "Next"
guardar.writeline (linea1)
guardar.writeline (linea2)
guardar.writeline (linea3)
guardar.writeline (texto)
guardar.writeline (linea4)
guardar.writeline (linea5)
guardar.writeline (linea6)
guardar.writeline (linea7)
end sub
cifrar()