From 15f530c9fc84f70ab9f19a309a9242c43bdd7f24 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 17 Jan 2022 11:59:52 +0100 Subject: [PATCH] MS MSSQL 2.2.6.0 Decrypt ConString in GEtCSforCONID --- Modules.Database/Adapters/MSSQLServer.vb | 2 ++ Modules.Database/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Modules.Database/Adapters/MSSQLServer.vb b/Modules.Database/Adapters/MSSQLServer.vb index b831bb2b..02bfc2c0 100644 --- a/Modules.Database/Adapters/MSSQLServer.vb +++ b/Modules.Database/Adapters/MSSQLServer.vb @@ -159,12 +159,14 @@ Public Class MSSQLServer connectionString = $"Server={oServer};Database={oDatabase};Trusted_Connection=True;" Else connectionString = $"Server={oServer};Database={oDatabase};User Id={oUser};Password={oPassword};" + connectionString = DecryptConnectionString(connectionString) End If Case "Oracle" If oRow.Item("BEMERKUNG").ToString.Contains("without tnsnames") Then connectionString = $"Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST={oServer})(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME={oDatabase})));User Id={oUser};Password={oPassword};" Else connectionString = $"Data Source={oServer};Persist Security Info=True;User Id={oUser};Password={oPassword};Unicode=True" + connectionString = DecryptConnectionString(connectionString) End If Case Else _Logger.Warn("Provider {0} nicht unterstützt!", oProvider) diff --git a/Modules.Database/My Project/AssemblyInfo.vb b/Modules.Database/My Project/AssemblyInfo.vb index e4966988..38908870 100644 --- a/Modules.Database/My Project/AssemblyInfo.vb +++ b/Modules.Database/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +