Visual Basic

JRHibner wrote:

I noticed you put tRow(0).

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim dt As New DataTable
		With dt
			.Columns.Add("Id")
			.Columns.Add("Name")
			.Columns.Add("Address")
			.Columns.Add("Salary")


			.Rows.Add(New Object() {1, "John", "123 Some Street", 1234})
			.Rows.Add(New Object() {Nothing, "Sally", "26 This Street", Nothing})
			.Rows.Add(New Object() {3, "Frank", "15 TheOther Street", 1400})
			.Rows.Add(New Object() {4, "Harry", "3 No Street", 450})


		End With

		Dim dr As DataRow = GetDataRow(dt, "Sally")

		Dim id As Integer = -1
		If Not TypeOf (dr("Id")) Is DBNull Then
			id = CInt(dr("Id"))
		End If

		Try
			Label1.Text = String.Format("ID = {0}{4}Name = {1}{4}Address = {2}{4}Salary = {3}", id.ToString,
                                                          dr("Name").ToString, dr("Address").ToString, dr("Salary").ToString, vbCrLf)
		Catch ex As Exception

		End Try



		Label2.Text = String.Format("Field 0 contains: {0}", dr(0).GetType)
		If (TypeOf (dr("Id")) Is DBNull) Then
			Label3.Text = "DBNull in Field 0"
		End If

	End Sub

	Private Function GetDataRow(ByVal dt As DataTable, ByVal name As String) As DataRow
		Dim sStringTemp2 = "Name = '" + name + "'"
		Dim tRow As DataRow() = dt.Select(sStringTemp2)
		Return tRow(0)

	End Function
End Class

JRHibner wrote:

I want to be able to check and make sure the Name isn't already used in the
datatable

If tRow.Count > 0 Then
  ' Name exists
Else
  ' Name doesn't exist
End If

Public Sub Save(ByVal carrier As DataCarrier, ByVal password As String, ByVal filename As String)
            Try
                Using sha As New SHA512Managed
                    Dim salt As Byte() = sha.ComputeHash(Encoding.Default.GetBytes(password))
                    Using pdb As New Rfc2898DeriveBytes(password, salt), aes As New RijndaelManaged, filestr As New FileStream(filename, FileMode.Create, FileAccess.Write)
                        Using cryptostr As New CryptoStream(filestr, aes.CreateEncryptor(pdb.GetBytes(32), pdb.GetBytes(16)), CryptoStreamMode.Write)
                            Dim str = ExportData(carrier).ToString()
                            Using w As New StreamWriter(cryptostr)
                                w.Write(str)
                            End Using
                        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 Sub Save(ByVal carrier As DataCarrier, ByVal password As String, ByVal filename As String)
           Try
               Using sha As New SHA512Managed
                   Dim salt As Byte() = sha.ComputeHash(Encoding.Default.GetBytes(password))
                   Using pdb As New Rfc2898DeriveBytes(password, salt), aes As New RijndaelManaged, filestr As New MemoryStream() 'filestr As New FileStream(filename, FileMode.Create, FileAccess.Write)
                       Using cryptostr As New CryptoStream(filestr, aes.CreateEncryptor(pdb.GetBytes(32), pdb.GetBytes(16)), CryptoStreamMode.Write)
                           ExportData(carrier).Save(cryptostr)
                           Dim str = New String(Encoding.Default.GetChars(filestr.ToArray()))
                           Debugger.Break()
                       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 Sub Save(ByVal carrier As DataCarrier, ByVal password As String, ByVal filename As String)
            Try
                Using sha As New SHA512Managed
                    Dim salt As Byte() = sha.ComputeHash(Encoding.Default.GetBytes(password))
                    Using pdb As New Rfc2898DeriveBytes(password, salt), aes As New RijndaelManaged, filestr As New MemoryStream() 'filestr As New FileStream(filename, FileMode.Create, FileAccess.Write)
                        Using cryptostr As New CryptoStream(filestr, aes.CreateEncryptor(pdb.GetBytes(32), pdb.GetBytes(16)), CryptoStreamMode.Write)
                            ExportData(carrier).Save(cryptostr)
                            File.WriteAllBytes(filename, filestr.ToArray())
                            Debugger.Break()
                        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

1. Comment out the export line and perform the crypto-stream write directly.
2. Create two byte arrays for the key and IV and make sure pdb is creating a sensible key & IV, I would have thought that the if these were incorrect the encryption algorithm would throw. I've not used the derived bytes thing, so it is new to me
3. If the above isn't working, hard-code the key and IV byte arrays

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

Public Shared Function Encrypt(value As String, key() As Byte, iv() As Byte) As string
    Dim bytValue() As Byte      'The data to be encrypted
    Dim bytEncoded() As Byte    'The data after encryption
    Dim rijndael As New Rijndael Managed
    Dim ms As New MemoryStream  'The stream to write the encrypted data to
    
    bytValue = Encoding.ASCII.GetBytes(value.ToCharArray)   'Convert plain text to byte array
    'Create the crypto stream with the stream to write the encrypted data to (ms = Memory Stream)
    Using CryptoStream As New CryptoStream(ms, rijnadel.CreateEncryptor(key, iv), CryptoStreamMode.Write)
        'Encrypt the plaint text byte array (bytValue) to the memory stream (ms)
        CryptoStream.Write(bytValue, 0, bytValue.Length)
        'Flush crypto stream
        CryptoStream.FlushFinalBlock()
        'Get the encrypted byte array from the memory stream (ms)
        bytEncoded = ms.ToArray
        'Close memory stream
        ms.Close()
    End Using
    
    'Convert the encrypted byte array (bytEncoded) to a Base64 string and return it
    Return Convert.ToBase64String(bytEncoded)
End Function