Jede einzelne zeilen encrypten lassen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Jede einzelne zeilen encrypten lassen

    Hallo! Weiß hier jemand wie ich in einer RichTextBox jede einzelne Encrypten lassen kann?

    Hier ist mein momentaner code zur encryptung:

    VB.NET-Quellcode

    1. Dim DES As New TripleDESCryptoServiceProvider
    2. Dim MD5 As New MD5CryptoServiceProvider
    3. Function MD5Hash(value As String) As Byte()
    4. Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value))
    5. End Function
    6. Function Encrypt(input As String, Key As String) As String
    7. DES.Key = MD5Hash(Key)
    8. DES.Mode = CipherMode.ECB
    9. Dim buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(input)
    10. Return Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(buffer, 0, buffer.Length))
    11. End Function


    Weiß jemand wie ich damit jede einzelne zeile encrypten lassen kann? Komme da nicht weiter..
    @CodingCore Wozu ist es erforderlich, jede einzelne Zeile, nicht aber den gesamten Text crypten zu lassen?

    VB.NET-Quellcode

    1. For Each line in RichTextBox1.Lines
    2. ' was mit line tun
    3. Next

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!