MD5 - functie

Auteur: Abbas - 09 mei 2008 - 19:56 - Gekeurd door: Abbas - Hits: 5089 - Aantal punten: 3.50 (3 stemmen)

Na verschillende keren de vraag te hebben gekregen of er een MD5 functie in .NET had ik al eens een C# versie hier gepost. Aangezien voor velen de omzetting van C# naar VB.NET niet lukt is hier het script om een invoer om te zetten in de MD5 hash hiervan.

Code:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim paswoord As String
Dim invoer As String = TextBox1.Text
Dim x As System.Security.Cryptography.MD5CryptoServiceProvider = New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs() As Byte = System.Text.Encoding.UTF8.GetBytes(invoer)
bs = x.ComputeHash(bs)
Dim s As System.Text.StringBuilder = New System.Text.StringBuilder()
For Each b As Byte In bs
    s.Append(b.ToString("x2").ToLower())
Next
paswoord = s.ToString()

            
Dim paswoord As String
Dim invoer As String = TextBox1.Text
Dim x As System.Security.Cryptography.MD5CryptoServiceProvider = New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs() As Byte = System.Text.Encoding.UTF8.GetBytes(invoer)
bs = x.ComputeHash(bs)
Dim s As System.Text.StringBuilder = New System.Text.StringBuilder()
For Each b As Byte In bs
    s.Append(b.ToString("x2").ToLower())
Next
paswoord = s.ToString()
 

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Lees de reacties (1)