Il sorgente delle principali funzioni è questo:
Private SaltBytes As Byte() = New Byte() {162, 21, 92, 34, 27, 239, 64, 30, 136, 102, 223}
Private IV32 As Byte() = New Byte() {133, 206, 56, 64, 110, 158, 132, 22, _
99, 190, 35, 129, 101, 49, 204, 248, 251, 243, 13, 194, 160, 195, 89, 152, _
149, 227, 245, 5, 218, 86, 161, 124}
Private Function DerivePassword(ByVal Key As String) As Byte()
Dim Derive As Rfc2898DeriveBytes
Dim DerivedBytes() As Byte
Derive = New Rfc2898DeriveBytes(Key, SaltBytes, 5)
DerivedBytes = Derive.GetBytes(32)
Return DerivedBytes
End Function
Public Function RijndaelEncrypt(ByVal Key As String, ByVal Text() As Byte) As Byte()
Dim Provider As New RijndaelManaged
Dim BytePassword As Byte()
Dim Encryptor As ICryptoTransform
Dim Output As Byte()
Dim Input As Byte() = Text
Provider.KeySize = 256
Provider.BlockSize = 256
BytePassword = DerivePassword(Key)
Encryptor = Provider.CreateEncryptor(BytePassword, IV32)
Output = Encryptor.TransformFinalBlock(Input, 0, Input.Length)
Provider.Clear()
Encryptor.Dispose()
Return Output
End Function
Public Function RijndaelDecrypt(ByVal Key As String, ByVal Data() As Byte) As Byte()
Dim Provider As New RijndaelManaged
Dim BytePassword As Byte()
Dim Decryptor As ICryptoTransform
Dim Output As Byte()
Provider.KeySize = 256
Provider.BlockSize = 256
BytePassword = DerivePassword(Key)
Decryptor = Provider.CreateDecryptor(BytePassword, IV32)
Output = Decryptor.TransformFinalBlock(Data, 0, Data.Length) 'Qui mi da l'errore...
Provider.Clear()
Decryptor.Dispose()
Return Output
End Function
Volevo dire inoltre che x piccole stringhe di testo in programma funge, il problema sussiste solo quando vado a decrittografare un file... boh cmq grazie x l'aiuto....
klez91
