Nimm dir eine Richtextbox, wo du deinen text rein machst.
Und dann sieht der Code wie folgt aus:
Funktion zum Entschlüsseln eines Base64-Hashs
HTML-Code:
Public Function DecryptBase64(ByVal sText As String) As String
Dim nBytes() As Byte = System.Convert.FromBase64String(sText)
Return System.Text.Encoding.Default.GetString(nBytes)
End Function
Funktion zum Verschlüsselb eines Strings in einen Base64-Hash
HTML-Code:
Public Function EncryptBase64(ByVal sText As String) As String
Dim nBytes() As Byte = System.Text.Encoding.Default.GetBytes(sText)
Return System.Convert.ToBase64String(nBytes)
End Function
Nun zum ausführen(ENTSCHLÜSSELN // Ich nehme hierzu mal einen Button)
HTML-Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
For Each line In RichTextBox1.Lines
Dim hash As String = Split(Split(line, """")(1), ">")(0)
Dim plain As String = DecryptBase64(hash)
RichTextBox1.Text = RichTextBox1.Text.Replace(hash, plain)
Next
End Sub
Und zum Verschlüsseln // nehme ich mal einen zweiten Button)
HTML-Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
For Each line In RichTextBox1.Lines
Dim plain As String = Split(Split(line, """")(1), ">")(0)
Dim hash As String = EncryptBase64(plain)
RichTextBox1.Text = RichTextBox1.Text.Replace(plain, hash)
Next
End Sub
In deiner Richtextbox1 wird dann der Output am ende auch ausgegeben
################################################## #
################################################## #
Merke:
Um einen String zwischen 2 bekannten strings auszulesen benutzt man die Split funktion:
HTML-Code:
Dim Text as String = split(split("<title>Padrino</title>", "<title>")(1), "</title>")(0)
In der Variable Text steht nun: Padrino
Denn wir haben unseren Text ab <title> bis </title> gesplittet, und das was dazwischen ist uns so ausgelesen.
Hoffe das ist verständlich, ansonsten einfach nochmal fragen und ich schaue, dass ich es genauer erkläre
MFG Padrino