7bit编码,7bit解码,把8字节编码成7字节 短xinpdu解析用到

0010101

最近在做短信格式pdu解析,记录并分享一下  其中用到7bit编码,7bit解码, ,说是编码解码实际是压缩
可以吧纯ansi字符的8字节压缩成7字节 ,可以让短息发送更多文字
用到精易模块 和zyjson模块
使用方法
调试输出 (编码_7bit (“5555”), “正确值:B55AAD06 ”)
调试输出 (解码_7bit (“B55AAD06”), “5555hex:35353535”)

  

子程序名	返回值类型	公开	备 注
编码_7bit	文本型		7bit编码  参考资料 https://blog.csdn.net/yizhesong/ ... tionNum=2&fps=1
参数名	类 型	参考	可空	数组	备 注
文本	文本型				1234

变量名	类 型	静态	数组	备 注
数组_文本	文本型		0
二进制	文本型		0
i	整数型
局_临时文本	文本型
局_临时文本2	文本型
计数	整数型

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

局_临时文本2 ＝ 局_临时文本2 ＋ 局_临时文本
计次循环尾 ()
返回 (局_临时文本2)
' 1              2              3             4
' 0110001    0110010   0110011  0110100
' 现在需要将没个字节补齐，也就是补到8位，
' 首先将1补齐，将2的最后一位补到1前面：00110001  011001  0110011 0110100
' 将2补齐，将3的最后两位不到2前面：     00110001  11011001 01100 0110100
' 将3补齐，将4的最后补到3前面：          00110001  11011001 10001100 0110
' 最后将4补齐，在最前面不上四个0：      00110001  11011001  10001100 0000110
' 这个时候1234字符串的编码就变为了： 0x31 0xd9 0x8c 0x06  该值正好就是我们的短信内容！

子程序名	返回值类型	公开	备 注
解码_7bit	文本型		参考资料 https://blog.csdn.net/wandersky0 ... m_relevant_index=12
参数名	类 型	参考	可空	数组	备 注
十六进制数据	文本型				十六进制数据

变量名	类 型	静态	数组	备 注
字节集	字节集
二进制	文本型		0
i	整数型
局_临时文本	文本型
局_临时文本2	文本型

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

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

.版本 2<br /> <br /> <br /> <br /> <br /> .子程序 编码_7bit, 文本型, , 7bit编码  参考资料 <a href="https://blog.csdn.net/yizhesong/article/details/46378689?locationNum=2&fps=1" rel="nofollow" rel="nofollow" target="_blank">https://blog.csdn.net/yizhesong/ ... tionNum=2&fps=1</a><br /> .参数 文本, 文本型, , 1234<br /> .局部变量 数组_文本, 文本型, , "0"<br /> .局部变量 二进制, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_临时文本, 文本型<br /> .局部变量 局_临时文本2, 文本型<br /> .局部变量 计数, 整数型<br /> <br /> 文本_逐字分割 (文本, 数组_文本)<br /> .计次循环首 (取数组成员数 (数组_文本), i)<br />     加入成员 (二进制, 取文本右边 (进制_十到二 (进制_十六到十 (字节集_字节集到十六进制 (到字节集 (数组_文本 <i>)))), 7))<br /> .计次循环尾 ()<br /> ' 调试输出 (二进制)<br /> <br /> <br /> 数组_反转 (二进制)<br /> 局_临时文本 ＝ 数组_合并 (二进制, “”)<br /> ' 调试输出 (局_临时文本)<br /> <br /> 计数 ＝ 0<br /> 清除数组 (二进制)<br /> <br /> .判断循环首 (取文本长度 (局_临时文本) ＞ 0)<br /> <br />     加入成员 (二进制, 取文本右边 (局_临时文本, 8))<br /> <br /> <br />     ' 局_临时文本2 ＝ 局_临时文本2 ＋ 进制_十到十六 (进制_二到十 (取文本右边 (局_临时文本, 8)), 真)<br />     局_临时文本 ＝ 取文本左边 (局_临时文本, 取文本长度 (局_临时文本) － 8)<br /> .判断循环尾 ()<br /> ' 数组_反转 (二进制)<br /> ' 调试输出 (二进制)<br /> <br /> .计次循环首 (取数组成员数 (二进制), i)<br />     ' 调试输出 (进制_二到十 (二进制 <i>))<br />     局_临时文本 ＝ 进制_十到十六 (进制_二到十 (二进制 <i>), 假)<br />     .如果真 (取文本长度 (局_临时文本) ＝ 1)<br />         局_临时文本 ＝ “0” ＋ 局_临时文本<br />     .如果真结束<br /> <br />     局_临时文本2 ＝ 局_临时文本2 ＋ 局_临时文本<br /> .计次循环尾 ()<br /> <br /> 返回 (局_临时文本2)<br /> <br /> <br /> ' 1              2              3             4<br /> <br /> ' 0110001    0110010   0110011  0110100<br /> <br /> ' 现在需要将没个字节补齐，也就是补到8位，<br /> <br /> ' 首先将1补齐，将2的最后一位补到1前面：00110001  011001  0110011 0110100<br /> <br /> ' 将2补齐，将3的最后两位不到2前面：     00110001  11011001 01100 0110100<br /> <br /> ' 将3补齐，将4的最后补到3前面：          00110001  11011001 10001100 0110<br /> <br /> ' 最后将4补齐，在最前面不上四个0：      00110001  11011001  10001100 0000110<br /> <br /> ' 这个时候1234字符串的编码就变为了： 0x31 0xd9 0x8c 0x06  该值正好就是我们的短信内容！<br /> <br /> <br /> .子程序 解码_7bit, 文本型, , 参考资料 <a href="https://blog.csdn.net/wandersky0822/article/details/79417116?spm=1001.2101.3001.6650.8&utm_medium=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7ERate-8.pc_relevant_default&depth_1-utm_source=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7ERate-8.pc_relevant_default&utm_relevant_index=12" rel="nofollow" rel="nofollow" target="_blank">https://blog.csdn.net/wandersky0 ... m_relevant_index=12</a><br /> .参数 十六进制数据, 文本型, , 十六进制数据<br /> .局部变量 字节集, 字节集<br /> .局部变量 二进制, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_临时文本, 文本型<br /> .局部变量 局_临时文本2, 文本型<br /> <br /> 字节集 ＝ 字节集_十六进制到字节集 (十六进制数据)<br /> .计次循环首 (取字节集长度 (字节集), i)<br />     加入成员 (二进制, 取文本右边 (进制_十到二 (到整数 (字节集 <i>)), 8))<br /> .计次循环尾 ()<br /> ' 调试输出 (“二进制”, 二进制)<br /> 数组_反转 (二进制)<br /> 局_临时文本 ＝ 数组_合并 (二进制, “”)<br /> ' 调试输出 (局_临时文本)<br /> 清除数组 (二进制)<br /> .判断循环首 (取文本长度 (局_临时文本) ＞ 0)<br />     加入成员 (二进制, “0” ＋ 取文本右边 (局_临时文本, 7))<br />     局_临时文本 ＝ 取文本左边 (局_临时文本, 取文本长度 (局_临时文本) － 7)<br /> .判断循环尾 ()<br /> ' 调试输出 (“二进制翻转后7转8”, 二进制)<br /> <br /> .计次循环首 (取数组成员数 (二进制), i)<br />     ' 调试输出 (进制_二到十 (二进制 <i>))<br />     局_临时文本 ＝ 进制_十到十六 (进制_二到十 (二进制 <i>), 假)<br />     .如果真 (取文本长度 (局_临时文本) ＝ 1)<br />         局_临时文本 ＝ “0” ＋ 局_临时文本<br />     .如果真结束<br /> <br />     局_临时文本2 ＝ 局_临时文本2 ＋ 局_临时文本<br /> .计次循环尾 ()<br /> 返回 (局_临时文本2)

嫂子

  

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

变量名	类 型	静态	数组	备 注
len	整数型
i	整数型
cur	整数型
j	整数型
t	文本型
res	文本型

len ＝ 取文本长度 (data)
i ＝ 1
判断循环首 (i ≤ len)
判断 (i ＜ len)
cur ＝ 位与 (位或 (右移 (取代码 (data, i), j), 左移 (取代码 (data, i ＋ 1), 7 － j)), 255)
cur ＝ 位与 (右移 (取代码 (data, i), j), 255)
t ＝ 格式化文本 (“%2.2X”, cur)
res ＝ res ＋ t
i ＝ i ＋ 1
j ＝ (j ＋ 1) ％ 7
如果真 (j ＝ 0)
i ＝ i ＋ 1

判断循环尾 ()
返回 (res)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 Encode7bit, 文本型<br /> .参数 data, 文本型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 cur, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 t, 文本型<br /> .局部变量 res, 文本型<br /> <br /> len ＝ 取文本长度 (data)<br /> i ＝ 1<br /> .判断循环首 (i ≤ len)<br />     .判断开始 (i ＜ len)<br />         cur ＝ 位与 (位或 (右移 (取代码 (data, i), j), 左移 (取代码 (data, i ＋ 1), 7 － j)), 255)<br />     .默认<br />         cur ＝ 位与 (右移 (取代码 (data, i), j), 255)<br />     .判断结束<br />     t ＝ 格式化文本 (“%2.2X”, cur)<br />     res ＝ res ＋ t<br />     i ＝ i ＋ 1<br />     j ＝ (j ＋ 1) ％ 7<br />     .如果真 (j ＝ 0)<br />         i ＝ i ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 (res)

嫂子

解码

  

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

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

srclen ＝ 取文本长度 (data)
nsrc ＝ 1
nbyte ＝ 0
nleft ＝ 0
判断循环首 (nsrc ＜ srclen)
tmpchar ＝ Hex2Int (取文本中间 (data, nsrc, 2))
pDst ＝ pDst ＋ 字符 (位与 (位或 (左移 (tmpchar, nbyte), nleft), 127))
nleft ＝ 右移 (tmpchar, 7 － nbyte)
nbyte ＝ nbyte ＋ 1
如果真 (nbyte ＝ 7)
pDst ＝ pDst ＋ 字符 (nleft)
nbyte ＝ 0
nleft ＝ 0
nsrc ＝ nsrc ＋ 2
判断循环尾 ()
返回 (pDst)

.版本 2<br /> <br /> .子程序 Decode7bit, 文本型<br /> .参数 data, 文本型<br /> .局部变量 srclen, 整数型<br /> .局部变量 nsrc, 整数型<br /> .局部变量 tmpchar, 整数型<br /> .局部变量 nbyte, 整数型<br /> .局部变量 pDst, 文本型<br /> .局部变量 nleft, 整数型<br /> .局部变量 a, 文本型<br /> <br /> srclen ＝ 取文本长度 (data)<br /> nsrc ＝ 1<br /> nbyte ＝ 0<br /> nleft ＝ 0<br /> .判断循环首 (nsrc ＜ srclen)<br />     tmpchar ＝ Hex2Int (取文本中间 (data, nsrc, 2))<br />     pDst ＝ pDst ＋ 字符 (位与 (位或 (左移 (tmpchar, nbyte), nleft), 127))<br />     nleft ＝ 右移 (tmpchar, 7 － nbyte)<br />     nbyte ＝ nbyte ＋ 1<br />     .如果真 (nbyte ＝ 7)<br />         pDst ＝ pDst ＋ 字符 (nleft)<br />         nbyte ＝ 0<br />         nleft ＝ 0<br />     .如果真结束<br />     nsrc ＝ nsrc ＋ 2<br /> .判断循环尾 ()<br /> 返回 (pDst)

嫂子

给你个标准写法

  

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

变量名	类 型	静态	数组	备 注
len	整数型
i	整数型
cur	整数型
j	整数型
t	文本型
res	文本型

len ＝ 取文本长度 (data)
i ＝ 1
判断循环首 (i ≤ len)
判断 (i ＜ len)
cur ＝ 位与 (位或 (右移 (取代码 (data, i), j), 左移 (取代码 (data, i ＋ 1), 7 － j)), 255)
cur ＝ 位与 (右移 (取代码 (data, i), j), 255)
t ＝ 格式化文本 (“%2.2X”, cur)
res ＝ res ＋ t
i ＝ i ＋ 1
j ＝ (j ＋ 1) ％ 7
如果真 (j ＝ 0)
i ＝ i ＋ 1

判断循环尾 ()
返回 (res)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 Encode7bit, 文本型<br /> .参数 data, 文本型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 cur, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 t, 文本型<br /> .局部变量 res, 文本型<br /> <br /> len ＝ 取文本长度 (data)<br /> i ＝ 1<br /> .判断循环首 (i ≤ len)<br />     .判断开始 (i ＜ len)<br />         cur ＝ 位与 (位或 (右移 (取代码 (data, i), j), 左移 (取代码 (data, i ＋ 1), 7 － j)), 255)<br />     .默认<br />         cur ＝ 位与 (右移 (取代码 (data, i), j), 255)<br />     .判断结束<br />     t ＝ 格式化文本 (“%2.2X”, cur)<br />     res ＝ res ＋ t<br />     i ＝ i ＋ 1<br />     j ＝ (j ＋ 1) ％ 7<br />     .如果真 (j ＝ 0)<br />         i ＝ i ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 (res)

灵感吖

支持一下，下载看看

晴天大佬

一一一2

什么时候会用到这个

嫂子

其他语言有现成的 翻译即可。我是翻译自 Delphi代码

杨明煜

支持一下，谢谢！......

xjshuaishuai

谢谢分享！