title image


Smiley Ein Beispiel...


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)
Moderation is OK, but not to excess...



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: