Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: erickvcr en 18 Agosto 2011, 16:46 pm



Título: Programita para eliminar LNK y recuperar carpetas
Publicado por: erickvcr en 18 Agosto 2011, 16:46 pm
Saludos compañeros.

Acontinuación les comparto mi programa terminado, creo que asi fucniona correctamente, en el caso de win7 hay que correrlo primero como administrador.

Chequenlo y se aceptan sugerencias:

Código:
@echo off
rem Programa compilado con el nombre de anti-hide2.exe

setlocal enabledelayedexpansion
takeown /F "%Windir%\System32\fsutil.exe" >nul
icacls "%Windir%\System32\fsutil.exe" /grant Administradores:(D,WDAC,MA,F) >nul

set malicius="RECYCLER\S-1-5-21-1482476501-1644491937-682003330-1013"
set winixp="%allusersprofile%\Menú Inicio\Programas\Inicio"
set wini7="%homepath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

:inicio
systeminfo | find "Windows XP"
if %ERRORLEVEL% == 0 goto winxp
systeminfo | find "Windows 7”
if %ERRORLEVEL% == 0 goto win7

:winxp
IF EXIST "%winixp%\anti-hide2.exe" ( GOTO :STARTER )
copy %0 %winixp%\anti-hide2.exe

:win7
IF EXIST "%wini7%\anti-hide2.exe" ( GOTO :STARTER )
copy %0 %wini7%\anti-hide2.exe

:STARTER
for /F "tokens=2-9* delims=:\ " %%a in ('fsutil fsinfo drives') do (
Set unidad=%%b & Call :verificar
Set unidad=%%c & Call :verificar
Set unidad=%%d & Call :verificar
Set unidad=%%e & Call :verificar
Set unidad=%%f & Call :verificar
Set unidad=%%g & Call :verificar
Set unidad=%%h & Call :verificar
Set unidad=%%i & Call :verificar
Set unidad=%%j & Call :verificar
)
 
Ping -n 5 localhost >nul
Goto :Inicio
 
:Verificar

fsutil fsinfo drivetype !unidad:~-0,1!: | findstr /s "extra"
 
If %errorlevel% EQU 0 (
Attrib /d /s -r -h -s "!unidad:~-0,1!:\*"
del /Q /F "!unidad:~-0,1!:\*.lnk"
del /Q /F "!unidad:~-0,1!:\autorun.*"
del /Q /F "!unidad:~-0,1!:\%malicius%"
goto:eof
) ELSE (
           goto:eof
)


Título: Re: Programita para eliminar LNK y recuperar carpetas
Publicado por: Poderoscuro1207 en 18 Septiembre 2011, 17:22 pm
:O muy buen aporte :D

una duda... que es LNK? te refieres a los accesos directos? no es .ink ? jejeje


Título: Re: Programita para eliminar LNK y recuperar carpetas
Publicado por: erickvcr en 18 Septiembre 2011, 21:56 pm
Hola. En efecto son los accesos directos, por eso dice *.lnk asi eliminara todos los accesos. Yo lo tengo funcionando en win xp, en un disco desatendido para mi centro de computo, y lo instala en all users en menu de inicio y en inicio para que todos los usuarios esten bajo el funcionamiento de este programa. Saludos


Título: Re: Programita para eliminar LNK y recuperar carpetas
Publicado por: Leminy en 20 Septiembre 2011, 05:15 am
Valla, Es Impresionante... Hice Algo Paracido Pero En VB:

http://foro.elhacker.net/scripting/batvbscodigo_dudoso-t338763.0.html (http://foro.elhacker.net/scripting/batvbscodigo_dudoso-t338763.0.html)

 ;D ...La Metodologia Que Usas Fue La Que Me Llamo La Atención...  ;D

Felicidades, Excelente Programa...  ;-)  ;-)  ;-)


Título: Re: Programita para eliminar LNK y recuperar carpetas
Publicado por: Poderoscuro1207 en 20 Septiembre 2011, 16:18 pm
Correcto! exelente programa


Título: Re: Programita para eliminar LNK y recuperar carpetas
Publicado por: erickvcr en 20 Septiembre 2011, 19:23 pm
Honor a quien honor merece, agradezco tus felicitaciones, pero el codigo no es 100% mio, como lo habia ocmentado en otro post, tome algunas ideas de otro compañero y tambien gracias a la asesoria de Pitoloko y Leo.