- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]时间格式转换 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158934)
-- 发布时间：2020/12/7 19:43:00
-- [求助]时间格式转换
因为尝试与腾讯云API对接，请教老师能不能指导一个用FT来实现将时间转换为格林威治时间的方法。。
例如转换后成为这种格式：Mon, 07 Dec 2020 12:08:40 GMT
谢谢各位老师了
[此贴子已经被作者于2020/12/7 19:45:04编辑过]
-- 发布时间：2020/12/7 20:15:00
--
什么接口？文档地址发上来看看
-- 发布时间：2020/12/7 20:44:00
--
蓝版您好，这个文档里有关于Date和X-Date的构造时间要求，您看下
【API 网关 密钥对认证 - 操作指南 - 文档中心 - 腾讯云】 https://cloud.tencent.com/document/product/628/11819?from=copy
[此贴子已经被作者于2020/12/7 20:45:47编辑过]
-- 发布时间：2020/12/7 21:02:00
--
Output.Show(Date.now.ToUniversalTime().ToString("r"))
-- 发布时间：2020/12/7 21:45:00
--
谢谢蓝版。。。 这些都是VB.net或者C#的原生语法么？
-- 发布时间：2020/12/7 21:46:00
--
是的
-- 发布时间：2020/12/9 0:46:00
--
感谢蓝版的帮助以及论坛内cbt大大关于【腾讯云签名】内的代码，总算完成符合腾讯云API关于密钥对鉴权的格式
以下内容为程序代码:
1 Dim d As String = Date.now.ToUniversalTime().ToString("r")
2 Dim hc As New HttpClient("https://service-a8f1ua5m-1256923570.gz.apigw.tencentcs.com/release/sms/sendLong?mobile=*&smsSignId=2e65b1bb3d054466b82f0c9d125465e2&templateId=f5e68c3ad6b6474faa8cd178b21d3377")
3 Dim str As String = "x-date: " & d
4 Dim key = "*"
5 Dim ByteData = Encoding.UTF8.GetBytes(str)
6 Dim ByteKey = Encoding.UTF8.GetBytes(key)
7 Dim hmacsha = New System.Security.Cryptography.HMACSHA1(ByteKey)
8 Dim result = hmacsha.ComputeHash(ByteData)
9 Dim signature = Convert.ToBase64String(result)
10 Dim s1 As String = "hmac id=""*"""
11 Dim s2 As String = "algorithm=""hmac-sha1"""
12 Dim s3 As String = "headers=""x-date"""
13 Dim s4 As String = "signature=""" & signature
14 Dim auth As String = s1 & "," & s2 & "," & s3 & "," & s4 & """"
15 hc.Headers.Add("X-Date",d)
16 hc.Headers.Add("Source","HRM")
17 hc.Headers.Add("Authorization",auth)
18 Dim ret As String = hc.GetData()
1 Dim d As String = Date.now.ToUniversalTime().ToString("r")
2 Dim hc As New HttpClient("https://service-a8f1ua5m-1256923570.gz.apigw.tencentcs.com/release/sms/sendLong?mobile=*&smsSignId=2e65b1bb3d054466b82f0c9d125465e2&templateId=f5e68c3ad6b6474faa8cd178b21d3377")
3 Dim str As String = "x-date: " & d
4 Dim key = "*"
5 Dim ByteData = Encoding.UTF8.GetBytes(str)
6 Dim ByteKey = Encoding.UTF8.GetBytes(key)
7 Dim hmacsha = New System.Security.Cryptography.HMACSHA1(ByteKey)
8 Dim result = hmacsha.ComputeHash(ByteData)
9 Dim signature = Convert.ToBase64String(result)
10 Dim s1 As String = "hmac id=""*"""
11 Dim s2 As String = "algorithm=""hmac-sha1"""
12 Dim s3 As String = "headers=""x-date"""
13 Dim s4 As String = "signature=""" & signature
14 Dim auth As String = s1 & "," & s2 & "," & s3 & "," & s4 & """"
15 hc.Headers.Add("X-Date",d)
16 hc.Headers.Add("Source","HRM")
17 hc.Headers.Add("Authorization",auth)
18 Dim ret As String = hc.GetData()
大家可以参考下这个腾讯云API的要求，我不太会写代码。。也请各位老师能教我有更好的完成方法。谢谢了。
[此贴子已经被作者于2020/12/9 0:54:50编辑过]