Hallo Core ;)
ich bin "neu" hier und somit mein erstes Tutorial und auch mein erster Beitrag in diesem Forum. Ich war mal angemeldet, aber nach dem Hacker angriff weiß ich mein Passwort nicht mehr und meine email auch nicht :D Aber kommen wir mal zu meinem Tutorial:
1. Matrialien:
Ihr braucht:
- Microsoft Visual Basic 20XX (Ich verwende 2010!)
- 1 Button
- 2 Labels
- 2 Textboxen
2. Layout:
Die Gestaltung eures Encrypters solltet ihr (finde ich) schlicht hallten, soll heißen: Keine Großen Button, überflüssige Textarten etc.
Bei mir sieht es so aus:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
3. Vorbereitung:
Also, dieses solltet ihr machen bevor ihr anfangt zu coden!
Der TextBox1 gebt ihr den Namen txtInput
Der TextBox2 gebt ihr den Namen txtOutput
Den Button nennt ihr btnEncrypt
Beschriften könnt ihr :
Lable1 -> Input
Lable2 -> Output
btnEncrypt (Button)-> Encrypter
so wie es auch auf dem Screenshot zu sehen ist.
So ich mache es euch jetzt kinderleicht ;)
1. Doppelklick auf den Button um in die Code Ansicht zu kommen.
2. Alles makieren (STRG + A)
3. Alles Entfernen (Entf)
4. Folgenden Code eingeben:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
txtOutput.Text = StringToMD5(txtInput.Text)
End Sub
Private Function StringToMD5(ByVal Content As String) As String
'this code can also be applyed to the button code
' i just prefer this into a funtion, so you can use it easely
Dim M5 As New Security.Cryptography.MD5CryptoServiceProvider
Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
ByteString = M5.ComputeHash(ByteString)
Dim FinalString As String = Nothing
For Each bt As Byte In ByteString
FinalString &= bt.ToString("x2") 'x2 is just a string format
Next
Return FinalString
End Function
Private Sub txtInput_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInput.TextChanged
End Sub
Private Sub txtOutput_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtOutput.TextChanged
End Sub
End Class
Alles anzeigen
5. Fertig ;)
Bei fragen einfach hier posten