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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16
81  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..

82  Seguridad Informática / Abril negro / Re: Abril Negro 2010 en: 1 Abril 2010, 16:54 pm
Me encanta este mes, aparte de que cumpla en este mes.. cada programador saca su lado mas malvado de dentro  >:D
A ver si me animo y me doy prisa.. y publico algo lindo en C =P

Saludos!  ;D
83  Programación / Programación Visual Basic / Re: Problemas con WriteFile & ReadFile.. en: 27 Marzo 2010, 13:39 pm
Nada.. lo tendré que hace rcon Open for binary..  :-X
84  Programación / Programación Visual Basic / Re: Problemas con WriteFile & ReadFile.. en: 27 Marzo 2010, 00:00 am
Me sigue sin funcionar B0X.. he probado con CREATE_NEW y tampoco funciona.
85  Programación / Programación Visual Basic / Re: Problemas con WriteFile & ReadFile.. en: 26 Marzo 2010, 23:27 pm
Look :



Me crea un archivo de 0 bytes.. =/

Saludos! :huh:

86  Programación / Programación Visual Basic / Re: Problemas con WriteFile & ReadFile.. en: 26 Marzo 2010, 23:11 pm

no es un reemplazo de codigo.

solo es en lugar de pasarle el strconv()

hacerle un:
Lbound(xres), Ubound(xres)
en lugar de
sRes, Len(sRes)

teniendo mejor velocidad

P.D.: Es graciosa la forma de calcular el porcentaje.

Dulces Lunas!¡.


B0x tu y tus 'tikismikadas'  :laugh:
A que mola mi calculo de porcentaje  :xD

Bueno eso que me has dejado es para aumentar la velocidad tal.. pero para corregir los problemas que tengo con esas dos APIs? que es lo que me interesa realmente.

87  Programación / Programación Visual Basic / Re: Problemas con WriteFile & ReadFile.. en: 26 Marzo 2010, 23:02 pm
Alguna solución a mis problemas?, no quiero reemplazar code.. quiero solucionarlo.
88  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:


89  Programación / Programación Visual Basic / Re: Load wav file from res in a dll en: 20 Enero 2010, 13:48 pm
Primero que nada, creo que esto lo aclare 1000 veces, ntaryl no habla ingles habla griego, asi que hace lo que puede.
Segundo, en HH hay secciones especiales para otros lenguajes
Tercero en este foro hay contenido mezclado y no hay restriccionescon el idioma hasta donde tengo entendido

Y por ultimo para contestar tu pregunta imagino que es simplemente una diferencia cultural, vos al igual ue muchos usuarios aca hablamos, mejor o peor pero hablamos ingles y me imagino que eso no pasa al reves.

Bueno, pero respectivas secciones en ese foro no se 'explotan' tanto como el foro ensi.. pero no se.. yo defiendo mi idea.
Y está bien que un foro respete todos los idiomas eso es lo que tendrían que hacer los demás.

Saludos!
90  Programación / Programación Visual Basic / Re: Load wav file from res in a dll en: 20 Enero 2010, 02:44 am
//Offtopic : Jeje.. porqué cuando una persona que habla inglés accede a un foro español.. tenemos que hablar todos en inglés por esa persona? y.. porqué cuando una persona que habla en español (ejemplo) y entra en un foro inglés.. te obligan a hablar inglés? (ej: HackHound)..  :-\

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