Merhabalar, arşivime girerken gözüme çarptı daha önceden kaydetmiş olduğum bir şaka virüsü.
Sizinle de paylaşmak istedim.
"Virüsü metin belgesine yapıştırıp, .vbs olarak kaydedin. örn; exelans.vbs"
Virüs kodları;
UYARI & NOTLAR:
--> Benim bilgisayarım "ingilizce" paket olarak kurulduğu için "bilgisayarı konuşturma kodlarını" (.Speak'tan sonra olan yerler) ingilizce olarak kaydetmişim. Siz değiştirip Türkçe'ye çevirin. Onun dışında öbür yazıları da kendinizce değiştirin.
--> CD Room'unuz bozuk ise virüsü kaydettikten sonra tıklamanızı önermiyorum çünkü dosyaya tıklayınca CD Room'unuz da durmadan açılacaktır.
--> Virüsün herhangi bir zararı yoktur, sadece eğlence amaçlı arkadaşlarınıza karşı kullanabilirsiniz. Ayrıca kodlamalar bana ait değildir.
◘ Virüsü açtıktan sonra ekrana çıkan windows bildiriler de ektedir;
Sizinle de paylaşmak istedim.
"Virüsü metin belgesine yapıştırıp, .vbs olarak kaydedin. örn; exelans.vbs"
Virüs kodları;
Kod:
CreateObject ("SAPI.SpVoice").Speak "Hello. My name is CrazyExelans. You've been hacked by me."
X = MsgBox ( "CrazyExelans Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64 , "WİNDOWS ")
CreateObject("SAPI.SpVoice" ). Speak"So you think you can stop me? hahaha what a pity! "
X = MsgBox ( "CrazyExelans Tarafından Sisteme Olan Erişiminiz Engellendi ! " , 0 + 16 , "WINDOWS ")
X = MsgBox ( "Güvenlik Duvarınız Devre Dışı Bırakıldı. " , 0 + 16 , "WINDOWS ")
X = MsgBox ( "Administratör Yetkileri Sıfırlandı. " , 0 + 48 , "WINDOWS ")
X = MsgBox ( "Yeni Kontrol Sahibi : CrazyExelans" , 0 + 64 , "WINDOWS ")
CreateObject ("SAPI.SpVoice" ).Speak" Your computer has been hacked by CrazyExelans. I'll open your the cd room so you must be clean there hahaha "
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
X = MsgBox ( "Tüm Dosyalarınız Siliniyor Onaylıyormusunuz ? " , 4 + 48 , "WINDOWS ")
X = MsgBox ( "Erişim Engellendi. " , 0 + 16 , "WINDOWS ")
X = MsgBox ( "Tüm Dosyalarınız Silindi ! " , 0 + 64 , "WINDOWS ")
X = MsgBox ( "Bilgisayar Hacker Tarafından 30 Saniye Sonra Kapanacaktır. " , 0 + 48 , "WINDOWS ")UYARI & NOTLAR:
--> Benim bilgisayarım "ingilizce" paket olarak kurulduğu için "bilgisayarı konuşturma kodlarını" (.Speak'tan sonra olan yerler) ingilizce olarak kaydetmişim. Siz değiştirip Türkçe'ye çevirin. Onun dışında öbür yazıları da kendinizce değiştirin.
--> CD Room'unuz bozuk ise virüsü kaydettikten sonra tıklamanızı önermiyorum çünkü dosyaya tıklayınca CD Room'unuz da durmadan açılacaktır.
--> Virüsün herhangi bir zararı yoktur, sadece eğlence amaçlı arkadaşlarınıza karşı kullanabilirsiniz. Ayrıca kodlamalar bana ait değildir.
◘ Virüsü açtıktan sonra ekrana çıkan windows bildiriler de ektedir;
Son düzenleme:
