Public Function Encrypt(clearText As String) As String
Dim EncryptionKey As String = "MAKV2SPBNI99212"
Dim clearBytes As Byte() = Encoding.Unicode.GetBytes(clearText)
Using encryptor As Aes = Aes.Create()
Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, _
&H65, &H64, &H76, &H65, &H64, &H65, &H76})
encryptor.Key = pdb.GetBytes(32)
encryptor.IV = pdb.GetBytes(16)
Using ms As New MemoryStream()
Using cs As New CryptoStream(ms, encryptor.CreateEncryptor(), CryptoStreamMode.Write)
cs.Write(clearBytes, 0, clearBytes.Length)
cs.Close()
End Using
clearText = Convert.ToBase64String(ms.ToArray())
End Using
End Using
Return clearText
End Function
Public Function Decrypt(cipherText As String) As String
Dim EncryptionKey As String = "MAKV2SPBNI99212"
cipherText = cipherText.Replace(" ", "+")
Dim cipherBytes As Byte() = Convert.FromBase64String(cipherText)
Using encryptor As Aes = Aes.Create()
Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, _
&H65, &H64, &H76, &H65, &H64, &H65, &H76})
encryptor.Key = pdb.GetBytes(32)
encryptor.IV = pdb.GetBytes(16)
Using ms As New MemoryStream()
Using cs As New CryptoStream(ms, encryptor.CreateDecryptor(), CryptoStreamMode.Write)
cs.Write(cipherBytes, 0, cipherBytes.Length)
cs.Close()
End Using
cipherText = Encoding.Unicode.GetString(ms.ToArray())
End Using
End Using
Return cipherText
End Function
0
A
Antwort
0
Wenn ich richtig verstehe, dann sollten Sie brauchen nur den vorhandenen Wert mit dem alten EncryptionKey „MAKV2SPBNI99212“, dann wieder verschlüsselt mit einem neuen EncryptionKey zu entschlüsseln .
decryptedText = Decrypt(encryptedText, "MAKV2SPBNI99212")
encryptedText = Encrypt(decryptedText, "MY_NEW_KEY")
aktualisiert Verschlüsseln und Entschlüsseln von Funktionen Gang EncryptionKey als Parameter zu ermöglichen, wie:
Public Function Encrypt(ByVal clearText As String, ByVal encryptionKey As String) As String
Dim clearBytes As Byte() = Encoding.Unicode.GetBytes(clearText)
Using encryptor As Aes = Aes.Create()
Dim pdb As New Rfc2898DeriveBytes(encryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, _
&H65, &H64, &H76, &H65, &H64, &H65, &H76})
encryptor.Key = pdb.GetBytes(32)
encryptor.IV = pdb.GetBytes(16)
Using ms As New MemoryStream()
Using cs As New CryptoStream(ms, encryptor.CreateEncryptor(), CryptoStreamMode.Write)
cs.Write(clearBytes, 0, clearBytes.Length)
cs.Close()
End Using
clearText = Convert.ToBase64String(ms.ToArray())
End Using
End Using
Return clearText
End Function
Public Function Decrypt(ByVal cipherText As String, ByVal encryptionKey As String) As String
cipherText = cipherText.Replace(" ", "+")
Dim cipherBytes As Byte() = Convert.FromBase64String(cipherText)
Using encryptor As Aes = Aes.Create()
Dim pdb As New Rfc2898DeriveBytes(encryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, _
&H65, &H64, &H76, &H65, &H64, &H65, &H76})
encryptor.Key = pdb.GetBytes(32)
encryptor.IV = pdb.GetBytes(16)
Using ms As New MemoryStream()
Using cs As New CryptoStream(ms, encryptor.CreateDecryptor(), CryptoStreamMode.Write)
cs.Write(cipherBytes, 0, cipherBytes.Length)
cs.Close()
End Using
cipherText = Encoding.Unicode.GetString(ms.ToArray())
End Using
End Using
Return cipherText
End Function
+0
Danke Jungs .. es hilft viel :) – lemuel
Verwandte Themen
- 1. Wie verschlüsselt man das Admin-Passwort?
- 2. Prestashop - Wie ist das DB Passwort verschlüsselt?
- 3. nicht mit einem Passwort verschlüsselt registrieren Kann
- 4. Ist das Proxy-Passwort verschlüsselt oder gehashed?
- 5. SVN verschlüsselt Passwort speichern
- 6. Wie verschlüsselt man das Passwort vor dem Einreichen im Wicket?
- 7. VB.NET Schreiben von MSSQL-Daten in das DBF-Format
- 8. Wie wird ein Passwort in System.Net.CredentialCache.DefaultCredentials verschlüsselt?
- 9. Wie Textdatei über das Internet aktualisieren? VB.Net
- 10. Wie Benutzername und Passwort entschlüsseln, die von Kinvey verschlüsselt ist
- 11. Mein Schlüsselbund zeigt das Passwort verschlüsselt oder XML?
- 12. Wie das Passwort in mongodb aktualisieren
- 13. Spring Boot Cloud Config verschlüsselt Keystore Passwort
- 14. Wie kann ich das Passwort von MD5 wiederherstellen?
- 15. einen privaten Schlüssel mit einem Null-enthaltenden Passwort verschlüsselt Entschlüsseln
- 16. Mit Chai zu testen, ob POST/Benutzer Passwort verschlüsselt wurde
- 17. Wie kann ich ein Passwort mit Blowfish in Perl verschlüsseln?
- 18. Wie kann ich mit Capybara aktualisierende Kontoinformationen testen, wenn das aktuelle Passwort erforderlich ist?
- 19. Eingabefeld, das nur Passwort Charaters (wie *) in vb.net anzeigen
- 20. Warum bekomme ich den Fehler "Kann das Passwort nicht aktualisieren" beim Aufruf von AzMan?
- 21. Wie kann ich eine Datenbank MSSQL 2005 Express-Datensatz mit dem ID-Feld aktualisieren
- 22. Wie kann das Passwort von Azure Active Directory zurückgesetzt werden?
- 23. Wie vergleichen Sie das Passwort von PHP
- 24. Wie zwei verschlüsselt (bcrypt) Passwort vergleichen in Laravel
- 25. Warum verschlüsselt mein Code das Passwort nicht, wenn ich den Django-Benutzer erben lasse?
- 26. Wie kann ich das Benutzerpasswort in Selenium-Grid-Extras aktualisieren?
- 27. Wie das Passwort von MongoDB in Java
- 28. vb.net Passwort-Validierung mit regulären Ausdrücken
- 29. Ansible: Wie kann ich das System CentOS mit Ansible aktualisieren
- 30. Wie kann ich das Passwort auf dem iPhone speichern?
Ihre Frage ist nicht klar. Was versuchst du zu machen? –