Visual Basic

Sub DecryptTextFromFile(ByVal Key() As Byte, ByVal IV() As Byte)<br />
        Dim var As String = My.Application.Info.DirectoryPath + "\text.txt"<br />
<br />
        Try<br />
            ' Create or open the specified file. <br />
            Dim fStream As FileStream = File.Open(var, FileMode.OpenOrCreate)<br />
<br />
<br />
            ' Create a new Rijndael object.<br />
            Dim RijndaelAlg As Rijndael = Rijndael.Create<br />
<br />
            ' Create a CryptoStream using the FileStream <br />
            ' and the passed key and initialization vector (IV).<br />
            Dim cStream As New CryptoStream(fStream, _<br />
                                            RijndaelAlg.CreateDecryptor(Key, IV), _<br />
                                            CryptoStreamMode.Read)<br />
<br />
            RijndaelAlg.Padding = PaddingMode.PKCS7<br />
<br />
<br />
<br />
            ' Create a StreamReader using the CryptoStream.<br />
            Dim sReader As StreamReader = New StreamReader(cStream)<br />
<br />
            dim var23 as String=sReader.ReadLine()<br />
<br />
<br />
<br />
            'Read the data from the stream <br />
            'to decrypt it.<br />
            Dim val As String = ""<br />
            Try<br />
<br />
                val = sReader.ReadLine()<br />
<br />
            Catch e As Exception<br />
                MessageBox.Show("An error occurred: {0}", e.Message)<br />
            Finally<br />
                ' Close the streams and<br />
                ' close the file.<br />
                sReader.Close()<br />
                cStream.Close()<br />
                fStream.Close()<br />
<br />
<br />
            End Try<br />
<br />
            Catch e As CryptographicException<br />
            MessageBox.Show("A Cryptographic error occurred: {0}", e.Message)<br />
            'Return Nothing<br />
        Catch e As UnauthorizedAccessException<br />
            MessageBox.Show("A file error occurred: {0}", e.Message)<br />
            'Return Nothing<br />
        End Try<br />
<br />
   <br />
    End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        ' Check whether the user type in the name of an organization.
        ' If the user didn't type any name, the system won't allow
        ' the user to add organization information into the database system.
        If Trim(txtOrgName.Text) <> "" Then
            Dim cmdAddOrgName As New OleDbCommand
            With cmdAddOrgName
                .Connection = cnnDonorDb
                .CommandType = CommandType.Text
                .CommandText = "INSERT INTO tblOrgInfo (OrgName, Address) VALUES ('" & Trim(txtOrgName.Text) & "', '" & txtAddress.Text & "'")                Try
                    .Connection.Open()
                Catch exFileNotFound As System.Data.OleDb.OleDbException
                    MessageBox.Show("The system has a problem to connect to your database system." & ControlChars.CrLf & "Please verify that your database is located in the following path: 'C:\DICDonorDb\DICDornorDb.mdb'", "Database file not found", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End Try
                .ExecuteNonQuery()
                   .Connection.Close()
            End With
            ' Inform the user after succesffuly add an information into
            ' the database system.
            MessageBox.Show("'" & Trim(txtOrgName.Text) & "' organization is successfully add into the database system." & ControlChars.CrLf & "The systme will clear an information of this organization on the form in order to add new organization information.", "Successfully Add an Organization Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ' Clear an information on the form.
            txtOrgName.Text = ""
            txtAddress.Text = ""
            mtbPhone.Text = ""
            txtEmail.Text = ""
            txtAddress.Text = ""
            txtNote.Text = ""
        ElseIf Trim(txtOrgName.Text) = "" Then
            MessageBox.Show("You didn't write an organization name to record in the database system." & ControlChars.CrLf & "Please specified an organization name before adding an organization information into the database system.", "Missing Organization Name", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            btnAdd.Focus()
        End If

    End Sub