Function JWT.Encode(const Key,Expand:String;Days:Integer):String;
Function JWT.Verify(const Key,Token:String):Boolean;
JWT.Encode('WebPascal','{"UserName": "admin", "UserPwd": "admin"}',7);
==>
eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpYXQiOjE3ODAxNTEzOTEsImV4cCI6MTc4MDc1NjE5MSwic3ViIjoiVXNlciBDbGFpbXMiLCJpc3MiOiJXZWJQYXNjYWwgNSIsIlVzZXJOYW1lIjoiYWRtaW4iLCJVc2VyUHdkIjoiYWRtaW4ifQ.MIooqG9KC3L0vkDgfffNUqeneNYf2-Jd0K23Mko9dFE
JWT.Verify('WebPascal','eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpYXQ ...');
==>
验证通过！
{"iat":1780151391,"exp":1780756191,"sub":"User Claims","iss":"WebPascal 5","UserName":"admin","UserPwd":"admin"}
创建: 2026-05-30 22:29:51.000
过期: 2026-06-06 22:29:51.000