Şaka Virüsü #3 | PC

Merhaba arkadaşlar önceki yazılarımızda da  sizlere şaka virüslerini  göstermiştim. Şimdi yine şaka virüsü göstereceğim.Bu virüs ile kurbanla adeta dalga geçeceksiniz.


Başlayalım

1) Yeni Metin Belgesi açıyoruz
(Bu virüsteki kodlar çok az o yüzden direk yazacağım)
2)" x=msgbox("Bilgisayarınız Hacklendi" , , "Microsoft Secuırty") "kodumuz bu Bilgisayarınız hacklendi yerine istediğiniz mesajı yazabilirsiniz. (İlk ve son tırnak işaretleri olmadan)
3)Alt alta istediğimiz kadar mesaj yazabiliriz 

Örnek kod:

x=msgbox("Bilgisayarınız Hacklendi" , , "Microsoft Secuırty")
x=msgbox("Merhaba ben Berat" , , "Microsoft Secuırty")
x=msgbox("Yani Bilgisayarını Hackleyen Kişi" , , "Microsoft Secuırty")
x=msgbox("Evet Ben Hacker'im" , , "Microsoft Secuırty")
x=msgbox("Hekır yani" , , "Microsoft Secuırty")


bu uzarda uzar
İstersek arada CD ROM'unu açabiliriz
Cd Romu 1 defa açmak için gerekli kod:
"
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >=1 then
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
End If


Cd sürücüsünü 1 kere açtıktan sonra tekrar "x=msgbox" metni yazamayız. Yani yazsakta açılmaz o yüzden bu kodu kullanacağız:

Msgbox "Bilgisayarınız yoğun saldırı altında !" , vbCritical , "Microsoft"

Bunda da yoğun saldırı yerine başka metin yazabiliriz

Daha sonra Cd sürücüyü sürekli açık bırakabiliriz (Yani kurban ne kadar kapatsada sürücü yine açılacak)

Bunun için gerekli kodumuz:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
"



Şimdi konuyu kendi kodumla özetleyeyim

-------------------------

x=msgbox("Bilgisayarınız Hacklendi" , , "Microsoft Secuırty")
x=msgbox("Merhaba ben BLACK DRAGON" , , "Microsoft Secuırty")
x=msgbox("Yani Bilgisayarını Hackleyen Kişi" , , "Microsoft Secuırty")
x=msgbox("Evet Ben Hacker'im" , , "Microsoft Secuırty")
x=msgbox("Hekır yani" , , "Microsoft Secuırty")
x=msgbox("Yalnız ben ciddiyim" , , "Microsoft Secuırty")
x=msgbox("Bu işi dalga sanmıyorsun değil mi?" , , "Microsoft Secuırty")
x=msgbox("Mesela şimdi CD sürücünü açsam inanır mısın?" , , "Microsoft Secuırty")
x=msgbox("Açayım mı?" , , "Microsoft Secuırty")
x=msgbox("Yapamaz mıyım?" , , "Microsoft Secuırty")
x=msgbox("Al o zaman" , , "Microsoft Secuırty")
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >=1 then
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

Msgbox "Bilgisayarınız yoğun saldırı altında !" , vbCritical , "Microsoft"
Msgbox "Bilgisayarın haklı yoğun saldırı altındasın" , vbCritical , "Microsoft"
Msgbox "Az önce CD sürücüyü kapattın değil mi?" , vbCritical , "Microsoft"
Msgbox "Ama şimdi kapatamayacaksın" , vbCritical , "Microsoft"
Msgbox "Bak tekrar açıyorum" , vbCritical , "Microsoft"

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
-------------------------



Bunları yazdıktan sonra metin belgesini "dosya_adı.vbs" olarak kaydediyoruz.

İkon vs değiştirelim (Ben denetim masası yaptım)

Kaydettikten sonra dosyayı kendimiz açalım (Kesinlikle zararlı değildir)

En son Cd sürücümüz kapanmayacak bunun için Görev yöneticisinden işlemi sonlandırabiliriz.

İyi eğlenceler.. SAYGILAR....