Benjamim

Benjamim est le frère cadet de José

Bibliothèque JWT pour la création et la vérification des jetons

RFC7519 Internet Engineering Task Force (IETF) Mis à jour Mai 2015 Source https://tools.ietf.org/html/rfc7519

Résumé - Le jeton Web JSON (JWT) est un moyen compact et url de représenter les prétentions à transférer entre deux shorts. Les affirmations dans un JWT sont enodees comme un objet JSON qui est utilisé comme la charge utile d'une struture JSON Web Signature (JWS) ou comme texte clair d'une struture JSON Web Enryction (JWE), permettant aux affirmations d'être signés ou d'intégrité de l'intégrité avec le code d'authentification des messages (Mac) et d'encrypte.

Résumé - JSON Web Token (JWT) est un moyen compact et URL de représenter les réclamations à transférer entre deux parties. Les affirmations dans un JWT sont encodées comme un objet JSON qui est utilisé comme charge utile d'une structure d'abonnement Web JSON (JWS) ou comme texte simple d'une structure de cryptage Web JSO (JWE), permettant aux instructions de signaler ou protégé par un code d'authentification de message (MAC) et / ou encragé.

Installer

Boss installer Luisnt / Benjamim

Generato à un nouveau jeton

Types de support

 {
    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  
} 

Utilisation des échantillons

 
 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 .

Vérifiez un jeton

Utilisation des échantillons

 
 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 .