AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- validar acceso al usuario.

Browse Source
This commit is contained in:
rrene
2024-06-30 23:19:12 -07:00
parent b6f8612c1b
commit 487edd186f
17 changed files with 934 additions and 905 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Ashx/MHRedes.ashx
View File

@@ -44,7 +44,8 @@ Public Class MobileHandler : Implements IHttpHandler
Private Sub ValidaUsuario()
Dim ObjUsuario As New ClsSisUsuarios
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(41)
Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
Dim User As Usuario
Dim IP As String
@@ -58,18 +59,18 @@ Public Class MobileHandler : Implements IHttpHandler
Dim Json As New StringBuilder
User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"))
User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"), 41)
If User IsNot Nothing Then
Dim Token As String = String.Format("{0}*{1}*{2}", ClsPaginas.NowADS().ToString, IP, User.CveUsuario)
Token = Encripta(Token)
json.AppendFormat("{{ ""CveUsuario"" : ""{0}"", ""Nombre"" : ""{1}"", ""Token"" : ""{2}"" }} ", User.CveUsuario, User.Nombre, Token)
Json.AppendFormat("{{ ""CveUsuario"" : ""{0}"", ""Nombre"" : ""{1}"", ""Token"" : ""{2}"" }} ", User.CveUsuario, User.Nombre, Token)
Else
json.Append("{ ""CveUsuario"" : ""-1"", ""Nombre"" : ""No valido"" } ")
Json.Append("{ ""CveUsuario"" : ""-1"", ""Nombre"" : ""No valido"" } ")
End If
Contexto.Response.Write(json.ToString)
ObjUsuario.Dispose()
Contexto.Response.Write(Json.ToString)
End Sub