siwat/cudreg-saml2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

initial commit

Browse source
This commit is contained in:
Siwat Sirichai 2025-06-08 16:22:20 +07:00
commit 252dac3143
1516 changed files with 694271 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

165
App_Code/Shared/SignInState.vb Normal file
View file

@ -0,0 +1,165 @@
Imports Persons.Data
Namespace Persons.UI
Public Class SignInConstants
Public Const UserName As String = "SIS_UserName"
Public Const Password As String = "SIS_Password"
Public Const OriginalUserName As String = "SIS_OriginalUserName"
Public Const OriginalPassword As String = "SIS_OriginalPassword"
Public Const OriginalRememberUser As String = "SIS_OriginalRememberUser"
Public Const OriginalRememberPassword As String = "SIS_OriginalRememberPassword"
Public Const IsUNToRemember As String = "SIS_IsUNToRemember"
Public Const IsPassToRemember As String = "SIS_IsPassToRemember"
Public Const IsCancelled As String = "SIS_IsCancelled"
Public Const IsAutoLogin As String = "SIS_IsAutoLogin"
Public Const LoginPassword As String = "SIS_LoginPassword"
End Class
Public Class SignInState
Private Session As System.Web.SessionState.HttpSessionState
Public Property UserName() As String
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.UserName), String)
If (s Is Nothing) Then
Return ""
End If
Return s
End Get
Set(ByVal value As String)
Me.Session.Item(SignInConstants.UserName) = value
End Set
End Property
Public Property Password() As String
Get
Dim CheckCrypto As Crypto = New Crypto(Crypto.Providers.DES)
Dim key As String = BaseClasses.Configuration.ApplicationSettings.Current.CookieEncryptionKey
Dim s As String = CType(Me.Session.Item(SignInConstants.Password), String)
If (s Is Nothing OrElse s.Trim = "") Then
Return ""
End If
Return CheckCrypto.Decrypt(s, key, System.Text.Encoding.Unicode, False)
End Get
Set(ByVal value As String)
Dim CheckCrypto As Crypto = New Crypto(Crypto.Providers.DES)
Dim key As String = BaseClasses.Configuration.ApplicationSettings.Current.CookieEncryptionKey
Me.Session.Item(SignInConstants.Password) = CheckCrypto.Encrypt(value, key, System.Text.Encoding.Unicode, False)
End Set
End Property
Public Property LoginPassword() As String
Get
Dim CheckCrypto As Crypto = New Crypto(Crypto.Providers.DES)
Dim key As String = BaseClasses.Configuration.ApplicationSettings.Current.CookieEncryptionKey
Dim s As String = CType(Me.Session.Item(SignInConstants.LoginPassword), String)
If (s Is Nothing OrElse s.Trim = "") Then
Return ""
End If
Return CheckCrypto.Decrypt(s, key, System.Text.Encoding.Unicode, False)
End Get
Set(ByVal value As String)
Dim CheckCrypto As Crypto = New Crypto(Crypto.Providers.DES)
Dim key As String = BaseClasses.Configuration.ApplicationSettings.Current.CookieEncryptionKey
Me.Session.Item(SignInConstants.LoginPassword) = CheckCrypto.Encrypt(value, key, System.Text.Encoding.Unicode, False)
End Set
End Property
Public Property OriginalUserName() As String
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.OriginalUserName), String)
If (s Is Nothing) Then
Return ""
End If
Return s
End Get
Set(ByVal value As String)
Me.Session.Item(SignInConstants.OriginalUserName) = value
End Set
End Property
Public Property OriginalPassword() As String
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.OriginalPassword), String)
If (s Is Nothing) Then
Return ""
End If
Return s
End Get
Set(ByVal value As String)
Me.Session.Item(SignInConstants.OriginalPassword) = value
End Set
End Property
Public Property OriginalRememberUser() As String
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.OriginalRememberUser), String)
If (s Is Nothing) Then
Return ""
End If
Return s
End Get
Set(ByVal value As String)
Me.Session.Item(SignInConstants.OriginalRememberUser) = value
End Set
End Property
Public Property OriginalRememberPassword() As String
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.OriginalRememberPassword), String)
If (s Is Nothing) Then
Return ""
End If
Return s
End Get
Set(ByVal value As String)
Me.Session.Item(SignInConstants.OriginalRememberPassword) = value
End Set
End Property
Public Property IsUNToRemember() As Boolean
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.IsUNToRemember), String)
If (s Is Nothing) Then
Return False
End If
Return Boolean.Parse(s)
End Get
Set(ByVal value As Boolean)
Me.Session.Item(SignInConstants.IsUNToRemember) = value.ToString
End Set
End Property
Public Property IsPassToRemember() As Boolean
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.IsPassToRemember), String)
If (s Is Nothing) Then
Return False
End If
Return Boolean.Parse(s)
End Get
Set(ByVal value As Boolean)
Me.Session.Item(SignInConstants.IsPassToRemember) = value.ToString
End Set
End Property
Public Property IsCancelled() As Boolean
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.IsCancelled), String)
If (s Is Nothing) Then
Return False
End If
Return Boolean.Parse(s)
End Get
Set(ByVal value As Boolean)
Me.Session.Item(SignInConstants.IsCancelled) = value.ToString
End Set
End Property
Public Property IsAutoLogin() As Boolean
Get
Dim s As String = CType(Me.Session.Item(SignInConstants.IsAutoLogin), String)
If (s Is Nothing) Then
Return True
End If
Return Boolean.Parse(s)
End Get
Set(ByVal value As Boolean)
Me.Session.Item(SignInConstants.IsAutoLogin) = value.ToString
End Set
End Property
Public Sub New()
Me.Session = HttpContext.Current.Session
End Sub
End Class
End Namespace