博客展示了一段代码，涉及使用ChrB、Hex、AscB等函数处理字符，通过循环对字符进行操作，将字节转换为十六进制并进行位运算，最后使用ChrW输出结果，与hex和c相关。
<%
Dim i
Dim a, b, c, d, e
a = ChrB(&HE4) & ChrB(&HBA) & ChrB(&H9A)
For i=1 To LenB(a) Step 3
b = Hex(AscB(MidB(a, i, 1)))
c = Hex(AscB(MidB(a, i+1, 1)))
d = Hex(AscB(MidB(a, i+2, 1)))
e = ("&H" & b And &H0F) * 2 ^12 Or ("&H" & c And &H3F) * 2 ^ 6 Or ("&H" & d And &H3F)
Response.Write ChrW(e)
Next
%>
Dim i
Dim a, b, c, d, e
a = ChrB(&HE4) & ChrB(&HBA) & ChrB(&H9A)
For i=1 To LenB(a) Step 3
b = Hex(AscB(MidB(a, i, 1)))
c = Hex(AscB(MidB(a, i+1, 1)))
d = Hex(AscB(MidB(a, i+2, 1)))
e = ("&H" & b And &H0F) * 2 ^12 Or ("&H" & c And &H3F) * 2 ^ 6 Or ("&H" & d And &H3F)
Response.Write ChrW(e)
Next
%>
扫一扫
4190
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
