Foro de elhacker.net

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()