求助大神用易语言源码解码PDU 7bit"395CCD0698C56630“=9856@3130

txjyyy

熬夜

https://125.confly.eu.org/forum.php?mod=viewthread&tid=14720604

txjyyy

早试过了 ，不行，解不出@，只解出98563130

风清云游

当解出来0的时候 替换成64

txjyyy

在什么位置怎样替换成64

txjyyy

子程序 解码_7bit, 文本型, , 参考资料 <a  target="_blank">https://blog.csdn.net/wandersky0 ... m_relevant_index=12</a>
.参数 十六进制数据, 文本型, , 十六进制数据
.局部变量 字节集, 字节集
.局部变量 二进制, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 局_临时文本, 文本型
.局部变量 局_临时文本2, 文本型

字节集 ＝ 字节集_十六进制到字节集 (十六进制数据)
.计次循环首 (取字节集长度 (字节集), i)
    加入成员 (二进制, 取文本右边 (进制_十到二 (到整数 (字节集[i])), 8))
.计次循环尾 ()
' 调试输出 (“二进制”, 二进制)
数组_反转 (二进制)
局_临时文本 ＝ 数组_合并 (二进制, “”)
' 调试输出 (局_临时文本)
清除数组 (二进制)
.判断循环首 (取文本长度 (局_临时文本) ＞ 0)
    加入成员 (二进制, “0” ＋ 取文本右边 (局_临时文本, 7))
    局_临时文本 ＝ 取文本左边 (局_临时文本, 取文本长度 (局_临时文本) － 7)
.判断循环尾 ()
' 调试输出 (“二进制翻转后7转8”, 二进制)

.计次循环首 (取数组成员数 (二进制), i)
    ' 调试输出 (进制_二到十 (二进制[i]))
    局_临时文本 ＝ 进制_十到十六 (进制_二到十 (二进制[i]), 假)
    .如果真 (取文本长度 (局_临时文本) ＝ 1)
        局_临时文本 ＝ “0” ＋ 局_临时文本
    .如果真结束

    局_临时文本2 ＝ 局_临时文本2 ＋ 局_临时文本
.计次循环尾 ()
返回 (局_临时文本2)

chenboss

txjyyy 发表于 2025-1-26 11:59
在什么位置怎样替换成64

  

子程序名	返回值类型	公开	备 注
Decode7bit	文本型
参数名	类 型	参考	可空	数组	备 注
data	文本型

变量名	类 型	静态	数组	备 注
srclen	整数型
nsrc	整数型
tmpchar	整数型
nbyte	整数型
pDst1	文本型
nleft	整数型
a	文本型
pDst0	整数型

srclen ＝ 取文本长度 (data)
nsrc ＝ 1
nbyte ＝ 0
nleft ＝ 0
判断循环首 (nsrc ＜ srclen)
tmpchar ＝ 取字节集数据 (字节集_十六进制到字节集 (删全部空 (取文本中间 (data, nsrc, 2))), #长整数型, )
pDst0 ＝ 位与 (位或 (左移 (tmpchar, nbyte), nleft), 127)
调试输出 (pDst0)  ' 怎样把调试输出的数据中的0给替换成40
如果真 (pDst0 ＝ 0)
pDst0 ＝ 64
pDst1 ＝ pDst1 ＋ 字符 (pDst0)
nleft ＝ 右移 (tmpchar, 7 － nbyte)
nbyte ＝ nbyte ＋ 1
如果真 (nbyte ＝ 7)
pDst1 ＝ pDst1 ＋ 字符 (nleft)
nbyte ＝ 0
nleft ＝ 0
nsrc ＝ nsrc ＋ 2
判断循环尾 ()
返回 (pDst1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 Decode7bit, 文本型<br /> .参数 data, 文本型<br /> .局部变量 srclen, 整数型<br /> .局部变量 nsrc, 整数型<br /> .局部变量 tmpchar, 整数型<br /> .局部变量 nbyte, 整数型<br /> .局部变量 pDst1, 文本型<br /> .局部变量 nleft, 整数型<br /> .局部变量 a, 文本型<br /> .局部变量 pDst0, 整数型<br /> <br /> srclen ＝ 取文本长度 (data)<br /> nsrc ＝ 1<br /> nbyte ＝ 0<br /> nleft ＝ 0<br /> .判断循环首 (nsrc ＜ srclen)<br />     tmpchar ＝ 取字节集数据 (字节集_十六进制到字节集 (删全部空 (取文本中间 (data, nsrc, 2))), #长整数型, )<br />     pDst0 ＝ 位与 (位或 (左移 (tmpchar, nbyte), nleft), 127)<br /> <br />     调试输出 (pDst0)  ' 怎样把调试输出的数据中的0给替换成40<br />     .如果真 (pDst0 ＝ 0)<br />         pDst0 ＝ 64<br />     .如果真结束<br />     pDst1 ＝ pDst1 ＋ 字符 (pDst0)<br />     nleft ＝ 右移 (tmpchar, 7 － nbyte)<br />     nbyte ＝ nbyte ＋ 1<br />     .如果真 (nbyte ＝ 7)<br />         pDst1 ＝ pDst1 ＋ 字符 (nleft)<br />         nbyte ＝ 0<br />         nleft ＝ 0<br />     .如果真结束<br />     nsrc ＝ nsrc ＋ 2<br /> .判断循环尾 ()<br /> 返回 (pDst1)

qq977352880

先顶一下，后续再来详细研究。

编程阿狸

https://125.confly.eu.org/forum.php?mod=viewthread&tid=14720604