ASP.NET

<connectionStrings>
		<add name="Database_MARISConnectionString" connectionString="Data Source=MEXTERMSC;Initial Catalog=Database_MARIS;User ID=test;Password=test1234"
   providerName="System.Data.SqlClient" />		
 </connectionStrings>

Imports System.Configuration
Imports System.Web.Security
Imports System.Web.Configuration
Imports Msecurity


Partial Class mARIS_Default3
    Inherits System.Web.UI.Page
    Public tmprptno As String
    Protected Sub page_load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    End Sub
    Private provider As String = "RSAProtectedConfigurationProvider"
    Private section As String = "connectionStrings"

    Protected Sub btnEncrypt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
        Try
            Dim conf As Configuration = WebConfigurationManager.OpenWebConfiguration(Request.ApplicationPath)
            Dim confStrSect As ConfigurationSection = conf.GetSection(section)
            If Not confStrSect Is Nothing Then
                confStrSect.SectionInformation.ProtectSection(provider)
                conf.Save()
            End If
            'the encrypted section is automatically decrypted!!
            Response.Write("Configuration Section " & " <b>" & WebConfigurationManager.ConnectionStrings("Database_MARISConnectionString").ConnectionString & "</b>" & " is automatically decrypted")
        Catch ex As Exception
            UpdateEvent("Configuration Manager:Encrypt:" & ex.Message)
            ex = Nothing
        End Try
    End Sub

    Protected Sub btnDecrypt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click
        Try

            Dim conf As Configuration = WebConfigurationManager.OpenWebConfiguration(Request.ApplicationPath)
            Dim confStrSect As ConfigurationSection = conf.GetSection(section)
            If Not confStrSect Is Nothing AndAlso confStrSect.SectionInformation.IsProtected Then
                confStrSect.SectionInformation.UnprotectSection()
                conf.Save()
            End If

        Catch ex As Exception
            UpdateEvent("Configuration Manager:Decrypt:" & ex.Message)
            ex = Nothing
        End Try
    End Sub
End Class