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


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 133
11  Seguridad Informática / Análisis y Diseño de Malware / Re: Hook al ratón. en: 6 Abril 2016, 13:51
HOLA!!!

@fary: Si, mucho tiempo :D!
Cierto, no deberia saltar, pero cuando tenemos un server grande con muchas funciones distintas para ejecutar todas aportan su granito de arena para que salte la heuristica de los avs :P mas alla si el programa solo hace el hook como dices no deberia pasar nada.

GRACIAS POR LEER!!!
12  Seguridad Informática / Análisis y Diseño de Malware / Re: Hook al ratón. en: 4 Abril 2016, 19:48
HOLA!!!

Aunque el Hook muchas veces saltara por heuristica, si se tienen recursos esta buena la idea de ejecutar on the fly el codigo con get cursor pos y que dumpee un log a algun sitio, asi es mas  facil evitar deteccion.

GRACIAS POR LEER!!!
13  Programación / Programación Visual Basic / Re: Se Puede Crear Un Bypass Con VB?? en: 1 Abril 2016, 13:48
HOLA!!!

Si, obvio que se puede, estimo que el juego es online, el primer paso seria monitorear los paquetes que envia el juego y luego mapear los botones y demas que el mismo posea.

GRACIAS POR LEER!!!
14  Programación / Programación Visual Basic / Re: Ayuda por favor;) en: 29 Marzo 2016, 16:37
HOLA!!!

Espero que te sirva...

Forma de siempre:
Código
  1. Private Const SPIF_UPDATEINIFILE = &H1
  2. Private Const SPI_SETDESKWALLPAPER = 20
  3. Private Const SPIF_SENDWININICHANGE = &H2
  4.  
  5. Private Declare Function SystemParametersInfo Lib "user32" Alias _
  6. "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
  7. ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
  8.  
  9.  
  10. Public Enum REG_TOPLEVEL_KEYS
  11. HKEY_CLASSES_ROOT = &H80000000
  12. HKEY_CURRENT_CONFIG = &H80000005
  13. HKEY_CURRENT_USER = &H80000001
  14. HKEY_DYN_DATA = &H80000006
  15. HKEY_LOCAL_MACHINE = &H80000002
  16. HKEY_PERFORMANCE_DATA = &H80000004
  17. HKEY_USERS = &H80000003
  18. End Enum
  19.  
  20.  
  21. Private Declare Function RegCreateKey Lib _
  22.   "advapi32.dll" Alias "RegCreateKeyA" _
  23.   (ByVal Hkey As Long, ByVal lpSubKey As _
  24.   String, phkResult As Long) As Long
  25.  
  26. Private Declare Function RegCloseKey Lib _
  27.   "advapi32.dll" (ByVal Hkey As Long) As Long
  28.  
  29. Private Declare Function RegSetValueEx Lib _
  30.   "advapi32.dll" Alias "RegSetValueExA" _
  31.   (ByVal Hkey As Long, ByVal _
  32.   lpValueName As String, ByVal _
  33.   Reserved As Long, ByVal dwType _
  34.   As Long, lpData As Any, ByVal _
  35.   cbData As Long) As Long
  36.  
  37. Private Const REG_SZ = 1
  38.  
  39.  
  40. Public Function ChangeWallPaper(ImageFile As String, Tile As Boolean)
  41.  
  42. 'Pass Full Path of .BMP to this function
  43. 'Returns true if successful, false otherwise
  44. 'If you want to tile, set Tile to True
  45.  
  46. Dim lRet As Long
  47. On Error Resume Next
  48.  
  49. If Tile Then WriteStringToRegistry HKEY_CURRENT_USER, _
  50.  "Control Panel\desktop", "TileWallpaper", "1"
  51.  
  52. lRet = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ImageFile, _
  53.   SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  54. ChangeWallPaper = lRet <> 0 And Err.LastDllError = 0
  55. End Function
  56.  
  57. Private Function WriteStringToRegistry(Hkey As _
  58.  REG_TOPLEVEL_KEYS, strPath As String, strValue As String, _
  59.  strdata As String) As Boolean
  60.  
  61.  
  62. Dim bAns As Boolean
  63.  
  64. On Error GoTo ErrorHandler
  65.   Dim keyhand As Long
  66.   Dim r As Long
  67.   r = RegCreateKey(Hkey, strPath, keyhand)
  68.   If r = 0 Then
  69. r = RegSetValueEx(keyhand, strValue, 0, _
  70.   REG_SZ, ByVal strdata, Len(strdata))
  71. r = RegCloseKey(keyhand)
  72. End If
  73.  
  74.   WriteStringToRegistry = (r = 0)
  75.  
  76. Exit Function
  77.  
  78. ErrorHandler:
  79. WriteStringToRegistry = False
  80. Exit Function
  81.  
  82. End Function
  83.  
  84.  
  85.  
  86.  
  87. Private Sub Form_Load()
  88. Dim x, sourcef
  89. sourcef = "c:\tuimagen.bmp" 'PATH DE LA IMAGEN PARA EL FONDO DE PANTALLA
  90. x = ChangeWallPaper(sourcef, False)
  91. Unload Me
  92. End Sub
  93.  

Forma reducida con otro metodo no tan usado:
Código
  1. 'general declaration in the module or change scope to Private if you declare this in the form
  2. Option Explicit
  3.  
  4. Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
  5.                        (ByVal uAction As Long, ByVal uParam As Long, _
  6.                         ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
  7.  
  8. Public Const SPI_SETDESKWALLPAPER = 20
  9. Public Const SPIF_SENDWININICHANGE = &H2
  10. Public Const SPIF_UPDATEINIFILE = &H1
  11.  
  12. 'typical usage
  13. Dim strImagePath As String
  14.  
  15. strImagePath = "c:\tuimagen.bmp"
  16. Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, strImagePath, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

GRACIAS POR LEER!!!
15  Programación / Programación Visual Basic / Re: [Solucionado] Proyecto Reconocimiento facial. Donde Empezar. en: 10 Diciembre 2015, 18:59
HOLA!!!

@razomota : Si reabres un tema solo para un comentario que no aporte por favor no lo hagas.

GRACIAS POR LEER!!!
16  Programación / .NET (C#, VB.NET, ASP) / Re: [VB.net] Porteo de la implementacion del api de WhatsApiNet WhatsApp WhatsAppAPI en: 7 Octubre 2015, 13:11
HOLA!!!

@rogi , Apis para net ninguna que yo sepa, la unica que es estable y funcional es la que linkee en mi ultimo post es para php, lo podes correr local en la pc y establecer una conexión por sockets para comunicar tu soft con el WhatsBot

GRACIAS POR LEER!!!
17  Programación / .NET (C#, VB.NET, ASP) / Re: [VB.net] Porteo de la implementacion del api de WhatsApiNet WhatsApp WhatsAppAPI en: 6 Octubre 2015, 13:19
HOLA!!!

He estado haciendo los testeos pertinentes y whatsapp ha tirado abajo la compatibilidad de esta api, el core de la misma ha sido descontinuado. Ahora mismo hay otras apis fucionando pero lamentablemente no para VB.NET o C#, ademas que las que funcionan los numeros utilizados son bloqueados por varias razones luego de un tiempo aleatorio, por lo cual no son nada confiables.

Recomendaria a los moderadores bloquear el tema, y a los interesados ingresar en https://github.com/fermino/WhatsBot que es uno de los que mantiene a tiro la implementacion.

GRACIAS POR LEER!!!
18  Programación / Programación Visual Basic / Re: Por que Un ListBox con mas de 32767 items no funciona en: 31 Agosto 2015, 15:51
HOLA!!!

Tu deduccion es correcta, es un +/-integer el index y el listcount, soluciones 2:

1, Utilizar un Listview que deberia tener limite long creo.

2, y mas simple para tu codigo, usar una variable CT (contadora) cada vez que agregas o quitas un elemento, de tal manera que sepas la cantidad que tenes, y cuando llegas a 32769 te vas a otro for que empiece desde -32767, todo asi hasta que se complete CT.

GRACIAS POR LEER!!!
19  Programación / Programación Visual Basic / Re: Pequeño reto en: 21 Agosto 2015, 19:54
HOLA!!!

XD estaban hablando de mi y mi reto...

Black lo gano bien ganado no hay mucho que hacer ni mucho que inventar XD  :silbar:

GRACIAS POR LEER!!!
20  Programación / Programación Visual Basic / Re: Consulta con variable en: 7 Agosto 2015, 15:02
HOLA!!!

Debes hacer una matriz de controles!

GRACIAS POR LEER!!!
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 133
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines