JWT Token Validation
Posted: Sat Jan 21, 2023 6:35 am
I am receiving a JWT token from an HTTP request and need assistance with validation.
Below is my code, which is trying to load a PEM file and pass to the TryVerifyToken method. The .LoadPemFile is not successful, so I am not sure of the implementation. Sorry, these PRIMs are new for me and docs are a bit scarce.
Define_Com Class(#PRIM_SRVM.HttpJsonWebTokenSignaturePSnnn) Name(#vToken)
Define_Com Class(#PRIM_SRVM.HttpJsonWebToken) Name(#vJWT)
Define_Com Class(#PRIM_CAPI.PublicKey) Name(#vKey)
Define Field(#vJWTAccessToken) Type(*string) Length(5000)
Define Field(#vValidToken) Type(*Boolean) Default(False)
Define Field(#vValidKey) Type(*Boolean) Default(False)
define field(#vPemFilePath) reffld(#FilePath)
* Load the PEM file
#vPemFilePath := '/PathToMyPEMfile.pem'
#vValidKey := #vKey.LoadPemFile( #vPemFilePath )
If (#vValidKey)
#vValidToken := #vToken.TryVerifyToken( #vJWTAccessToken #vJWT #vKey )
Endif
Below is my code, which is trying to load a PEM file and pass to the TryVerifyToken method. The .LoadPemFile is not successful, so I am not sure of the implementation. Sorry, these PRIMs are new for me and docs are a bit scarce.
Define_Com Class(#PRIM_SRVM.HttpJsonWebTokenSignaturePSnnn) Name(#vToken)
Define_Com Class(#PRIM_SRVM.HttpJsonWebToken) Name(#vJWT)
Define_Com Class(#PRIM_CAPI.PublicKey) Name(#vKey)
Define Field(#vJWTAccessToken) Type(*string) Length(5000)
Define Field(#vValidToken) Type(*Boolean) Default(False)
Define Field(#vValidKey) Type(*Boolean) Default(False)
define field(#vPemFilePath) reffld(#FilePath)
* Load the PEM file
#vPemFilePath := '/PathToMyPEMfile.pem'
#vValidKey := #vKey.LoadPemFile( #vPemFilePath )
If (#vValidKey)
#vValidToken := #vToken.TryVerifyToken( #vJWTAccessToken #vJWT #vKey )
Endif