Crew .NET |
|
Hier is de code voor de md5 hash:
Imports System.Security
Namespace klasse
Public Class encryptie
Public Shared Function md5(ByVal input As String)
Dim pas As String
Dim x As New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs As Byte() = System.Text.Encoding.UTF8.GetBytes(input)
bs = x.ComputeHash(bs)
Dim sb As New System.Text.StringBuilder()
For Each b As Byte In bs
sb.Append(b.ToString("x2").ToLower())
Next
pas = sb.ToString()
Return pas
End Function
End Class
End Namespace
Imports System.Security Namespace klasse Public Class encryptie Public Shared Function md5(ByVal input As String) Dim pas As String Dim x As New System.Security.Cryptography.MD5CryptoServiceProvider() Dim bs As Byte() = System.Text.Encoding.UTF8.GetBytes(input) bs = x.ComputeHash(bs) Dim sb As New System.Text.StringBuilder() For Each b As Byte In bs sb.Append(b.ToString("x2").ToLower()) Next pas = sb.ToString() Return pas End Function End Class End Namespace
En zo roep ik deze aan vanuit een andere file:
Imports VB_md5.klasse.encryptie
Imports VB_md5.klasse.encryptie
VB_md5 is de naam van het project, klasse is de naam van de namespace en encryptie is de naam van de klasse. Sorry voor de verwarrende benaming, dit was maar een probeersel project.
En de functie gebruik je zo:
'je steekt de invoer van een vak in de variabele "invoer"
Dim invoer As String = TextBox1.Text
'de variabele uitvoer krijgt de md5-waarde van de invoer
'de functie roep je in dit geval aan zoals in PHP met md5()
Dim uitvoer As String = md5(invoer)
'je steekt de invoer van een vak in de variabele "invoer" Dim invoer As String = TextBox1.Text 'de variabele uitvoer krijgt de md5-waarde van de invoer 'de functie roep je in dit geval aan zoals in PHP met md5() Dim uitvoer As String = md5(invoer)
Hopelijk ben je hier wat mee, veel succes! |