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

use new Encryption methods

Browse Source
This commit is contained in:
Jonathan Jenne
2021-05-28 11:01:59 +02:00
parent 3d30ab7309
commit 33cfb257b1
3 changed files with 8 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SQLConfig/frmSQLConfig.vb
View File

@@ -129,11 +129,8 @@ Public Class frmSQLConfig
Dim oResult = MessageBox.Show(STRING_CONNECTION_SUCCESSFUL, Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If oResult = DialogResult.Yes Then
Dim oCrypt As New EncryptionLegacy()
Dim oEncryptedPassword = oCrypt.EncryptData(txtPassword.Text)
Dim oEncryptedConnectionString = $"Server={txtServerName.Text};Database={cmbDatabase.Text};User Id={txtUserName.Text};Password={oEncryptedPassword};"
ConnectionString = oEncryptedConnectionString
Dim oPlainTextConnectionString = $"Server={txtServerName.Text};Database={cmbDatabase.Text};User Id={txtUserName.Text};Password={txtPassword.Text};"
ConnectionString = MSSQLServer.EncryptConnectionString(oPlainTextConnectionString)
Close()
End If
Catch ex As Exception