Ciao ragazzi,
non riesco a venire a capo di questo fastidioso evento.
Utilizzando la classe che allego, la stringa data in pasto alla funzione viene convertita regolarmente ma alla fine vengono aggiunti punti interrogativi a go go.
Es.
Prova????????????????????????????
Pensando che il problema fosse nella conversione byte/ascii mi sono concentrato li provando inoltre con la conversione in UTF8 ma nulla.
Non sapendo piu' dove cercare e con la vista ormai andata, chiedo help alla community.
La classe che utilizzo è questa:
Dim sEncryptedString As String = text
Dim myRijndael As New RijndaelManaged
myRijndael.Padding = PaddingMode.Zeros
myRijndael.Mode = CipherMode.CBC
myRijndael.KeySize = 256
myRijndael.BlockSize = 256
Dim key() As Byte
Dim IV() As Byte
key = Encoding.ASCII.GetBytes(sKy)
IV = Encoding.ASCII.GetBytes(sIV)
Dim decryptor As ICryptoTransform = myRijndael.CreateDecryptor(key, IV)
Dim sEncrypted As Byte() = Convert.FromBase64String(sEncryptedString)
Dim fromEncrypt() As Byte = New Byte(sEncrypted.Length) {}
Dim msDecrypt As New MemoryStream(sEncrypted)
Dim csDecrypt As New CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read)
csDecrypt.Read(fromEncrypt, 0, fromEncrypt.Length)
Return (Encoding.ASCII.GetString(fromEncrypt))
Grazie.
Salvo.