<%
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
%>