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

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