Current Path : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp3/App_Code/BL/ |
Windows NT SG2NWVPWEB022 10.0 build 17763 (Windows Server 2016) i586 |
Current File : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp3/App_Code/BL/Authorization.vb |
'Imports Microsoft.VisualBasic 'Public Class Authorization 'End Class Imports System.Data Imports System.Configuration Imports System.Web Imports System.Web.Security Imports System.Text Imports System.Security.Cryptography ''' <summary> ''' Summary description for Authorization ''' </summary> Public Class Authorization ' ' TODO: Add constructor logic here ' Public Sub New() End Sub Public Shared Function Sha256(ByVal Password As String) As String Dim unicode As New UnicodeEncoding() Dim encodedBytes As [Byte]() = unicode.GetBytes(Password) Dim sha As SHA256 = New SHA256Managed() Dim hash As [Byte]() = sha.ComputeHash(encodedBytes) Return Convert.ToBase64String(hash) End Function Public Shared Function EncryptConnectionString(ByVal connectionString As String) As String Dim b As [Byte]() = System.Text.ASCIIEncoding.ASCII.GetBytes(connectionString) Dim encryptedConnectionString As String = Convert.ToBase64String(b) Return encryptedConnectionString End Function Public Shared Function DecryptConnectionString(ByVal connectionString As String) As String Dim b As [Byte]() = Convert.FromBase64String(connectionString) Dim decryptedConnectionString As String = System.Text.ASCIIEncoding.ASCII.GetString(b) Return decryptedConnectionString End Function End Class