COMO GERAR UM TOKEN JWT EM VBNET code example

Example 1: JASON WEB TOKENS EM VBNET COM WINDOWS FORMS

{
  "iss": "JwtServer",
  "sub": "hrmanager",
  "email": "[email protected]",
  "jti": "e971bd9c-7655-41d5-9c49-fabc054dc466",
  "iat": 1503922683,
  "http://schemas.microsoft.com/ws/2008/06/identity/claims/role": [
    "Employee",
    "HR-Worker",
    "HR-Manager"
  ],
  "Department": [
    "HR",
    "HR"
  ],
  "nbf": 1503922683,
  "exp": 1503924483
}

Example 2: JASON WEB TOKENS EM VBNET COM WINDOWS FORMS

var headerAndPayload = base64Encode(header) + "." + base64Encode(payload);

var secretkey = "@everone:KeepitSecret!";

signature = HMACSHA256(headerAndPayload, secretkey);

Example 3: TOKEN JWT EXEMPLOS EM VBNET

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Net;
using System.IO;
using JWT;
using Newtonsoft.Json.Linq;

namespace TimeworksAPI2
{
class Program
{
    const string AUTHSERVICE = "https://workingURL/";
    const string twpAIPURL = "https://workingURL/";

    static void Main(string[] args)
    {
        int PartnerID = 222;
        string SiteID = "XXXXX";
        string StartDate = "2017-04-11";
        string EndDate = "2017-04-11";
        string Category = "vacation";
        string key = "XXXXXXXXXXX";
        Dictionary<string, decimal> Results = GetAccrualData(
          StartDate,EndDate,Category, SiteID, key, PartnerID);

    }
    static public Dictionary<string, decimal> GetAccrualData(string StartDate, string EndDate, string Category, string SiteID, int PartnerID, string key)
    {

        var apptoken = "";
        var token = new
        {
            iss = PartnerID,
            product = "twppartner",
            sub = "partner",
            siteInfo = new
            {
                type = "id",
                id = SiteID
            },
            exp = (Int32)DateTime.UtcNow.Add(new TimeSpan(0, 4, 30)).Subtract(new DateTime(1970, 1, 1)).TotalSeconds
        };
        var jwt = JsonWebToken.Encode(token, key, JwtHashAlgorithm.HS256);
        WebRequest request = WebRequest.Create(AUTHSERVICE);
        request.ContentType = "application/json";
        request.Method = "POST";
        request.Headers.Set("Authorization", string.Format("Bearer {0}", jwt));
        HttpWebResponse response = (HttpWebResponse)request.GetResponse();
        if (response.StatusCode == HttpStatusCode.Created)
                             'QUALQUER COISA
     
     
'_________________________EM VB NET____________________________
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Net
Imports System.IO
Imports JWT
Imports Newtonsoft.Json.Linq

Namespace TimeworksAPI2
    Class Program
        Const AUTHSERVICE As String = "https://workingURL/"
        Const twpAIPURL As String = "https://workingURL/"

        Private Shared Sub Main(ByVal args As String())
            Dim PartnerID As Integer = 222
            Dim SiteID As String = "XXXXX"
            Dim StartDate As String = "2017-04-11"
            Dim EndDate As String = "2017-04-11"
            Dim Category As String = "vacation"
            Dim key As String = "XXXXXXXXXXX"
            Dim Results As Dictionary(Of String, Decimal) = GetAccrualData(StartDate, EndDate, Category, SiteID, key, PartnerID)
        End Sub

        Shared Public Function GetAccrualData(ByVal StartDate As String, ByVal EndDate As String, ByVal Category As String, ByVal SiteID As String, ByVal PartnerID As Integer, ByVal key As String) As Dictionary(Of String, Decimal)
            Dim apptoken = ""
            Dim token = New With {Key
                .iss = PartnerID, Key
                .product = "twppartner", Key
                .[sub] = "partner", Key
                .siteInfo = New With {Key
                    .type = "id", Key
                    .id = SiteID
                }, Key
                .exp = CInt(DateTime.UtcNow.Add(New TimeSpan(0, 4, 30)).Subtract(New DateTime(1970, 1, 1)).TotalSeconds)
            }
            Dim jwt = JsonWebToken.Encode(token, key, JwtHashAlgorithm.HS256)
            Dim request As WebRequest = WebRequest.Create(AUTHSERVICE)
            request.ContentType = "application/json"
            request.Method = "POST"
            request.Headers.[Set]("Authorization", String.Format("Bearer {0}", jwt))
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            If response.StatusCode = HttpStatusCode.Created Then 
          
                                          'qualquer coisa 
           End If                             
        End Function
    End Class
End Namespace