Re: MD5 Prüfsumme berechnen und checken in VB6

littleo — Tue, 03 Feb 2004 23:23:47 GMT

https://startpage.com/do/search?q=md5+visual+basic&ie=UTF-8&oe=UTF-8&hl=de&btnG=Google+Suche&meta=

die antwort vom 1.googlehit:
  Dim fs As New FileStream("C:\test.txt", FileMode.Open, FileAccess.Read)
        Dim md5 As New MD5CryptoServiceProvider()
        Dim cs As New CryptoStream(fs, md5, CryptoStreamMode.Read)
        Dim data(fs.Length) As Byte
        cs.Read(data, 0, fs.Length)
        cs.Close()
        Dim hash() As Byte = md5.Hash
        md5.Clear()

Imports System.Security.Cryptography
Imports System.IO

und den MD5CryptoServiceProvider bzw. CryptoStream geh ich auf msdn.microsoft.com suchen, aber das ist eine andere geschichte

o

MD5 Prüfsumme berechnen und checken in VB6

duckhunter — Tue, 03 Feb 2004 18:29:39 GMT

Weiß einer wie das geht, oder hat ner nen *.ocx datei dafür. Oder ne Anleitung für ne *.dll datei?

Danke
duckhunter