AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2023-01-23 16:21:42 +01:00
parent 01b066e4e3
commit 60c739833f
57 changed files with 77259 additions and 198787 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
app/DD-Record-Organizer/ModuleMySettings.vb
View File

@@ -7,7 +7,7 @@ Imports DigitalData.Modules.Windream
Module ModuleMySettings
Public PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml")
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig2.xml")
Public MyConnectionString As String = ""
Public MyFormsDesign As String = ""
@@ -24,6 +24,7 @@ Module ModuleMySettings
Public WMPATH_PREFIX As String
Public WMMOD As Windream
Public SHARE_DRIVE_ACTIVE As Boolean = False
Public WM_READ_ONLY As Boolean = False
Public GridDocResult_BestFitColumns As Boolean = True
Public SQL_FULLTEXT As String
@@ -134,33 +135,33 @@ Module ModuleMySettings
Select Case Row.Item("ConfigName")
Case "MyConnectionString"
Dim connstring As String
'Den ConnectonString mit verschlüsseltem PW laden
''Den ConnectonString mit verschlüsseltem PW laden
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = Row.Item("Value")
If Not csb.ConnectionString = "" Then
If csb.ConnectionString.Contains("Password=") Then
'sa-
'Jetzt das Passwort entschlüsseln
Dim PWplainText As String
Dim wrapper As New ClassEncryption("!35452didalog=")
' DecryptData throws if the wrong password is used.
Try
PWplainText = wrapper.DecryptData(csb.Password)
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
Catch ex As Exception
LOGGER.Warn("- the Password '" & csb.Password & "' could not be decrypted")
connstring = ""
End Try
'If Not csb.ConnectionString = "" Then
' If csb.ConnectionString.Contains("Password=") Then
' 'sa-
' 'Jetzt das Passwort entschlüsseln
' Dim PWplainText As String
' Dim wrapper As New ClassEncryption("!35452didalog=")
' ' DecryptData throws if the wrong password is used.
' Try
' PWplainText = wrapper.DecryptData(csb.Password)
' connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
' Catch ex As Exception
' LOGGER.Warn("- the Password '" & csb.Password & "' could not be decrypted")
' connstring = ""
' End Try
Else
'Windows-Auth
connstring = Row.Item("Value").ToString
End If
' Else
' 'Windows-Auth
' connstring = Row.Item("Value").ToString
' End If
MyConnectionString = connstring
Else
MyConnectionString = ""
End If
' MyConnectionString = connstring
'Else
' MyConnectionString = ""
'End If
Case "MyProxyConnectionString"
Dim connstring As String
'Den ConnectonString mit verschlüsseltem PW laden