[VB.NET] Crittografia a chiave privata

[cibermarco]

salve a tutti, mi sono appena registrato a queto ottimo forum ed ho subito un quesito da proporvi!

sto realizzando un programma in VB.net per la gestione di un sistema di fidelizzazione di un negozio.
nel database di questo software, sono memorizzati tutti i dati personali dei clienti ed altri dati che, se letti dal negoziante, potrebbero dargli la possibilità di staccarsi da me, utilizzando così il mio software con carte che non gli ho fornito io.

ora, avrete già intuito che il mio problema è criptare le informazioni contenute nel database e decriptarle per visualizzarle nel programma.

avevo pensato ad un algoritmo a chiave privata (la chiave la memorizzerei nel codice stesso dell'applicazione).
mi sarebbero molto utili delle funzioni (algoritmo di criptazine IDEA, DES) che, ricevendo in input una stringa e la chiave di criptazione, restituiscano in output il messaggio criptato (e viceversa).

avevo pensato all'algoritmo idea, ma se avete altro da propormi sono tutt'orecchi!

un'ultima cosa: sareste così gentili da spiegarmi come posso fare quanto detto sopra, utilizzando le classi messe a disposizione dallo stesso .NET frameworks?

grazie in anticipo per tutto l'aiuto che saprete darmi!

[cassano]

allora se vai su msde e cerche nelle classi della crittografia trovi tutto e degli ottimi esempi,io lo presi da li

[oregon]

MSDN ... msde e' un'altra cosa ...

[cibermarco]

ho scritto questa classe basandomi su MSDN e su quanto sono riuscito a trovare su internet:

---------------------------------------------------------
Imports System
Imports System.Text
Imports System.Security.Cryptography

Public Class DESEncrypterDecrypter

Dim DES As DESCryptoServiceProvider
Dim Transformer As ICryptoTransform
Dim res As Byte()
Dim encBytes As Byte()
Dim decBytes As Byte()

Public Sub New()

DES = New DESCryptoServiceProvider(ByVal key AS Byte())
DES.Key = key
DES.Mode = CipherMode.ECB

End Sub


Public Function Encrypt(ByVal strClare As String) As String
Try

decBytes = Encoding.ASCII.GetBytes(strClare)
Transformer = DES.CreateEncryptor()
encBytes = Transformer.TransformFinalBlock(decBytes, 0, decBytes.Length)

Return Convert.ToBase64String(encBytes)

Catch
MsgBox("Impossibile criptare la stringa: " & strClare, MsgBoxStyle.Exclamation, "ERRORE")
End Try
End Function


Public Function Decrypt(ByVal strEncoded As String) As String
Dim lun As Integer

Try

encBytes = Encoding.ASCII.GetBytes(strEncoded)
Transformer = DES.CreateDecryptor()
decBytes = Transformer.TransformFinalBlock(encBytes, 0, encBytes.Length)

Return Convert.ToBase64String(decBytes)

Catch e As Exception
MsgBox("Impossibile decriptare la stringa: " & e.Message, MsgBoxStyle.Exclamation, "ERRORE")
End Try
End Function
End Class

----------------------------------------------------

ora, il metodo per criptare mi funziona bene, ma quando uso il metodo per decriptare, arrivato all'istruzione

decBytes = Transformer.TransformFinalBlock(encBytes, 0, encBytes.Length)

mi da errore (Dati non validi)!
mi sapete consigliare la correzione da fare?

[cassano]

MSDN ... msde e' un'altra cosa ...

scusa mi sbaglio sempre sono quasi uguali !!!!



dati non validi ,solo quello ti dice ???

strEncoded contiene esattamente la stringa criptata ???

[RAVALON]

scusate ma questo codice funziona anche per interi files o solo per stringhe o stream di dati ?