<%
'软件名称：龙品软件学生学籍网络管理系统X8.0
'源码作者：岑品雄
'官方网站：http://www.wzcen.com
'联系方式：QQ：295011549　邮箱：lxzx2488@163.com 手机号:18277450676　（只收短信，不接来电）
'请勿修改下列任何代码,以保证程序正常运行

Dim UKUKKK,UKUKKU,UKUKUK,UKUKUU,UKUUKK
Set UKUKUK=Response:Set UKUKKU=Request:Set UKUUKK=Session:Set UKUKKK=Application:Set UKUKUU=Server
If Date > CDate(UUUKKK("a_`f\`\`")) Then UKUKUK.Write UUUKKK("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UKUKUK.End
Private Const UKUUKKU =8
Private Const UKUUKUK =4
Private Const UKUUKUU =32
Private UUUUKU(30)
Private UUUUUK(30)
Private Function UKUUKU(UUKUUUK, UUKUUUU)
If UUKUUUU = 0 Then
UKUUKU = UUKUUUK
Exit Function
ElseIf UUKUUUU = 31 Then
If UUKUUUK And 1 Then
UKUUKU = &H80000000
Else
UKUUKU = (24 * 99 - 2376)
End If
Exit Function
ElseIf UUKUUUU < 0 Or UUKUUUU > 31 Then
Err.Raise 6
End If
If (UUKUUUK And UUUUUK(31 - UUKUUUU)) Then
UKUUKU = ((UUKUUUK And UUUUKU(31 - (UUKUUUU + 1))) * UUUUUK(UUKUUUU)) Or &H80000000
Else
UKUUKU = ((UUKUUUK And UUUUKU(31 - UUKUUUU)) * UUUUUK(UUKUUUU))
End If
End Function
Private Function UKUUUK(UUKUUUK, UUKUUUU)
If UUKUUUU = 0 Then
UKUUUK = UUKUUUK
Exit Function
ElseIf UUKUUUU = 31 Then
If UUKUUUK And &H80000000 Then
UKUUUK = (24 * 14 - 335)
Else
UKUUUK = (24 * 99 - 2376)
End If
Exit Function
ElseIf UUKUUUU < 0 Or UUKUUUU > 31 Then
Err.Raise 6
End If
UKUUUK = (UUKUUUK And &H7FFFFFFE) \ UUUUUK(UUKUUUU)
If (UUKUUUK And &H80000000) Then
UKUUUK = (UKUUUK Or (&H40000000 \ UUUUUK(UUKUUUU - 1)))
End If
End Function
Private Function UKUUUU(UUKUUUK, UUKUUUU)
UKUUUU = UKUUKU(UUKUUUK, UUKUUUU) Or UKUUUK(UUKUUUK, (32 - UUKUUUU))
End Function
Private Function UUKKKK(UUUKKKK, UUUKKKU)
Dim UUUUUU
Dim UKKKKKK
Dim UKKKKKU
Dim UKKKKUK
Dim UKKKKUU
UKKKKKU = UUUKKKK And &H80000000
UKKKKUK = UUUKKKU And &H80000000
UUUUUU = UUUKKKK And &H40000000
UKKKKKK = UUUKKKU And &H40000000
UKKKKUU = (UUUKKKK And &H3FFFFFFF) + (UUUKKKU And &H3FFFFFFF)
If UUUUUU And UKKKKKK Then
UKKKKUU = UKKKKUU Xor &H80000000 Xor UKKKKKU Xor UKKKKUK
ElseIf UUUUUU Or UKKKKKK Then
If UKKKKUU And &H40000000 Then
UKKKKUU = UKKKKUU Xor &HC0000000 Xor UKKKKKU Xor UKKKKUK
Else
UKKKKUU = UKKKKUU Xor &H40000000 Xor UKKKKKU Xor UKKKKUK
End If
Else
UKKKKUU = UKKKKUU Xor UKKKKKU Xor UKKKKUK
End If
UUKKKK = UKKKKUU
End Function
Private Function UUKKKU(UKKUUKK, UUUKKUK, UUUKKUU)
UUKKKU = (UKKUUKK And UUUKKUK) Or ((Not UKKUUKK) And UUUKKUU)
End Function
Private Function UUKKUK(UKKUUKK, UUUKKUK, UUUKKUU)
UUKKUK = (UKKUUKK And UUUKKUU) Or (UUUKKUK And (Not UUUKKUU))
End Function
Private Function UUKKUU(UKKUUKK, UUUKKUK, UUUKKUU)
UUKKUU = (UKKUUKK Xor UUUKKUK Xor UUUKKUU)
End Function
Private Function UUKUKK(UKKUUKK, UUUKKUK, UUUKKUU)
UUKUKK = (UUUKKUK Xor (UKKUUKK Or (Not UUUKKUU)))
End Function
Private Sub UUUKKU(UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK, UUUKUKK, UUUKUKU)
UKUKKUK = UUKKKK(UKUKKUK, UUKKKK(UUKKKK(UUKKKU(UKUKKUU, UKUKUKK, UKUKUKU), UKKUUKK), UUUKUKU))
UKUKKUK = UKUUUU(UKUKKUK, UUUKUKK)
UKUKKUK = UUKKKK(UKUKKUK, UKUKKUU)
End Sub
Private Sub UUUKUK(UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK, UUUKUKK, UUUKUKU)
UKUKKUK = UUKKKK(UKUKKUK, UUKKKK(UUKKKK(UUKKUK(UKUKKUU, UKUKUKK, UKUKUKU), UKKUUKK), UUUKUKU))
UKUKKUK = UKUUUU(UKUKKUK, UUUKUKK)
UKUKKUK = UUKKKK(UKUKKUK, UKUKKUU)
End Sub
Private Sub UUUKUU(UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK, UUUKUKK, UUUKUKU)
UKUKKUK = UUKKKK(UKUKKUK, UUKKKK(UUKKKK(UUKKUU(UKUKKUU, UKUKUKK, UKUKUKU), UKKUUKK), UUUKUKU))
UKUKKUK = UKUUUU(UKUKKUK, UUUKUKK)
UKUKKUK = UUKKKK(UKUKKUK, UKUKKUU)
End Sub
Private Sub UUUUKK(UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK, UUUKUKK, UUUKUKU)
UKUKKUK = UUKKKK(UKUKKUK, UUKKKK(UUKKKK(UUKUKK(UKUKKUU, UKUKUKK, UKUKUKU), UKKUUKK), UUUKUKU))
UKUKKUK = UKUUUU(UKUKKUK, UUUKUKK)
UKUKKUK = UUKKKK(UKUKKUK, UKUKKUU)
End Sub
Private Function UUKUKU(UUUKUUK)
Dim UKKKUKK
Dim UKKKUKU
Dim UKKKUUK()
Dim UKKKUUU
Dim UKKUKKK
Dim UKKUKKU
Const UKUUUKK =512
Const UKUUUKU =448
UKKKUKK = Len(UUUKUUK)
UKKKUKU = (((UKKKUKK + ((UKUUUKK - UKUUUKU) \ UKUUKKU)) \ (UKUUUKK \ UKUUKKU)) + 1) * (UKUUUKK \ UKUUKUU)
ReDim UKKKUUK(UKKKUKU - 1)
UKKKUUU = (24 * 99 - 2376)
UKKUKKK = (24 * 99 - 2376)
Do Until UKKUKKK >= UKKKUKK
UKKUKKU = UKKUKKK \ UKUUKUK
UKKKUUU = (UKKUKKK Mod UKUUKUK) * UKUUKKU
UKKKUUK(UKKUKKU) = UKKKUUK(UKKUKKU) Or UKUUKU(Asc(Mid(UUUKUUK, UKKUKKK + 1, 1)), UKKKUUU)
UKKUKKK = UKKUKKK + (24 * 14 - 335)
Loop
UKKUKKU = UKKUKKK \ UKUUKUK
UKKKUUU = (UKKUKKK Mod UKUUKUK) * UKUUKKU
UKKKUUK(UKKUKKU) = UKKKUUK(UKKUKKU) Or UKUUKU(&H80, UKKKUUU)
UKKKUUK(UKKKUKU - 2) = UKUUKU(UKKKUKK, 3)
UKKKUUK(UKKKUKU - 1) = UKUUUK(UKKKUKK, 29)
UUKUKU = UKKKUUK
End Function
Private Function UUKUUK(UUKUUUK)
Dim UKKUKUK
Dim UKKUKUU
For UKKUKUU = 0 To 3
UKKUKUK = UKUUUK(UUKUUUK, UKKUKUU * UKUUKKU) And UUUUKU(UKUUKKU - 1)
UUKUUK = UUKUUK & Right("0" & Hex(UKKUKUK), 2)
Next
End Function
Public Function UUKUUU(UUUKUUK)
UUUUKU(0) = CLng(1)
UUUUKU(1) = CLng(3)
UUUUKU(2) = CLng(7)
UUUUKU(3) = CLng(15)
UUUUKU(4) = CLng(31)
UUUUKU(5) = CLng(63)
UUUUKU(6) = CLng(127)
UUUUKU(7) = CLng(255)
UUUUKU(8) = CLng(511)
UUUUKU(9) = CLng(1023)
UUUUKU(10) = CLng(2047)
UUUUKU(11) = CLng(4095)
UUUUKU(12) = CLng(8191)
UUUUKU(13) = CLng(16383)
UUUUKU(14) = CLng(32767)
UUUUKU(15) = CLng(65535)
UUUUKU(16) = CLng(131071)
UUUUKU(17) = CLng(262143)
UUUUKU(18) = CLng(524287)
UUUUKU(19) = CLng(1048575)
UUUUKU(20) = CLng(2097151)
UUUUKU(21) = CLng(4194303)
UUUUKU(22) = CLng(8388607)
UUUUKU(23) = CLng(16777215)
UUUUKU(24) = CLng(33554431)
UUUUKU(25) = CLng(67108863)
UUUUKU(26) = CLng(134217727)
UUUUKU(27) = CLng(268435455)
UUUUKU(28) = CLng(536870911)
UUUUKU(29) = CLng(1073741823)
UUUUKU(30) = CLng(2147483647)
UUUUUK(0) = CLng(1)
UUUUUK(1) = CLng(2)
UUUUUK(2) = CLng(4)
UUUUUK(3) = CLng(8)
UUUUUK(4) = CLng(16)
UUUUUK(5) = CLng(32)
UUUUUK(6) = CLng(64)
UUUUUK(7) = CLng(128)
UUUUUK(8) = CLng(256)
UUUUUK(9) = CLng(512)
UUUUUK(10) = CLng(1024)
UUUUUK(11) = CLng(2048)
UUUUUK(12) = CLng(4096)
UUUUUK(13) = CLng(8192)
UUUUUK(14) = CLng(16384)
UUUUUK(15) = CLng(32768)
UUUUUK(16) = CLng(65536)
UUUUUK(17) = CLng(131072)
UUUUUK(18) = CLng(262144)
UUUUUK(19) = CLng(524288)
UUUUUK(20) = CLng(1048576)
UUUUUK(21) = CLng(2097152)
UUUUUK(22) = CLng(4194304)
UUUUUK(23) = CLng(8388608)
UUUUUK(24) = CLng(16777216)
UUUUUK(25) = CLng(33554432)
UUUUUK(26) = CLng(67108864)
UUUUUK(27) = CLng(134217728)
UUUUUK(28) = CLng(268435456)
UUUUUK(29) = CLng(536870912)
UUUUUK(30) = CLng(1073741824)
Dim UKKUUKK
Dim UKKUUKU
Dim UKKUUUK
Dim UKKUUUU
Dim UKUKKKK
Dim UKUKKKU
Dim UKUKKUK
Dim UKUKKUU
Dim UKUKUKK
Dim UKUKUKU
Const UKUUUUK =7
Const UKUUUUU =12
Const UUKKKKK =17
Const UUKKKKU =22
Const UUKKKUK =5
Const UUKKKUU =9
Const UUKKUKK =14
Const UUKKUKU =20
Const UUKKUUK =4
Const UUKKUUU =11
Const UUKUKKK =16
Const UUKUKKU =23
Const UUKUKUK =6
Const UUKUKUU =10
Const UUKUUKK =15
Const UUKUUKU =21
UKKUUKK = UUKUKU(UUUKUUK)
UKUKKUK = &H67452301
UKUKKUU = &HEFCDAB89
UKUKUKK = &H98BADCFE
UKUKUKU = &H10325476
For UKKUUKU = 0 To UBound(UKKUUKK) Step (86 * 96 - 8240)
UKKUUUK = UKUKKUK
UKKUUUU = UKUKKUU
UKUKKKK = UKUKUKK
UKUKKKU = UKUKUKU
UUUKKU UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 0), UKUUUUK, &HD76AA478
UUUKKU UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 1), UKUUUUU, &HE8C7B756
UUUKKU UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 2), UUKKKKK, &H242070DB
UUUKKU UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 3), UUKKKKU, &HC1BDCEEE
UUUKKU UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 4), UKUUUUK, &HF57C0FAF
UUUKKU UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 5), UKUUUUU, &H4787C62A
UUUKKU UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 6), UUKKKKK, &HA8304613
UUUKKU UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 7), UUKKKKU, &HFD469501
UUUKKU UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 8), UKUUUUK, &H698098D8
UUUKKU UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 9), UKUUUUU, &H8B44F7AF
UUUKKU UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 10), UUKKKKK, &HFFFF5BB1
UUUKKU UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 11), UUKKKKU, &H895CD7BE
UUUKKU UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 12), UKUUUUK, &H6B901122
UUUKKU UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 13), UKUUUUU, &HFD987193
UUUKKU UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 14), UUKKKKK, &HA679438E
UUUKKU UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 15), UUKKKKU, &H49B40821
UUUKUK UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 1), UUKKKUK, &HF61E2562
UUUKUK UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 6), UUKKKUU, &HC040B340
UUUKUK UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 11), UUKKUKK, &H265E5A51
UUUKUK UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 0), UUKKUKU, &HE9B6C7AA
UUUKUK UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 5), UUKKKUK, &HD62F105D
UUUKUK UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 10), UUKKKUU, &H2441453
UUUKUK UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 15), UUKKUKK, &HD8A1E681
UUUKUK UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 4), UUKKUKU, &HE7D3FBC8
UUUKUK UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 9), UUKKKUK, &H21E1CDE6
UUUKUK UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 14), UUKKKUU, &HC33707D6
UUUKUK UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 3), UUKKUKK, &HF4D50D87
UUUKUK UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 8), UUKKUKU, &H455A14ED
UUUKUK UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 13), UUKKKUK, &HA9E3E905
UUUKUK UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 2), UUKKKUU, &HFCEFA3F8
UUUKUK UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 7), UUKKUKK, &H676F02D9
UUUKUK UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 12), UUKKUKU, &H8D2A4C8A
UUUKUU UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 5), UUKKUUK, &HFFFA3942
UUUKUU UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 8), UUKKUUU, &H8771F681
UUUKUU UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 11), UUKUKKK, &H6D9D6122
UUUKUU UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 14), UUKUKKU, &HFDE5380C
UUUKUU UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 1), UUKKUUK, &HA4BEEA44
UUUKUU UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 4), UUKKUUU, &H4BDECFA9
UUUKUU UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 7), UUKUKKK, &HF6BB4B60
UUUKUU UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 10), UUKUKKU, &HBEBFBC70
UUUKUU UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 13), UUKKUUK, &H289B7EC6
UUUKUU UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 0), UUKKUUU, &HEAA127FA
UUUKUU UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 3), UUKUKKK, &HD4EF3085
UUUKUU UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 6), UUKUKKU, &H4881D05
UUUKUU UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 9), UUKKUUK, &HD9D4D039
UUUKUU UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 12), UUKKUUU, &HE6DB99E5
UUUKUU UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 15), UUKUKKK, &H1FA27CF8
UUUKUU UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 2), UUKUKKU, &HC4AC5665
UUUUKK UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 0), UUKUKUK, &HF4292244
UUUUKK UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 7), UUKUKUU, &H432AFF97
UUUUKK UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 14), UUKUUKK, &HAB9423A7
UUUUKK UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 5), UUKUUKU, &HFC93A039
UUUUKK UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 12), UUKUKUK, &H655B59C3
UUUUKK UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 3), UUKUKUU, &H8F0CCC92
UUUUKK UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 10), UUKUUKK, &HFFEFF47D
UUUUKK UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 1), UUKUUKU, &H85845DD1
UUUUKK UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 8), UUKUKUK, &H6FA87E4F
UUUUKK UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 15), UUKUKUU, &HFE2CE6E0
UUUUKK UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 6), UUKUUKK, &HA3014314
UUUUKK UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 13), UUKUUKU, &H4E0811A1
UUUUKK UKUKKUK, UKUKKUU, UKUKUKK, UKUKUKU, UKKUUKK(UKKUUKU + 4), UUKUKUK, &HF7537E82
UUUUKK UKUKUKU, UKUKKUK, UKUKKUU, UKUKUKK, UKKUUKK(UKKUUKU + 11), UUKUKUU, &HBD3AF235
UUUUKK UKUKUKK, UKUKUKU, UKUKKUK, UKUKKUU, UKKUUKK(UKKUUKU + 2), UUKUUKK, &H2AD7D2BB
UUUUKK UKUKKUU, UKUKUKK, UKUKUKU, UKUKKUK, UKKUUKK(UKKUUKU + 9), UUKUUKU, &HEB86D391
UKUKKUK = UUKKKK(UKUKKUK, UKKUUUK)
UKUKKUU = UUKKKK(UKUKKUU, UKKUUUU)
UKUKUKK = UUKKKK(UKUKUKK, UKUKKKK)
UKUKUKU = UUKKKK(UKUKUKU, UKUKKKU)
Next
UUKUUU=LCase(UUKUUK(UKUKKUU) & UUKUUK(UKUKUKK))
End Function
Function UUUKKK(ByVal UKUKUKK)
Dim UKUKUUK, UKUKUUU, UKUUKKK
UKUKUKK = Replace(UKUKUKK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKUKUUU = 1 To Len(UKUKUKK)
If UKUKUUU <> UKUUKKK Then
UKUKUUK = AscW(Mid(UKUKUKK, UKUKUUU, 1))
If UKUKUUK >= 33 And UKUKUUK <= 79 Then
UUUKKK = UUUKKK & Chr(UKUKUUK + 47)
ElseIf UKUKUUK >= 80 And UKUKUUK <= 126 Then
UUUKKK = UUUKKK & Chr(UKUKUUK - 47)
Else
UKUUKKK = UKUKUUU + 1
If Mid(UKUKUKK, UKUUKKK, 1) = UUUKKK("o") Then UUUKKK = UUUKKK & ChrW(UKUKUUK + 5) Else UUUKKK = UUUKKK & Mid(UKUKUKK, UKUKUUU, 1)
End If
End If
Next
End Function
%>