国产探花免费观看_亚洲丰满少妇自慰呻吟_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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 深圳市| 福贡县| 开江县| 玛沁县| 亚东县| 江达县| 萨迦县| 博白县| 德钦县| 繁峙县| 石林| 湖南省| 榆社县| 凤凰县| 额济纳旗| 黔江区| 洛扎县| 泸定县| 城固县| 甘孜县| 沁源县| 疏附县| 山阳县| 旺苍县| 昌吉市| 雷州市| 宝清县| 乌拉特中旗| 阳朔县| 桐城市| 江北区| 大姚县| 安义县| 和田市| 额济纳旗| 连江县| 泽州县| 陕西省| 鞍山市| 井研县| 治多县|