userSettingsを暗号化する

事前準備

1. プロジェクトの参照設定にSystem.Configurationを追加
2. プロジェクトの設定に設定項目を追加
   • 暗号化されるのはスコープがユーザーの項目が対象です。

暗号化

アプリケーションの起動のどこかで以下を行ってください。

Form1.vb

Public Class Form1
	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		Const provider As String = "DataProtectionConfigurationProvider"
		Dim config As Configuration.Configuration = Configuration.ConfigurationManager.OpenExeConfiguration(System.Configuration.ConfigurationUserLevel.PerUserRoamingAndLocal)
		Dim sectiongroup As Configuration.ConfigurationSectionGroup = config.GetSectionGroup("userSettings")
		Dim count As Integer = 0

		For Each section As Configuration.ClientSettingsSection In sectiongroup.Sections
			If Not section.SectionInformation.IsProtected Then
				section.SectionInformation.ProtectSection(provider)
				count += 1
			End If
		Next

		If count > 0 Then
			config.Save()
		End If
	End Sub
End Class

user.configの場所

上記コードでconfig.Save()を呼び出されると以下のフォルダに暗号化されたファイルが作成されます。

%localappdata%\AssemblyCompany\AssemblyTitle.exe_Url_生成された値\version\user.config

内容を確認すると暗号化されているのがわかります。

user.config

<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <userSettings>
        <CnfgEncrypt.My.MySettings configProtectionProvider="DataProtectionConfigurationProvider">
            <EncryptedData>
                <CipherData>
                    <CipherValue>AQAAANCMnd8BFdERjHoAwE/Cl+sBAAAA1xVCoWYWb0q+dkt7bnGzegQAAAACAAAAAAADZgAAwAAAABAAAABAlOcG9igpl6nbcz1EaIGNAAAAAASAAACgAAAAEAAAAPVGNEE0CHNXArdywbF5sNtAAAAAJp2f/6iMcPoxietfeA6tgPS0KFT3U/U0JscezvRRIEhZW/xO1OLzjwVRC6ZQyt0fkeApI5OvV2xmx9S/7bUd2hQAAACS4J1y2jOoJ8zV2OZUGGVomg1NUQ==</CipherValue>
                </CipherData>
            </EncryptedData>
        </CnfgEncrypt.My.MySettings>
    </userSettings>
</configuration>

免責

ドシロートなんで、暗号の強度なんかについてはわかりません。
よって、責任も持てません。