Ogni tanto scrivo codice per diletto, altre volte per lavoro.
In questo caso mi sono trovato di fronte a una esigenza: portare online dei vecchi programmi sviluppati in Alaska Xbase++
Da un lato avevo vecchi DBF, con problemi di concorrenza con vecchie applicazioni, dall'altro un'applicazione VUE che doveva dialogare con questi archivi, andando a competere con applicazioni scritte in Alaska Xbase++
L'approccio migliore, anche nell'ottica di poter dare in mano il codice a chi manteneva il programma lato Xbase, era quello di creare dei servizi lato web.
Per farlo, ho realizzato prima i servizi REST tramite mod_harbour, e successivamente ho riscritto da zero una libreria in grado di implementare un token JWT all'interno di mod_harbour, dato che le librerie esistenti non coprivano tutte le esigenze.
Da questo progetto è nato Harbour JWT, l'implementazione ufficiale di JWT per Harbour, citata anche su Jwt.io (ok, qui è stato facile, bastava modificare il progetto su GitHub e proporre una pull request)
Spero che il progetto possa servire anche ad altri programmatori
Harbour JWT
La mia libreria di implementazione JWT in linguaggio Harbour
2 commenti Aggiungi il tuo
harbour jwt
domenico
9 Gennaio 2023 - 13:26
Ciao Matteo, è un metodo interessante, supponiamo che tu scrivi il token in un file ad esempio 'JWT2023' , quale è la sequenza per leggere il payload ("name" ) sapendo il nome del file e la password ?
Re: harbour jwt
Matteo Baccan
9 Gennaio 2023 - 16:58
Ciao Domenico
puoi fare una cosa tipo
oJWT:setSecret( <qui la stringa del secret> )
if oJWT:Verify(<qui metti la stringa del JWT>)
oJWT:Decode( <qui metti la stringa del JWT> )
? oJWT:GetPayloadData("name")
endif
puoi fare una cosa tipo
oJWT:setSecret( <qui la stringa del secret> )
if oJWT:Verify(<qui metti la stringa del JWT>)
oJWT:Decode( <qui metti la stringa del JWT> )
? oJWT:GetPayloadData("name")
endif
Per commentare occorre essere un utente iscritto