Crittografare e Decrittografare vb.net VB2013

FrancescoC76 — Mon, 18 Jan 2021 10:17:48 GMT

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)
...

Continua a leggere Crittografare e Decrittografare vb.net VB2013.

RE: Crittografare e Decrittografare vb.net VB2013

marcobreveglieri — Mon, 18 Jan 2021 14:42:46 GMT

Usa il tag CODE (pulsante *<>*) per formattare il codice sul forum, altrimenti non si riesce a capire molto.

Inoltre, definisci cosa intendi con "non funziona", perché detto così sembra più l'espressione tipica del cliente finale, mentre noi siamo tecnici. ;)

Ciao! :)

Continua a leggere RE: Crittografare e Decrittografare vb.net VB2013.

RE: Crittografare e Decrittografare vb.net VB2013

FrancescoC76 — Mon, 18 Jan 2021 14:58:59 GMT

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

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

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 ...

Continua a leggere RE: Crittografare e Decrittografare vb.net VB2013.

RE: Crittografare e Decrittografare vb.net VB2013

marcobreveglieri — Mon, 18 Jan 2021 16:32:45 GMT

FrancescoC76 ha scritto:
[quote]Ciao,
il mio non funziona si riferisce a questa riga di codice:

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

[/quote]

Teoricamente, non dovresti decriptare usando la *chiave privata*? :(

Continua a leggere RE: Crittografare e Decrittografare vb.net VB2013.

RE: Crittografare e Decrittografare vb.net VB2013

FrancescoC76 — Mon, 18 Jan 2021 17:27:08 GMT

Ciao Marco,
ti riscrivo qui la funzione che uso

[code]
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! ...

Continua a leggere RE: Crittografare e Decrittografare vb.net VB2013.