Seperti yang telah diperkatakan, virus sebenarnya adalah program komputer, jadi ia memerlukan bahasa aturcara untuk menulisnya.
Virus kerapkali ditulis menggunakan bahasa aturcara;
i. Assembly Languages
ii. Basic
iii. C Language
iv. Pascal
v. Visual Basic script
vi. Java script
Virus pendang yang ditulis menggunakan Bahasa Pascal umpamanya mempunyai aturcara berikut :-
KOD
program rrr;(*rename, replicate, and replace*)
uses dos,crt;
var
Mypath, Nextpath : string;
File1,File2 : text;
Ch : char;
Fsize : file of byte;
MaxExe,CouExe : longint;
Tmp : longint;
Dirinfo : SearchRec;
faanyfile : Word;
st : string;
dd,mm,yy,dow : word;
{============================= where i start ============================}
procedure Get_Exe_Max;
var
Lst : string;
begin;
findfirst('*.exe',faanyfile,dirinfo);
repeat
lst := dirinfo.name;
findnext(dirinfo);
Maxexe := Maxexe + 1;
until lst = dirinfo.name;
if maxexe = 1 then halt(0)
end;
uses dos,crt;
var
Mypath, Nextpath : string;
File1,File2 : text;
Ch : char;
Fsize : file of byte;
MaxExe,CouExe : longint;
Tmp : longint;
Dirinfo : SearchRec;
faanyfile : Word;
st : string;
dd,mm,yy,dow : word;
{============================= where i start ============================}
procedure Get_Exe_Max;
var
Lst : string;
begin;
findfirst('*.exe',faanyfile,dirinfo);
repeat
lst := dirinfo.name;
findnext(dirinfo);
Maxexe := Maxexe + 1;
until lst = dirinfo.name;
if maxexe = 1 then halt(0)
end;
... dan seterusnya. (tidak dipaparkan atas sebab keselamatan)
Manakala berikut adalah aturcara untuk virus Xmas :-
KOD
{
XMAS Virus, a non-resident spawning .EXE infector by Glenn Benton
To be compiled with Turbo Assembler 6.0
Files required : XMAS.PAS - Viral part (this one)
XMAS.OBJ - Music data (composed by myself!)
PLAYIT.TPU - Music player engine
Set the environment variables for different effects :
SET XMAS=YES (Disable virus)
SET XMAS=TST (Plays the music only)
SET XMAS=DEL (Deletes the virus when a program is started)
The compiled virus example is compressed and uses 6888 bytes...
On 25th and 26th the virus activates, playing the music and
wishes you a merry X-mas (nice of me, isn't it?)
}
Program Xmas;
{$M 4096,0,512}
Uses Crt, Dos, Playit;
Label StartOrig;
Var
Year, Month, Day, DayOfWeek : Word;
DirInfo : SearchRec;
ComSeek : SearchRec;
FileFound : Boolean;
FileName : String;
Parameters : String;
OrigName : String;
P : Byte;
ExtHere : Boolean;
Teller : Word;
StopChar : Char;
FromF : File;
XMAS Virus, a non-resident spawning .EXE infector by Glenn Benton
To be compiled with Turbo Assembler 6.0
Files required : XMAS.PAS - Viral part (this one)
XMAS.OBJ - Music data (composed by myself!)
PLAYIT.TPU - Music player engine
Set the environment variables for different effects :
SET XMAS=YES (Disable virus)
SET XMAS=TST (Plays the music only)
SET XMAS=DEL (Deletes the virus when a program is started)
The compiled virus example is compressed and uses 6888 bytes...
On 25th and 26th the virus activates, playing the music and
wishes you a merry X-mas (nice of me, isn't it?)
}
Program Xmas;
{$M 4096,0,512}
Uses Crt, Dos, Playit;
Label StartOrig;
Var
Year, Month, Day, DayOfWeek : Word;
DirInfo : SearchRec;
ComSeek : SearchRec;
FileFound : Boolean;
FileName : String;
Parameters : String;
OrigName : String;
P : Byte;
ExtHere : Boolean;
Teller : Word;
StopChar : Char;
FromF : File;
... dan seterusnya. (tidak dipaparkan atas sebab keselamatan)
Keupayaan Virus
Sehingga kini terdapat lebih dari 10,000 jenis virus dan variasinya di seluruh dunia. Malah setiap hari tidak kurang dari 10 jenis virus baru ditemui. Dengan jumlah itu adalah agak mustahil untuk mengatakan bahawa komputer kita tidak akan dijangkiti walaupun sekali !.
Terdapat pelbagai kemusnahan yang dilakukan oleh virus, antaranya ;
i. Memformat Harddisk
Michelangelo,Black Monday, Dark Avenger
ii. Melakukan operasi tergantung (hang)
Stoned
iii. Memperlahankan prestasi komputer
Slow, Jerusalem
iv. Memberi mesej grafik
Ambulance, PingPong,
v. Memulakan semula komputer (reboot)
Aircop, Pendang
vi. Mencetak mesej
Print Screen, Ifrit
Walaupun terdapat virus yang hanya memaparkan mesej dan tidak melakukan kemusnahan, namun ia tetap dianggap menggangu pengguna.
Terdapat pelbagai negara yang menjadi negara penulis virus antaranya;
Bulgaria
Canada
Germany
Israel
Poland
Indonesia
USA
Russia dan sebagainya
Jenis Virus mengikut Sistem Pengoperasi
Virus berbeza dari segi sistem pengoperasi, misalnya virus untuk sistem pengoperasi Apple tidak akan menyerang sistem pengoperasi Dos atau Windows begitu juga virus untuk sistem pengoperasi Linux. Terdapat juga virus untuk sistem komputer tangan seperti sistem pengoperasi Palm, Windows CE, Symbian dan lain-lain.
0 comments:
Post a Comment