elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
28 Mayo 2012, 08:37  


Tema destacado: Deseas probar algunas mejoras a la interfaz del foro? Prueba cake! acerca de

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderador: [D4N93R])
| | | |-+  [Solucionado] Obtener código MD5 Checksum de un proceso abierto
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Solucionado] Obtener código MD5 Checksum de un proceso abierto  (Leído 736 veces)
Segurida

Desconectado Desconectado

Mensajes: 61


Ver Perfil
[Solucionado] Obtener código MD5 Checksum de un proceso abierto
« en: 8 Mayo 2011, 21:52 »

Pues eso, necesito saber el método para obtener el código MD5 Checksum de un proceso abierto, de cualquier proceso, sin necesidad de cerrarlo, aquí dejo el código para los que necesiten obtener el código MD5 Checksum de un archivo:
Código
' Para que este código funcione "tal cual está" necesitas:
' Form1 y dentro TextBox1 (multilínea activado)
 
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
 
Public Class Form1
   Protected Function MD5Checksum(ByVal fileName As String) As String
       Dim file As New FileStream(fileName, FileMode.Open)
       Dim md5 As MD5 = New MD5CryptoServiceProvider()
       Dim retVal As Byte() = md5.ComputeHash(file)
       file.Close()
 
       Dim sb As New StringBuilder()
       For i As Integer = 0 To retVal.Length - 1
           sb.Append(retVal(i).ToString("x2"))
       Next
       Return sb.ToString()
   End Function
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Text = MD5Checksum("C:\imagen1.jpg").ToString + vbCrLf + MD5Checksum("C:\imagen1 - copia.jpg").ToString
   End Sub
End Class
 
Este código puede ser muy útil, lo comparto con todo el que lo necesite  ;)
Si alguien sabe hacer lo que pido, por favor que avise, he probado a poner la ruta de un proceso .exe que se esté ejecutando, y da error, si alguien sabe cómo hacerlo sin cerrar dicho proceso, se los agradezco.
saludos.


« Última modificación: 14 Mayo 2011, 19:03 por Segurida » En línea
seba123neo


Desconectado Desconectado

Mensajes: 3.214



Ver Perfil WWW
Re: Obtener código MD5 Checksum de un proceso abierto
« Respuesta #1 en: 8 Mayo 2011, 22:17 »

Hola, proba esto, a mi me funciona bien.

Código
Imports System.IO
 
Public Class Form1
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       MsgBox(ObtenerHashProceso("C:\Archivos de programa\Mozilla Firefox\firefox.exe", Security.Cryptography.MD5.Create))
   End Sub
 
   Public Shared Function ObtenerHashProceso(ByVal pPath As String, ByVal pTipoHash As Security.Cryptography.HashAlgorithm) As String
       Dim vHASH As String
 
       Dim vStream As FileStream = File.OpenRead(pPath)
 
       Dim vArrHash As Byte() = pTipoHash.ComputeHash(vStream)
 
       vHASH = BitConverter.ToString(vArrHash).Replace("-", "")
 
       vStream.Close()
 
       Return vHASH
   End Function
End Class

saludos.


En línea

Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
Segurida

Desconectado Desconectado

Mensajes: 61


Ver Perfil
Re: Obtener código MD5 Checksum de un proceso abierto [Tema resuelto]
« Respuesta #2 en: 8 Mayo 2011, 22:24 »

Muchas gracias, funciona perfecto, mil gracias  :)
Tema resuelto.
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines