Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ŞCØRPIØN-X3 en 2 Abril 2011, 20:57 pm



Título: Modificar datos de un archivo
Publicado por: ŞCØRPIØN-X3 en 2 Abril 2011, 20:57 pm
Hola, les traigo otra pregunta xD, alguien sabe como hacer para modificar datos de un archivo como lo hace el famoso resourcehack?, necesito saber como modificar desde vb6.0 datos como Organización, Nombre interno, Versión, Descripción, etc. Busque y no encontre nada :S. Pense modificarlo de forma hexadecimal pero nose como hacerlo desde vb. Espero que me puedan ayudar, Gracias  ;D ;D ;D

Aclaración: Necesito modificarle los datos a un archivo ya compilado, también creado en vb6.


Título: Re: Modificar datos de un archivo
Publicado por: raul338 en 2 Abril 2011, 21:08 pm
Version Information - MSDN (http://msdn.microsoft.com/en-us/library/ms646981%28v=VS.85%29.aspx)

:) Investiga esas funciones y estructuras


Título: Re: Modificar datos de un archivo
Publicado por: seba123neo en 2 Abril 2011, 21:09 pm
esto ya se vio bastanes veces aca, busca que vas a encotnrar post con la solucion, si no me equivoco es abrir el archivo en modo binario y escribirlo despues.


Título: Re: Modificar datos de un archivo
Publicado por: ŞCØRPIØN-X3 en 2 Abril 2011, 21:16 pm
oks gracias por la respuesta  ;D ;D. Ahora me fijo muchas gracias  ;D ;D



Trate de encontrar en el buscador lo que me dijiste pero no encuentro un post que hable de abrir y editar un archivo en binario :S

raul ese es solo para la version sabes como hacer para cambiar la organizacion y la descripcion del archivo?? Tiene que aver alguna API para realizar esto (supongo xD) como la API para cambiar la fecha de creacion de un archivo.


Título: Re: Modificar datos de un archivo
Publicado por: seba123neo en 3 Abril 2011, 00:39 am
Obtener informacion? (http://foro.elhacker.net/empty-t319363.0.html)


Título: Re: Modificar datos de un archivo
Publicado por: ŞCØRPIØN-X3 en 3 Abril 2011, 01:36 am
Hola gracias por la respuesta, lo probe pero no lo logre hacer andar
Código:
Dim oFileInfo As FileVersionInfo
me dice no se ah definido el tipo definido por el usuario, pense que era porque me faltaba hacer referencia a win.ltb, pero puse la referencia y sigue igual :S


Título: Re: Modificar datos de un archivo
Publicado por: raul338 en 3 Abril 2011, 01:37 am
Viste los links que aparecen en ese hilo? en especial este? (http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=73058&lngWId=1)


Título: Re: Modificar datos de un archivo
Publicado por: ŞCØRPIØN-X3 en 3 Abril 2011, 01:39 am
si, pero en esa web no aparece nada :S y ademas de poder obtener los datos tambien necesito poder editarlos


Título: Re: Modificar datos de un archivo
Publicado por: BlackZeroX en 3 Abril 2011, 03:04 am
@ŞCØRPIØN-X3

Dale a Download code, seguro algun dia se te arregla ese problema de NO LEER.

Dulces Lunas!¡.


Título: Re: Modificar datos de un archivo
Publicado por: ŞCØRPIØN-X3 en 3 Abril 2011, 03:21 am
blackzero no me ayuda que vallas por mis post poniendo comentarios que no ayudan en nada... ¬¬


Título: Re: Modificar datos de un archivo
Publicado por: seba123neo en 3 Abril 2011, 05:41 am
como no anda? fijate en el link que te puse antes, ahi mas abajo muestro un ejemplo de como se usa, pega ese codigo y probalo.


Título: Re: Modificar datos de un archivo
Publicado por: ŞCØRPIØN-X3 en 3 Abril 2011, 22:29 pm
Gracias por las respuestas, Seba este es el code o no?

Código:
Dim oFileInfo As FileVersionInfo
 
Private Sub Form_Load()
    Set oFileInfo = New FileVersionInfo
 
    Dim vStr As String
 
    oFileInfo.GetFileVersionInfo "C:\proyecto1.exe"
 
    vStr = "Product Name : " & oFileInfo.ProductName
    vStr = vStr & vbCrLf & "Product Version     : " & oFileInfo.ProductVersion
    vStr = vStr & vbCrLf & "Company Name    : " & oFileInfo.CompanyName
    vStr = vStr & vbCrLf & "File Description   : " & oFileInfo.FileDescription
    vStr = vStr & vbCrLf & "File Version    : " & oFileInfo.FileVersion
    vStr = vStr & vbCrLf & "Internal Name    : " & oFileInfo.InternalName
    vStr = vStr & vbCrLf & "Original Filename    : " & oFileInfo.OriginalFilename
    vStr = vStr & vbCrLf & "Legal Copyright    : " & oFileInfo.LegalCopyright
    vStr = vStr & vbCrLf & "BuildID    : " & oFileInfo.BuildID
    vStr = vStr & vbCrLf & "Comments    : " & oFileInfo.Comments
 
    MsgBox vStr
 
    Set oFileInfo = Nothing
End Sub

Si es este no me funciona, me dice: No se ah definido el tipo definido por el usuario en la siguiente linea:
Código:
Dim [b]oFileInfo As FileVersionInfo[/b]
Debe faltar alguna referencia...


Título: Re: Modificar datos de un archivo
Publicado por: BlackZeroX en 3 Abril 2011, 22:48 pm
.

blackzero no me ayuda que vallas por mis post poniendo comentarios que no ayudan en nada... ¬¬

Es enserio, tienes que descargar el archivo que te han dicho... dale a Download code (http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=73058&lngWId=1).

Código
  1.  
  2. Private Type flinfo
  3.    CompanyName As String
  4.    FileDescription As String
  5.    ProductName As String
  6.    FileVersion As String
  7.    ProductVersion As String
  8.    InternalName As String
  9.    OriginalFilename As String
  10.    LegalCopyright As String
  11.    Comments As String
  12.    BuildID As String
  13. End Type
  14. Private fileinformation As flinfo
  15. Private Declare Function GetFileVersiondata Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long
  16.  
  17. Private Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
  18.  
  19.  
  20. Public Function GetFileVersionInfo(filename As String)
  21.    Dim sInfo As String
  22.    Dim temps
  23.    Dim RetVal As Long
  24.    Dim lSizeof As Long
  25.    Dim N As Integer
  26.    lSizeof = GetFileVersionInfoSize(filename, 0)
  27.  
  28.    fileinformation.BuildID = ""
  29.    fileinformation.Comments = ""
  30.    fileinformation.CompanyName = ""
  31.    fileinformation.FileDescription = ""
  32. ....
  33.  
  34.  

Dulces Lunas!¡.
.


Título: Re: Modificar datos de un archivo
Publicado por: ŞCØRPIØN-X3 en 3 Abril 2011, 23:07 pm
ah listo gracias, lo que pasaba era que para poder ver la descarga habia que registrarse.

Ya pude ver el code y funciona perfectamente, pero abra forma de modificar esa información?, es decir, modificar la organización porejemplo