谁帮忙修改下

liuzhimanong · 发表于 2021-3-11 20:23:53

补充内容 (2021-3-11 21:06):
.版本 2

.子程序编码_BASE64编码, 文本型
.参数 _参数1, 字节集
.局部变量 _局部1, 整数型
.局部变量 _局部2, 字节型, , "3"
.局部变量 _局部3, 整数型
.局部...

补充内容 (2021-3-12 14:31):
这是DLL 命令 DLL命令1002A_Verificationcoderecognition (编码_BASE64编码1 (验证码图片))

路人丁20 · 发表于 2021-3-11 20:46:14

子文本替换26个字母替换空

截图这样的没人给你改，直接贴代码这样别人直接黏贴省事

Loserecall · 发表于 2021-3-11 20:59:57

liuzhimanong · 发表于 2021-3-11 21:06:06

路人丁20 发表于 2021-3-11 20:46
子文本替换26个字母替换空截图这样的没人给你改，直接贴代码这样别人直接黏贴省事 ...

刚才给我删了

liuzhimanong · 发表于 2021-3-11 21:07:16

.版本 2

.子程序编码_BASE64编码, 文本型
.参数 _参数1, 字节集
.局部变量 _局部1, 整数型
.局部变量 _局部2, 字节型, , "3"
.局部变量 _局部3, 整数型
.局部变量 _局部4, 字节集
.局部变量 _局部5, 整数型
.局部变量 _局部6, 字节集
.局部变量 _局部7, 整数型

_局部5 ＝取字节集长度 (_参数1)
.如果真 (_局部5 ＜ 1)
返回 (“”)
.如果真结束
_局部1 ＝ _局部5 ％ 3
.如果真 (_局部1 ＞ 0)
_参数1 ＝ _参数1 ＋取空白字节集 (3 － _局部1)
.如果真结束
_局部5 ＝取字节集长度 (_参数1)
_局部6 ＝取空白字节集 (_局部5 × 4 ÷ 3)
_局部7 ＝ 1
_局部4 ＝到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)
' _局部4 ＝到字节集 (“0123456789+”)’只想要这几个数字的之别有大神可以指点么

.变量循环首 (1, _局部5, 3, _局部3)
_局部2 [1] ＝ _参数1 [_局部3]
_局部2 [2] ＝ _参数1 [_局部3 ＋ 1]
_局部2 [3] ＝ _参数1 [_局部3 ＋ 2]
_局部6 [_局部7] ＝ _局部4 [右移 (_局部2 [1], 2) ＋ 1]
_局部6 [_局部7 ＋ 1] ＝ _局部4 [左移 (位与 (_局部2 [1], 3), 4) ＋右移 (_局部2 [2], 4) ＋ 1]
_局部6 [_局部7 ＋ 2] ＝ _局部4 [左移 (位与 (_局部2 [2], 15), 2) ＋右移 (_局部2 [3], 6) ＋ 1]
_局部6 [_局部7 ＋ 3] ＝ _局部4 [位与 (_局部2 [3], 63) ＋ 1]
_局部7 ＝ _局部7 ＋ 4
.变量循环尾 ()
.如果真 (_局部1 ＞ 0)
_局部5 ＝取字节集长度 (_局部6)
.如果 (_局部1 ＝ 1)
      _局部6 [_局部5 － 1] ＝到字节 (取代码 (“=”, ))
      _局部6 [_局部5] ＝到字节 (取代码 (“=”, ))
.否则
      _局部6 [_局部5] ＝到字节 (取代码 (“=”, ))
.如果结束

.如果真结束
返回 (到文本 (_局部6))

liuzhimanong · 发表于 2021-3-11 21:07:32

.版本 2

.子程序编码_BASE64编码, 文本型
.参数 _参数1, 字节集
.局部变量 _局部1, 整数型
.局部变量 _局部2, 字节型, , "3"
.局部变量 _局部3, 整数型
.局部变量 _局部4, 字节集
.局部变量 _局部5, 整数型
.局部变量 _局部6, 字节集
.局部变量 _局部7, 整数型

_局部5 ＝取字节集长度 (_参数1)
.如果真 (_局部5 ＜ 1)
返回 (“”)
.如果真结束
_局部1 ＝ _局部5 ％ 3
.如果真 (_局部1 ＞ 0)
_参数1 ＝ _参数1 ＋取空白字节集 (3 － _局部1)
.如果真结束
_局部5 ＝取字节集长度 (_参数1)
_局部6 ＝取空白字节集 (_局部5 × 4 ÷ 3)
_局部7 ＝ 1
_局部4 ＝到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)
' _局部4 ＝到字节集 (“0123456789+”)’只想要这几个数字的之别有大神可以指点么

.变量循环首 (1, _局部5, 3, _局部3)
_局部2 [1] ＝ _参数1 [_局部3]
_局部2 [2] ＝ _参数1 [_局部3 ＋ 1]
_局部2 [3] ＝ _参数1 [_局部3 ＋ 2]
_局部6 [_局部7] ＝ _局部4 [右移 (_局部2 [1], 2) ＋ 1]
_局部6 [_局部7 ＋ 1] ＝ _局部4 [左移 (位与 (_局部2 [1], 3), 4) ＋右移 (_局部2 [2], 4) ＋ 1]
_局部6 [_局部7 ＋ 2] ＝ _局部4 [左移 (位与 (_局部2 [2], 15), 2) ＋右移 (_局部2 [3], 6) ＋ 1]
_局部6 [_局部7 ＋ 3] ＝ _局部4 [位与 (_局部2 [3], 63) ＋ 1]
_局部7 ＝ _局部7 ＋ 4
.变量循环尾 ()
.如果真 (_局部1 ＞ 0)
_局部5 ＝取字节集长度 (_局部6)
.如果 (_局部1 ＝ 1)
      _局部6 [_局部5 － 1] ＝到字节 (取代码 (“=”, ))
      _局部6 [_局部5] ＝到字节 (取代码 (“=”, ))
.否则
      _局部6 [_局部5] ＝到字节 (取代码 (“=”, ))
.如果结束

.如果真结束
返回 (到文本 (_局部6))

补充内容 (2021-3-12 14:28):
DLL命令1002A_Verificationcoderecognition (编码_BASE64编码1 (验证码图片))

whb666 · 发表于 2021-3-11 22:42:28

路人丁20 · 发表于 2021-3-11 22:53:20

子程序名	返回值类型	公开	备注
编码_BASE64编码	文本型
参数名	类型	参考	可空	数组	备注
_参数1	字节集

变量名	类型	静态	数组	备注
_局部1	整数型
_局部2	字节型		3
_局部3	整数型
_局部4	字节集
_局部5	整数型
_局部6	字节集
_局部7	整数型
D	整数型
临时文本	文本型
结果文本	文本型

_局部5 ＝取字节集长度 (_参数1)

如果真 (_局部5 ＜ 1)

返回 (“”)
_局部1 ＝ _局部5 ％ 3

如果真 (_局部1 ＞ 0)

_参数1 ＝ _参数1 ＋取空白字节集 (3 － _局部1)
_局部5 ＝取字节集长度 (_参数1)
_局部6 ＝取空白字节集 (_局部5 × 4 ÷ 3)
_局部7 ＝ 1
_局部4 ＝到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)
' _局部4 ＝到字节集 (“0123456789+”)’只想要这几个数字的之别有大神可以指点么

计次循环首 (_局部5, D)

判断 (文本_是否为数字 (取文本中间 (到文本 (_局部4), D, 1)) ＝真或取文本中间 (到文本 (_局部4), D, 1) ＝ “+”)

临时文本＝取文本中间 (到文本 (_局部4), D, 1)

结果文本＝结果文本＋临时文本

计次循环尾 ()
_局部6 ＝到字节集 (结果文本)
返回 (到文本 (_局部6))

路人丁20 · 发表于 2021-3-11 22:56:10

代码在审核，你看图片精易模块自己添加

liuzhimanong · 发表于 2021-3-12 14:24:51

路人丁20 发表于 2021-3-11 22:53
[e=0].版本 2

.子程序编码_BASE64编码, 文本型

不对哦返回的结果还是一堆英文

		自动登录	找回密码
密码			注册

[精币悬赏] 谁帮忙修改下

点评