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


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 ... 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 [1011] 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 ... 1254
10101  Programación / Scripting / Re: ¿Se puede sacar el md5 en batch? en: 24 Diciembre 2012, 08:31 am
¿Te refieres a generar un MD5?, ¿o te refieres a descifrar un MD5?

De todas formas séa cual séa olvídate de criptología y ese tipo de cosas usando Batch :xD

Puedes usar la utilidad commandline externa "md5.exe" para generar el hash desde la consola, obviamente si usases ruby  o python o... no necesitarías utilidades externas.
ahora, si hablamos de desencriptarlo, infórmate sobre las carecterísticas de un hash MD5 y lo imposible que es (aunque no imposible del todo según dicen algunos crackers , pero yo hasta día de hoy solo he visto ejemplos online (y de pago) :-/...).

Saludos!
10102  Sistemas Operativos / Windows / Re: que Windows xp modificado Lite me recomiendan ? en: 24 Diciembre 2012, 08:28 am
son pesimos, usa una versión profesional completa, las demás son basura

+1

Y lo mejor es crearse tu propio Lite, así sabes lo que se ha eliminado del sistema bajo tus necesidades, y lo que te puede ocasionar problemas.
10103  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda Editor de Texto VB .NET en: 24 Diciembre 2012, 07:49 am
Te diría la forma más sencilla de hacerlo en 2 simples líneas usando Batch, bueno, usando el comando nativo de Windows "FTYPE" + ASSOC, y podrías usar "process.start" para hacerlo, pero creo que se me echarían encima xD y no quiero usar malas costumbres.

Primero tienes que registrar la extensión en el registro (Cuando digo registrar simplemente me refiero a crear la subclave en la rama HKEY_CLASSES_ROOT)
Y por último tienes que associar la extensión al programa que desees.

Por último déjame decirte que existen conversores de C# a VB.NET, y este es el code que te ha ofrecido $Edu$ convertido:

Código
  1. Imports Microsoft.Win32
  2. Imports System.Runtime.InteropServices
  3.  
  4. Public Class FileAssociation
  5. ' Associate file extension with progID, description, icon and application
  6. Public Shared Sub Associate(extension As String, progID As String, description As String, icon As String, application As String)
  7. Registry.ClassesRoot.CreateSubKey(extension).SetValue("", progID)
  8. If progID IsNot Nothing AndAlso progID.Length > 0 Then
  9. Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(progID)
  10. If description IsNot Nothing Then
  11. key.SetValue("", description)
  12. End If
  13. If icon IsNot Nothing Then
  14. key.CreateSubKey("DefaultIcon").SetValue("", ToShortPathName(icon))
  15. End If
  16. If application IsNot Nothing Then
  17. key.CreateSubKey("Shell\Open\Command").SetValue("", ToShortPathName(application) + " ""%1""")
  18. End If
  19. End Using
  20. End If
  21. End Sub
  22.  
  23.  
  24.  
  25. ' Return true if extension already associated in registry
  26. Public Shared Function IsAssociated(extension As String) As Boolean
  27. Return (Registry.ClassesRoot.OpenSubKey(extension, False) IsNot Nothing)
  28. End Function
  29.  
  30.  
  31.  
  32. <DllImport("Kernel32.dll")> _
  33. Private Shared Function GetShortPathName(lpszLongPath As String, <Out> lpszShortPath As StringBuilder, cchBuffer As UInteger) As UInteger
  34. End Function
  35.  
  36.  
  37.  
  38. ' Return short path format of a file name
  39. Private Shared Function ToShortPathName(longName As String) As String
  40. Dim s As New StringBuilder(1000)
  41. Dim iSize As UInteger = CType(s.Capacity, UInteger)
  42. Dim iRet As UInteger = GetShortPathName(longName, s, iSize)
  43. Return s.ToString()
  44. End Function
  45.  
  46.  
  47. End Class




EDITO:

He probado el code y no me ha funcionado en Windows7, escribe datos corruptos para el valor "icono" y "program", por ejemplo al usarlo así:
Código
  1. Associate(".Happy", "Notepad", "Happy Textfile", "notepad.exe,0", "notepad.exe")

En lugar de escribir "Notepad.exe", esto es lo que escribe en el registro: P+^ "%1"

Creo que el error sucede sólamente si tienes los nombres cortos desactivados en el sistema (como en mi caso),
la forma de arreglarlo es eliminando ToShortPathName en el código, y eliminar la función ToShortPathName que al no ser llamada ya no nos sirve para nada,
me parece una tontería que lo hayan puesto,
y ya con eso anda bien en mi caso :).

PD: Gracias por el code $Edu$


10104  Programación / .NET (C#, VB.NET, ASP) / Re: ¿Como comprobar que imagen está usando un control? en: 24 Diciembre 2012, 07:44 am
Sí, me sacaste del apuro $Edu$, bueno en realidad ví una solución muy parecida en Google después de postear la pregunta xD, lo que hice fue añadir un tag personalizado cuando modifico la imagen del control:

Código
  1. ...
  2.       Button1.Image = My.Resources.Cancel_button
  3.       Button1.Tag = "Cancel"
  4. ...
  5.  
  6.       If Button1.Tag = "Cancel" Then
  7.            Want_to_cancel_thread = True
  8.            While Not Thread_is_completed = True
  9.                Application.DoEvents()
  10.            End While
  11. ...


Gracias.
10105  Programación / Scripting / Re: Simulador de SO [Batch] en: 24 Diciembre 2012, 07:41 am
El tema queda abierto de nuevo a petición personal,
Esto no quiera decir que vuelva a ser cerrado si empiezan a desvirtuar el tema hacia la recuperación de datos, estamos en scripting, respeten el tema.

Un saludo!
10106  Programación / Scripting / Re: Detectar correctamente unidad de un pendrive en: 24 Diciembre 2012, 07:25 am
@lucaslopezld123

Tienes que entender como funciona Windows,
El error no lo puedes suprimir desde Batch, porque no es un error, ni tampoco tiene que ver con Batch,
Es un aviso de Windows cuando intentas acceder a un dispositivo que no se encuentra disponible.

Para evitar el aviso de Windows, lo que debes hacer es filtrar (es decir, NO intentar procesar) las unidades de disquetera y las de CD/DVD-ROM.

Puedes usar este ejemplo para tus intenciones haciendo unas pequeña modificaciones en el código > [BATCH] copiar y ocultar virus en unidades extraibles

Código:
Find /I "extra"
por:
Código:
Find /I "ROM"

Eso te servirá para las unidades ópticas, pero el equipo reconoce la disquetera como una unidad "extraíble", osea, se reconoce como si fuera un usb o un disco duro extraíble, así que lo único que puedes hacer es eliminar la letra "A:\" del FOR, o deshabilitar temporálmente el dispositivo "A:\" en el equipo.

Saludos.
10107  Programación / Scripting / Re: [BATCH] copiar y ocultar virus en unidades extraibles en: 24 Diciembre 2012, 07:13 am
Código
  1. @Echo OFF
  2.  
  3. REM By Elektro H@cker
  4.  
  5. :: Obtenemos las letras de unidades conectadas
  6. For /F "tokens=* delims=Unidades:\ " %%@ in ('fsutil fsinfo drives') Do (
  7. Call Set "Drives=%%@"
  8. Call Set "Drives=%%DRIVES::=%%"
  9. Call Set "Drives=%%DRIVES:\=%%"
  10. Call :isUSB?
  11. REM Listar
  12. Call Echo [Unidades] %%USBs:~1%% | MORE
  13. )
  14.  
  15. :: FIN
  16. Echo Se han procesado todas las unidades. | MORE
  17. Pause&Exit
  18.  
  19. REM Comprueba si la unidad es un dispositivo USB
  20. :isUSB?
  21. For %%X in (%DRIVES%) Do (fsutil fsinfo drivetype %%X:\ | Find /I "extra" >NUL && (Call Set "USBs=%%USBs%% %%X"))
  22. Goto:EOF

> Buscar y Listar archivos con cierta extensión en una computadora



También te puede servir este script:



> [BATCH] [APORTE] USB MON (Roba USB)

Saludos
10108  Programación / Scripting / Re: [BATCH]Problema con IF LSS en: 24 Diciembre 2012, 06:58 am
Te voy a mostrar la diferencia.

Limite Batch:
Código
  1. if -999999999 LSS 10 (
  2. Echo Es menor que 10
  3. )
* 9 dígitos



Límite VBS:
Código
  1. if -99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 < 10 then
  2. Wscript.Echo "Menor que 10"
  3. End If
* 308 dígitos



Límite Ruby:
Código
  1. If -999...(Así hasta más de UN MILLÓN DE DIGITOS) < 10
  2.     print "Es menor de 10"
  3. end
PD: Ruby no tiene límite alguno porque convierte los enteros.



Límite python:
* Lo mismo que Ruby.

Saludos.
10109  Programación / Scripting / Re: [BATCH] Virus raro. ¿Funcionaria? en: 24 Diciembre 2012, 06:28 am
Dejando a un lado que Batch no es el camino para ese tipo de cosas,
Sigues haciendo codes sin tener intención de probarlos en una máquina virtual, y así no vas a aprender jamás.



-El código que se supone que bloquea teclado+ratón:
Lo único que hacen es eliminar el el archivo del driver del teclado y del mouse, realmente no bloquean nada.
El code solo afecta a WinXP, ya que en Windows 7 esos archivos no existen en esas rutas.
El executable "rund1132" no existe, es "Rundll32", y la función "disable" de esa dll no existe ni en WindowsXP ni en Windows 7, por lo tanto no te va a funcionar, encontraste información demasiado antigua.

- El código que se supone que elimina el administrador de tareas:
simplemente agregas una entrada en la política de grupo para denegar permisos al taskmanager, la cual se puede restaurar modificando el valor de nuevo a "0"

- El código que se supone que elimina el firewall:
simplemente intentas DETENER un servicio (Para eso sirve "net stop"), servicio el cual nisiquiera existe, pusiste el nombre de los dos servicios juntos separados con una barra diagonal /,
además deteniendo un servicio no sirve de nada si el servicio está en modo automático se volverá a ejecutar cuando el SO lo necesite, debes detenerlo y despues cambiarlo a modo desactivado para que no se siga ejecutando.
EDITO: Aunque corrigieras el nombre, tampoco iba a funcionar si yo le cambio el nombre a mi servicio por precaución, osea, debes usar el identificador del servicio en lugar del nombre (Que además usando el nombre solo funcionará en Windows del idioma castellano).

saludos
10110  Programación / Scripting / Re: [BATCH] comprimir archivos y envio por servidor ftp en: 23 Diciembre 2012, 18:13 pm
Puedes comprimir archivos usando winrar, 7z, uharc, en fin, hay decenas de software commandline,
Un ejemplo usando WinRAR:
Código:
RAR "Archivo.rar" ".\Carpeta"

Para subir un archivo a un FTP puedes usar el comando FTP.exe nativo de Windows (Pura basura) o puedes usar WPUT:
Código:
WPUT.exe "Archivo.zip" "FTP://.../Carpeta/"
http://prdownloads.sourceforge.net/wput/wput-pre0.6.zip?download

Saludos.
Páginas: 1 ... 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 [1011] 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 ... 1254
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines