To Wite in XML File in Encrypted Format & To Read from XML file in Decrypted Format

Public Class ReadWriteXML



#Region "Variables"

    Dim Con As New SqlClient.SqlConnection

    Dim com As New SqlClient.SqlCommand

    Dim ds, dsRW As New DataSet

#End Region



    Private Sub ReadWriteXML_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Con.ConnectionString = "Password=YY;Persist Security Info=True;User ID=YY;Initial Catalog=YY;Data Source=YY"

        Con.Open()

    End Sub



#Region "EnCrypt or DeCrypt String "

    Public Function fnEnCryptDeCrypt(ByVal Text As String) As String

        Dim strTempChar As String = "", i As Integer

        For i = 1 To Len(Text)

            If Asc(Mid$(Text, i, 1)) < 128 Then

                strTempChar = CType(Asc(Mid$(Text, i, 1)) + 128, String)

            ElseIf Asc(Mid$(Text, i, 1)) > 128 Then

                strTempChar = CType(Asc(Mid$(Text, i, 1)) - 128, String)

            End If

            Mid$(Text, i, 1) = Chr(CType(strTempChar, Integer))

        Next i

        Return Text

    End Function

#End Region



    'To Write To XML File in Encrypted Format 

    Private Sub btnWriteToXML_Encrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWriteToXML_Encrypt.Click

        ds = New DataSet

        dsRW = New DataSet

        Dim adp As New SqlClient.SqlDataAdapter("Select Code,Description From tbcountrymst", Con)

        adp.Fill(ds)

        If ds.Tables.Count > 0 Then

            If ds.Tables(0).Rows.Count > 0 Then



                'Needs to Crate Dataset Which Columns DataType should be String.

                'So It will allow any Characters as the data (Encrypted Data)

                dsRW.Tables.Add()

                dsRW.Tables(0).TableName = ds.Tables(0).TableName

                For j As Integer = 0 To ds.Tables(0).Columns.Count - 1

                    Dim dc As New DataColumn

                    dc.ColumnName = ds.Tables(0).Columns(j).ColumnName

                    dc.DataType = "String".GetType()

                    dsRW.Tables(0).Columns.Add(dc)

                Next



                'Now Encrypt all the Original Value and put it in New dataset which keeps all the encrypted data.

                For i As Integer = 0 To ds.Tables(0).Rows.Count - 1

                    dsRW.Tables(0).Rows.Add()

                    For j As Integer = 0 To ds.Tables(0).Columns.Count - 1

                        dsRW.Tables(0).Rows(i).Item(j) = fnEnCryptDeCrypt(ds.Tables(0).Rows(i).Item(j))

                    Next

                Next

            End If

        End If



        'Write the Encrypted Dataset in XML

        dsRW.WriteXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")



        'To Check the Output (Encrypted Value) at the RunTime

        Process.Start("F:\Projects\Random\Random\ReadWriteXMLFile.xml")

    End Sub



    'To Read From XML File in Decrypted Format 

    Private Sub btnReadfromXML_Decrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadfromXML_Decrypt.Click

        ds = New DataSet



        'Read the Encrypted Data From XML file

        ds.ReadXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")

        If ds.Tables.Count > 0 Then

            If ds.Tables(0).Rows.Count > 0 Then

                For i As Integer = 0 To ds.Tables(0).Rows.Count - 1

                    For j As Integer = 0 To ds.Tables(0).Columns.Count - 1



                        'Decrypt all the Values in the DataSet

                        ds.Tables(0).Rows(i).Item(j) = fnEnCryptDeCrypt(ds.Tables(0).Rows(i).Item(j))

                    Next

                Next

            End If

        End If



        'To Check the Output (Decrypted Value) at the RunTime

        ds.WriteXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")

        Process.Start("F:\Projects\Random\Random\ReadWriteXMLFile.xml")

    End Sub



End Class