接口鉴权计算？字典升序？完全看不懂

dyq725

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

拖放对象1.zc拖放控件 (图片框1.取窗口句柄 ())
地址2 ＝ “https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”
app_id ＝ “1106852855”
key ＝ “zeMXD1mByXXA3TRu”

子程序名	返回值类型	公开	备 注
_按钮1_被单击

' 1.图片框得到图片并备份，判断图片文件大小，超过1M进行压缩处理。
' 2.将图片转换成编码.
' 3.计算出时间戳和随机数.
' 4.申请密钥，计算出指定值。
' 5.把所有信息按要求发送至服务器进行识别.
' 6.处理返回的信息，分类输出至超级列表框.

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

图片框1.图片 ＝ 读入文件 (接收到的文件路径)
编辑框2.加入文本 (“图片读取成功，图片路径为：” ＋ 接收到的文件路径 ＋ #换行符 )

子程序名	返回值类型	公开	备 注
导入图片			导入图片

变量名	类 型	静态	数组	备 注
文件大小	整数型			把图片框接收到的图片进行备份并重命名

a1 ＝ 到文本 (取现行时间 ())
标签1.标题 ＝ a1
如果 (文件是否存在 (“C:\temp\0”))  ' 检查原图文件夹是否存在 否则创建
编辑框2.加入文本 (“缓存目录已存在。C:\temp\0” ＋ #换行符 )
创建目录 (“C:\temp\0”)
编辑框2.加入文本 (“缓存目录创建成功。C:\temp\0” ＋ #换行符 )

写到文件 (“C:\temp\0\” ＋ a1 ＋ “.jpg”, 图片框1.图片)  ' 把图片框的图片进行保存
编辑框2.加入文本 (“图片已缓存，文件名为：” ＋ a1 ＋ “.jpg” ＋ #换行符 )
文件_枚举1 (“C:\temp\0\”, a1 ＋ “.jpg”, &Dbgfile)  ' 枚举当前图片

子程序名	返回值类型	公开	备 注
Dbgfile			判断图片大小，当图片大于1M时进行压缩。
参数名	类 型	参考	可空	数组	备 注
lpath	文本型
lfile	文本型

变量名	类 型	静态	数组	备 注
fileByte

fileByte ＝ 取文件尺寸 (lpath ＋ lfile) ÷ 1024  ' 取文件大小
' 编辑框1.内容 ＝ lpath ＋ lfile ＋ “ 图片大小：” ＋ 到文本 (fileByte) ＋ “ kb”
编辑框1.内容 ＝ 到文本 (fileByte)  ' 输出显示文件大小
如果 (到整数 (编辑框1.内容) ＞ 1024)  ' 判断图片大小
编辑框2.加入文本 (“图片超过限制大小，正在压缩。（限制大小为1M）”)
如果 (文件是否存在 (“C:\temp\1”))  ' 检查压缩后图片文件夹是否存在 否则创建

创建目录 (“C:\temp\1”)
转换到JPG (“C:\temp\0\” ＋ a1 ＋ “.jpg”, “C:\temp\1\” ＋ a1 ＋ “.jpg”, 假, 75, 真, 0)  ' 压缩图片
a2 ＝ 到文本 (“C:\temp\1\” ＋ a1 ＋ “.jpg”)  ' 声明变量a2为压缩后的文件名
编辑框2.加入文本 (“图片压缩完成。” ＋ #换行符 )
图片框1.图片 ＝ 读入文件 (a2)  ' 图片框重新读入压缩后的文件
编辑框2.加入文本 (“重新读取压缩后文件成功” ＋ #换行符 )
' 是否需要再次判断文件大小
写到文件 (“C:\temp\1\” ＋ a1 ＋ “.jpg”, 图片框1.图片)  ' 把图片框的图片进行保存
a3 ＝ 到文本 (“C:\temp\1\” ＋ a1 ＋ “.jpg”)
转换 ()
' ---------------------下面的代码需要上传API处理---------------------------------
' AppID：1106852855  AppKey：zeMXD1mByXXA3TRu

子程序名	返回值类型	公开	备 注
转换			把图片框的图片转换为BASE64编码，输出到编辑框2

变量名	类 型	静态	数组	备 注
图片编码	文本型

按钮1.标题 ＝ “正在转换编码”
按钮1.禁止 ＝ 真
图片编码 ＝ 到文本 (编码_BASE64编码 (图片框1.图片))
编辑框2.加入文本 (“图片BASE64编码” ＋ #换行符 ＋ 图片编码 ＋ #换行符 )
' 编辑框2.内容 ＝ 编码_BASE64编码 (图片框1.图片)
按钮1.标题 ＝ “正在识别”
按钮1.禁止 ＝ 假
签名 ()

子程序名	返回值类型	公开	备 注
签名			申请签名

变量名	类 型	静态	数组	备 注
返回数据	文本型

时间_取现行时间戳 ()
返回数据 ＝ 到文本 (网页_访问 (“https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”, 1, “app_id:” ＋ app_id ＋ “time_stamp:” ＋ time_stamp ＋ “nonce_str:” ＋ nonce_str ＋ “key:” ＋ key, ))
' 编辑框2.内容 ＝ 到文本 (网页_访问 (“https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”, “post”, “app_id:” ＋ app_id ＋ “time_stamp:” ＋ time_stamp ＋ “nonce_str:” ＋ nonce_str ＋ “key1:” ＋ key, ))
编辑框2.加入文本 (返回数据)

子程序名	返回值类型	公开	备 注
随机数			生成一个10位随机数

变量名	类 型	静态	数组	备 注
长度	整数型
是否有数字	逻辑型
首字母是否大写	逻辑型
index	整数型
cbAsci	文本型

置随机数种子 ()
计次循环首 (10, )
index ＝ 取随机数 (1, 3)
如果真 (首字母是否大写 ＝ 真)
index ＝ 2
首字母是否大写 ＝ 假

如果真 (是否有数字 ＝ 假)
如果真 (index ＝ 1)
index ＝ 3


判断 (index ＝ 1)
' 数字
cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (48, 57))))
判断 (index ＝ 2)
' 大写字母
cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (65, 90))))
判断 (index ＝ 3)
' 小写字母
cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (97, 122))))



计次循环尾 ()
编辑框2.加入文本 (“随机数为：” ＋ cbAsci ＋ #换行符 )
nonce_str ＝ cbAsci
返回 (cbAsci)
' 置随机数种子 ()
nonce_str ＝ 到文本 (字符 (取随机数 (65, 90)))
' 编辑框2.加入文本 (“随机数为：” ＋ cbAsci ＋ #换行符)

子程序名	返回值类型	公开	备 注
时间_取现行时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

变量名	类 型	静态	数组	备 注
毫秒数	文本型
间隔时间文本	文本型
返回值	文本型

置随机数种子 ()
毫秒数 ＝ 到文本 (取随机数 (10000, 90000))
间隔时间文本 ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒 )) ＋ 毫秒数
' 判断 (是否取十位时间戳)
返回值 ＝ 取文本左边 (间隔时间文本, 10)
' 返回值 ＝ 取文本左边 (间隔时间文本, 13)
' 调试输出 (返回值)
编辑框2.加入文本 (“秒级时间戳为：” ＋ 返回值 ＋ #换行符 )
time_stamp ＝ 返回值
返回 (返回值)

子程序名	返回值类型	公开	备 注
发送			发送所有信息到服务器

' [url]http://ai.qq.com/doc/ocrdriverlicenseocr.shtml[/url]
' 编码_BASE64编码 (到字节集 (“admin” ＋ 字符 (10) ＋ “admin”))

i支持库列表	支持库注释
edroptarget	拖放支持库
eImgConverter	图像格式转换支持库

.版本 2<br /> .支持库 edroptarget<br /> .支持库 eImgConverter<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.zc拖放控件 (图片框1.取窗口句柄 ())<br /> 地址2 ＝ “https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”<br /> app_id ＝ “1106852855”<br /> key ＝ “zeMXD1mByXXA3TRu”<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> ' 1.图片框得到图片并备份，判断图片文件大小，超过1M进行压缩处理。<br /> ' 2.将图片转换成编码.<br /> ' 3.计算出时间戳和随机数.<br /> ' 4.申请密钥，计算出指定值。<br /> ' 5.把所有信息按要求发送至服务器进行识别.<br /> ' 6.处理返回的信息，分类输出至超级列表框.<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 图片框1.图片 ＝ 读入文件 (接收到的文件路径)<br /> 编辑框2.加入文本 (“图片读取成功，图片路径为：” ＋ 接收到的文件路径 ＋ #换行符)<br /> <br /> <br /> .子程序 导入图片, , , 导入图片<br /> .局部变量 文件大小, 整数型, , , 把图片框接收到的图片进行备份并重命名<br /> <br /> a1 ＝ 到文本 (取现行时间 ())<br /> 标签1.标题 ＝ a1<br /> .如果 (文件是否存在 (“C:\temp\0”))  ' 检查原图文件夹是否存在 否则创建<br />     编辑框2.加入文本 (“缓存目录已存在。C:\temp\0” ＋ #换行符)<br /> .否则<br />     创建目录 (“C:\temp\0”)<br />     编辑框2.加入文本 (“缓存目录创建成功。C:\temp\0” ＋ #换行符)<br /> .如果结束<br /> <br /> 写到文件 (“C:\temp\0\” ＋ a1 ＋ “.jpg”, 图片框1.图片)  ' 把图片框的图片进行保存<br /> 编辑框2.加入文本 (“图片已缓存，文件名为：” ＋ a1 ＋ “.jpg” ＋ #换行符)<br /> 文件_枚举1 (“C:\temp\0\”, a1 ＋ “.jpg”, &Dbgfile)  ' 枚举当前图片<br /> <br /> <br /> .子程序 Dbgfile, , , 判断图片大小，当图片大于1M时进行压缩。<br /> .参数 lpath, 文本型<br /> .参数 lfile, 文本型<br /> .局部变量 fileByte<br /> <br /> <br /> fileByte ＝ 取文件尺寸 (lpath ＋ lfile) ÷ 1024  ' 取文件大小<br /> ' 编辑框1.内容 ＝ lpath ＋ lfile ＋ “ 图片大小：” ＋ 到文本 (fileByte) ＋ “ kb”<br /> 编辑框1.内容 ＝ 到文本 (fileByte)  ' 输出显示文件大小<br /> .如果 (到整数 (编辑框1.内容) ＞ 1024)  ' 判断图片大小<br />     编辑框2.加入文本 (“图片超过限制大小，正在压缩。（限制大小为1M）”)<br />     .如果 (文件是否存在 (“C:\temp\1”))  ' 检查压缩后图片文件夹是否存在 否则创建<br /> <br />     .否则<br />         创建目录 (“C:\temp\1”)<br />     .如果结束<br />     转换到JPG (“C:\temp\0\” ＋ a1 ＋ “.jpg”, “C:\temp\1\” ＋ a1 ＋ “.jpg”, 假, 75, 真, 0)  ' 压缩图片<br />     a2 ＝ 到文本 (“C:\temp\1\” ＋ a1 ＋ “.jpg”)  ' 声明变量a2为压缩后的文件名<br />     编辑框2.加入文本 (“图片压缩完成。” ＋ #换行符)<br />     图片框1.图片 ＝ 读入文件 (a2)  ' 图片框重新读入压缩后的文件<br />     编辑框2.加入文本 (“重新读取压缩后文件成功” ＋ #换行符)<br /> .否则<br />     ' 是否需要再次判断文件大小<br /> .如果结束<br /> 写到文件 (“C:\temp\1\” ＋ a1 ＋ “.jpg”, 图片框1.图片)  ' 把图片框的图片进行保存<br /> a3 ＝ 到文本 (“C:\temp\1\” ＋ a1 ＋ “.jpg”)<br /> 转换 ()<br /> <br /> ' ---------------------下面的代码需要上传API处理---------------------------------<br /> <br /> ' AppID：1106852855  AppKey：zeMXD1mByXXA3TRu<br /> <br /> <br /> <br /> .子程序 转换, , , 把图片框的图片转换为BASE64编码，输出到编辑框2<br /> .局部变量 图片编码, 文本型<br /> <br /> <br /> 按钮1.标题 ＝ “正在转换编码”<br /> 按钮1.禁止 ＝ 真<br /> 图片编码 ＝ 到文本 (编码_BASE64编码 (图片框1.图片))<br /> 编辑框2.加入文本 (“图片BASE64编码” ＋ #换行符 ＋ 图片编码 ＋ #换行符)<br /> ' 编辑框2.内容 ＝ 编码_BASE64编码 (图片框1.图片)<br /> 按钮1.标题 ＝ “正在识别”<br /> 按钮1.禁止 ＝ 假<br /> 签名 ()<br /> <br /> <br /> .子程序 签名, , , 申请签名<br /> .局部变量 返回数据, 文本型<br /> <br /> 时间_取现行时间戳 ()<br /> 返回数据 ＝ 到文本 (网页_访问 (“https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”, 1, “app_id:” ＋ app_id ＋ “time_stamp:” ＋ time_stamp ＋ “nonce_str:” ＋ nonce_str ＋ “key:” ＋ key, ))<br /> ' 编辑框2.内容 ＝ 到文本 (网页_访问 (“https://api.ai.qq.com/fcgi-bin/ocr/ocr_driverlicenseocr”, “post”, “app_id:” ＋ app_id ＋ “time_stamp:” ＋ time_stamp ＋ “nonce_str:” ＋ nonce_str ＋ “key1:” ＋ key, ))<br /> 编辑框2.加入文本 (返回数据)<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 随机数, , , 生成一个10位随机数<br /> .局部变量 长度, 整数型<br /> .局部变量 是否有数字, 逻辑型<br /> .局部变量 首字母是否大写, 逻辑型<br /> .局部变量 index, 整数型<br /> .局部变量 cbAsci, 文本型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (10, )<br />     index ＝ 取随机数 (1, 3)<br />     .如果真 (首字母是否大写 ＝ 真)<br />         index ＝ 2<br />         首字母是否大写 ＝ 假<br />     .如果真结束<br /> <br />     .如果真 (是否有数字 ＝ 假)<br />         .如果真 (index ＝ 1)<br />             index ＝ 3<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .判断开始 (index ＝ 1)<br />         ' 数字<br />         cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (48, 57))))<br />     .判断 (index ＝ 2)<br />         ' 大写字母<br />         cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (65, 90))))<br />     .判断 (index ＝ 3)<br />         ' 小写字母<br />         cbAsci ＝ cbAsci ＋ 到文本 (到字节集 (到字节 (取随机数 (97, 122))))<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 编辑框2.加入文本 (“随机数为：” ＋ cbAsci ＋ #换行符)<br /> nonce_str ＝ cbAsci<br /> 返回 (cbAsci)<br /> <br /> <br /> <br /> <br /> <br /> <br /> ' 置随机数种子 ()<br /> nonce_str ＝ 到文本 (字符 (取随机数 (65, 90)))<br /> ' 编辑框2.加入文本 (“随机数为：” ＋ cbAsci ＋ #换行符)<br /> <br /> <br /> <br /> .子程序 时间_取现行时间戳, 文本型, 公开, 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 是否取十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 间隔时间文本, 文本型<br /> .局部变量 返回值, 文本型<br /> <br /> 置随机数种子 ()<br /> 毫秒数 ＝ 到文本 (取随机数 (10000, 90000))<br /> 间隔时间文本 ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒)) ＋ 毫秒数<br /> ' 判断 (是否取十位时间戳)<br /> 返回值 ＝ 取文本左边 (间隔时间文本, 10)<br /> ' 返回值 ＝ 取文本左边 (间隔时间文本, 13)<br /> ' 调试输出 (返回值)<br /> 编辑框2.加入文本 (“秒级时间戳为：” ＋ 返回值 ＋ #换行符)<br /> time_stamp ＝ 返回值<br /> <br /> 返回 (返回值)<br /> <br /> <br /> <br /> .子程序 发送, , , 发送所有信息到服务器<br /> <br /> <br /> ' <a href="http://ai.qq.com/doc/ocrdriverlicenseocr.shtml" rel="nofollow" target="_blank">http://ai.qq.com/doc/ocrdriverlicenseocr.shtml</a><br /> <br /> <br /> ' 编码_BASE64编码 (到字节集 (“admin” ＋ 字符 (10) ＋ “admin”))

点通粉丝

dyq725 发表于 2018-6-1 17:58
一脸懵痹，我先研究研究 谢谢了

我给你写的是产生签名的方法  你直接POST请求不就行了

fxhj3210

点通粉丝 发表于 2018-6-1 17:53
[e=0].版本 2
.支持库 spec
.支持库 dp1

不错，学习了。
不过目测有BUG，无法和官方计算的值相同。
参考：https://ai.qq.com/doc/auth.shtml

用如下的可以计算出来和官方一样：
调试输出 (到大写 (取数据摘要 (到字节集 (“app_id=10000&key1=” ＋ 编码_URL编码 (“TXAI开放平台”, 真, 真) ＋ “&key2=” ＋ 编码_URL编码 (“示例仅供参考”, 真, 真) ＋ “&nonce_str=20e3408a79&time_stamp=1493449657&app_key=a95eceb1ac8c24ee28b70f7dbba912bf”))))

fxhj3210

  

数据类型名	公开	备 注
排序文本
成员名	类 型	传址	数组	备 注
文本	文本型
数值	大数

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
appkey	文本型

appkey ＝ “a95eceb1ac8c24ee28b70f7dbba912bf”  ' appkey是例子中提供的实参，参考”https://ai.qq.com/doc/auth.shtml“
调试输出 (到大写 (取数据摘要 (到字节集 (lexicographicalOrder (“app_id=10000,key1=TXAI开放平台,key2=示例仅供参考,nonce_str=20e3408a79,time_stamp=1493449657”, 真) ＋ “app_key=” ＋ appkey))))

子程序名	返回值类型	公开	备 注
lexicographicalOrder	文本型
参数名	类 型	参考	可空	数组	备 注
toBeSorted	文本型				待排序的文本,用“,”分开每一个参数
urlCoding	逻辑型				是否URL编码

变量名	类 型	静态	数组	备 注
排序文本	文本型		0
临时组	排序文本		0
计次_A	整数型
计次_B	整数型
字符代码	整数型
当前文本	排序文本
临时文本	文本型
返回值	文本型
待替换文本	文本型

返回值 ＝ “”
排序文本 ＝ 分割文本 (toBeSorted, “,”, )
计次循环首 (取数组成员数 (排序文本), 计次_A)
当前文本.文本 ＝ 排序文本 [计次_A]
临时文本 ＝ “”
计次循环首 (取文本长度 (排序文本 [计次_A]), 计次_B)
字符代码 ＝ 取代码 (到大写 (取文本中间 (排序文本 [计次_A], 计次_B, 1)), )
如果真 (取反 (字符代码 ≥ 48 且 字符代码 ≤ 57 或 字符代码 ≥ 65 且 字符代码 ≤ 90))
字符代码 ＝ 取代码 (到大写 (取拼音 (取文本中间 (排序文本 [计次_A], 计次_B, 2), 1)), ) ＋ 100
如果真 (字符代码 ≠ 100)
如果 (计次_B ＝ 1)
临时文本 ＝ 到文本 (字符代码) ＋ “.”
临时文本 ＝ 临时文本 ＋ 取文本右边 (“000” ＋ 到文本 (字符代码), 3)


计次循环尾 ()
当前文本.数值.导入文本 (临时文本)
加入成员 (临时组, 当前文本)
计次循环尾 ()
计次循环首 (取数组成员数 (临时组) － 1, 计次_B)
计次循环首 (取数组成员数 (临时组) － 计次_B, 计次_A)
如果真 (临时组 [计次_A].数值.大于 (临时组 [计次_A ＋ 1].数值))
当前文本.文本 ＝ 临时组 [计次_A].文本
当前文本.数值 ＝ 临时组 [计次_A].数值
临时组 [计次_A].文本 ＝ 临时组 [计次_A ＋ 1].文本
临时组 [计次_A].数值 ＝ 临时组 [计次_A ＋ 1].数值
临时组 [计次_A ＋ 1].文本 ＝ 当前文本.文本
临时组 [计次_A ＋ 1].数值 ＝ 当前文本.数值

计次循环尾 ()
计次循环尾 ()
如果 (取数组成员数 (临时组) ＝ 取数组成员数 (排序文本))
计次循环首 (取数组成员数 (临时组), 计次_A)
排序文本 [计次_A] ＝ 临时组 [计次_A].文本
计次循环尾 ()
计次循环首 (取数组成员数 (排序文本), 计次_A)
返回值 ＝ 返回值 ＋ 排序文本 [计次_A] ＋ “、”
计次循环尾 ()


' 上面排序完毕，下面开始转码
如果 (urlCoding ＝ 真)
计次循环首 (取数组成员数 (排序文本), 计次_A)
待替换文本 ＝ 文本_取出中间文本 (返回值, “=”, “、”)
返回值 ＝ 子文本替换 (返回值, 待替换文本, 编码_URL编码 (待替换文本, 真, 真), , 1, 真)
返回值 ＝ 子文本替换 (返回值, “=”, “!--!”, , 1, 真)
计次循环尾 ()


计次循环首 (取数组成员数 (排序文本), 计次_A)
返回值 ＝ 子文本替换 (返回值, “!--!”, “=”, , 1, 真)
返回值 ＝ 子文本替换 (返回值, “、”, “&”, , 1, 真)
计次循环尾 ()返回 (返回值)

i支持库列表	支持库注释
eCalc	数值计算支持库
spec	特殊功能支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 eCalc<br /> <br /> .数据类型 排序文本<br />     .成员 文本, 文本型<br />     .成员 数值, 大数<br /> .版本 2<br /> .支持库 spec<br /> .支持库 dp1<br /> .支持库 eCalc<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 appkey, 文本型<br /> <br /> appkey ＝ “a95eceb1ac8c24ee28b70f7dbba912bf”  ' appkey是例子中提供的实参，参考”https://ai.qq.com/doc/auth.shtml“<br /> 调试输出 (到大写 (取数据摘要 (到字节集 (lexicographicalOrder (“app_id=10000,key1=TXAI开放平台,key2=示例仅供参考,nonce_str=20e3408a79,time_stamp=1493449657”, 真) ＋ “app_key=” ＋ appkey))))<br /> <br /> .子程序 lexicographicalOrder, 文本型<br /> .参数 toBeSorted, 文本型, , 待排序的文本,用“,”分开每一个参数<br /> .参数 urlCoding, 逻辑型, , 是否URL编码<br /> .局部变量 排序文本, 文本型, , "0"<br /> .局部变量 临时组, 排序文本, , "0"<br /> .局部变量 计次_A, 整数型<br /> .局部变量 计次_B, 整数型<br /> .局部变量 字符代码, 整数型<br /> .局部变量 当前文本, 排序文本<br /> .局部变量 临时文本, 文本型<br /> .局部变量 返回值, 文本型<br /> .局部变量 待替换文本, 文本型<br /> <br /> 返回值 ＝ “”<br /> 排序文本 ＝ 分割文本 (toBeSorted, “,”, )<br /> .计次循环首 (取数组成员数 (排序文本), 计次_A)<br />     当前文本.文本 ＝ 排序文本 [计次_A]<br />     临时文本 ＝ “”<br />     .计次循环首 (取文本长度 (排序文本 [计次_A]), 计次_B)<br />         字符代码 ＝ 取代码 (到大写 (取文本中间 (排序文本 [计次_A], 计次_B, 1)), )<br />         .如果真 (取反 (字符代码 ≥ 48 且 字符代码 ≤ 57 或 字符代码 ≥ 65 且 字符代码 ≤ 90))<br />             字符代码 ＝ 取代码 (到大写 (取拼音 (取文本中间 (排序文本 [计次_A], 计次_B, 2), 1)), ) ＋ 100<br />         .如果真结束<br />         .如果真 (字符代码 ≠ 100)<br />             .如果 (计次_B ＝ 1)<br />                 临时文本 ＝ 到文本 (字符代码) ＋ “.”<br />             .否则<br />                 临时文本 ＝ 临时文本 ＋ 取文本右边 (“000” ＋ 到文本 (字符代码), 3)<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     当前文本.数值.导入文本 (临时文本)<br />     加入成员 (临时组, 当前文本)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (临时组) － 1, 计次_B)<br />     .计次循环首 (取数组成员数 (临时组) － 计次_B, 计次_A)<br />         .如果真 (临时组 [计次_A].数值.大于 (临时组 [计次_A ＋ 1].数值))<br />             当前文本.文本 ＝ 临时组 [计次_A].文本<br />             当前文本.数值 ＝ 临时组 [计次_A].数值<br />             临时组 [计次_A].文本 ＝ 临时组 [计次_A ＋ 1].文本<br />             临时组 [计次_A].数值 ＝ 临时组 [计次_A ＋ 1].数值<br />             临时组 [计次_A ＋ 1].文本 ＝ 当前文本.文本<br />             临时组 [计次_A ＋ 1].数值 ＝ 当前文本.数值<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .如果 (取数组成员数 (临时组) ＝ 取数组成员数 (排序文本))<br />     .计次循环首 (取数组成员数 (临时组), 计次_A)<br />         排序文本 [计次_A] ＝ 临时组 [计次_A].文本<br />     .计次循环尾 ()<br />     .计次循环首 (取数组成员数 (排序文本), 计次_A)<br />         返回值 ＝ 返回值 ＋ 排序文本 [计次_A] ＋ “、”<br />     .计次循环尾 ()<br /> .否则<br /> <br /> .如果结束<br /> ' 上面排序完毕，下面开始转码<br /> .如果 (urlCoding ＝ 真)<br />     .计次循环首 (取数组成员数 (排序文本), 计次_A)<br />         待替换文本 ＝ 文本_取出中间文本 (返回值, “=”, “、”)<br />         返回值 ＝ 子文本替换 (返回值, 待替换文本, 编码_URL编码 (待替换文本, 真, 真), , 1, 真)<br />         返回值 ＝ 子文本替换 (返回值, “=”, “!--!”, , 1, 真)<br />     .计次循环尾 ()<br /> .否则<br /> <br /> .如果结束<br /> .计次循环首 (取数组成员数 (排序文本), 计次_A)<br />     返回值 ＝ 子文本替换 (返回值, “!--!”, “=”, , 1, 真)<br />     返回值 ＝ 子文本替换 (返回值, “、”, “&”, , 1, 真)<br /> .计次循环尾 ()<br /> 返回 (返回值)

fxhj3210

TX鉴权.e (927.14 KB, 下载次数: 20)

2018-11-13 09:24 上传

点击文件名下载附件

路过的猴子

fxhj3210 发表于 2018-11-13 09:24

找好久了，

赶紧试试看行不行。感谢分享！