七牛云文件上传凭证生成源码
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 info, 文本型, , "10"
.子程序 _按钮1_被单击
通用对话框1.打开 ()
.判断开始 (取反 (通用对话框1.文件名 = “”))
info [2] = 通用对话框1.文件名
info [3] = 文本_取右边 (info [2], “\”) ' 文件名
info [4] = 时间_取现行时间戳 (真) ' 文件上传时间戳,该有效期指上传完成后在七牛生成文件的时间,而非上传的开始时间
调试输出 (info [2], info [3])
.默认
.判断结束
.子程序 _编辑框1_失去焦点
info [1] = 编辑框1.内容
.子程序 _按钮2_被单击
.局部变量 token, 文本型
.局部变量 uploadToken, 文本型
info [1] = 编辑框1.内容
info [6] = 编辑框2.内容
.如果真 (info [4] = “”)
info [4] = 时间_取现行时间戳 (真)
.如果真结束
.如果真 (info [3] = “”)
info [3] = “test.exe”
.如果真结束
token = 子文本替换 (#参数, “[bucket]”, info [1], , , 真)
token = 子文本替换 (token, “[fileName]”, info [3], , , 真)
token = 子文本替换 (token, “[times]”, info [4], , , 真)
token = 编码_BASE64编码 (到字节集 (token)) ' 编码数据
info [5] = token
token = 校验_取sha1 (到字节集 (token)) ' 进行sha1加密
token = 编码_BASE64编码 (到字节集 (token))
uploadToken = info [6] + “:” + token + “:” + info [5]
调试输出 (token, uploadToken)
编辑框3.内容 = “你最终的 upload_token 为:” + uploadToken
.子程序 __启动窗口_创建完毕