Loading [MathJax]/jax/output/CommonHTML/config.js
首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >专栏 >易语言生成COS签名

易语言生成COS签名

原创
作者头像
yjwang
发布于 2022-01-23 11:09:25
发布于 2022-01-23 11:09:25
8.7K21
代码可运行
举报
运行总次数:1
代码可运行

目前腾讯云COS有提供常见编程语言的签名代码DEMO,但是没有使用易语言生成的;

为了方便使用,所以就在某天晚上,用掉了几根头发,编写出了易语言生成COS签名的代码

COS签名使用方法详见:https://cloud.tencent.com/document/product/436/7778#.E7.AD.BE.E5.90.8D.E4.BD.BF.E7.94.A8

核心代码如下

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
.局部变量 时间值, 日期时间型
.局部变量 初始时间, 日期时间型
.局部变量 签名有效期, 整数型, , , 签名有效期
.局部变量 StartTimestamp, 整数型, , , 签名开始时间
.局部变量 EndTimestamp, 整数型, , , 签名截止时间
.局部变量 KeyTime, 文本型, , , 生成固定格式
.局部变量 SecretId, 文本型, , , 密钥ID
.局部变量 SecretKey, 文本型, , , 密钥Key
.局部变量 SignKey, 文本型, , , 计算消息摘要
.局部变量 HttpMethod, 文本型, , , 请求方法(传入小写)
.局部变量 UriPathname, 文本型, , , 请求路径(对象键)
.局部变量 HttpString, 文本型
.局部变量 HttpParameters, 文本型
.局部变量 HttpHeaders, 文本型
.局部变量 SHA1HttpString, 字节集
.局部变量 StringToSign, 文本型
.局部变量 Signature, 文本型, , , 签名头部
.局部变量 Authorization, 文本型, , , 生成最终签名


SecretId = 到文本 ('SecretId ')
SecretKey = 到文本 ('SecretKey')
签名有效期 = 到整数 ('time(s)')
初始时间 = 到时间 (1970-01-01 08:00:00)
时间值 = 取现行时间 ()
StartTimestamp = 取时间间隔 (时间值, 初始时间, #秒)
EndTimestamp = StartTimestamp + 签名有效期
KeyTime = 到文本 (StartTimestamp) + “;” + 到文本 (EndTimestamp)
输出调试文本 (KeyTime)
SignKey = 到小写 (字节集_字节集到十六进制 (EC_加密_rstr_hmac_sha1 (到字节集 (SecretKey), 到字节集 (KeyTime))))  ' 密钥,数据
输出调试文本 (SignKey)
HttpParameters = “”
HttpHeaders = “”
HttpMethod = 到文本 ('Method(需要传入小写)')
UriPathname = 到文本 ('Key(对象键)')
HttpString = HttpMethod + 字符 (10) + UriPathname + 字符 (10)字符 (10)字符 (10)
SHA1HttpString = EC_加密_rstr_sha1 (到字节集 (HttpString))
StringToSign = “sha1” + 字符 (10) + KeyTime + 字符 (10)到小写 (字节集_字节集到十六进制 (SHA1HttpString))字符 (10)
输出调试文本 (StringToSign)
Signature = 到小写 (字节集_字节集到十六进制 (EC_加密_rstr_hmac_sha1 (到字节集 (SignKey), 到字节集 (StringToSign))))
输出调试文本 (Signature)
Authorization = “q-sign-algorithm=sha1&q-ak=” + SecretId + “&q-sign-time=” + KeyTime + “&q-key-time=” + KeyTime + “&q-header-list=&q-url-param-list=&q-signature=” + Signature
输出调试文本 (Authorization)


#以下为加密算法子程序('依赖精易模块'.子程序 EC_加密_safe_add, 整数型, 公开
.参数 x, 整数型
.参数 y, 整数型
.局部变量 lsw, 整数型
.局部变量 msw, 整数型
.局部变量 return, 整数型

lsw = 位与 (x, 65535)位与 (y, 65535)
msw = 右移 (x, 16)右移 (y, 16)右移 (lsw, 16)
return位或 (左移 (msw, 16), 位与 (lsw, 65535))
返回 (return)


.子程序 EC_加密_binb_sha1, , 公开
.参数 x, 整数型, 数组
.参数 len, 整数型
.参数 return, 整数型, 参考 数组
.局部变量 w, 整数型, , "80"
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 e, 整数型
.局部变量 i, 整数型
.局部变量 xlength, 整数型
.局部变量 olda, 整数型
.局部变量 oldb, 整数型
.局部变量 oldc, 整数型
.局部变量 oldd, 整数型
.局部变量 olde, 整数型
.局部变量 j, 整数型
.局部变量 t, 整数型
.局部变量 ret, 文本型
.局部变量 tmp, 整数型

xlength = 取数组成员数 (x)
tmp = 左移 (右移 (len + 64, 9), 4)16

.如果真 (xlength < tmp)
    重定义数组 (x,, tmp)
.如果真结束

x [右移 (len, 5)1]位或 (x [右移 (len, 5)1], 左移 (128, 24 - len % 32))
x [左移 (右移 (len + 64, 9), 4)16] = len
xlength = 取数组成员数 (x)
a = 1732584193
b = -271733879
c = -1732584194
d = 271733878
e = -1009589776

.变量循环首 (0, xlength, 16, i)
    .如果真 (i ≥ xlength)
        跳出循环 ()
    .如果真结束
    olda = a
    oldb = b
    oldc = c
    oldd = d
    olde = e
    .变量循环首 (0, 80, 1, j)
        .如果真 (j ≥ 80)
            跳出循环 ()
        .如果真结束
        .如果 (j < 16)
            w [j + 1] = x [i + j + 1]
            ' 调试输出 (w [j + 1], j + 1)
        .否则
            w [j + 1]EC_加密_bit_rol (位异或 (w [j - 31], w [j - 81], w [j - 141], w [j - 161]), 1)
            ' 调试输出 (w [j + 1], j + 1)
        .如果结束
        ' w [j + 1]0
        t = EC_加密_safe_add (EC_加密_safe_add (EC_加密_bit_rol (a, 5), EC_加密_sha1_ft (j, b, c, d)), EC_加密_safe_add (EC_加密_safe_add (e, w [j + 1]), EC_加密_sha1_kt (j)))
        e = d
        d = c
        c = EC_加密_bit_rol (b, 30)
        b = a
        a = t

    .变量循环尾 ()


    a = EC_加密_safe_add (a, olda)
    b = EC_加密_safe_add (b, oldb)
    c = EC_加密_safe_add (c, oldc)
    d = EC_加密_safe_add (d, oldd)
    e = EC_加密_safe_add (e, olde)

.变量循环尾 ()
重定义数组 (return,, 5)
return [1] = a
return [2] = b
return [3] = c
return [4] = d
return [5] = e





.子程序 EC_加密_binb2rstr, 字节集, 公开
.参数 input, 整数型, 数组
.局部变量 output, 字节集
.局部变量 length, 整数型
.局部变量 i, 整数型


length = 取数组成员数 (input) × 32
.变量循环首 (0, length, 8, i)
    .如果真 (i ≥ length)
        跳出循环 ()
    .如果真结束

    output = output + 到字节集 (到字节 (位与 (EC_加密_逻辑右移 (input [右移 (i, 5)1], 24 - i % 32), 255)))
.变量循环尾 ()
返回 (output)


.子程序 EC_加密_rstr_sha1, 字节集, 公开
.参数 s, 字节集
.局部变量 容器1, 整数型, , "0"
.局部变量 容器2, 整数型, , "0"

EC_加密_rstr2binb (s, 容器1)
EC_加密_binb_sha1 (容器1, 取字节集长度 (s) × 8, 容器2)
返回 (EC_加密_binb2rstr (容器2))



.子程序 EC_加密_rstr_hmac_sha1, 字节集, 公开
.参数 key, 字节集
.参数 data, 字节集
.局部变量 bkey, 整数型, , "0"
.局部变量 length, 整数型
.局部变量 ipad, 整数型, , "16"
.局部变量 opad, 整数型, , "16"
.局部变量 i, 整数型
.局部变量 数组容器, 整数型, , "0"
.局部变量 hash, 整数型, , "0"

EC_加密_rstr2binb (key, bkey)

length = 取数组成员数 (bkey)
.如果真 (length > 16)
    EC_加密_binb_sha1 (bkey, 取字节集长度 (key) × 8, bkey)
.如果真结束

.如果真 (取数组成员数 (bkey)16)
    重定义数组 (bkey,, 16)
.如果真结束

.变量循环首 (1, 16, 1, i)
    ipad [i]位异或 (bkey [i], 909522486)
    opad [i]位异或 (bkey [i], 1549556828)

.变量循环尾 ()
EC_加密_rstr2binb (data, 数组容器)
加入成员 (ipad, 数组容器)

EC_加密_binb_sha1 (ipad, 512取字节集长度 (data) × 8, hash)
清除数组 (数组容器)
加入成员 (opad, hash)

EC_加密_binb_sha1 (opad, 512160, 数组容器)
返回 (EC_加密_binb2rstr (数组容器))




.子程序 EC_加密_rstr2binb, , 公开
.参数 input, 字节集
.参数 output, 整数型, 数组
.局部变量 inputlength, 整数型
.局部变量 outputlength, 整数型
.局部变量 i, 整数型
.局部变量 jp, 整数型

inputlength = 取字节集长度 (input)
重定义数组 (output,, 右移 (inputlength, 2))
outputlength = 取数组成员数 (output)
.如果真 (outputlength < 右移 (inputlength × 8, 5)1)
    重定义数组 (output,, 右移 (inputlength × 8, 5)1)
.如果真结束

.变量循环首 (0, outputlength, 1, i)
    .如果真 (i ≥ outputlength)
        跳出循环 ()
    .如果真结束
    output [i + 1]0
.变量循环尾 ()
i = 0
.变量循环首 (0, inputlength × 8, 8, i)
    .如果真 (i ≥ inputlength × 8)
        跳出循环 ()
    .如果真结束

    output [右移 (i, 5)1]位或 (output [右移 (i, 5)1], 左移 (位与 (input [i ÷ 81], 255), 24 - i % 32))
.变量循环尾 ()


.子程序 EC_加密_bit_rol, 整数型, 公开
.参数 num, 整数型
.参数 cnt, 整数型
.局部变量 return, 整数型

return位或 (左移 (num, cnt), EC_加密_逻辑右移 (num, 32 - cnt))
返回 (return)



.子程序 EC_加密_sha1_kt, 整数型, 公开
.参数 t, 整数型

.判断开始 (t < 20)
    返回 (1518500249)
.判断 (t < 40)
    返回 (1859775393)
.判断 (t < 60)
    返回 (-1894007588)
.默认
    返回 (-899497514)
.判断结束




.子程序 EC_加密_sha1_ft, 整数型, 公开
.参数 t, 整数型
.参数 b, 整数型
.参数 c, 整数型
.参数 d, 整数型

.如果真 (t < 20)
    返回 (位或 (位与 (b, c), 位与 (位取反 (b), d)))
.如果真结束

.如果真 (t < 40)
    返回 (位异或 (b, c, d))
.如果真结束

.如果真 (t < 60)
    返回 (位或 (位与 (b, c), 位与 (b, d), 位与 (c, d)))
.如果真结束

返回 (位异或 (b, c, d))

.子程序 EC_加密_逻辑右移, 整数型, 公开, (逻辑右移) (算术右移) 寄存器,1
.参数 欲移动的整数, 整数型
.参数 欲被移动的位数, 字节型

置入代码 ({ 81, 139, 69, 8, 138, 77, 12, 211, 232, 89, 139, 229, 93, 194, 8, 0 })
返回 (-1)

原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。

如有侵权,请联系 cloudcommunity@tencent.com 删除。

原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。

如有侵权,请联系 cloudcommunity@tencent.com 删除。

评论
登录后参与评论
2 条评论
热度
最新
UriPathname = 到文本 ('Key(对象键)') 请问这个是什么意思啊
UriPathname = 到文本 ('Key(对象键)') 请问这个是什么意思啊
回复回复点赞举报
...
...
回复回复点赞举报
推荐阅读
编辑精选文章
换一批
快手直播间提取采集工具,匿名点赞红心留言评论,最新易语言框架分享
之前写的一个框架,昨天试了一下发现源码还可以正常运行,那么我干脆分享出来吧,供大家学习,因为里面涉及很多接口都是公开的接口哈,并不死逆向的,模块用的都是开源模块。
用户11696336
2025/06/19
1320
快手自动上传视频脚本,作品自动批量发布工具,易语言开源框架
下载地址:https://www.pan38.com/share.php?code=pvvmX 提取码:8888 【仅供学习】
用户11696336
2025/06/26
840
抖音评论提取工具,可采集时间昵称地区,最新易语言开发
之前给客户定制的,其实我手里关于营销之类的源码最少也有500+,我顺手看了下发现这个源码还能正常工作,所有接口都是能正常运行,当前我们调用的是官方公开的接口哈。
用户11701393
2025/06/19
1150
快手直播间采集工具,可提取弹幕评论留言,易语言框架分享
下载地址:https://www.pan38.com/share.php?code=pvvmX 提取码:8888
用户11719788
2025/06/26
950
抖音评论采集提取工具,易语言实现,一键完整提取【仅供学习参考】
文件已上传:https://www.pan38.com/share.php?code=U4fkU 提取码:8888
用户11696336
2025/06/10
1330
抖音快手等直播间采集提取工具,源地址提取,易语言开源代码
下载地址:https://www.pan38.com/share.php?code=pvvmX 提取码:8888
用户11719788
2025/06/26
2220
微信计数器,易语言实现微信统计器,助力企业拓客
.主程序实现微信好友实时监控 2.数据库模块记录历史数据 3.微信接口模块封装Windows API调用。使用时需先配置SQLite支持库。主要的功能就是可以检测别人一共加了多少你微信好友,就是你可以检测一个微信好友被添加的次数。
用户11719788
2025/07/02
700
抖音弹幕wss协议工具,直播间匿名提取解析,开源仅供娱乐
源码已上传:https://www.pan38.com/share.php?code=K3HTf 提取码:8888
用户11696336
2025/06/10
2170
易语言COS分片上传写法分享分析
' a = 读入文件 (欲上传对象路径) ' ------a是文件数据 分割次数是PartNum b【】数组存放part数据
用户2551353
2021/09/28
2.1K0
Google内核浏览器 快速 轻巧 方便
没错,你看到的 QQ 浏览器,360 浏览器等等等等都是基于 Google 浏览器开源框架构造。优势需要说嘛?碾压 IE 内核 所以骚年,不动手打造一个属于你自己的浏览器?
宗亲立牧
2019/09/07
7170
用易语言写个简单的小爬虫其中的关键点
一.请求头 ctrl+L快捷键创建变量 变量名 类型 协议参数 类_POST数据类 请求头数据 文本型 协议参数.添加 (“v”, “4.52.0”) 请求头数据 = 协议参数.获取协议头数据 () 二.请求参数比如post 变量名 类型 请求data参数 类_POST数据类 请求data提交内容 文本型 请求data参数.添加 (“type”, “0”) 请求data提交内容 = 请求data参数.获取JSON文本 () 三.进行请求 调用网页_访问S方法 .子程序 网页_访问S, 文本型, , 源码
小小咸鱼YwY
2020/09/08
2.4K0
用易语言写个简单的小爬虫其中的关键点
LOL换肤 学习交流
.版本 2 .子程序 注入DLL, 整数型, 公开, 成功返回DLL的模块句柄,失败或已注入返回0。 .参数 进程句柄, 整数型, , 句柄必须拥有对被注入进程的完全操作权限。注入后如果没有其他用处可以关闭该句柄。 .参数 DLL数据, 字节集 .如果真 (是否已注入 () 或 DLL数据 = { } 或 进程句柄 = 0) 返回 (0) .如果真结束 ' 将内存中的DLL写到目标进程 DataAddr = 写入内存数据_ (进程句柄, DLL数据) .如果真 (DataAddr
宗亲立牧
2019/09/07
1.5K0
抖音直播无水印下载录制工具,小红书快手哔哩哔哩西瓜视频解析,易语言框架分享
本程序也没啥技术性的,就只是视频的解析,抖音/快手/哔哩哔哩...7+大平台 都是用的接口调用,不用自己维护,有他们3位无私奉献的大神们长期在维护 虽然API接口不是我的,但整个软件及别的一些辅助功能,各种细节等等也是很确实花了不少的心思。
用户11701393
2025/06/19
1470
js的常见的三种密码加密方式-MD5加密、Base64加密和解密和sha1加密详解总结
写前端的时候,很多的时候是避免不了注册这一关的,但是一般的注册是没有任何的难度的,无非就是一些简单的获取用户输入的数据,然后进行简单的校验以后调用接口,将数据发送到后端,完成一个简单的注册的流程,那么一般来说,密码是不做加密的。但是也有一些数据库里面存放的是加密后的密码,这样有一个比较安全的地方在于,即使黑客将用户输入的文本密码得到了,也不知道具体是什么,因为密码是经过加密的。
何处锦绣不灰堆
2020/05/29
16.1K0
js的常见的三种密码加密方式-MD5加密、Base64加密和解密和sha1加密详解总结
易语言读取数据库
我们先用SQLiteStudio建表以及表中字段(SQLiteStudio工具可百度下载); 写程序之前对支持库进行配置,勾选Sqlite3数据库支持库而不是Sqlite数据库支持库,因为选用后者会出现一些打不开表之类的问题
用户2590762
2021/08/11
8.9K0
7.7 实现进程内存读写
内存进程读写可以让我们访问其他进程的内存空间并读取或修改其中的数据。这种技术通常用于各种调试工具、进程监控工具和反作弊系统等场景。在Windows系统中,内存进程读写可以通过一些API函数来实现,如OpenProcess、ReadProcessMemory和WriteProcessMemory等。这些函数提供了一种通用的方式来访问其他进程的内存,并且可以用来读取或写入不同类型的数据,例如整数、字节集、浮点数等。
王 瑞
2023/09/25
6350
7.7 实现进程内存读写
【C语言】基本语法知识&&C语言函数&&操作符详解
首先介绍一下我使用的工具:VS2019——集成了很多的功能:编辑、编译、链接、运行、调试等
用户10925563
2024/06/04
3800
【C语言】基本语法知识&&C语言函数&&操作符详解
易语言调用大漠把血蓝内力体力转化为进度条
把游戏角色的 体力、血值、内力、经验通过进度条组件动态读取显示出来,并且通过api函数SendMessage来实现进度条颜色的变化,这里我们设置了血,体力,内力,经验的不同颜色,会根据游戏时时变化百分比例,调用大漠的OCR先把数值读出来,然后换算成进度调的百分比。
全栈程序员站长
2022/09/14
7680
易语言调用大漠把血蓝内力体力转化为进度条
易语言
好歹自己学习易语言也快有一年了,也用易语言写了一些软件,特此记录一下以及对易语言的个人看法。
愧怍
2022/12/27
9.9K0
易语言
用JAVA实现Email和短信验证
在Web项目中Email和短信验证是很普遍的情形,下面我们来介绍如何用Java来实现。
顾翔
2021/07/22
2.4K0
推荐阅读
相关推荐
快手直播间提取采集工具,匿名点赞红心留言评论,最新易语言框架分享
更多 >
交个朋友
加入腾讯云官网粉丝站
蹲全网底价单品 享第一手活动信息
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档