Hello,
Please Help Me , How I Can Use AES (Encrypt & Decrypt) in this code without base64 encoding but with another encoding (ex. UTF, integer,
or another).
this is my code,
Protected Sub Encrypt(sender As Object, e As EventArgs)
lblEncryptedText.Text = Me.Encrypt(txtOriginalText.Text.Trim())
End Sub
Private 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)
e ...
Go to the complete details ...