Function JWT.Encode(const Key,Expand:String;Days:Integer):String;
Function JWT.Verify(const Key,Token:String):String;
JWT.Encode('WebPascal','{"UserName": "admin", "UserPwd": "admin"}',7);
==>
eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpYXQiOjE3NjQ0NzU0MDQsImV4cCI6MTc2NTA4MDIwNCwic3ViIjoiVXNlciBDbGFpbXMiLCJpc3MiOiJXZWJQYXNjYWwgNSIsIlVzZXJOYW1lIjoiYWRtaW4iLCJVc2VyUHdkIjoiYWRtaW4ifQ.bDvhj7NbDZiMzejgl8E6yYKbfPuTVt-dxbCEkqen0N8
JWT.Verify('WebPascal','eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpYXQ ...');
==>
验证通过！
{"iat":1764475404,"exp":1765080204,"sub":"User Claims","iss":"WebPascal 5","UserName":"admin","UserPwd":"admin"}
创建: 2025-11-30 12:03:24.000
过期: 2025-12-07 12:03:24.000