国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > 綜合 > 正文

VB PDU mode 7 bit 解碼

2024-07-21 02:20:52
字體：大 中 小
來源：轉載
供稿：網友
dim tep as string
dim temp as string
dim i as integer
dim b as integer
dim rems as string
tep = rmsg
i = len(tep)
if i < 1 then exit function

b = i / 2

if i = b * 2 then
tep = left(tep, b * 2)
else
b = b - 1
tep = left(tep, b * 2)
end if

chg7 = ""
rems = ""
dim trint as integer
dim strtmp as string

trint = 1
strtmp = ""

for i = 1 to b
temp = "&h" & mid(tep, (i - 1) * 2 + 1, 2)
temp = d_to_b(val(temp)) '轉二進制

if len(temp) < 8 then
temp = strpla(8 - len(temp)) + temp
end if

strtmp = mid(temp, trint + 1, 8 - trint) + rems

rems = mid(temp, 1, trint)


chg7 = chg7 & chrw(cint(val(b_to_d(strtmp))))

trint = trint + 1
if trint = 8 then
trint = 1
chg7 = chg7 & chrw(cint(val(b_to_d(rems))))
rems = ""
end if


next i

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 曲阜市| 京山县| 台南市| 东乌珠穆沁旗| 尼玛县| 恩平市| 安丘市| 岳普湖县| 二连浩特市| 诸暨市| 铁力市| 右玉县| 林芝县| 长顺县| 津市市| 田东县| 宁乡县| 安图县| 镇原县| 信丰县| 措美县| 青冈县| 鄂托克前旗| 隆化县| 岳阳市| 重庆市| 安陆市| 眉山市| 九龙县| 丹寨县| 广安市| 沙坪坝区| 亚东县| 庆元县| 卢湾区| 博客| 额敏县| 黑河市| 图们市| 布拖县| 长岭县|