<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'产品咨询电话：18867186998 （刘经理,兼微信号）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行！感谢您体验宁志产品，宁志有您更精彩！*

Dim NZZZZNN,NZZZNZZ,NZZZNZN,NZZZNNZ,NZZZNNN
Set NZZZNZN=Response:Set NZZZNZZ=Request:Set NZZZNNN=Session:Set NZZZZNN=Application:Set NZZZNNZ=Server
Private Const NNNZNZZ =8
Private Const NNNZNZN =4
Private Const NNNZNNZ =32
Private NZNNZZZ(30)
Private NZNNZZN(30)
Private Function NZZNZZZ(NZZZNZZN, NZZZNZNZ)
If NZZZNZNZ = 0 Then
NZZNZZZ = NZZZNZZN
Exit Function
ElseIf NZZZNZNZ = 31 Then
If NZZZNZZN And 1 Then
NZZNZZZ = &H80000000
Else
NZZNZZZ = (35 * 87 - 3045)
End If
Exit Function
ElseIf NZZZNZNZ < 0 Or NZZZNZNZ > 31 Then
Err.Raise 6
End If
If (NZZZNZZN And NZNNZZN(31 - NZZZNZNZ)) Then
NZZNZZZ = ((NZZZNZZN And NZNNZZZ(31 - (NZZZNZNZ + 1))) * NZNNZZN(NZZZNZNZ)) Or &H80000000
Else
NZZNZZZ = ((NZZZNZZN And NZNNZZZ(31 - NZZZNZNZ)) * NZNNZZN(NZZZNZNZ))
End If
End Function
Private Function NZZNZZN(NZZZNZZN, NZZZNZNZ)
If NZZZNZNZ = 0 Then
NZZNZZN = NZZZNZZN
Exit Function
ElseIf NZZZNZNZ = 31 Then
If NZZZNZZN And &H80000000 Then
NZZNZZN = (98 * 18 - 1763)
Else
NZZNZZN = (35 * 87 - 3045)
End If
Exit Function
ElseIf NZZZNZNZ < 0 Or NZZZNZNZ > 31 Then
Err.Raise 6
End If
NZZNZZN = (NZZZNZZN And &H7FFFFFFE) \ NZNNZZN(NZZZNZNZ)
If (NZZZNZZN And &H80000000) Then
NZZNZZN = (NZZNZZN Or (&H40000000 \ NZNNZZN(NZZZNZNZ - 1)))
End If
End Function
Private Function NZZNZNZ(NZZZNZZN, NZZZNZNZ)
NZZNZNZ = NZZNZZZ(NZZZNZZN, NZZZNZNZ) Or NZZNZZN(NZZZNZZN, (32 - NZZZNZNZ))
End Function
Private Function NZZNZNN(NZZZNZNN, NZZZNNZZ)
Dim NZNNZNZ
Dim NZNNZNN
Dim NZNNNZZ
Dim NZNNNZN
Dim NZNNNNZ
NZNNNZZ = NZZZNZNN And &H80000000
NZNNNZN = NZZZNNZZ And &H80000000
NZNNZNZ = NZZZNZNN And &H40000000
NZNNZNN = NZZZNNZZ And &H40000000
NZNNNNZ = (NZZZNZNN And &H3FFFFFFF) + (NZZZNNZZ And &H3FFFFFFF)
If NZNNZNZ And NZNNZNN Then
NZNNNNZ = NZNNNNZ Xor &H80000000 Xor NZNNNZZ Xor NZNNNZN
ElseIf NZNNZNZ Or NZNNZNN Then
If NZNNNNZ And &H40000000 Then
NZNNNNZ = NZNNNNZ Xor &HC0000000 Xor NZNNNZZ Xor NZNNNZN
Else
NZNNNNZ = NZNNNNZ Xor &H40000000 Xor NZNNNZZ Xor NZNNNZN
End If
Else
NZNNNNZ = NZNNNNZ Xor NZNNNZZ Xor NZNNNZN
End If
NZZNZNN = NZNNNNZ
End Function
Private Function NZZNNZZ(NNZZNNN, NZZZNNZN, NZZZNNNZ)
NZZNNZZ = (NNZZNNN And NZZZNNZN) Or ((Not NNZZNNN) And NZZZNNNZ)
End Function
Private Function NZZNNZN(NNZZNNN, NZZZNNZN, NZZZNNNZ)
NZZNNZN = (NNZZNNN And NZZZNNNZ) Or (NZZZNNZN And (Not NZZZNNNZ))
End Function
Private Function NZZNNNZ(NNZZNNN, NZZZNNZN, NZZZNNNZ)
NZZNNNZ = (NNZZNNN Xor NZZZNNZN Xor NZZZNNNZ)
End Function
Private Function NZZNNNN(NNZZNNN, NZZZNNZN, NZZZNNNZ)
NZZNNNN = (NZZZNNZN Xor (NNZZNNN Or (Not NZZZNNNZ)))
End Function
Private Sub NZNZNZZ(NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN, NZZZNNNN, NZZNZZZZ)
NNZNNZN = NZZNZNN(NNZNNZN, NZZNZNN(NZZNZNN(NZZNNZZ(NNZNNNZ, NNZNNNN, NNNZZZZ), NNZZNNN), NZZNZZZZ))
NNZNNZN = NZZNZNZ(NNZNNZN, NZZZNNNN)
NNZNNZN = NZZNZNN(NNZNNZN, NNZNNNZ)
End Sub
Private Sub NZNZNZN(NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN, NZZZNNNN, NZZNZZZZ)
NNZNNZN = NZZNZNN(NNZNNZN, NZZNZNN(NZZNZNN(NZZNNZN(NNZNNNZ, NNZNNNN, NNNZZZZ), NNZZNNN), NZZNZZZZ))
NNZNNZN = NZZNZNZ(NNZNNZN, NZZZNNNN)
NNZNNZN = NZZNZNN(NNZNNZN, NNZNNNZ)
End Sub
Private Sub NZNZNNZ(NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN, NZZZNNNN, NZZNZZZZ)
NNZNNZN = NZZNZNN(NNZNNZN, NZZNZNN(NZZNZNN(NZZNNNZ(NNZNNNZ, NNZNNNN, NNNZZZZ), NNZZNNN), NZZNZZZZ))
NNZNNZN = NZZNZNZ(NNZNNZN, NZZZNNNN)
NNZNNZN = NZZNZNN(NNZNNZN, NNZNNNZ)
End Sub
Private Sub NZNZNNN(NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN, NZZZNNNN, NZZNZZZZ)
NNZNNZN = NZZNZNN(NNZNNZN, NZZNZNN(NZZNZNN(NZZNNNN(NNZNNNZ, NNZNNNN, NNNZZZZ), NNZZNNN), NZZNZZZZ))
NNZNNZN = NZZNZNZ(NNZNNZN, NZZZNNNN)
NNZNNZN = NZZNZNN(NNZNNZN, NNZNNNZ)
End Sub
Private Function NZNZZZZ(NZZNZZZN)
Dim NZNNNNN
Dim NNZZZZZ
Dim NNZZZZN()
Dim NNZZZNZ
Dim NNZZZNN
Dim NNZZNZZ
Const NNNZNNN =512
Const NNNNZZZ =448
NZNNNNN = Len(NZZNZZZN)
NNZZZZZ = (((NZNNNNN + ((NNNZNNN - NNNNZZZ) \ NNNZNZZ)) \ (NNNZNNN \ NNNZNZZ)) + 1) * (NNNZNNN \ NNNZNNZ)
ReDim NNZZZZN(NNZZZZZ - 1)
NNZZZNZ = (35 * 87 - 3045)
NNZZZNN = (35 * 87 - 3045)
Do Until NNZZZNN >= NZNNNNN
NNZZNZZ = NNZZZNN \ NNNZNZN
NNZZZNZ = (NNZZZNN Mod NNNZNZN) * NNNZNZZ
NNZZZZN(NNZZNZZ) = NNZZZZN(NNZZNZZ) Or NZZNZZZ(Asc(Mid(NZZNZZZN, NNZZZNN + 1, 1)), NNZZZNZ)
NNZZZNN = NNZZZNN + (98 * 18 - 1763)
Loop
NNZZNZZ = NNZZZNN \ NNNZNZN
NNZZZNZ = (NNZZZNN Mod NNNZNZN) * NNNZNZZ
NNZZZZN(NNZZNZZ) = NNZZZZN(NNZZNZZ) Or NZZNZZZ(&H80, NNZZZNZ)
NNZZZZN(NNZZZZZ - 2) = NZZNZZZ(NZNNNNN, 3)
NNZZZZN(NNZZZZZ - 1) = NZZNZZN(NZNNNNN, 29)
NZNZZZZ = NNZZZZN
End Function
Private Function NZNZZZN(NZZZNZZN)
Dim NNZZNZN
Dim NNZZNNZ
For NNZZNNZ = 0 To 3
NNZZNZN = NZZNZZN(NZZZNZZN, NNZZNNZ * NNNZNZZ) And NZNNZZZ(NNNZNZZ - 1)
NZNZZZN = NZNZZZN & Right("0" & Hex(NNZZNZN), 2)
Next
End Function
Public Function NZNZZNZ(NZZNZZZN)
NZNNZZZ(0) = CLng(1)
NZNNZZZ(1) = CLng(3)
NZNNZZZ(2) = CLng(7)
NZNNZZZ(3) = CLng(15)
NZNNZZZ(4) = CLng(31)
NZNNZZZ(5) = CLng(63)
NZNNZZZ(6) = CLng(127)
NZNNZZZ(7) = CLng(255)
NZNNZZZ(8) = CLng(511)
NZNNZZZ(9) = CLng(1023)
NZNNZZZ(10) = CLng(2047)
NZNNZZZ(11) = CLng(4095)
NZNNZZZ(12) = CLng(8191)
NZNNZZZ(13) = CLng(16383)
NZNNZZZ(14) = CLng(32767)
NZNNZZZ(15) = CLng(65535)
NZNNZZZ(16) = CLng(131071)
NZNNZZZ(17) = CLng(262143)
NZNNZZZ(18) = CLng(524287)
NZNNZZZ(19) = CLng(1048575)
NZNNZZZ(20) = CLng(2097151)
NZNNZZZ(21) = CLng(4194303)
NZNNZZZ(22) = CLng(8388607)
NZNNZZZ(23) = CLng(16777215)
NZNNZZZ(24) = CLng(33554431)
NZNNZZZ(25) = CLng(67108863)
NZNNZZZ(26) = CLng(134217727)
NZNNZZZ(27) = CLng(268435455)
NZNNZZZ(28) = CLng(536870911)
NZNNZZZ(29) = CLng(1073741823)
NZNNZZZ(30) = CLng(2147483647)
NZNNZZN(0) = CLng(1)
NZNNZZN(1) = CLng(2)
NZNNZZN(2) = CLng(4)
NZNNZZN(3) = CLng(8)
NZNNZZN(4) = CLng(16)
NZNNZZN(5) = CLng(32)
NZNNZZN(6) = CLng(64)
NZNNZZN(7) = CLng(128)
NZNNZZN(8) = CLng(256)
NZNNZZN(9) = CLng(512)
NZNNZZN(10) = CLng(1024)
NZNNZZN(11) = CLng(2048)
NZNNZZN(12) = CLng(4096)
NZNNZZN(13) = CLng(8192)
NZNNZZN(14) = CLng(16384)
NZNNZZN(15) = CLng(32768)
NZNNZZN(16) = CLng(65536)
NZNNZZN(17) = CLng(131072)
NZNNZZN(18) = CLng(262144)
NZNNZZN(19) = CLng(524288)
NZNNZZN(20) = CLng(1048576)
NZNNZZN(21) = CLng(2097152)
NZNNZZN(22) = CLng(4194304)
NZNNZZN(23) = CLng(8388608)
NZNNZZN(24) = CLng(16777216)
NZNNZZN(25) = CLng(33554432)
NZNNZZN(26) = CLng(67108864)
NZNNZZN(27) = CLng(134217728)
NZNNZZN(28) = CLng(268435456)
NZNNZZN(29) = CLng(536870912)
NZNNZZN(30) = CLng(1073741824)
Dim NNZZNNN
Dim NNZNZZZ
Dim NNZNZZN
Dim NNZNZNZ
Dim NNZNZNN
Dim NNZNNZZ
Dim NNZNNZN
Dim NNZNNNZ
Dim NNZNNNN
Dim NNNZZZZ
Const NNNNZZN =7
Const NNNNZNZ =12
Const NNNNZNN =17
Const NNNNNZZ =22
Const NNNNNZN =5
Const NNNNNNZ =9
Const NNNNNNN =14
Const NZZZZZZZ =20
Const NZZZZZZN =4
Const NZZZZZNZ =11
Const NZZZZZNN =16
Const NZZZZNZZ =23
Const NZZZZNZN =6
Const NZZZZNNZ =10
Const NZZZZNNN =15
Const NZZZNZZZ =21
NNZZNNN = NZNZZZZ(NZZNZZZN)
NNZNNZN = &H67452301
NNZNNNZ = &HEFCDAB89
NNZNNNN = &H98BADCFE
NNNZZZZ = &H10325476
For NNZNZZZ = 0 To UBound(NNZZNNN) Step (70 * 51 - 3554)
NNZNZZN = NNZNNZN
NNZNZNZ = NNZNNNZ
NNZNZNN = NNZNNNN
NNZNNZZ = NNNZZZZ
NZNZNZZ NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 0), NNNNZZN, &HD76AA478
NZNZNZZ NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 1), NNNNZNZ, &HE8C7B756
NZNZNZZ NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 2), NNNNZNN, &H242070DB
NZNZNZZ NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 3), NNNNNZZ, &HC1BDCEEE
NZNZNZZ NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 4), NNNNZZN, &HF57C0FAF
NZNZNZZ NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 5), NNNNZNZ, &H4787C62A
NZNZNZZ NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 6), NNNNZNN, &HA8304613
NZNZNZZ NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 7), NNNNNZZ, &HFD469501
NZNZNZZ NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 8), NNNNZZN, &H698098D8
NZNZNZZ NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 9), NNNNZNZ, &H8B44F7AF
NZNZNZZ NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 10), NNNNZNN, &HFFFF5BB1
NZNZNZZ NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 11), NNNNNZZ, &H895CD7BE
NZNZNZZ NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 12), NNNNZZN, &H6B901122
NZNZNZZ NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 13), NNNNZNZ, &HFD987193
NZNZNZZ NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 14), NNNNZNN, &HA679438E
NZNZNZZ NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 15), NNNNNZZ, &H49B40821
NZNZNZN NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 1), NNNNNZN, &HF61E2562
NZNZNZN NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 6), NNNNNNZ, &HC040B340
NZNZNZN NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 11), NNNNNNN, &H265E5A51
NZNZNZN NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 0), NZZZZZZZ, &HE9B6C7AA
NZNZNZN NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 5), NNNNNZN, &HD62F105D
NZNZNZN NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 10), NNNNNNZ, &H2441453
NZNZNZN NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 15), NNNNNNN, &HD8A1E681
NZNZNZN NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 4), NZZZZZZZ, &HE7D3FBC8
NZNZNZN NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 9), NNNNNZN, &H21E1CDE6
NZNZNZN NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 14), NNNNNNZ, &HC33707D6
NZNZNZN NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 3), NNNNNNN, &HF4D50D87
NZNZNZN NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 8), NZZZZZZZ, &H455A14ED
NZNZNZN NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 13), NNNNNZN, &HA9E3E905
NZNZNZN NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 2), NNNNNNZ, &HFCEFA3F8
NZNZNZN NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 7), NNNNNNN, &H676F02D9
NZNZNZN NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 12), NZZZZZZZ, &H8D2A4C8A
NZNZNNZ NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 5), NZZZZZZN, &HFFFA3942
NZNZNNZ NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 8), NZZZZZNZ, &H8771F681
NZNZNNZ NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 11), NZZZZZNN, &H6D9D6122
NZNZNNZ NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 14), NZZZZNZZ, &HFDE5380C
NZNZNNZ NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 1), NZZZZZZN, &HA4BEEA44
NZNZNNZ NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 4), NZZZZZNZ, &H4BDECFA9
NZNZNNZ NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 7), NZZZZZNN, &HF6BB4B60
NZNZNNZ NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 10), NZZZZNZZ, &HBEBFBC70
NZNZNNZ NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 13), NZZZZZZN, &H289B7EC6
NZNZNNZ NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 0), NZZZZZNZ, &HEAA127FA
NZNZNNZ NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 3), NZZZZZNN, &HD4EF3085
NZNZNNZ NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 6), NZZZZNZZ, &H4881D05
NZNZNNZ NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 9), NZZZZZZN, &HD9D4D039
NZNZNNZ NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 12), NZZZZZNZ, &HE6DB99E5
NZNZNNZ NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 15), NZZZZZNN, &H1FA27CF8
NZNZNNZ NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 2), NZZZZNZZ, &HC4AC5665
NZNZNNN NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 0), NZZZZNZN, &HF4292244
NZNZNNN NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 7), NZZZZNNZ, &H432AFF97
NZNZNNN NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 14), NZZZZNNN, &HAB9423A7
NZNZNNN NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 5), NZZZNZZZ, &HFC93A039
NZNZNNN NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 12), NZZZZNZN, &H655B59C3
NZNZNNN NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 3), NZZZZNNZ, &H8F0CCC92
NZNZNNN NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 10), NZZZZNNN, &HFFEFF47D
NZNZNNN NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 1), NZZZNZZZ, &H85845DD1
NZNZNNN NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 8), NZZZZNZN, &H6FA87E4F
NZNZNNN NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 15), NZZZZNNZ, &HFE2CE6E0
NZNZNNN NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 6), NZZZZNNN, &HA3014314
NZNZNNN NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 13), NZZZNZZZ, &H4E0811A1
NZNZNNN NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNZZNNN(NNZNZZZ + 4), NZZZZNZN, &HF7537E82
NZNZNNN NNNZZZZ, NNZNNZN, NNZNNNZ, NNZNNNN, NNZZNNN(NNZNZZZ + 11), NZZZZNNZ, &HBD3AF235
NZNZNNN NNZNNNN, NNNZZZZ, NNZNNZN, NNZNNNZ, NNZZNNN(NNZNZZZ + 2), NZZZZNNN, &H2AD7D2BB
NZNZNNN NNZNNNZ, NNZNNNN, NNNZZZZ, NNZNNZN, NNZZNNN(NNZNZZZ + 9), NZZZNZZZ, &HEB86D391
NNZNNZN = NZZNZNN(NNZNNZN, NNZNZZN)
NNZNNNZ = NZZNZNN(NNZNNNZ, NNZNZNZ)
NNZNNNN = NZZNZNN(NNZNNNN, NNZNZNN)
NNNZZZZ = NZZNZNN(NNNZZZZ, NNZNNZZ)
Next
NZNZZNZ=LCase(NZNZZZN(NNZNNNZ) & NZNZZZN(NNZNNNN))
End Function
Function NZNZZNN(ByVal NNZNNNN)
Dim NNNZZZN, NNNZZNZ, NNNZZNN
NNZNNNN = Replace(NNZNNNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNZZNZ = 1 To Len(NNZNNNN)
If NNNZZNZ <> NNNZZNN Then
NNNZZZN = AscW(Mid(NNZNNNN, NNNZZNZ, 1))
If NNNZZZN >= 33 And NNNZZZN <= 79 Then
NZNZZNN = NZNZZNN & Chr(NNNZZZN + 47)
ElseIf NNNZZZN >= 80 And NNNZZZN <= 126 Then
NZNZZNN = NZNZZNN & Chr(NNNZZZN - 47)
Else
NNNZZNN = NNNZZNZ + 1
If Mid(NNZNNNN, NNNZZNN, 1) = Chr(64) Then NZNZZNN = NZNZZNN & ChrW(NNNZZZN + 5) Else NZNZZNN = NZNZZNN & Mid(NNZNNNN, NNNZZNZ, 1)
End If
End If
Next
End Function
%>