七牛云文件上传凭证生成源码

七牛云文件上传凭证生成源码

@云上生活

.版本 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

.子程序 __启动窗口_创建完毕