Hallo! Weiß hier jemand wie ich in einer RichTextBox jede einzelne Encrypten lassen kann?
Hier ist mein momentaner code zur encryptung:
Weiß jemand wie ich damit jede einzelne zeile encrypten lassen kann? Komme da nicht weiter..
Hier ist mein momentaner code zur encryptung:
VB.NET-Quellcode
- Dim DES As New TripleDESCryptoServiceProvider
- Dim MD5 As New MD5CryptoServiceProvider
- Function MD5Hash(value As String) As Byte()
- Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value))
- End Function
- Function Encrypt(input As String, Key As String) As String
- DES.Key = MD5Hash(Key)
- DES.Mode = CipherMode.ECB
- Dim buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(input)
- Return Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(buffer, 0, buffer.Length))
- End Function
Weiß jemand wie ich damit jede einzelne zeile encrypten lassen kann? Komme da nicht weiter..