conceito jwt em vbnet com exemplos
{
"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
}
3.78
9
const crypto = require('crypto');
const header = JSON.stringify({
'alg': 'HS256',
'typ': 'JWT'
});
const payload = JSON.stringify({
'email': '[email protected]',
'password': 'ya0gsqhy4wzvuvb4'
});
const base64Header = Buffer.from(header).toString('base64').replace(/=/g, '');
const base64Payload = Buffer.from(payload).toString('base64').replace(/=/g, '');
const secret = 'my-custom-secret';
const data = base64Header + '.' + base64Payload;
const signature = crypto
.createHmac('sha256', secret)
.update(data)
.digest('base64');
const signatureUrl = signature
.replace(/\+/g, '-')
.replace(/\//g, '_')
.replace(/=/g, '')
console.log(signatureUrl);
Thank you!
9
0
3
1
var headerAndPayload = base64Encode(header) + "." + base64Encode(payload);
var secretkey = "@everone:KeepitSecret!";
signature = HMACSHA256(headerAndPayload, secretkey);
Thank you!
1
0
0
8
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
Thank you!
8
0
Are there any code examples left?
New code examples in category BASIC
-
BASIC 2022-03-27 17:45:10 JWT EM VBNET
-
BASIC 2022-03-20 07:40:02 get unique random number in vb.net
-
BASIC 2022-03-11 21:30:23 visual basic for loop
-
BASIC 2022-03-05 08:25:09 token em vbnet incluido no header da requisição
-
BASIC 2022-03-03 04:25:02 dos/cmd equivalent to "head"
-
BASIC 2022-02-26 20:20:04 mid visual basic function
-
BASIC 2022-02-23 02:15:02 vscode unindent
-
BASIC 2022-02-18 16:20:01 freecodecamp basic algorithm scripting return largest numbers in arrays
-
BASIC 2022-02-10 15:10:40 visual basic how to create a dynamic button
-
BASIC 2022-02-04 20:30:23 tmux basic commands