Merge - Recepcion Usados

Ashx/SIGWeb.ashx

@@ -10,7 +10,27 @@ Imports System.IO
 Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
     Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
-        context.Response.ContentType = "text/plain"
+        If context.Request("metodo").ToString() = "GetTokenAngular" Then
+            'context.Response.ContentType = "application/json; charset=utf-8"
+
+            context.Response.ContentType = "text/json"
+            Dim origin As String = context.Request.UrlReferrer.ToString()
+            context.Response.AddHeader("Access-Control-Allow-Origin", origin.Substring(0, origin.Length - 1))
+            'context.Response.AddHeader("Access-Control-Allow-Origin", "http://localhost:4200")
+            'context.Response.AddHeader("Access-Control-Allow-Methods", "GET, POST")
+            context.Response.AddHeader("Access-Control-Allow-Headers", "Content-Type, Accept")
+            context.Response.AddHeader("Access-Control-Allow-Credentials", "true")
+            context.Response.StatusCode = 200
+            Dim key As String = GetTokenAngular(context)
+            Dim json As String = JsonConvert.SerializeObject(key)
+            context.Response.Write(json)
+            context.Response.Flush()
+            context.Response.Close()
+            context.Response.End()
+        Else
+            context.Response.ContentType = "text/plain"
+        End If
+
         Try
             Select Case context.Request("metodo")
                 Case "getps"
@@ -53,13 +73,27 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     context.Response.Write(sendMail(context))
                 Case "sendMailLPM"
                     context.Response.Write(sendMailLPM(context))
-
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.Message)
         End Try
     End Sub
+    Private Function GetTokenAngular(context As HttpContext) As String
+        Dim usuario As Usuario = UsuarioActual(context)
+        Dim tokenDescriptor = New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With {
+        .Subject = New System.Security.Claims.ClaimsIdentity(New System.Security.Claims.Claim() {New System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()),
+        New System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), New System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()),
+        New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", Date.Now.ToLongDateString())}),
+        .Expires = Date.UtcNow.AddHours(3),
+        .SigningCredentials = New Microsoft.IdentityModel.Tokens.SigningCredentials(
+        New Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")),
+        Microsoft.IdentityModel.Tokens.SecurityAlgorithms.HmacSha256Signature)}
+        Dim tokenHandler = New System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler()
+        Dim newtoken = tokenHandler.CreateToken(tokenDescriptor)
+        Dim stokenn As String = tokenHandler.WriteToken(newtoken)
+        Return stokenn
 
+    End Function
     Private Function sendMailLPM(context As HttpContext) As String
         Dim retorno As String = "true"
         Dim nombre As String = ""