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


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  [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 3,536 veces)
Segurida

Desconectado Desconectado

Mensajes: 61


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

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
  1. ' Para que este código funcione "tal cual está" necesitas:
  2. ' Form1 y dentro TextBox1 (multilínea activado)
  3.  
  4. Imports System.IO
  5. Imports System.Text
  6. Imports System.Security.Cryptography
  7.  
  8. Public Class Form1
  9.    Protected Function MD5Checksum(ByVal fileName As String) As String
  10.        Dim file As New FileStream(fileName, FileMode.Open)
  11.        Dim md5 As MD5 = New MD5CryptoServiceProvider()
  12.        Dim retVal As Byte() = md5.ComputeHash(file)
  13.        file.Close()
  14.  
  15.        Dim sb As New StringBuilder()
  16.        For i As Integer = 0 To retVal.Length - 1
  17.            sb.Append(retVal(i).ToString("x2"))
  18.        Next
  19.        Return sb.ToString()
  20.    End Function
  21.  
  22.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  23.        TextBox1.Text = MD5Checksum("C:\imagen1.jpg").ToString + vbCrLf + MD5Checksum("C:\imagen1 - copia.jpg").ToString
  24.    End Sub
  25. End Class
  26.  
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 pm por Segurida » En línea

seba123neo


Desconectado Desconectado

Mensajes: 3.621



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

Hola, proba esto, a mi me funciona bien.

Código
  1. Imports System.IO
  2.  
  3. Public Class Form1
  4.  
  5.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.        MsgBox(ObtenerHashProceso("C:\Archivos de programa\Mozilla Firefox\firefox.exe", Security.Cryptography.MD5.Create))
  7.    End Sub
  8.  
  9.    Public Shared Function ObtenerHashProceso(ByVal pPath As String, ByVal pTipoHash As Security.Cryptography.HashAlgorithm) As String
  10.        Dim vHASH As String
  11.  
  12.        Dim vStream As FileStream = File.OpenRead(pPath)
  13.  
  14.        Dim vArrHash As Byte() = pTipoHash.ComputeHash(vStream)
  15.  
  16.        vHASH = BitConverter.ToString(vArrHash).Replace("-", "")
  17.  
  18.        vStream.Close()
  19.  
  20.        Return vHASH
  21.    End Function
  22. End Class

saludos.


En línea

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 pm »

Muchas gracias, funciona perfecto, mil gracias  :)
Tema resuelto.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Saber si un proceso esta abierto.
Scripting
Pony-Magic 2 4,584 Último mensaje 31 Diciembre 2008, 20:48 pm
por -Soldier-
API para que el programa detecte si esta abierto un proceso antes de continuar
Programación Visual Basic
Franqox 9 9,680 Último mensaje 23 Diciembre 2010, 20:54 pm
por BlackZeroX
Checksum Proceso?
Scripting
ieio 4 4,864 Último mensaje 24 Abril 2011, 00:50 am
por ieio
(solucionado) [Ruby] Comprobar si un archivo está abierto por un proceso ???
Scripting
Eleкtro 6 8,284 Último mensaje 6 Marzo 2012, 22:53 pm
por Eleкtro
Ocultar proceso abierto con bat
Scripting
arrebato21 2 3,176 Último mensaje 12 Octubre 2014, 23:53 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines