谁能解密一下这段代码,并说名代码含义
Function NZZNZZN(ByVal NZNNNZNZZ)
Dim NNNNNNN, NZNNNNZ, NNNZNNN
NZNNNZNZZ = Replace(NZNNNZNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNNNNZ = 1 To Len(NZNNNZNZZ)
If NZNNNNZ <> NNNZNNN Then
NNNNNNN = AscW(Mid(NZNNNZNZZ, NZNNNNZ, 1))
If NNNNNNN >= 33 And NNNNNNN <= 79 Then
NZZNZZN = NZZNZZN & Chr(NNNNNNN + 47)
ElseIf NNNNNNN >= 80 And NNNNNNN <= 126 Then
NZZNZZN = NZZNZZN & Chr(NNNNNNN - 47)
Else
NNNZNNN = NZNNNNZ + 1
If Mid(NZNNNZNZZ, NNNZNNN, 1) = Chr(64) Then NZZNZZN = NZZNZZN & ChrW(NNNNNNN + 5) Else NZZNZZN = NZZNZZN & Mid(NZNNNZNZZ, NZNNNNZ, 1)
End If
End If
Next
End Function
'将代码中的一些变量名称简化一下就容易看懂了。
Function MyConv(ByVal sStr) '字符串转换函数。
Dim n, i, j
sStr = Replace(sStr, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
'将源 sStr 字符串中的“%->”统一替换为“%>”
For i = 1 To Len(sStr) '读取字符串中各字符
If i <> j Then
n = AscW(Mid(sStr, i, 1)) '返回Unicode字符代码
If n >= 33 And n <= 79 Then
MyConv = MyConv & Chr(n + 47)
'如果代码值为33—79,则将该字符换成代码值加上47的字符
'!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO
'PQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~
ElseIf n >= 80 And n <= 126 Then
MyConv = MyConv & Chr(n - 47)
'如果代码值为80—126,则将该字符换成代码值减去47的字符
'PQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~
'!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO
Else
j = i + 1 '定位到下一个字符的位置
If Mid(sStr, j, 1) = Chr(64) Then
MyConv = MyConv & ChrW(n + 5)
'如果下一个字符代码值是64,则加上5,即将“@”换成“E”
Else
MyConv = MyConv & Mid(sStr, i, 1)
End If
End If
End If
Next
End Function
看不懂啊 ,问高人吧
下一篇:bannr图作用