UC知道JS脚本改写VB
来源：百度知道 编辑：UC知道 时间：2024/09/28 13:33:37
http://www.wen8.net/computer/web/encrypt.htm
请将第一个加密脚本改写为VB语句
或写一个实现同样功能的语句
例如，在加密框内输入“紫光”
加密后的结果是“%u7D2B%u5149”
不要给我贴一堆垃圾网文，或者哪里找的什么函数...
请自己试验了，能用了再贴上来。
写出完整可行方案的，我给你100
请将第一个加密脚本改写为VB语句
或写一个实现同样功能的语句
例如，在加密框内输入“紫光”
加密后的结果是“%u7D2B%u5149”
不要给我贴一堆垃圾网文，或者哪里找的什么函数...
请自己试验了，能用了再贴上来。
写出完整可行方案的，我给你100
'Escape编码，实现JavaScript的escape编码方法。
'将小于255的标点等字符变为“%+其16进制ASCII码（两位数字，不足前面补0）”的形式，
'将大于255的字符变为“%u+其16进制Unicode码（四位数字，不足前面补0）”的形式。
'EscapeCode函数实现Escape加密
Function EscapeCode(p_Message)
Dim m_char, m_asc, m_hex '字符，ASC码，16进制ASCII码
Dim m_temp '临时字符
Dim a_arc() 'ASC码数组
Dim i
ReDim a_arc(Len(p_Message))
For i = 0 To Len(p_Message) - 1
m_char = Mid(p_Message, i + 1, 1)
m_asc = AscW(m_char)
If m_asc < 255 Then
If (m_char = "*") Or (m_char = "+") _
Or (m_char >= "-" And m_char <= "9") _
Or (m_char >= "@" And m_char <= "Z") _
Or (m_char = "_") _
Or (m_char >= "a" And m_char <= "z") Then
a_arc(i) = m_char
Else
m_temp = Hex(m_asc)
If Len(m_temp) = 1 Then
a_arc