Jorge Serrano
  • Home

Visual Basic 2005 :: Obtener el código MD5 de un fichero

  • By jorge
  • Ago-19-2006
  • Sin categor铆a
  • 6 Comments.

 Artículo :: Programación :: Visual Basic 2005

Obtener el código MD5 de un fichero

En este pequeño artículo, vamos a hacer una pequeña utilidad o programa, que nos permita obtener el código MD5 de un fichero dado.

El código MD5 nos servirá para generar una firma (como la firma CRC32 por ejemplo) para verificar que un determinado fichero enviado por un emisor, llega correctamente al receptor.

Esto lo lograremos mediante el uso del nombre de espacio System.IO y System.Security.Cryptography.

El código para realizar esta acción, prácticamente no requiere explicación y es el que se indica a continuación:

Imports System.IO
Imports System.Security.Cryptography

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show(ObtenerMD5(
"c:fichero.zip"))
    
End Sub

    Private Function ObtenerMD5(ByVal fichero As String) As String
        Dim cadenaMD5 As String = ""
        Dim cadenaFichero As FileStream
        
Dim bytesFichero As [Byte]()
        
Dim MD5Crypto As New MD5CryptoServiceProvider
        cadenaFichero = File.Open(fichero, FileMode.Open, FileAccess.Read)
        bytesFichero = MD5Crypto.ComputeHash(cadenaFichero)
        cadenaFichero.Close()
        
For Each datos As Byte In bytesFichero
            
If datos < 16 Then
                cadenaMD5 &= "0" & datos.ToString("X")
            
Else
                cadenaMD5 &= datos.ToString("X")
            
End If
        Next
        Return cadenaMD5
    
End Function

End Class

Añadido del día 22 de Agosto (otra forma de hacer lo mismo pero más directo):

Imports System.IO
Imports System.Security.Cryptography

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show(ObtenerMD5(
"c:Fichero.zip"))
    
End Sub

    Private Function ObtenerMD5(ByVal fichero As String) As String
        Dim cadenaMD5 As String = ""
        Dim cadenaFichero As FileStream
        
Dim bytesFichero As [Byte]()
        
Dim MD5Crypto As New MD5CryptoServiceProvider
        cadenaFichero = File.Open(fichero, FileMode.Open, FileAccess.Read)
        bytesFichero = MD5Crypto.ComputeHash(cadenaFichero)
        cadenaFichero.Close()
        cadenaMD5 = BitConverter.ToString(bytesFichero)
        cadenaMD5 = cadenaMD5.Replace(
"-", "")
        
Return cadenaMD5
    
End Function

End Class

Comments

6 Responsesso far

  1. anonymous dice:
    19 agosto, 2006 a las 7:40 pm

    Este es el primer artículo breve de otros muchos que deseo escribir en mi blog, acerca de pequeñas

    Responder
  2. elbruno dice:
    19 agosto, 2006 a las 8:13 pm

    buen code snippet !!!
    anotado para cuando sea necesario 馃榾

    Gracias

    Responder
  3. anonymous dice:
    21 agosto, 2006 a las 10:40 pm

    Buenas Jorge:

    Una preguntilla, puedes aclarar esta porci贸n de c贸digo:

    If datos < 16 Then cadenaMD5 &= "0" & datos.ToString("X") Else cadenaMD5 &= datos.ToString("X") End If Salu2 y gracias de antemano.

    Responder
  4. jorge dice:
    22 agosto, 2006 a las 12:19 am

    Hola Luis.

    Esa l铆nea de c贸digo, lo que hace es verificar que el valor a tratar es menor que 16.
    15 = 00001111 = 0F
    16 = 00010000 = 10
    Bien, para visto as铆, para a帽adir un 0 delante, miramos si ese valor es menor que 16. En ese caso, extraemos el valor y le ponemos delante un 0.

    Pero todo este c贸digo puede simplificarse a煤n m谩s y eso es lo que incluyo ahora como a帽adido.

    No es que est茅 mal el c贸digo que he puesto, pero creo que es m谩s directo darle una vuelta m谩s, as铆 que sirvan los dos ejemplos como soluci贸n.

    Espero que ahora est茅 m谩s claro. 馃檪

    Responder
  5. anonymous dice:
    5 mayo, 2010 a las 4:39 pm

    Leider muss ich sagen, dass alles was ich gelesen habe ist reine Scheisse

    Responder
  6. anonymous dice:
    5 enero, 2011 a las 12:07 pm

    Hola, este c贸digo funciona el VB6? Respondeme porfavor (jokingam @ gmail . com) une los espacios

    Responder

Deja un comentario Cancelar respuesta

Tu direcci贸n de correo electr贸nico no ser谩 publicada. Los campos obligatorios est谩n marcados con *

← Previous Post Next Post →

Jorge Serrano

MVP Reconnect


Donaciones
Donation

Entradas recientes

  • Go – Tipos de Datos
  • Go – Variables
  • Hello Go-rld!
  • Introducci贸n a Go o Golang
  • JSON Patch en ASP.NET Core 5 Web API
  • Null Checking en C#
  • 驴Porqu茅 mi p谩gina web por defecto de ASP.NET Core no se v茅 en mi Azure Web App y me da un 404?
  • .NET 5 lanzado oficialmente – detalles y consideraciones
  • Configurar el Pipeline de Azure DevOps para compilar proyectos .NET 5
  • 驴C贸mo puedo probar .NET 5 y C# 9?

Categor铆as

  • .NET 5
  • .NET Core
  • .NET Core 3.0
  • .NET Core 3.1
  • .NET Framework 2.0
  • .NET Framework 3.0
  • .NET Framework 3.5
  • .NET Framework 4.0
  • .NET Framework 4.5
  • .NET Framework 4.6
  • .NET Framework 4.7
  • .NET Framework 4.8
  • .NET Standard 2.0
  • .NET Standard 2.1
  • AMQP
  • Android
  • Angular
  • API REST
  • Apple
  • Apple iOS
  • Apple macOs
  • Arquitectura
  • ASP.NET
  • ASP.NET Core
  • ASP.NET Core 3
  • ASP.NET Core 5
  • AWS
  • Azure App Service
  • Azure Application Insights
  • Azure Cosmos DB
  • Azure Database Migration Service
  • Azure Databricks
  • Azure DevOps
  • Azure Event Grid
  • Azure Functions
  • Azure IoT
  • Azure Portal
  • Azure PowerShell
  • Azure Queue Storage
  • Azure SQL
  • Azure Storage
  • Azure Virtual Datacenter
  • Azure WebApps
  • Big Data
  • Bing
  • Blazor
  • Blog
  • Bots
  • C#
  • C# 7.0
  • C# 7.1
  • C# 7.2
  • C# 7.3
  • C# 8.0
  • C# 9.0
  • Channel 9
  • Codeplex
  • Codespaces
  • Containers
  • Debugging
  • DevOps
  • Docker
  • Electron
  • Entity Framework
  • Entity Framework Core
  • Entity Framework Core 3.0
  • Entity Framework Core 5
  • Eventos
  • F#
  • FaaS
  • FeatureFlags
  • FeatureToggles
  • Feeds
  • Fluent Assertions
  • General
  • GIMP
  • Git
  • GitHub
  • Go
  • Google
  • Google Analytics
  • Gradle
  • gRPC
  • GSA
  • Historia de la Inform谩tica
  • HoloLens
  • HtmlAgilityPack
  • IdentityServer4
  • Inkscape
  • Ionic
  • iOS
  • IoT
  • Java
  • JavaScript
  • JDBC
  • JSON
  • Kubernetes
  • Lenguajes de Programaci贸n
  • Libros y Cursos
  • LINQ
  • Linux
  • LiteDB
  • Machine Learning
  • macOS
  • Microservices
  • Microsoft
  • Microsoft .NET Framework 4.5
  • Microsoft 365
  • Microsoft Azure
  • Microsoft Build
  • Microsoft Ignite
  • Microsoft Learn
  • Microsoft Orleans
  • Microsoft Surface Go
  • Microsoft Teams
  • ML.NET
  • MQTT
  • MRO
  • MS-DOS
  • MsCoders Madrid
  • MVP
  • NancyFx
  • Node.js
  • NoSQL
  • NuGet
  • NUnit
  • OData
  • ODP.NET Core
  • Office 2007
  • Office 2010
  • Office 2013
  • Office 2016
  • Office 2019
  • Office 365
  • Open Source
  • Open XML SDK
  • Opinión
  • Orchard CMS
  • OT
  • PaaS
  • Patterns
  • PdfSharpCore
  • Performance
  • PHP
  • Postman
  • Power BI
  • PowerShell
  • PowerShell Core
  • Productividad
  • Project Server 2019
  • R
  • Rendimiento
  • Scala
  • Scraper
  • Security
  • Serverless
  • Service Fabric
  • SharePoint Server 2019
  • SignalR
  • Sin categor铆a
  • Sistemas Distribuidos
  • Skype
  • Skype for Business Server 2019
  • Small Basic Online
  • SQL Server 2005
  • SQL Server 2008
  • SQL Server 2012
  • SQL Server 2014
  • SQL Server 2016
  • SQL Server 2017
  • SQL Server 2019
  • STOMP
  • Swagger
  • Testing
  • TFS 2017
  • TFS 2018
  • Tools
  • TypeScript
  • Unity
  • UWP
  • UX
  • Visio
  • Visual Basic
  • Visual Studio 2010
  • Visual Studio 2012
  • Visual Studio 2013
  • Visual Studio 2015
  • Visual Studio 2017
  • Visual Studio 2017 for Mac
  • Visual Studio 2019
  • Visual Studio 2019 for Mac
  • Visual Studio App Center
  • Visual Studio Code
  • Visual Studio IntelliCode
  • Visual Studio Live Share
  • Visual Studio Live Share Audio
  • Visual Studio Online
  • VS Anywhere
  • Vue.js
  • Web API
  • WebAssembly
  • WinDbg
  • Windows
  • Windows 10
  • Windows Compatibility Pack
  • Windows Phone 10
  • Windows Phone 7
  • Windows Phone 8
  • Windows Server 2008
  • Windows Server 2012
  • Windows Server 2016
  • Windows Server 2019
  • Windows Service
  • WinForms
  • WinUI
  • WPF
  • Xamarin
  • Xbox
  • Xcode
  • Xiaomi Mi Band 2
  • xUnit
  • YAML

Archivos

  • enero 2021
  • diciembre 2020
  • noviembre 2020
  • octubre 2020
  • septiembre 2020
  • agosto 2020
  • julio 2020
  • junio 2020
  • mayo 2020
  • abril 2020
  • marzo 2020
  • febrero 2020
  • enero 2020
  • diciembre 2019
  • noviembre 2019
  • octubre 2019
  • septiembre 2019
  • agosto 2019
  • julio 2019
  • junio 2019
  • mayo 2019
  • abril 2019
  • marzo 2019
  • febrero 2019
  • enero 2019
  • diciembre 2018
  • noviembre 2018
  • octubre 2018
  • septiembre 2018
  • agosto 2018
  • julio 2018
  • junio 2018
  • mayo 2018
  • abril 2018
  • marzo 2018
  • febrero 2018
  • enero 2018
  • diciembre 2017
  • noviembre 2017
  • octubre 2017
  • septiembre 2017
  • agosto 2017
  • julio 2017
  • junio 2017
  • febrero 2015
  • octubre 2014
  • junio 2014
  • marzo 2014
  • febrero 2014
  • enero 2014
  • diciembre 2013
  • septiembre 2013
  • agosto 2013
  • julio 2013
  • junio 2013
  • abril 2013
  • febrero 2013
  • enero 2013
  • diciembre 2012
  • noviembre 2012
  • septiembre 2012
  • agosto 2012
  • junio 2012
  • mayo 2012
  • abril 2012
  • marzo 2012
  • febrero 2012
  • enero 2012
  • diciembre 2011
  • noviembre 2011
  • octubre 2011
  • septiembre 2011
  • agosto 2011
  • julio 2011
  • junio 2011
  • mayo 2011
  • abril 2011
  • marzo 2011
  • enero 2011
  • diciembre 2010
  • noviembre 2010
  • octubre 2010
  • septiembre 2010
  • agosto 2010
  • julio 2010
  • junio 2010
  • mayo 2010
  • abril 2010
  • marzo 2010
  • febrero 2010
  • enero 2010
  • diciembre 2009
  • noviembre 2009
  • octubre 2009
  • septiembre 2009
  • agosto 2009
  • julio 2009
  • junio 2009
  • mayo 2009
  • abril 2009
  • marzo 2009
  • febrero 2009
  • enero 2009
  • diciembre 2008
  • noviembre 2008
  • octubre 2008
  • septiembre 2008
  • agosto 2008
  • julio 2008
  • junio 2008
  • mayo 2008
  • abril 2008
  • marzo 2008
  • febrero 2008
  • enero 2008
  • diciembre 2007
  • noviembre 2007
  • octubre 2007
  • septiembre 2007
  • agosto 2007
  • julio 2007
  • junio 2007
  • mayo 2007
  • abril 2007
  • marzo 2007
  • febrero 2007
  • enero 2007
  • diciembre 2006
  • noviembre 2006
  • octubre 2006
  • septiembre 2006
  • agosto 2006
  • julio 2006
  • junio 2006
  • mayo 2006
About This Site

A cras tincidunt, ut tellus et. Gravida scel ipsum sed iaculis, nunc non nam. Placerat sed phase llus, purus purus elit.

Archives Widget
  • January 2010
  • December 2009
  • November 2009
  • October 2009
Categories
  • Entertainment
  • Technology
  • Sports & Recreation
  • Jobs & Lifestyle
Search
  • twitter

Powered by WordPress  |  Business Directory by InkThemes.

This site uses cookies: Find out more.