Ejecutar Bat's Ocultos

Iniciado por $hyDow, 25 Junio 2008, 10:47 AM

0 Miembros y 1 Visitante están viendo este tema.

berz3k

@ShyDow

Ejecutas el .bat y luego este mismo es borrado, bueno aun no lo ejecuto pero me pareceria mas interesante agregaras algunos comentarios para saber que es lo que hace precisamente cada linea.

-berz3k.


$hyDow

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off
::Quita el eco
CD %Temp%
::Se situa en la carpeta Temp, de archivos temporales
Set #=echo
::declara # variante de echo con un espacio al final, para mayor comodidad
Call:1 > 1.bat
::llama a la etiqueta 1 como 1.bat
Call:2 > 1.vbs && Start 1.vbs & Del /q %0
::llama a la etiqueta 2 como 1.vbs, ejecuta el vbs y borra el ejecutador de bat's ocultos
:1
:etiqueta del archivo 1.bat
%#%@echo off
::quita el eco
%#%Ping -n 2 0.0.0
::hace un ping, pero no necesita ser >nul pues no se mostrara en la pantalla [se esta ejecutando ocultamente]
%#%Del /q 1.vbs
::borra el archivo 1.vbs despues de que aya terminado su función
%#%msg * bien
%#%msg * bien
::Estos comandos son la prueva de que el code funciona bien
%#%Del /q 1.bat
::se autoelimina
GoTo:EoF
::fin de la cadena de texto
:2
::etiqueta de 1.vbs
%#%Set Shell = CreateObject(^"WScript.Shell^")
::crea una variable llamada"Shell" que trabaja con el comando Shell
%#%Shell.Run ^"cmd /k Call 1.bat^", vbHide
::llama a 1.bat ocultamente
GoTo:EoF
::fin de la cadena de texto
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


1.bat puede autoreplicarse porque siempre tendra de /q 1.at al final y no dara errores

berz3k

Bastante bueno, tratare de implementar una especie de "backdoor".

-berz3k.

najmuddin

Muchas Gracias otra Vez Rocko  ;D ... Creo que son dudas estúpidas pero duda es duda e igual incomoda tenerla... Es bueno saber que siempre hay quien pueda responderlas...

Saludos
-DARAKknight-


carlitos.dll

lo contrario de echo texto>NUL es echo texto>CON que es la salida por defecto (la pantalla).