Malicious Office (OOXML) / .XLSX — malware analysis report

Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
Private Declare PtrSafe Sub j8mvh3iuh9s4jo1 Lib "ScDPR_xlsm_64.dll" (ByRef Cancel As Boolean)
#Else
Private Declare Sub j8mvh3iuh9s4jo1 Lib "ScDPR_xlsm_64.dll" Alias "j8mvh3iuh9s4jo1@4" (ByRef Cancel As Boolean)
#End If
Private Sub Workbook_Open()
[DNXVBC_COMPILED_VBA_DLL_INFO="MT9tZGx0OHpyZGljP1NjRFBSX3hsc20="]
k5oiu9fc59atr1x
End Sub
Private Sub Workbook_BeforeClose(ByRef Cancel As Boolean)
If t5pby1ga2ko1() Then
j8mvh3iuh9s4jo1 Cancel
End If
End Sub


Attribute VB_Name = "Hoja1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If Win64 Then
Private Declare PtrSafe Sub l8jou6f6n7sqmos Lib "ScDPR_xlsm_64.dll" Alias "n8wnetpr9" (ByVal Target As Range)
Private Declare PtrSafe Sub f0t8mhi2nq Lib "ScDPR_xlsm_64.dll" Alias "o3khjfijtv4zk" (Optional ByRef flag As Boolean)
Private Declare PtrSafe Sub i0i5ok8zf Lib "ScDPR_xlsm_64.dll" Alias "t3i7tcsyu0rd0" (Optional ByRef flag As Boolean)
Private Declare PtrSafe Sub q5dpgwm0 Lib "ScDPR_xlsm_64.dll" Alias "x1z8lsvprgh0" (ByVal Target As Range)
#Else
Private Declare Sub l8jou6f6n7sqmos Lib "ScDPR_xlsm_64.dll" Alias "n8wnetpr9@4" (ByVal Target As Range)
Private Declare Sub f0t8mhi2nq Lib "ScDPR_xlsm_64.dll" Alias "o3khjfijtv4zk@4" (Optional ByRef flag As Boolean)
Private Declare Sub i0i5ok8zf Lib "ScDPR_xlsm_64.dll" Alias "t3i7tcsyu0rd0@4" (Optional ByRef flag As Boolean)
Private Declare Sub q5dpgwm0 Lib "ScDPR_xlsm_64.dll" Alias "x1z8lsvprgh0@4" (ByVal Target As Range)
#End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
l8jou6f6n7sqmos Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
q5dpgwm0 Target
End Sub
Public Sub Boton1_Click(Optional ByRef flag As Boolean)
f0t8mhi2nq flag
End Sub
Public Sub Boton2_Click(Optional ByRef flag As Boolean)
i0i5ok8zf flag
End Sub


Attribute VB_Name = "Hoja3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Hoja2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Hoja4"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "ReporteDiario"
#If Win64 Then
Private Declare PtrSafe Sub w3hwdfdh25z Lib "ScDPR_xlsm_64.dll" Alias "a6hxrfw5" (ByRef index As Integer, ByRef plantName As Variant)
Private Declare PtrSafe Sub w1w4mrpl6xpcrnm Lib "ScDPR_xlsm_64.dll" Alias "k4yxgovu6hr420n" (ByRef index As Integer, ByRef plantName As Variant, ByRef ocultar As Boolean)
Private Declare PtrSafe Sub d7dh6f3ks80 Lib "ScDPR_xlsm_64.dll" Alias "p2nxed9ek9v0" (Optional ByRef flag As Boolean)
Private Declare PtrSafe Sub v3ntrl9lhniw Lib "ScDPR_xlsm_64.dll" Alias "s1hi4l7c3cr7f" (ByRef index As Integer, ByRef plantName As Variant)
Private Declare PtrSafe Sub t6fbir6te0vuvai Lib "ScDPR_xlsm_64.dll" Alias "v5p13hw4b2wmxsh" (ByRef index As Integer, ByRef plantName As Variant)
Private Declare PtrSafe Sub u4x2hkc5o Lib "ScDPR_xlsm_64.dll" Alias "z0da8k5y6i" (ByRef index As Integer, ByRef plantName As Variant, ByRef ocultar As Boolean)
#Else
Private Declare Sub w3hwdfdh25z Lib "ScDPR_xlsm_64.dll" Alias "a6hxrfw5@8" (ByRef index As Integer,ByRef plantName As Variant)
Private Declare Sub w1w4mrpl6xpcrnm Lib "ScDPR_xlsm_64.dll" Alias "k4yxgovu6hr420n@12" (ByRef index As Integer,ByRef plantName As Variant,ByRef ocultar As Boolean)
Private Declare Sub d7dh6f3ks80 Lib "ScDPR_xlsm_64.dll" Alias "p2nxed9ek9v0@4" (Optional ByRef flag As Boolean)
Private Declare Sub v3ntrl9lhniw Lib "ScDPR_xlsm_64.dll" Alias "s1hi4l7c3cr7f@8" (ByRef index As Integer,ByRef plantName As Variant)
Private Declare Sub t6fbir6te0vuvai Lib "ScDPR_xlsm_64.dll" Alias "v5p13hw4b2wmxsh@8" (ByRef index As Integer,ByRef plantName As Variant)
Private Declare Sub u4x2hkc5o Lib "ScDPR_xlsm_64.dll" Alias "z0da8k5y6i@12" (ByRef index As Integer,ByRef plantName As Variant,ByRef ocultar As Boolean)
#End If
Option Explicit
Public Sub RetocarReporteDiario(Optional ByRef flag As Boolean)
d7dh6f3ks80 flag
End Sub
Private Sub RetocarHoraAcopleDesacople(ByRef index As Integer, ByRef plantName As String)
w3hwdfdh25z index, plantName
End Sub
Private Sub RetocarIncidenciaProduccion(ByRef index As Integer, ByRef plantName As String)
v3ntrl9lhniw index, plantName
End Sub
Private Sub RetocarIncidenciaSeguridad(ByRef index As Integer, ByRef plantName As String)
t6fbir6te0vuvai index, plantName
End Sub
Private Sub ActuarIncidenciaProduccion(ByRef index As Integer, ByRef plantName As String, ByRef ocultar As Boolean)
w1w4mrpl6xpcrnm index, plantName, ocultar
End Sub
Private Sub ActuarIncidenciaSeguridad(ByRef index As Integer, ByRef plantName As String, ByRef ocultar As Boolean)
u4x2hkc5o index, plantName, ocultar
End Sub

Attribute VB_Name = "Hoja6"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Hoja8"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "frm_lcf_ProgressBar"
Attribute VB_Base = "0{7DEE1428-7642-419D-B916-70924DF3EAE1}{BD3A726E-C92E-4A5F-BAB5-44FABD364562}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
#If Win64 Then
Private Declare PtrSafe Sub g0anuld5cn63pq Lib "ScDPR_xlsm_64.dll" Alias "b7m6g4ldjqmszoa" (ByVal l0hwevi79tk1r As Object, ByRef vMax As Long, Optional ByRef vType As Integer, Optional ByRef vCaption As Variant)
Private Declare PtrSafe Sub j3wsj682038zm Lib "ScDPR_xlsm_64.dll" Alias "v0s6to4i" (ByVal l0hwevi79tk1r As Object)
Private Declare PtrSafe Sub m7raqonk6jn2v Lib "ScDPR_xlsm_64.dll" Alias "x3trwulmr7s" (ByVal l0hwevi79tk1r As Object)
Private Declare PtrSafe Sub u2y2xifgnxz284 Lib "ScDPR_xlsm_64.dll" Alias "z4wxfvo5xuv2n" (ByVal l0hwevi79tk1r As Object, Optional ByRef vIncrease As Long)
#Else
Private Declare Sub g0anuld5cn63pq Lib "ScDPR_xlsm_64.dll" Alias "b7m6g4ldjqmszoa@16" (ByVal l0hwevi79tk1r As Object,ByRef vMax As Long,Optional ByRef vType As Integer,Optional ByRef vCaption As Variant)
Private Declare Sub j3wsj682038zm Lib "ScDPR_xlsm_64.dll" Alias "v0s6to4i@4" (ByVal l0hwevi79tk1r As Object)
Private Declare Sub m7raqonk6jn2v Lib "ScDPR_xlsm_64.dll" Alias "x3trwulmr7s@4" (ByVal l0hwevi79tk1r As Object)
Private Declare Sub u2y2xifgnxz284 Lib "ScDPR_xlsm_64.dll" Alias "z4wxfvo5xuv2n@8" (ByVal l0hwevi79tk1r As Object,Optional ByRef vIncrease As Long)
#End If
Option Explicit
Public Sub Initialize(ByRef vMax As Long, Optional ByRef vType As Integer = 1, Optional ByRef vCaption As String = "")
g0anuld5cn63pq Me, vMax, vType, vCaption
End Sub
Public Sub Increase(Optional ByRef vIncrease As Long = 1)
u2y2xifgnxz284 Me, vIncrease
End Sub
Private Sub UserForm_Terminate()
m7raqonk6jn2v Me
End Sub
Private Sub UserForm_Initialize()
j3wsj682038zm Me
End Sub


Attribute VB_Name = "GeneralUtilities"
#If Win64 Then
Private Declare PtrSafe Function t1qn3c7hj7nq Lib "ScDPR_xlsm_64.dll" Alias "c6uqy0lculp4xq" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function d6qn89t2qd0qx Lib "ScDPR_xlsm_64.dll" Alias "h8b9hxvolj5c" (ByRef Arr As Variant) As Variant
Private Declare PtrSafe Function y2jm9av1fc1n Lib "ScDPR_xlsm_64.dll" Alias "k8w92o16a" (ByRef currentDate As Date) As Variant
Private Declare PtrSafe Function k5h0oucjekp3a79 Lib "ScDPR_xlsm_64.dll" Alias "l0xjfaje2n7" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function h5uqs31ti90x6 Lib "ScDPR_xlsm_64.dll" Alias "l3d57f6hv" (ByVal strEmailAddress As Variant) As Variant
Private Declare PtrSafe Function j4bixp2mp35oyhp Lib "ScDPR_xlsm_64.dll" Alias "m4ctl9unabc6" (ByVal texto As Variant) As Variant
Private Declare PtrSafe Function n7pdmntgcglc5 Lib "ScDPR_xlsm_64.dll" Alias "q6t2xq20amk4s" (ByRef year As Long, ByRef month As Long) As Variant
Private Declare PtrSafe Function t4rmz438cso Lib "ScDPR_xlsm_64.dll" Alias "t2a9zozaycu671m" (ByRef mask As Variant, ParamArray tokens()) As Variant
Private Declare PtrSafe Function n2t8oitbf Lib "ScDPR_xlsm_64.dll" Alias "x3wskga9i" (ByRef currentDate As Date) As Variant
#Else
Private Declare Function t1qn3c7hj7nq Lib "ScDPR_xlsm_64.dll" Alias "c6uqy0lculp4xq@4" (ByRef plant As Long) As Variant
Private Declare Function d6qn89t2qd0qx Lib "ScDPR_xlsm_64.dll" Alias "h8b9hxvolj5c@4" (ByRef Arr As Variant) As Variant
Private Declare Function y2jm9av1fc1n Lib "ScDPR_xlsm_64.dll" Alias "k8w92o16a@4" (ByRef currentDate As Date) As Variant
Private Declare Function k5h0oucjekp3a79 Lib "ScDPR_xlsm_64.dll" Alias "l0xjfaje2n7@4" (ByRef plant As Long) As Variant
Private Declare Function h5uqs31ti90x6 Lib "ScDPR_xlsm_64.dll" Alias "l3d57f6hv@16" (ByVal strEmailAddress As Variant) As Variant
Private Declare Function j4bixp2mp35oyhp Lib "ScDPR_xlsm_64.dll" Alias "m4ctl9unabc6@16" (ByVal texto As Variant) As Variant
Private Declare Function n7pdmntgcglc5 Lib "ScDPR_xlsm_64.dll" Alias "q6t2xq20amk4s@8" (ByRef year As Long,ByRef month As Long) As Variant
Private Declare Function t4rmz438cso Lib "ScDPR_xlsm_64.dll" Alias "t2a9zozaycu671m@8" (ByRef mask As Variant,ParamArray tokens() ) As Variant
Private Declare Function n2t8oitbf Lib "ScDPR_xlsm_64.dll" Alias "x3wskga9i@4" (ByRef currentDate As Date) As Variant
#End If
Option Explicit
Public Function GetTimeZone(ByRef currentDate As Date) As Integer
GetTimeZone = y2jm9av1fc1n(currentDate)
End Function
Private Function GetSummerTime(ByRef currentDate As Date) As Long
GetSummerTime = n2t8oitbf(currentDate)
End Function
Private Function LastSunday(ByRef year As Long, ByRef month As Long) As Date
LastSunday = n7pdmntgcglc5(year, month)
End Function
Public Function GetPlantName(ByRef plant As Long) As String
GetPlantName = k5h0oucjekp3a79(plant)
End Function
Public Function GetSimulationPlantName(ByRef plant As Long) As String
GetSimulationPlantName = t1qn3c7hj7nq(plant)
End Function
Public Function IsValidEmail(ByVal strEmailAddress As String) As Boolean
IsValidEmail = h5uqs31ti90x6(strEmailAddress)
End Function
Public Function EliminarEspaciosTexto(ByVal texto As String) As String
EliminarEspaciosTexto = j4bixp2mp35oyhp(texto)
End Function
Public Function Printf(ByRef mask As String, ParamArray tokens()) As String
Printf = t4rmz438cso(mask, tokens)
End Function
Public Function EsArrayVacio(ByRef Arr As Variant) As Boolean
EsArrayVacio = d6qn89t2qd0qx(Arr)
End Function

Attribute VB_Name = "TechnicalModel"
#If Win64 Then
Private Declare PtrSafe Function d0kd3s0h Lib "ScDPR_xlsm_64.dll" Alias "b0iqx0kj" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function p6cbavfz2ncx Lib "ScDPR_xlsm_64.dll" Alias "e2leznb6esr" (ByRef plant As Long) As Variant
Private Declare PtrSafe Sub s1bx4dedlcxgs Lib "ScDPR_xlsm_64.dll" Alias "g7lf1wcilwde" (ByRef copysheet As Variant, ByRef pastesheet As Variant, ByRef copyRange As Variant, ByRef pasteRange As Variant)
Private Declare PtrSafe Function f1gh32bd2 Lib "ScDPR_xlsm_64.dll" Alias "j0uf87zvl9sdlt" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function s5nc1qk3law Lib "ScDPR_xlsm_64.dll" Alias "l0j6a3xwvg" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function p8eykhsr9vz Lib "ScDPR_xlsm_64.dll" Alias "m1lsycvky8" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function o3lqnjuwb1 Lib "ScDPR_xlsm_64.dll" Alias "o3vi78mr" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function f6dr9gtryjc4l Lib "ScDPR_xlsm_64.dll" Alias "t4oai830n" () As Variant
Private Declare PtrSafe Function b8z7yod18g6xv Lib "ScDPR_xlsm_64.dll" Alias "t5kenb5f0ve" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function f6nav4rpxgqo8 Lib "ScDPR_xlsm_64.dll" Alias "v5hlh7gi7n65ga" (ByRef plant As Long) As Variant
Private Declare PtrSafe Function d1nru74o8 Lib "ScDPR_xlsm_64.dll" Alias "z3i9vuxurt1nt" (Optional ByRef flag As Boolean) As Variant
#Else
Private Declare Function d0kd3s0h Lib "ScDPR_xlsm_64.dll" Alias "b0iqx0kj@4" (ByRef plant As Long) As Variant
Private Declare Function p6cbavfz2ncx Lib "ScDPR_xlsm_64.dll" Alias "e2leznb6esr@4" (ByRef plant As Long) As Variant
Private Declare Sub s1bx4dedlcxgs Lib "ScDPR_xlsm_64.dll" Alias "g7lf1wcilwde@16" (ByRef copysheet As Variant,ByRef pastesheet As Variant,ByRef copyRange As Variant,ByRef pasteRange As Variant)
Private Declare Function f1gh32bd2 Lib "ScDPR_xlsm_64.dll" Alias "j0uf87zvl9sdlt@4" (ByRef plant As Long) As Variant
Private Declare Function s5nc1qk3law Lib "ScDPR_xlsm_64.dll" Alias "l0j6a3xwvg@4" (ByRef plant As Long) As Variant
Private Declare Function p8eykhsr9vz Lib "ScDPR_xlsm_64.dll" Alias "m1lsycvky8@4" (ByRef plant As Long) As Variant
Private Declare Function o3lqnjuwb1 Lib "ScDPR_xlsm_64.dll" Alias "o3vi78mr@4" (ByRef plant As Long) As Variant
Private Declare Function f6dr9gtryjc4l Lib "ScDPR_xlsm_64.dll" Alias "t4oai830n@0" () As Variant
Private Declare Function b8z7yod18g6xv Lib "ScDPR_xlsm_64.dll" Alias "t5kenb5f0ve@4" (ByRef plant As Long) As Variant
Private Declare Function f6nav4rpxgqo8 Lib "ScDPR_xlsm_64.dll" Alias "v5hlh7gi7n65ga@4" (ByRef plant As Long) As Variant
Private Declare Function d1nru74o8 Lib "ScDPR_xlsm_64.dll" Alias "z3i9vuxurt1nt@4" (Optional ByRef flag As Boolean) As Variant
#End If
Option Explicit
Public Function EjecutaModelo(Optional ByRef flag As Boolean)
EjecutaModelo = d1nru74o8(flag)
End Function
Private Function EjecutaModeloPlanta(ByRef plant As Long)
EjecutaModeloPlanta = b8z7yod18g6xv(plant)
End Function
Private Function GetIterSheetName(ByRef plant As Long) As String
GetIterSheetName = p6cbavfz2ncx(plant)
End Function
Private Function GetSfInitTemp(ByRef plant As Long) As Double
GetSfInitTemp = p8eykhsr9vz(plant)
End Function
Private Function GetSgInitTemp(ByRef plant As Long) As Double
GetSgInitTemp = d0kd3s0h(plant)
End Function
Private Function GetHpTbShellTemp(ByRef plant As Long) As Double
GetHpTbShellTemp = o3lqnjuwb1(plant)
End Function
Private Function GetLpTbShellTemp(ByRef plant As Long) As Double
GetLpTbShellTemp = f6nav4rpxgqo8(plant)
End Function
Private Function GetMaxPower() As Double
GetMaxPower = f6dr9gtryjc4l()
End Function
Private Function GetExpectedMirrorReflectivity(ByRef plant As Long) As Double
GetExpectedMirrorReflectivity = f1gh32bd2(plant)
End Function
Private Function GetMirrorReflectivity(ByRef plant As Long) As Double
GetMirrorReflectivity = s5nc1qk3law(plant)
End Function
Private Sub CopyPasteColumn(ByRef copysheet As String, ByRef pastesheet As String, ByRef copyRange As String, ByRef pasteRange As String)
s1bx4dedlcxgs copysheet, pastesheet, copyRange, pasteRange
End Sub

Attribute VB_Name = "Constants"
Option Explicit

Attribute VB_Name = "mdlt8zrdic"
Option Private Module
#If Win64 Then
Private Declare PtrSafe Function SetThisWbk Lib "ScDPR_xlsm_64.dll" Alias "SetThisWorkbook" (ByVal twbk As Object) As Long
Private Declare PtrSafe Function n7c0ksa482s3w Lib "ScDPR_xlsm_64.dll" (ByVal i As Long, ByVal obj As Object) As Long
Private Declare PtrSafe Function l7ugjfmlz7 Lib "ScDPR_xlsm_64.dll" (ByVal i As Long, ByVal mp As LongPtr) As Long
Private Declare PtrSafe Function h2mwpkc2kiw6ci Lib "ScDPR_xlsm_64.dll" () As Variant
Private Declare PtrSafe Sub f2e0gi4n9o Lib "ScDPR_xlsm_64.dll" (ByVal dst As Any, ByVal src As LongPtr, ByVal sz As Long)
Private Declare PtrSafe Function k7hne28uf9jsf Lib "ScDPR_xlsm_64.dll" (ByRef p() As Any) As LongPtr
Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal libFileName As String) As LongPtr
Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long
Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As LongPtr
Private Declare PtrSafe Function SHGetFolderPath Lib "shell32" Alias "SHGetFolderPathA" (ByVal hWnd As Long, ByVal csidl As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As String) As Long
#Else
Private Declare Function SetThisWbk Lib "ScDPR_xlsm_64.dll" Alias "SetThisWorkbook@4" (ByVal twbk As Object) As Long
Private Declare Function n7c0ksa482s3w Lib "ScDPR_xlsm_64.dll" Alias "n7c0ksa482s3w@8" (ByVal i As Long,ByVal obj As Object) As Long
Private Declare Function l7ugjfmlz7 Lib "ScDPR_xlsm_64.dll" Alias "l7ugjfmlz7@8" (ByVal i As Long,ByVal mp As Long) As Long
Private Declare Function h2mwpkc2kiw6ci Lib "ScDPR_xlsm_64.dll" Alias "h2mwpkc2kiw6ci@0" () As Variant
Private Declare Sub f2e0gi4n9o Lib "ScDPR_xlsm_64.dll" Alias "f2e0gi4n9o@12" (ByVal dst As Any,ByVal src As Long,ByVal sz As Long)
Private Declare Function k7hne28uf9jsf Lib "ScDPR_xlsm_64.dll" Alias "k7hne28uf9jsf@4" (ByRef p() As Any) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal libFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function SHGetFolderPath Lib "shell32" Alias "SHGetFolderPathA" (ByVal hWnd As Long,ByVal csidl As Long,ByVal hToken As Long,ByVal dwFlags As Long,ByVal pszPath As String) As Long
#End If
Private Function v3td52b6ixne() As String
v3td52b6ixne = ThisWorkbook.Path + "\Support\PMI"
End Function
Private Function p3n4ho790() As String
On Error Resume Next
Const dllName = "\ScDPR_xlsm_64.dll"
p3n4ho790 = ThisWorkbook.Path + dllName
If Dir(p3n4ho790) = "" Then
p3n4ho790 = v3td52b6ixne + dllName
End If
End Function
Public Sub z6t6u73r7frabh()
l7ugjfmlz7 1&, AddressOf u2p7w8jk
l7ugjfmlz7 5&, AddressOf e4uwb8lyg92
l7ugjfmlz7 3&, AddressOf m5yi73iqih6oa
l7ugjfmlz7 2&, AddressOf k3upoew97
l7ugjfmlz7 4&, AddressOf w6bl5zi9ern
End Sub
Public Sub k5oiu9fc59atr1x()
#If Win64 Then
Dim hModule As LongPtr
Dim dllPath As String
On Error Resume Next
dllPath = p3n4ho790()
If InStr(1, dllPath, "https://") = 1 Then
Dim msg As String
msg = "The compiled workbook files have an internet location:"
msg = msg & Chr(13)
msg = msg & ThisWorkbook.FullName
msg = msg & Chr(13)
msg = msg & dllPath
msg = msg & Chr(13)
msg = msg & Chr(13)
msg = msg & "To open workbook please move the files to the local hard drive folder."
MsgBox msg, vbExclamation Or vbOKOnly
GoTo qpnt
End If
hModule = GetModuleHandle(dllPath)
If hModule = 0& Then
hModule = LoadLibrary(dllPath)
Else
SetThisWbk Nothing
End If
If hModule = 0 Then
MsgBox "Cannot load '" & dllPath & "'"
ThisWorkbook.Close False
Else
z6t6u73r7frabh
If SetThisWbk(ThisWorkbook) Then
n7c0ksa482s3w 3&, Hoja1
n7c0ksa482s3w 13&, Hoja10
n7c0ksa482s3w 14&, Hoja11
n7c0ksa482s3w 5&, Hoja2
n7c0ksa482s3w 4&, Hoja3
n7c0ksa482s3w 6&, Hoja4
n7c0ksa482s3w 12&, Hoja5
n7c0ksa482s3w 7&, Hoja6
n7c0ksa482s3w 11&, Hoja7
n7c0ksa482s3w 8&, Hoja8
n7c0ksa482s3w 10&, Hoja9
n7c0ksa482s3w 2&, ThisWorkbook
ThisWorkbook.Saved = True
Else
GoTo qpnt
End If
End If
#Else
MsgBox "This workbook can work with 64 bit Excel only"
ThisWorkbook.Close False
#End If
Exit Sub
qpnt: ThisWorkbook.Close False
End Sub
Public Function t5pby1ga2ko1() As Boolean
On Error Resume Next
Const dllName = "ScDPR_xlsm_64.dll"
t5pby1ga2ko1 = GetModuleHandle(dllName) <> 0&
End Function
Public Sub z1ysriqrd0()
On Error Resume Next
If Not t5pby1ga2ko1() Then
k5oiu9fc59atr1x
End If
End Sub
#If Win64 Then
Public Function FreeCompiledDll() As Variant
Dim i As Long
Do
FreeCompiledDll = FreeLibrary(GetModuleHandle(p3n4ho790))
i = i + 1
Loop While t5pby1ga2ko1 And i < 100
End Function
#End If
Private Sub auto_close()
#If Win64 Then
On Error Resume Next
Dim p As Variant
ThisWorkbook.Saved = True
SetThisWbk Nothing
p = h2mwpkc2kiw6ci
FreeCompiledDll
If p <> "" Then
Kill p & "cbinrtl.dll"
RmDir p
End If
#End If
DoEvents
DoEvents
End Sub
Private Sub t6adn2meblc6x9m()
On Error Resume Next
auto_close
ThisWorkbook.Close False
End Sub
Function u2p7w8jk(ByVal d4feivqdj2qno8m As Long) As LongPtr
On Error Resume Next
Select Case d4feivqdj2qno8m
Case 9&
u2p7w8jk = VarPtr(frm_lcf_ProgressBar)
End Select
End Function
Function e4uwb8lyg92(ByVal j1ekt3ybxq As Long) As Object
Select Case j1ekt3ybxq
Case 0&
Set e4uwb8lyg92 = New frm_lcf_ProgressBar
End Select
End Function
Sub m5yi73iqih6oa(ByVal n1brm8eosig As Object)
On Error Resume Next
If Not n1brm8eosig Is Nothing Then
Unload n1brm8eosig
End If
End Sub
Function k3upoew97(ByVal z5pi7qyaxf7if1 As String, ByVal s0aw187z As String)
Set k3upoew97 = CreateObject(z5pi7qyaxf7if1, s0aw187z)
End Function
Function w6bl5zi9ern(ByVal o1gqw2izq As Variant, ByVal u5m6xvzuq As Variant, ByVal q2ir72y86zvqpf As Variant, ByRef e5juw4vgiz() As Variant) As Variant
On Error Resume Next
Dim sz As Long
sz = UBound(e5juw4vgiz) - LBound(e5juw4vgiz) + 1
Select Case sz
Case 0
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf)
Case 1
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0))
Case 2
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1))
Case 3
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1), e5juw4vgiz(2))
Case 4
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1), e5juw4vgiz(2), e5juw4vgiz(3))
Case 5
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1), e5juw4vgiz(2), e5juw4vgiz(3), e5juw4vgiz(4))
Case 6
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1), e5juw4vgiz(2), e5juw4vgiz(3), e5juw4vgiz(4), e5juw4vgiz(5))
Case 7
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1), e5juw4vgiz(2), e5juw4vgiz(3), e5juw4vgiz(4), e5juw4vgiz(5), e5juw4vgiz(6))
Case 8
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1), e5juw4vgiz(2), e5juw4vgiz(3), e5juw4vgiz(4), e5juw4vgiz(5), e5juw4vgiz(6), e5juw4vgiz(7))
Case 9
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1), e5juw4vgiz(2), e5juw4vgiz(3), e5juw4vgiz(4), e5juw4vgiz(5), e5juw4vgiz(6), e5juw4vgiz(7), e5juw4vgiz(8))
Case 10
w6bl5zi9ern = CallByName(o1gqw2izq, u5m6xvzuq, q2ir72y86zvqpf, e5juw4vgiz(0), e5juw4vgiz(1), e5juw4vgiz(2), e5juw4vgiz(3), e5juw4vgiz(4), e5juw4vgiz(5), e5juw4vgiz(6), e5juw4vgiz(7), e5juw4vgiz(8), e5juw4vgiz(9))
End Select
End Function

Attribute VB_Name = "Email"
#If Win64 Then
Private Declare PtrSafe Function s3kcr4sv9nqdemr Lib "ScDPR_xlsm_64.dll" Alias "d6pvxptmf5h0" () As Variant
Private Declare PtrSafe Sub q2fj06k72btw Lib "ScDPR_xlsm_64.dll" Alias "e8vqfonv5" (Optional ByRef flag As Boolean)
Private Declare PtrSafe Function g6hbskj8z Lib "ScDPR_xlsm_64.dll" Alias "t0mh4qaxilhm" () As Variant
Private Declare PtrSafe Function c1pbapd25 Lib "ScDPR_xlsm_64.dll" Alias "z0ob53y318" () As Variant
#Else
Private Declare Function s3kcr4sv9nqdemr Lib "ScDPR_xlsm_64.dll" Alias "d6pvxptmf5h0@0" () As Variant
Private Declare Sub q2fj06k72btw Lib "ScDPR_xlsm_64.dll" Alias "e8vqfonv5@4" (Optional ByRef flag As Boolean)
Private Declare Function g6hbskj8z Lib "ScDPR_xlsm_64.dll" Alias "t0mh4qaxilhm@0" () As Variant
Private Declare Function c1pbapd25 Lib "ScDPR_xlsm_64.dll" Alias "z0ob53y318@0" () As Variant
#End If
Option Explicit
Public Sub DisplayEmail(Optional ByRef flag As Boolean)
q2fj06k72btw flag
End Sub
Private Function ValidaDestinatariosEmail() As Boolean
ValidaDestinatariosEmail = s3kcr4sv9nqdemr()
End Function
Private Function DestinatariosEmail() As String
DestinatariosEmail = g6hbskj8z()
End Function
Private Function AsuntoEmail() As String
AsuntoEmail = c1pbapd25()
End Function

Attribute VB_Name = "CleanUp"
#If Win64 Then
Private Declare PtrSafe Sub w5ihlcoeqc9 Lib "ScDPR_xlsm_64.dll" Alias "q5zr1go8r2g" (ByRef cleanUpSheet As Variant)
Private Declare PtrSafe Sub n6k9itugim Lib "ScDPR_xlsm_64.dll" Alias "s7f5s1e548o" (ByRef cleanUpSheet As Variant, ByRef rangoParaBorar As Variant)
Private Declare PtrSafe Sub l6ysxstijw9 Lib "ScDPR_xlsm_64.dll" Alias "y4merwrcp8qti" (ByRef cleanUpSheet As Variant)
#Else
Private Declare Sub w5ihlcoeqc9 Lib "ScDPR_xlsm_64.dll" Alias "q5zr1go8r2g@4" (ByRef cleanUpSheet As Variant)
Private Declare Sub n6k9itugim Lib "ScDPR_xlsm_64.dll" Alias "s7f5s1e548o@8" (ByRef cleanUpSheet As Variant,ByRef rangoParaBorar As Variant)
Private Declare Sub l6ysxstijw9 Lib "ScDPR_xlsm_64.dll" Alias "y4merwrcp8qti@4" (ByRef cleanUpSheet As Variant)
#End If
Option Explicit
Public Sub CleanUpInputSheetMT(ByRef cleanUpSheet As String)
l6ysxstijw9 cleanUpSheet
End Sub
Public Sub CleanUpOutputSheetMT(ByRef cleanUpSheet As String)
w5ihlcoeqc9 cleanUpSheet
End Sub
Public Sub CleanUpColumn(ByRef cleanUpSheet As String, ByRef rangoParaBorar As String)
n6k9itugim cleanUpSheet, rangoParaBorar
End Sub

Attribute VB_Name = "Hoja9"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Hoja7"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Hoja5"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Hoja10"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Hoja11"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "DllUtilities"
#If Win64 Then
Private Declare PtrSafe Function w5fyghgsmpa1l Lib "ScDPR_xlsm_64.dll" Alias "m0eco0k1pon9hu" (ByRef exe As Variant, Optional ByRef WinStyle As Variant) As Variant
#Else
Private Declare Function w5fyghgsmpa1l Lib "ScDPR_xlsm_64.dll" Alias "m0eco0k1pon9hu@8" (ByRef exe As Variant,Optional ByRef WinStyle As Variant) As Variant
#End If
Option Explicit
Function RikShell(ByRef exe As String, Optional ByRef WinStyle) As Integer
RikShell = w5fyghgsmpa1l(exe, WinStyle)
End Function

Attribute VB_Name = "Types"
Option Explicit

Attribute VB_Name = "mdlqdsovap"
Option Private Module
Private Sub auto_open()
z1ysriqrd0
End Sub