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

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