| 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