[VB.NET] Criptare e decriptare con RijndaelManaged

[Kahm]

salve a tutti
sto cercando di criptare e decriptare delle stringhe
tramite questa procedura:

Public Function Decode(ByVal S As String) As String

        Dim rjm As New RijndaelManaged
        rjm.KeySize = 128
        rjm.BlockSize = 128
        rjm.Key = ASCIIEncoding.ASCII.GetBytes(chiave)
        rjm.IV = ASCIIEncoding.ASCII.GetBytes(iv)
        Try
            Dim input As Byte() = Convert.FromBase64String(S)
            Dim output As Byte() = rjm.CreateDecryptor().TransformFinalBlock(input, 0, input.Length)
            Return Encoding.UTF8.GetString(output)
        Catch ex As Exception
            Dim str As String = ex.ToString
        End Try

        Return S
    End Function

nel caso s valva questa stringa gia' riptata:"Z /dKpt4oY1Eh5ebQyj8wA=="
mi va in errore:dicendo:
Argomento non specificato per il parametro "Number" di "Public Function Str(Number As Object) As String".
da cosa dipende?
io voglio solo recriptare una stringa per farla tornare nel valore originale!!!!!

cosa sbaglio?
grazie

[oregon]

Str e' una funzione del VB ... Molto probabilmente entra in conflitto con la variabile che hai utilizzato nell'esempio ... cambia il nome della variabile ...

[Kahm]

Originariamente inviato da oregon
Str e' una funzione del VB ... Molto probabilmente entra in conflitto con la variabile che hai utilizzato nell'esempio ... cambia il nome della variabile ...

fatto ma da lo stesso erroe a questa riga:
Dim input As Byte() = Convert.FromBase64String(S)


quella variabile str la ho messa per intercettare l'erroe in quanto ho messo un breackpoint li'

[oregon]

Originariamente inviato da Kahm
fatto ma da lo stesso erroe a questa riga:
Dim input As Byte() = Convert.FromBase64String(S)

No "lo stesso" ... questo e' *un altro* errore ...

Possiamo correggere un errore, ma non e' detto che non ce ne sia un altro ...

Non mi hai detto che errore e' stato visualizzato ma anche in questo caso, input e' una parola riservata di VB ... e' meglio cambiare il nome di questa variabile ...

[Kahm]

Originariamente inviato da oregon
No "lo stesso" ... questo e' *un altro* errore ...

Possiamo correggere un errore, ma non e' detto che non ce ne sia un altro ...

Non mi hai detto che errore e' stato visualizzato ma anche in questo caso, input e' una parola riservata di VB ... e' meglio cambiare il nome di questa variabile ...

ho modificato anche il nome di questa variabile,ma l'errore è lo stesso e allo stesso punto :
"Argomento non specificato per il parametro "Number" di "Public Function Str(Number As Object) As String"."

nn so che fare!!

[oregon]

Un attimo ... ho provato il codice e a me non da' nessun errore ...

In che linea hai quell'errore? Forse il codice che hai mostrato non c'entra nulla ...

[Kahm]

Originariamente inviato da oregon
Un attimo ... ho provato il codice e a me non da' nessun errore ...

In che linea hai quell'errore? Forse il codice che hai mostrato non c'entra nulla ...

te lo rispedisco con i seriali che uso..forse è un problema mio

    Private chiave As String = "AxTYQWCvGTFRbgLL"   '//16 byte
    Private iv As String = "QWExcfTyUxxLOafO"  '; //16 byte


    Public Function Decode(ByVal S As String) As String

        Dim rjm As New RijndaelManaged
        rjm.KeySize = 128
        rjm.BlockSize = 128
        rjm.Key = ASCIIEncoding.ASCII.GetBytes(chiave)
        rjm.IV = ASCIIEncoding.ASCII.GetBytes(iv)
        Try
            Dim Varinput As Byte() = Convert.FromBase64String(S)
            Dim Varoutput As Byte() = rjm.CreateDecryptor().TransformFinalBlock(Varinput, 0, Varinput.Length)
            Return Encoding.UTF8.GetString(Varoutput)
        Catch ex As Exception
            Dim NomeVar As String = ex.ToString
        End Try

la stringa a cui da errore è questa :"Z /dKpt4oY1Eh5ebQyj8wA=="
che tradotto sarebbe un numero: il: "5"
se ti va ancora bene allora è un problema mio

[oregon]

Funziona ma la stringa e'

"Z+/dKpt4oY1Eh5ebQyj8wA=="

e non quella che hai fornito tu ...