如何在Delphi中将JSON密钥转换成PEM格式？开发者社区

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

私奔的柳树 · 冲塔 - 萌娘百科万物皆可萌的百科全书· 8 月前 ·

玩足球的铁板烧 · 龙王传说全本小说网_最新龙王传说 ...· 9 月前 ·

怕老婆的皮带 · 刘金伟：户籍人口城镇化进程评价及城际差异分析 ...· 10 月前 ·

谦逊的石榴 · 建设生态安全缓冲区保护长江生态，江苏——岸线 ...· 11 月前 ·

才高八斗的西瓜 · 转型金融如何助力中国加速工业脱碳进程 | ...· 11 月前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 TVP

文章/答案/技术大牛

发布

{
  "kty": "EC",
  "d": "Rwyv99W3GnfjYbI0X-b5Umhvh88oRCKQkPxiwCPVGgg",
  "crv": "P-256",
  "x": "sDbcYT8HzBk1tUl849ZHrhpIn8ZV7HfD1DwYdsP1ip0",
  "y": "EWodfKWQ6oE0ppyi7tRO_61BgAQsZyDjDGj9kLZiUts"
}

uses
  JSON,
  EncdDecd;
function Base64urlToBase64(Base64urlStr: String): String;
begin
  Result := StringReplace(Base64urlStr,'_','/', [rfReplaceAll]);
  Result := StringReplace(Result,'-','+', [rfReplaceAll]);
function JwkToPem(JWK: TJSONObject): String;
  BinKey: TBytes;
begin
  BinKey :=
  [$30] + // ASN.1
  [$77] + // Length of all following bytes (119 bytes)
  [$02] + // Type (integer)
  [$01] + // Length of integer (1 byte)
  [$01] + // Value of integer (1)
  [$04] + // Type (octet string)
  [$20] + // Length of string (32 bytes)
  DecodeBase64(Base64urlToBase64(JWK.Get('d').JsonValue.Value)) +  // Private Key
  [$A0] + // Tag 0
  [$0A] + // Length of tag (10 bytes)
  [$06] + // Type (Object ID)
  [$08] + // Length of the Object ID (8 bytes)
  [$2A, $86, $48, $CE, $3D, $03, $01, $07] + // - The object ID of the curve prime256v1
  [$A1] + // Tag 1
  [$44] + // Length of tag (68 bytes)
  [$03] + // Type – Bit string
  [$42] + // Length of the bit string (66 bytes)
  [$00] + // ???
  [$04] + // Uncompressed Public Key
  DecodeBase64(Base64urlToBase64(JWK.Get('x').JsonValue.Value))+ // Public Key X coord
  DecodeBase64(Base64urlToBase64(JWK.Get('y').JsonValue.Value)); // Public Key Y coord

推荐文章

私奔的柳树 · 冲塔 - 萌娘百科万物皆可萌的百科全书

8 月前

玩足球的铁板烧 · 龙王传说全本小说网_最新龙王传说全本小说网推荐-QQ阅读

9 月前

怕老婆的皮带 · 刘金伟：户籍人口城镇化进程评价及城际差异分析――以50个地级及以上城市为对象--理论-人民网

10 月前

谦逊的石榴 · 建设生态安全缓冲区保护长江生态，江苏——岸线添绿意发展添动力_国家林业和草原局政府网

11 月前

才高八斗的西瓜 · 转型金融如何助力中国加速工业脱碳进程 | 世界经济论坛

11 月前

回答 2

Stack Overflow用户