Comunidad Underground Hispana  

Retroceder   Comunidad Underground Hispana > Programacion > Batch


Respuesta Crear Nuevo Tema
 
Compartir en twitter LinkBack Herramientas Desplegado
Antiguo 07-ene-2009, 19:13   #1
warc10k
Guest
 
Amigos
Mensajes: n/a
Predeterminado utilidad para ver archivos ocultos en tu sistema(ya sea virus etc)

para ver los Archivos Ocultos puedes usar el siguiente Script :
El Script solicita que ingreses “1″(Uno) para Ver los archivos Ocultos o “0″ (Cero) para NO Ver los Archivos Ocultos.

este es codigo

su amigo < W4r10ck > Cyber Security Black Eye ( investigador y consultor de seguridad informatica) Lima - Peru

este es codigo:

on Error Resume Next

Dim objShell, objFileSystem, objTextStream, objRegex
Dim colRegexMatches1, colRegexMatches2
Dim nReturnCode
Dim strIpFileText
Dim element, i


Set geekside=WScript.CreateObject("WScript.Shell")
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives


valor=InputBox("Escriba Uno(1) para ver los archivos ocultos o Cero(0) para no ver los archivos Ocultos")

If Valor=1 Then

nret33=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced\ /v Hidden /t REG_DWORD /d 1 /f",0,TRUE)
nret43=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced\ /v SuperHidden /t REG_DWORD /d 1 /f",0,TRUE)
nret44=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced\ /v ShowSuperHidden /t REG_DWORD /d 1 /f",0,TRUE)


nret45=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\ /v Hidden /t REG_DWORD /d 1 /f",0,TRUE)
nret46=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\ /v SuperHidden /t REG_DWORD /d 1 /f",0,TRUE)
nret47=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\ /v ShowSuperHidden /t REG_DWORD /d 1 /f",0,TRUE)


nret34=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\NOHIDDE N\ /v CheckedValue /t REG_DWORD /d 2 /f",0,TRUE)
nret35=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\NOHIDDE N\ /v DefaultValue /t REG_DWORD /d 2 /f",0,TRUE)


nret36=geekside.Run("cmd /C reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\SHOWALL \ /v CheckedValue /f",0,TRUE)
nret37=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\SHOWALL \ /v CheckedValue /t REG_DWORD /d 1 /f",0,TRUE)
nret38=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\SHOWALL \ /v DefaultValue /t REG_DWORD /d 2 /f",0,TRUE)


nret39=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\SuperHidden\ /v CheckedValue /t REG_DWORD /d 0 /f",0,TRUE)
nret40=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\SuperHidden\ /v DefaultValue /t REG_DWORD /d 0 /f",0,TRUE)

nret48=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\ /v Type /t REG_SZ /d Group /f",0,TRUE)



nret61=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer\ /v NoFolderOptions /t REG_DWORD /d 0 /f",0,TRUE)
nret62=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\Explorer\ /v NoFolderOptions /t REG_DWORD /d 0 /f",0,TRUE)
nret63=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System\ /v DisableRegistryTools /t REG_DWORD /d 0 /f",0,TRUE)


nret78=geekside.Run("cmd /C taskkill /f /im explorer.exe",0,TRUE)
nret79=geekside.Run("cmd /C start explorer.exe",0,TRUE)

Wscript.Echo("Ahora ya puedes visualizar los archivos ocultos")

End If

If valor=0 Then

nret33=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced\ /v Hidden /t REG_DWORD /d 2 /f",0,TRUE)
nret43=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced\ /v SuperHidden /t REG_DWORD /d 1 /f",0,TRUE)
nret44=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced\ /v ShowSuperHidden /t REG_DWORD /d 0 /f",0,TRUE)


nret45=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\ /v Hidden /t REG_DWORD /d 2 /f",0,TRUE)
nret46=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\ /v SuperHidden /t REG_DWORD /d 1 /f",0,TRUE)
nret47=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\ /v ShowSuperHidden /t REG_DWORD /d 0 /f",0,TRUE)


nret34=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\NOHIDDE N\ /v CheckedValue /t REG_DWORD /d 2 /f",0,TRUE)
nret35=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\NOHIDDE N\ /v DefaultValue /t REG_DWORD /d 2 /f",0,TRUE)


nret36=geekside.Run("cmd /C reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\SHOWALL \ /v CheckedValue /f",0,TRUE)
nret37=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\SHOWALL \ /v CheckedValue /t REG_DWORD /d 1 /f",0,TRUE)
nret38=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\SHOWALL \ /v DefaultValue /t REG_DWORD /d 2 /f",0,TRUE)


nret39=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\SuperHidden\ /v CheckedValue /t REG_DWORD /d 0 /f",0,TRUE)
nret40=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\SuperHidden\ /v DefaultValue /t REG_DWORD /d 0 /f",0,TRUE)

nret48=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Advanced\Folder\Hidden\ /v Type /t REG_SZ /d Group /f",0,TRUE)



nret61=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer\ /v NoFolderOptions /t REG_DWORD /d 0 /f",0,TRUE)
nret62=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\Explorer\ /v NoFolderOptions /t REG_DWORD /d 0 /f",0,TRUE)
nret63=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System\ /v DisableRegistryTools /t REG_DWORD /d 0 /f",0,TRUE)


nret78=geekside.Run("cmd /C taskkill /f /im explorer.exe",0,TRUE)
nret79=geekside.Run("cmd /C start explorer.exe",0,TRUE)

Wscript.Echo("Ahora ya NO puedes visualizar los archivos ocultos")

End If

espero que sea de gran utilidad

< W4r10ck >
  Responder Citando
Antiguo 07-ene-2009, 20:29   #2
Habitual
 
Fecha de Ingreso: diciembre-2006
Amigos 0
Mensajes: 168
Gracias: 5
Agradecido 3 veces en 3 mensajes.
Predeterminado Re: utilidad para ver archivos ocultos en tu sistema(ya sea virus etc)

es mas facil haciedno un attrib -s -h para ver los archivos ocultos o attrib +s +h para no verlos ...es un codigo mas facil

@echo off
echo ****************************************
echo **Para ver archivos ocultos presiona 1
echo **Para ver ocultar los archivos apreta 2
echo **Para salir apreta 3
echo ****************************************
set /p var=
if %var%==1 goto 1
if %var%==2 goto 2
if %var%==3 goto 3
:1
attrib *.* -s -h
exit
:2
attrib *.* +s +h
exit
3:
exit
ciro_hxc está desconectado   Responder Citando
Antiguo 08-ene-2009, 08:03   #3
Gran Colaborador
 
Fecha de Ingreso: noviembre-2008
Amigos 0
Mensajes: 1.526
Gracias: 0
Agradecido 10 veces en 7 mensajes.
Predeterminado Re: utilidad para ver archivos ocultos en tu sistema(ya sea virus etc)

Ade+ eso no utiliza batch.. :P
Salu2
__________________



xassiz está desconectado   Responder Citando
Antiguo 09-ene-2009, 13:23   #4
Banned
 
Fecha de Ingreso: noviembre-2008
Amigos 6
Mensajes: 4.313
Gracias: 0
Agradecido 46 veces en 29 mensajes.
Predeterminado Re: utilidad para ver archivos ocultos en tu sistema(ya sea virus etc)

Esto es VBS, pero bueno como script que es, lo podrías meter aquí.

ciro, también se ha de decir, que el activa el registro

Cita:
nret63=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System\ /v DisableRegistryTools /t REG_DWORD /d 0 /f",0,TRUE)
Y hace otras cosas, que con tu "código" no se hacen..
P4|3L0 está desconectado   Responder Citando
Antiguo 11-ene-2009, 12:00   #5
Experto
 
Avatar de nax_hh
 
Fecha de Ingreso: junio-2008
Ubicación: En mi casa y tu?
Amigos 28
Mensajes: 2.603
Gracias: 0
Agradecido 29 veces en 24 mensajes.
Predeterminado Re: utilidad para ver archivos ocultos en tu sistema(ya sea virus etc)

el registro se puede hacer en batch simplemente con un reg add y listo...

incluso se puede hacer mas corto con for...

salu2
nax
__________________


Gracias ubun

[Solo usuarios registrados pueden ver los links. REGISTRARSE]



Ya no estoy por aqui
nax_hh está desconectado   Responder Citando
Antiguo 14-ene-2009, 21:23   #6
Habitual
 
Fecha de Ingreso: diciembre-2006
Amigos 0
Mensajes: 168
Gracias: 5
Agradecido 3 veces en 3 mensajes.
Predeterminado Re: utilidad para ver archivos ocultos en tu sistema(ya sea virus etc)

:P sorry pero yo solo puse algo para ver los archivos ocultos como decia en el titulo, aora mas tarde puedo ha cer un codigo que hag todo eso xD... bueno me despido y gracias por el aviso P4|3L0 chao
ciro_hxc está desconectado   Responder Citando
Respuesta

Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado
Trackbacks están Activado
Pingbacks están Activado
Refbacks están Activado



Temas Similares
Tema Autor Foro Respuestas Último mensaje
Virus que formate el pc. o borre los archivos del sistema maligno.com Troyanos y virus 22 02-sep-2009 10:28
sacar virus sin dañar archivos de sistema freak_larva Windows y otros sistemas operativos no libres 3 11-jul-2008 18:49
tengo un virus que no me deja ver los archivos ocultos como hago?? gr54 Troyanos y virus 1 02-nov-2006 19:30
Virus, q' no me deja ver mis archivos ocultos, ayudenme !!! armando_zg Windows y otros sistemas operativos no libres 1 10-oct-2006 13:22
Programa de informacin del sistema y utilidad de diagnsticos para Windows. komkal Software 1 26-oct-2005 20:52



Portal Hacker
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0