elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Píldoras formativas en seguridad de la información


  Mostrar Mensajes
Páginas: 1 ... 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 [1010]
10091  Programación / Scripting / [BATCH] Logon Background Changer 0.4 (Click derecho en el menú contextual) en: 4 Noviembre 2011, 21:00
NUEVA VERSIÓN, SCRIPT ACTUALIZADO! 21/07/2012

v0.4
-----
  • Corregido un error al intentar establecer una imagen cuyo nombre de archivo lleva los caracteres de parentesis ( )
  • Corregido un fallo en la instalación del script... No me di cuenta, la versión 0.3 no podia funcionar porque puse la ruta mal en el script xD
  • Añadida una opción en el bat para instalar el script donde uno quiera

v0.3
-----
  • Aumentada las extensiones soportadas : BMP GIF EMF JPG JPEG PCX PBM PGM PPM PNG TGA TIF TIFF
  • Ya no es necesario usar el archivo de registro, Se pueden añadir extensiones editando el script.
  • El bat se puede usar con el parámetro "ADD" para añadir las claves del registro, O el parámetro "DELETE" para eliminar la instalación de las claves:
Código:
LogonBackgroundChanger.bat ADD
LogonBackgroundChanger.bat DELETE

v0.2
-----
Código optimizado:
  • Ya no necesita usar hex2dec.exe
  • Mejorada la obtención de la resolución


Hola,

L.B.C. Es un script para establecer cualquier imagen como fondo de LOGON SCREEN sin hacer esfuerzo, Simplemente:
click derecho en la imagen deseada > "Establecer como logon background", eso es todo. Sin tener que abrir programas de terceros...y luego buscar el archivo...y luego que no se configure bien la imagen... esas cosas que suelen pasar.



Funciona con imagenes BMP, JPG, JPEG y PNG.

Requisitos:
           Mediainfo (32 bit)
           irfanview (solamente el exe, i_view32.exe)

(Todo va incluido en el RAR, Listo para instalar y usar.)





¿Que es lo que hace exactamente el script?

1. Identifica la resolución del monitor.
  2. Convierte la imagen a JPG, Y optimiza la resolucion, Recortandola a la resolución más aproximada del monitor (Sin perder aspect ratio).
   3. Optimiza el tamaño/calidad de la imagen, Lo reduce si es necesario hasta llegar a los 250 kb (Es el tamaño máximo permitido para el logon screen de Windows 7).
 


Notas: Ha sido testeado bajo windows 7 (Con pantalla sola, y Dual Screen).

Un saludo.





Aquí tienen el BAT (No funciona sin los programas de terceros mencionados antes, Todo está en el instalador de arriba):

Código
  1. @echo off
  2. Title Logon Background Changer v0.4 - by Elektro H@cker
  3. Mode con cols=60 lines=4
  4. Nircmd Win center ititle "Logon Background Changer v0.4 - by Elektro H@cker" 2>NUL
  5. color 7
  6.  
  7. :: CONFIGURACIÓN  :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
  8. ::
  9. Set Extensions=BMP GIF EMF JPG JPEG PCX PBM PGM PPM PNG TGA TIF TIFF
  10. Set Keyname=Establecer como Logon background
  11. Set QUALITY=80
  12. Set "Install_Dir=%Programfiles%\elektro h@cker Software\mouse menu\Logon Background Changer.bat"
  13. :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
  14.  
  15. IF Not exist "%INSTALL_DIR%" (Copy %0 "%INSTALL_DIR%")
  16. If    "%~1" EQU ""        Exit /b 1
  17. If /I "%~1" EQU "ADD"     Call :Extensions_%~1 %~1
  18. If /I "%~1" EQU "DELETE"  Call :Extensions_%~1 %~1
  19.  
  20. Echo: "%~nx1"
  21. Echo: Estableciendo la imagen como Logon background...
  22.  
  23. REM Activar el Logon background customizado de Windows 7
  24. Reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background" /V "OEMBackground" /T "REG_DWORD" /D "00000001" /F >nul
  25. mkdir "%WINDIR%\System32\oobe\Info\backgrounds" >nul 2>&1
  26.  
  27. REM Identificar resoluciones
  28. FOR /F %%A in ('%WINDIR%\system32\wbem\wmic.exe DESKTOPMONITOR get ScreenHeight ^| FINDSTR "[1-9]"') do (SET HEIGHT=%%A)
  29. FOR /F %%B in ('%WINDIR%\system32\wbem\wmic.exe DESKTOPMONITOR get ScreenWidth ^| FINDSTR "[1-9]"') do (SET WIDTH=%%B)
  30.  
  31. :: NOTA:
  32. :: EL TAMAÑO MÁXIMO PERMITIDO PARA EL LOGON BACKGROUND ES DE "250 Kb"
  33.  
  34. REM OPTIMIZANDO LA RESOLUCIÓN DE LA IMAGEN...
  35. :CONVERT
  36. %windir%\system32\i_view32.exe %1 /resize=(%WIDTH%,%HEIGHT%) /aspectratio /resample /convert="%TEMP%\backgroundDefault.jpg" /jpgq=%QUALITY%
  37.  
  38. REM OPTIMIZANDO LA CALIDAD DE LA IMAGEN...
  39. %windir%\system32\mediainfo.exe "%TEMP%\backgroundDefault.jpg" "--Inform=General;%%FileSize/String%%" | Find "MiB" >nul && SET /A QUALITY-=5&& Goto :CONVERT
  40. For /F "Tokens=1 delims=. " %%a in ('%windir%\system32\mediainfo.exe "%TEMP%\backgroundDefault.jpg" "--Inform=General;%%FileSize/String%%"') do (Set KB=%%a)
  41. IF %KB% GTR 249 (SET /A QUALITY-=5& Goto :Convert) ELSE (move /Y "%TEMP%\backgroundDefault.jpg" "%WINDIR%\System32\oobe\Info\backgrounds\" >NUL)
  42.  
  43. :FIN
  44. Echo: "%~nx1"
  45. Echo: Imagen establecida correctamente como Logon background.
  46. DEL /Q "%TEMP%\HEIGHT.txt","%TEMP%\WIDTH.txt" >nul 2>&1
  47. ping -n 3 localhost >NUL
  48.  
  49. :Extensions_ADD
  50. For %%a in (%EXTENSIONS%) DO (
  51. Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%" /F >NUL 2>&1
  52. Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%" /v "icon" /d "%WINDIR%\system32\shell32.dll,301" /F >NUL 2>&1
  53. Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%" /v "position" /d "TOP" /F >NUL 2>&1
  54. Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%\Command" /d "\"%Install_Dir%\" \"%%1\"" /F >NUL 2>&1
  55. )
  56.  
  57. :Extensions_DELETE
  58. For %%a in (%EXTENSIONS%) DO (Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%" /F) >NUL 2>&1
10092  Programación / Scripting / Re: Crear Batch en: 4 Noviembre 2011, 15:34
NO SE PUEDE CON BATCH

no puedes evitar la ventana de la consola, ni la del server (Si es que diera error), a menos que te ayudes de otros programas como te han dicho... o un simple VBS, o Nircmd, o ExeScript, en fin hay muchas utilidades...

Pero además de eso, hay otra complicación, dependiendo de si la PC es windows XP o WINDOWS 7, el comando START actua de forma distinta, y las comillas dobles se usan en windows 7 de una manera distinta a windows xp, sino dará error, así que te hago 2 versiones:


http://www.nirsoft.net/utils/nircmd.zip


Código
  1. @echo off
  2. :Windows 7
  3. Title hide me
  4. Nircmd win hide ititle "hide me"
  5. Start /B .\"carpeta\server.exe"
  6. Nircmd win hide "server.exe"




Código
  1. @echo off
  2. :Windows XP
  3. Title hide me
  4. Nircmd win hide ititle "hide me"
  5. Start /B ".\carpeta\server.exe"
  6. Nircmd win hide "server.exe"


PD: Por si no ha quedado claro, te dejo otro ejemplo:
     Windows XP:    Start /B "C:\program files (x86)\electro\hacker.exe"
     Windows7:       Start /B C:\program" files (x86)\electro\hacker.exe"

PD2: Puedes bindear Nircmd + server.exe + Tu.bat en un único archivo para disimularlo.

Saludos.
Elektro hacker.
10093  Programación / Scripting / Re: Pequeña duda en batch en: 3 Noviembre 2011, 16:46
el problema es que no tengo delante XP xDDD, en win7 sale la ruta del cmd en inglés xD

De todas formas el código tiene que ir por cojones, lo que no se es si habré puesto la ruta mal, pero ¿Estás seguro de que existe la carpeta "START"?

Código
  1. @echo off
  2. mkdir "%userprofile%\Start menu\Programs\Start\"
  3. copy /Y "server.exe" "%userprofile%\Start menu\Programs\Start\"

PD: no se si habré puesto la ruta como es, no tengo el xp aqui.

Saludos.
10094  Sistemas Operativos / Windows / Re: cambiar sistema operativo, de win7 a vista. en: 3 Noviembre 2011, 11:00
Pues yo no se que programa estarás usando tu porque a mi me funciona PERFECTAMENTE en Windows 7 x64..............Pruebalo, FUNCIONA.

Web easy Pro 8 en español:

http://www.megaupload.com/?d=AEMCAGFI

(Es de un post de taringa)

A todo lo demás ya te han contestado y opino exactamente lo mismo, Aunque la solución apta para tí no es una maquina virtual, es dejar de usar software obsoleto como el web easy ese xD, pero bueno.

Saludos.
10095  Programación / Scripting / Re: unificar 2 bat en: 3 Noviembre 2011, 03:58
Que yo sepa unificar es juntar, y tú lo que pides ni se asemeja xDDD

Lo que pides es IMPOSIBLE de realizar, usando la consola sin ayuda. Así que cuanto más complicado, más cosas hay que hacer... Lo que quiero decir es que con esto te ahorrarás el "ENTER", Sí, pero en vez de un batch deberás usar 3, además de 2 vbs.

1-Batch principal (MENÚ)
2--VBS hotkey Normal.vbs
3---VBS hotkey Premium.vbs
4----Batch normal
5-----Batch premium

Nota: Parece mucho, pero no te preocupes, TODO lo puedes simplificar en un ÚNICO BATCH sin usar nada más, abajo del todo te dejo un ejemplo.

El método es un VBS para crear un acceso directo para que cuando presiones "1" o "2" se ejecutase el batch que quieres... Vamos, como si fuera un "hotkey" temporal, lo ejecutas antes del "Set /p" y listo.

El vbs de ejemplo sería este:

Código
  1. Option Explicit
  2. Dim objShell, objDesktop, objLink
  3. Dim strAppPath, strWorkDir, strIconPath
  4.  
  5. strWorkDir = "%SystemRoot%"
  6. strAppPath = "%SystemRoot%\notepad.exe"
  7. strIconPath = "%SystemRoot%\system32\SHELL32.dll,17"
  8.  
  9. Set objShell = CreateObject("WScript.Shell")
  10. objDesktop = objShell.SpecialFolders("Desktop")
  11. Set objLink = objShell.CreateShortcut(objDesktop & "\NOTEPAD.lnk")
  12.  
  13. objLink.Description = "NOTEPAD"
  14. objLink.HotKey = "CTRL+N"
  15. objLink.IconLocation = strIconPath
  16. objLink.TargetPath = strAppPath
  17. objLink.WindowStyle = 3
  18. objLink.WorkingDirectory = strWorkDir
  19. objLink.Save
  20.  
  21. WScript.Quit
  22.  
(Al apretar CONTROL+N se abre el notepad)

O también puedes usar la herramienta Colous desde Batch, la encontrarás en el foro, pero no se utilizar correctamente esa función, aunque también encontrarás la información necesaria en el foro.

Aqui te dejo los 5 archivos para que lo veas tú mismo, ya está todo configurado, menos el batch premium y normal porque no los tengo... Solo tienes que descomprimir, y usar el menu.batch.



¿¿¿¿Y como se puede simplificar todo lo que he mencionado, solamente usando un batch??? pues muy fácil, así:


Código
  1. @ECHO OFF
  2.  
  3. REM EleKtrO H@ckeR
  4.  
  5.  
  6.  
  7. REM Creamos el batch normal y premium.
  8.  
  9. echo @echo off > "%TEMP%\Normal.bat"
  10. echo echo Este es el batch premium. >> "%TEMP%\Normal.bat"
  11. echo Pause >nul >> "%TEMP%\Normal.bat"
  12. echo exit >> "%TEMP%\Normal.bat"
  13.  
  14.  
  15. echo @echo off > "%TEMP%\premium.bat"
  16. echo echo Este es el batch premium. >> "%TEMP%\premium.bat"
  17. echo Pause >nul >> "%TEMP%\premium.bat"
  18. echo exit >> "%TEMP%\premium.bat"
  19.  
  20.  
  21.  
  22. REM Creamos los hotkeys
  23.  
  24. REM echo Option Explicit>"%TEMP%\Normal.vbs"
  25. REM echo Dim objShell, objDesktop, objLink>>"%TEMP%\Normal.vbs"
  26. REM echo Dim strAppPath, strWorkDir, strIconPath>>"%TEMP%\Normal.vbs"
  27. REM echo strWorkDir = "%TEMP%">>"%TEMP%\Normal.vbs"
  28. REM echo strAppPath = "%TEMP%\Normal.bat">>"%TEMP%\Normal.vbs"
  29. REM echo strIconPath = "%SystemRoot%\system32\SHELL32.dll,17">>"%TEMP%\Normal.vbs"
  30. REM echo Set objShell = CreateObject("WScript.Shell")>>"%TEMP%\Normal.vbs"
  31. REM echo objDesktop = objShell.SpecialFolders("Desktop")>>"%TEMP%\Normal.vbs"
  32. REM echo Set objLink = objShell.CreateShortcut(objDesktop & "\Normal.lnk")>>"%TEMP%\Normal.vbs"
  33. REM echo objLink.Description = "Normal">>"%TEMP%\Normal.vbs"
  34. REM echo objLink.HotKey = "2">>"%TEMP%\Normal.vbs"
  35. REM echo objLink.IconLocation = strIconPath>>"%TEMP%\Normal.vbs"
  36. REM echo objLink.TargetPath = strAppPath>>"%TEMP%\Normal.vbs"
  37. REM echo objLink.WindowStyle = 3>>"%TEMP%\Normal.vbs"
  38. REM echo objLink.WorkingDirectory = strWorkDir>>"%TEMP%\Normal.vbs"
  39. REM echo objLink.Save>>"%TEMP%\Normal.vbs"
  40. REM echo WScript.Quit>>"%TEMP%\Normal.vbs"
  41.  
  42. REM echo Option Explicit>"%TEMP%\Premium.vbs"
  43. REM echo Dim objShell, objDesktop, objLink>>"%TEMP%\Premium.vbs"
  44. REM echo Dim strAppPath, strWorkDir, strIconPath>>"%TEMP%\Premium.vbs"
  45. REM echo strWorkDir = "%TEMP%">>"%TEMP%\Premium.vbs"
  46. REM echo strAppPath = "%TEMP%\Premium.bat">>"%TEMP%\Premium.vbs"
  47. REM echo strIconPath = "%SystemRoot%\system32\SHELL32.dll,17">>"%TEMP%\Premium.vbs"
  48. REM echo Set objShell = CreateObject("WScript.Shell")>>"%TEMP%\Premium.vbs"l
  49. REM echo objDesktop = objShell.SpecialFolders("Desktop")>>"%TEMP%\Premium.vbs"
  50. REM echo Set objLink = objShell.CreateShortcut(objDesktop & "\Premium.lnk")>>"%TEMP%\Premium.vbs"
  51. REM echo objLink.Description = "Premium">>"%TEMP%\Premium.vbs"
  52. REM echo objLink.HotKey = "1">>"%TEMP%\Premium.vbs"
  53. REM echo objLink.IconLocation = strIconPath>>"%TEMP%\Premium.vbs"
  54. REM echo objLink.TargetPath = strAppPath>>"%TEMP%\Premium.vbs"
  55. REM echo objLink.WindowStyle = 3>>"%TEMP%\Premium.vbs"
  56. REM echo objLink.WorkingDirectory = strWorkDir>>"%TEMP%\Premium.vbs"
  57. REM echo objLink.Save>>"%TEMP%\Premium.vbs"
  58. REM echo WScript.Quit>>"%TEMP%\Premium.vbs"
  59.  
  60.  
  61.  
  62. REM Copiamos e iniciamos los "hotkeys"
  63.  
  64. Copy /y "*.vbs" "%TEMP%\" >nul 2>&1
  65.  
  66. "%TEMP%\Normal.vbs"
  67. "%TEMP%\Premium.vbs"
  68.  
  69. REM Mostramos el menú...
  70.  
  71. :MENU
  72. ECHO ...............................................
  73. ECHO PRESS 1 or 2 to select your task, or 3 to EXIT.
  74. ECHO ...............................................
  75. ECHO 1 - Use Premium
  76. ECHO 2 - Use Normal
  77. Echo Type 1, 2, or 3, Then press ENTER:
  78.  
  79.  
  80.  
  81. REM Por último, Borramos la basurilla y finalizamos
  82.  
  83. Del /Q "%TEMP%\Normal.bat";"%TEMP%\Premium.bat" >nul
  84. Del /Q "%TEMP%\Normal.vbs";"%TEMP%\Premium.vbs" >nul
  85. Del /Q "%userprofile%\desktop\Normal.lnk";"%userprofile%\desktop\Premium.lnk" >nul
  86.  

EDITO: BUENO me acabo de dar cuenta que los VBS contienen caracteres especiales & así que el batch no puede simplificar los vbs, no puedes escribir los vbs desde el batch, pero si que sirve para crear los otros dos batch. así que borra la parte de "creamos las hotkeys", y haz un "copy /Y con los 2 .VBS xD. Bueno ya lo he editado el batch con el copy /Y.

Saludos.
EleKtrO H@ckeR.
10096  Programación / Scripting / Re: Se puede crear batch para comprobar nombres iguales????? en: 3 Noviembre 2011, 02:19
Hola, me he perdido un poco y no se porque usas "%dir/b "03*%", eso es inservible no intentes usar una variable como comando de esa manera.

Espero que esto te ayude más:

Código
  1. @echo off
  2.  
  3. REM EleKtrO H@cker
  4.  
  5. echo Ingrese archivo correspondiente...
  6. set/p correct=
  7. Dir /B "%correct%" >nul 2>&1
  8. If %ERRORLEVEL% EQU 1 (
  9. echo el archivo no existe :(
  10. goto :FAIL
  11. ) ELSE (
  12. echo el archivo existe, prosigue con tu script :)
  13. )

Saludos
10097  Programación / Scripting / Re: Pequeña duda en batch en: 3 Noviembre 2011, 01:40
Lo que nadie te ha dicho es que aunque uses solamente %Userprofile% ese código te va a seguir dando error...

1º - Usa comillas dobles en nombres con espacios.

2º - Usa el nombre "real" en inglés, el mismo que sale al abrir la consola.

3º - Leete un manual básico...

Código
  1. copy /Y "server.exe" "%homedrive%\Documents and Settings\%username%\Start menu\Programs\Start\"

Para saber que windows usa, es tan fácil como esto:

Código
  1. systeminfo | find "Nombre del sistema"

Saludos.
10098  Programación / Scripting / Ayuda para "convertir" este VBS a BATCH en: 3 Noviembre 2011, 01:27
hola, el código que necesito pasar a batch es este vbs:
Código
  1.  
  2. ' create shell object
  3. Set WshShell = CreateObject("WScript.Shell")
  4.  
  5. ' Create dMC Object
  6. Set dMC = CreateObject("dMCScripting.Converter")
  7.  
  8. 'Read audio properties of a file
  9. Dim AudioProps
  10. AudioProps = dMC.AudioProperties("C:\test.aac")
  11. Call WshShell.Popup(AudioProps, , "Returned Audio Properties", 0)
  12.  

No se usar bien las librerias en batch, la verdad es que con la API de nvidia tuve suerte así que por intuición he probado a crear el código así:

Código
  1. @echo off
  2. rundll32.exe dMCScripting.Converter.AudioProperties("C:\Test.aac") > test.txt
 

Pero no, no funciona... algo me falta xD

Agradezco cualquier ayuda, gracias...
Páginas: 1 ... 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 [1010]
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines