Buongiorno a tutti,
ho un Problema nel decrittografare una stringa che crittografo con certificato.

Ecco il codice:

Imports System.Security.Cryptography
Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.String


Public Function Crittografa(ByVal testo As String) As String

Try
Dim Certificate As String = Application.StartupPath & "\Certificato.cer"
Dim cert As New X509Certificate2(Certificate)
Dim rsaEncryptor As RSACryptoServiceProvider = CType(cert.PublicKey.Key, RSACryptoServiceProvider)

Dim stringa As Byte() = System.Text.Encoding.ASCII.GetBytes(testo)

Dim Matrice() As Byte = rsaEncryptor.Encrypt(stringa, False)

Return Convert.ToBase64String(Matrice)

Catch ex As Exception

MsgBox(ex.Message)
Return "Errore"

End Try

End Function


Public Function DECrittografa(ByVal testo As String) As String

Try
Dim Certificate As String = Application.StartupPath & "\Certificato.cer"
Dim cert As New X509Certificate2(Certificate)
Dim rsaEncryptor As RSACryptoServiceProvider = CType(cert.PublicKey.Key, RSACryptoServiceProvider)

Dim Matrice() As Byte = Convert.FromBase64String(testo)

Dim stringa As Byte() = rsaEncryptor.Decrypt(Matrice, False) ' qui mi da l'errore! ("Chiave non esistente")

Dim decryptedText As String = Encoding.UTF8.GetString(stringa)

Return decryptedText


Catch ex As Exception

MsgBox(ex.Message)
Return "Errore"

End Try

End Function


Il procedimento, da quello che ho letto in giro, mi pare corretto, però non funziona... Qualcuno mi saprebbe dare una dritta? grazie.

Ciao,
il mio non funziona si riferisce a questa riga di codice:



ho indicato in formto commento il problema che ritorna come ex.message

Quindi, ricapitolando, riesco a criptare perfettamente ma poi quando vado a decriptare non mi trasforma la matrice in stringa (non funziona la riga di codice che ho indicato) e quindi non riesco a recuperare il testo iniziale.

Da quello che ho letto in giro la procedura sembra formalmente corretta ma c'è qualcosa che in fase di decrittografia non aggancia la chiave.

---

Modificato da FrancescoC76 il 18 gennaio 2021 16:05 -

Ciao Marco,
ti riscrivo qui la funzione che uso



Tu dici di usare la chiave privata, ma così come l'ho scritta non usa la chiave del certificato? Come dici che andrebbe modificata la funzione?