Benjamim

本杰米姆是何塞的弟弟

用于代币创建和验证的JWT库

RFC7519 Internet工程工作组（IETF）2015年5月https://tools.ietf.org/html/rfc7519

摘要-JSON Web令牌（JWT）是一种紧凑的URL -SAR -SAFE，表示声称是在两条短裤之间转移的索赔。 JWT中的主张被用作JSON对象，用作JSON Web签名（JWS）曲线的有效载荷，或用作JSON Web Enryction（JWE）曲线的纯文本，使索赔能够通过数字签名或具有消息的完整性受到消息诚实代码（MAC）和/或或或或或或或或或或或或或或或或或或或或或或包.。

摘要-JSON Web令牌（JWT）是表示要在两个部分之间转移的索赔的紧凑和URL。 JWT中的主张被编码为JSON对象，该对象用作JSON Web订阅结构（JWS）的有用负载，或用作JSO Web加密结构（JWE）的简单文本，允许通过消息身份验证代码（MAC）和/或/或或/或ONECRYPTED在数字签名或保护语句。

安装

BOSS安装Luisnt/Benjamim

变成新令牌

支持类型

 {
    jti - Jwt ID          - Jwt ID (ID)
    iss - Issuer          - Issuer (Issuer)
    sub - Subject         - Subject matter
    aud - Audience        - Audience (Remote IP)
    iat - Issued At       - Issued on (When Token was Issued / Automatic)
    nbf - Not Before      - Validity Started (Starts At)
    exp - Expiration Time - Expired Validity (Expires On)
    add - custom key      - can be: integer, decimal, datetime, boolean, JsonObject, JsonArray and Variant 
    
    jti - Jwt ID          - Jwt ID ( ID )
    iss - Issuer          - Emissor ( Emissor )
    sub - Subject         - Assunto
    aud - Audience        - Audiência ( Remote IP )
    iat - Issued At       - Emitido em ( Quando o Token foi Emitido / Automático )
    nbf - Not Before      - Validade Iniciada ( Inicia Em )
    exp - Expiration Time - Validade Terminada ( Expirar Em )
    add - custom key      - can be: integer, decimal, datetime, boolean, JsonObject, JsonArray e Variant  
} 

样品使用

 
 uses
  System.SysUtils
    , Benjamim
    ;

procedure print (aToken: string; aSign: boolean);
begin
  WriteLn(EmptyStr);
  WriteLn( '       Token: ' );
  WriteLn(aToken);
  WriteLn( '   Algorithm: ' , Benjamim.JWT.Header.Algorithm);
  WriteLn( '        Sign: ' , BoolToStr(aSign, true));
  WriteLn(EmptyStr);
  WriteLn(EmptyStr);
end ;

var
  LToken: string;
  LSign : boolean;

begin
  ReportMemoryLeaksOnShutdown := true;

  Benjamim.JWT.Password( ' secret ' ); { OPTIONAL }

  Benjamim.JWT.Header.Algorithm(TJwtAlgorithm.HS512); { OPTIONAL - DEFAULT TJwtAlgorithm.HS256 }

  Benjamim.JWT.Payload.jti( 1 )
    .iss( ' Luis Nt ' )
    .sub( ' Chave de acesso ' )
    .aud( ' 192.168.0.77 ' )
    .iat( ' 2021-01-31 15:55:21.123 ' )
    .nbf( ' 2021-01-31 18:01:01.001 ' )
    .exp( ' 2021-01-31 22:01:01.001 ' )
    .add( ' price ' , 10.5 )
    .add( ' name ' , ' your fullname ' )
    .add( ' phone ' , 559822223333 )
    ;
  LToken := Benjamim.JWT.Signature.Sign;

  LSign :=
    Benjamim.JWT
    .Token(LToken)
    .Signature
    .Verify;

  print(LToken, LSign);

  ReadLn;

end .

验证令牌

样品使用

 
 uses
   Benjamim
    ;

  procedure print (aToken: string; aSign: boolean);
  begin
    WriteLn(EmptyStr);
    WriteLn( '       Token: ' );
    WriteLn(aToken);
    WriteLn( '   Algorithm: ' , Benjamim.JWT.Header.Algorithm);
    WriteLn( '        Sign: ' , BoolToStr(aSign, true));
    WriteLn(EmptyStr);
    WriteLn(EmptyStr);
  end ;

  var
    LToken: string;
    LSign : boolean;
  begin
      ReportMemoryLeaksOnShutdown := true;

      LToken :=
        ' eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJzdWIiOiIxMjM0NTY3ODkwIiwibmFtZSI6Ikpva ' +
        ' G4gRG9lIiwiaWF0IjoxNTE2MjM5MDIyfQ.SflKxwRJSMeKKF2QT4fwpMeJf36POk6yJV_adQssw5c ' ;

      LSign :=
        Benjamim.JWT
        .Token(LToken)
        .Password( ' your-256-bit-secret ' ) { usado no site JWT.io }
        .Signature
        .Verify;

      print(LToken, LSign);

      ReadLn;

  end .