Click here to Skip to main content
       

Visual Basic

 
QuestionRijndael encryption not working Pinmembermaskrtnik0114-Nov-12 3:20 
AnswerRe: Rijndael encryption not working PinmentorKeith Barrow14-Nov-12 3:52 
GeneralRe: Rijndael encryption not working Pinmembermaskrtnik0114-Nov-12 4:08 
GeneralRe: Rijndael encryption not working PinmentorKeith Barrow14-Nov-12 4:26 
GeneralRe: Rijndael encryption not working PinmentorKeith Barrow14-Nov-12 4:35 
GeneralRe: Rijndael encryption not working Pinmembermaskrtnik0114-Nov-12 4:48 
GeneralRe: Rijndael encryption not working PinmentorKeith Barrow14-Nov-12 5:05 
QuestionRe: Rijndael encryption not working [modified] Pinmembermaskrtnik0115-Nov-12 20:40 
Maybe it is stable now. But there is new problem. I have tried decrypting encrypted file, but it fails to decrypt, decrypted data absolutely do not match data which was encrypted. I am using this code:
	Public Sub Save(ByVal carrier As DataCarrier, ByVal password As String, ByVal filename As String)
            Try
                Using sha As New SHA512Managed
                    Dim hash = sha.ComputeHash(Encoding.Default.GetBytes(password))
                    Dim key As Byte() = New Byte(31) {}
                    Dim iv As Byte() = New Byte(15) {}
                    Array.Copy(hash, 0, key, 0, 32)
                    Array.Copy(hash, 32, iv, 0, 16)
                    Using aes As New RijndaelManaged, filestr As New FileStream(filename, FileMode.Create, FileAccess.Write)
                        Using cryptostr As New CryptoStream(filestr, aes.CreateEncryptor(key, iv), CryptoStreamMode.Write)
                            ExportData(carrier).Save(cryptostr)
                        End Using
                    End Using
                End Using
            Catch ex As Exception
                Logging.Instance.WriteException(ex, TraceEventType.Error)
                MessageBox.Show(String.Format(My.Resources.UnhandledExceptionExString, ex.Message, ex.ToString), My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Sub
        Public Function Load(ByVal password As String, ByVal filename As String) As XDocument
            Dim sha As SHA512Managed
            Dim aes As RijndaelManaged
            Dim trans As ICryptoTransform
            Dim cryptostr As CryptoStream
            Dim filestr As FileStream
            Try
                sha = New SHA512Managed()
                Dim hash = sha.ComputeHash(Encoding.Default.GetBytes(password))
                aes = New RijndaelManaged()
                Dim key As Byte() = New Byte(31) {}
                Dim iv As Byte() = New Byte(15) {}
                Array.Copy(hash, 0, key, 0, 32)
                Array.Copy(hash, 32, iv, 0, 16)
                trans = aes.CreateEncryptor(key, iv)
                filestr = New FileStream(filename, FileMode.Open)
                cryptostr = New CryptoStream(filestr, trans, CryptoStreamMode.Read)
                Return XDocument.Load(cryptostr)
            Catch ex As Exception
                Logging.Instance.WriteException(ex, TraceEventType.Error)
                MessageBox.Show(String.Format(My.Resources.UnhandledExceptionExString, ex.Message, ex.ToString), My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                If cryptostr IsNot Nothing Then cryptostr.Dispose()
                If filestr IsNot Nothing Then filestr.Dispose()
                If trans IsNot Nothing Then trans.Dispose()
                If aes IsNot Nothing Then aes.Dispose()
                If sha IsNot Nothing Then sha.Dispose()
            End Try
        End Function


modified 17-Nov-12 11:23am.

GeneralRe: Rijndael encryption not working PinmemberDisIsHoody14-Nov-12 10:34 
GeneralRe: Rijndael encryption not working Pinmembermaskrtnik0114-Nov-12 19:21 
AnswerRe: Rijndael encryption not working PinmemberDisIsHoody15-Nov-12 18:37 
GeneralRe: Rijndael encryption not working Pinmembermaskrtnik0115-Nov-12 20:37 
QuestionRetrive date from sql server in system date format in VB6 application by a one time setting PinmemberJohnson Antony13-Nov-12 14:34 
AnswerRe: Retrive date from sql server in system date format in VB6 application by a one time setting PinmvpDave Kreskowiak13-Nov-12 15:00 
QuestionHow to find out if a file is in use before reading the data in that file PinmemberKreativeKai13-Nov-12 8:47 
AnswerRe: How to find out if a file is in use before reading the data in that file PinmvpDave Kreskowiak13-Nov-12 9:09 
GeneralRe: How to find out if a file is in use before reading the data in that file PinmemberKreativeKai13-Nov-12 9:22 
GeneralRe: How to find out if a file is in use before reading the data in that file PinmemberKreativeKai13-Nov-12 9:46 
AnswerRe: How to find out if a file is in use before reading the data in that file PinmemberKreativeKai13-Nov-12 9:13 
GeneralRe: How to find out if a file is in use before reading the data in that file [modified] PinmvpDave Kreskowiak13-Nov-12 10:57 
AnswerRe: How to find out if a file is in use before reading the data in that file PinmemberEddy Vluggen13-Nov-12 12:41 
GeneralRe: How to find out if a file is in use before reading the data in that file PinmemberKreativeKai14-Nov-12 2:37 
GeneralRe: How to find out if a file is in use before reading the data in that file [modified] PinmemberVitorHugoGarcia19-Nov-12 2:12 
QuestionVB Script for automatically turning off the monitor PinmemberPrasan Cumar13-Nov-12 5:14 
AnswerRe: VB Script for automatically turning off the monitor PinmvpDave Kreskowiak13-Nov-12 5:59 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web03 | 2.8.1411023.1 | Last Updated 26 Nov 2014
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid