Public Shared Sub UnProtectSection()
' Get the current configuration file.
Dim config _
As System.Configuration.Configuration = _
ConfigurationManager.OpenExeConfiguration( _
ConfigurationUserLevel.None)
' Get the section.
Dim section As UrlsSection = _
CType(config.GetSection("MyUrls"), UrlsSection)
' Unprotect (decrypt)the section.
section.SectionInformation.UnprotectSection()
' Force the section information to be written to
' the configuration file.
section.SectionInformation.ForceDeclaration(True)
' Save the decrypted section.
section.SectionInformation.ForceSave = True
config.Save(ConfigurationSaveMode.Full)
' Display the decrypted configuration
' section.
Dim sectionXml As String = _
section.SectionInformation.GetRawXml()
Console.WriteLine("Decrypted section:")
Console.WriteLine(sectionXml)
End Sub 'UnProtectSection