Public Function MD5StringHash(ByVal strString As String) As String
Dim MD5 As New MD5CryptoServiceProvider
Dim Data As Byte()
Dim Result As Byte()
Dim Res As String = ""
Dim Tmp As String = ""
Data = Encoding.ASCII.GetBytes(strString)
Result = MD5.ComputeHash(Data)
For i As Integer = 0 To Result.Length - 1
Tmp = Hex(Result(i))
If Len(Tmp) = 1 Then Tmp = "0" & Tmp
Res += Tmp
Next
Return Res
End Function
[/vb:1:dbc9b1b014]
Pawel2_ Newbie
Anmeldedatum: 15.07.2007 Beiträge: 16
Verfasst am: 18.09.2007, 19:30
Visual Basic .NET oder Visual Basic 06?
Scruby_ Tutorial Leser
Anmeldedatum: 27.08.2007 Beiträge: 27
Verfasst am: 18.09.2007, 20:03
Pawel2 hat Folgendes geschrieben:
Visual Basic .NET oder Visual Basic 06?
.net
Pawel2_ Newbie
Anmeldedatum: 15.07.2007 Beiträge: 16
Verfasst am: 19.09.2007, 07:50
Hmmm ...
Da steht immer "MD5StringHash" wurde nicht gekliriert!
Was kann ich dagegen tun?!
bzw wo bekomm' ich dieses "MD5StringHash" ?
Scruby_ Tutorial Leser
Anmeldedatum: 27.08.2007 Beiträge: 27
Verfasst am: 19.09.2007, 13:55
Die ersten beiden Zeilen fügst du ganz oben im Formular ein.
Dann irgendwo anders (aber nicht in eine Sub) fügst du den Rest des Codes ein.
Um einen MD5-hash zu berechnen nimmst du z.B. folgenden Code bei Button1.klick o.ä.
[vb:1:5a3c3a1c96]
dim strString as string = textbox1.text
strString = MD5StringHash(strString )[/vb:1:5a3c3a1c96]
in der Variable strString
Tu uns allen ein gefallen und mach die Lessons 1-5 durch. Du weißt nich was eine Funktion ist wie man sie nutzt und anscheinend hast du auch keine Ahnung von Variablen. Das ist nicht böse gemeint aber man muss erst irgendwie anfangen. Und keiner fängt mit sowas an wenn er GAR KEINE GRUNDLAGEN hat _________________
Lukas_ Tutorial Leser
Anmeldedatum: 06.10.2007 Beiträge: 51
Verfasst am: 06.10.2007, 12:02
Pawel2 hat Folgendes geschrieben:
&'nd wo wird er dann stehen? ^^
In Text1 schreibst du den Text zum verschlüsseln rein.
Und dann kannst noch das hinzufügen:
MsgBox strString _________________