MD5 Verschlüsselung aus einem String
10.07.2008
07:17:39 Uhr7958 Aufrufe
07:17:39 Uhr
Noch nicht bewertet
Eine MD5 Verschlüsselung in VB.NET ist nicht so einfach wie in PHP.
Ich selber wollte vor ein paar Tagen eine solche Verschlüsselung erstellen, nachdem ich mich mit den vielen Resultaten von Google abgegeben habe und nach einigem Suchen ein Script gefunden habe welches mir zusagt, habe ich mich entschlossen schnell hier ein Tutorial zu schreiben welches dann anderen Users die Suche vereinfachen sollte.
Damit ein MD5 Hash erstellt werden kann muss der String in Bytes umgewandelt werden
Danach kann aus den Bytes der MD5 Hash erstellt werden
Mit der FOR Schleife wird dann als letztes noch das Resultat wieder in Zahlen und Buchstaben umgewandelt.
Ich hoffe ich konnte einigen Usern mit diesem kleinen Tutorial helfen.
Grüsse
scan
Ich selber wollte vor ein paar Tagen eine solche Verschlüsselung erstellen, nachdem ich mich mit den vielen Resultaten von Google abgegeben habe und nach einigem Suchen ein Script gefunden habe welches mir zusagt, habe ich mich entschlossen schnell hier ein Tutorial zu schreiben welches dann anderen Users die Suche vereinfachen sollte.
01.
Imports System.Security.Cryptography 02.
Imports System.Text 03.
04.
Public Function MD5Cryptography(By Val strString as String) as String 05.
Dim md5 As New MD5CryptoServiceProvider 06.
Dim Data As Byte() 07.
Dim Result As Byte() 08.
Dim Res as String = "" 09.
Dim tmp As String = "" 10.
11.
Data = Encoding.ASCII.GetBytes(strString) 12.
Result = MD5.ComputeHash(Data) 13.
14.
For i as integer = 0 To Result.Length - 1 15.
tmp = Hex(Result(i)) 16.
if Len(tmp) = 1 Then 17.
tmp = "0" & tmp 18.
End If 19.
20.
Res += tmp 21.
Next 22.
23.
Return Res 24.
25.
End FunctionDamit ein MD5 Hash erstellt werden kann muss der String in Bytes umgewandelt werden
Data = Encoding.ASCII.GetBytes(strString)
Danach kann aus den Bytes der MD5 Hash erstellt werden
Result = MD5.ComputeHash(Data)
Mit der FOR Schleife wird dann als letztes noch das Resultat wieder in Zahlen und Buchstaben umgewandelt.
Ich hoffe ich konnte einigen Usern mit diesem kleinen Tutorial helfen.
Grüsse
scan
