how_to_use_jwts_with_perl
Differences
This shows you the differences between two versions of the page.
| Last revision Both sides next revision | |||
|
how_to_use_jwts_with_perl [2022/01/13 19:36] abeverley created |
how_to_use_jwts_with_perl [2022/01/13 19:37] abeverley |
||
|---|---|---|---|
| Line 15: | Line 15: | ||
| chomp $pass; | chomp $pass; | ||
| ReadMode ( 'normal' ); #Back to your regularly scheduled program | ReadMode ( 'normal' ); #Back to your regularly scheduled program | ||
| + | | ||
| my $key = Crypt::PK::RSA->new('/home/user/.ssh/id_rsa', $pass); | my $key = Crypt::PK::RSA->new('/home/user/.ssh/id_rsa', $pass); | ||
| + | | ||
| my $jws_token = encode_jwt(payload => 'payload', alg => 'RS256', key => $key, extra_headers=>{kid=>'me@example.com'}); | my $jws_token = encode_jwt(payload => 'payload', alg => 'RS256', key => $key, extra_headers=>{kid=>'me@example.com'}); | ||
| say STDOUT $jws_token; | say STDOUT $jws_token; | ||
how_to_use_jwts_with_perl.txt ยท Last modified: 2022/01/13 19:39 by abeverley
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Noncommercial-Share Alike 4.0 International
