Şaka Virüsü Lazım

calabanga

Yeni üye
3 May 2013
9
0
Bir arkadaşım şaka amaçlı virüs atmak istiyorum, bilgisayarına girip yazı yazmak dvdsini açıp kapatmak istiyorum hangi virüsü atabilirim? Eskiden vardı bende kaybettim. Adını da unuttum.
 

4tomx

Üye
30 May 2019
102
22
Bu arkadaşın çok anlamıyorsa bilgisayardan attığında korkabilir bunu .vbs olarak kaydet
X = MsgBox ( "İnternet Explorer Yeni sürümünü güncellemek istermisin?", 4 + 64, "Windows Update") X = MsgBox ( "Güncelleme başarısız oldu hata kodu:XC8J9!!", 0 + 16 , "Windows Update") X = MsgBox ( "Virüs.Exe adlı uzantı bilgisiyarınıza eklendi onaylıyormusunuz?", 4 + 48, "Windows") X = MsgBox ( "İşlem başarısız erişim engellendi !!", 0 + 16, "Windows") X = MsgBox ( "Bilgisiyarınız risk altında.Hızlı Tarama başlatılsınmı", 3 + 48, "Windows Security") X = MsgBox ( "Tarama başlatılamadı Virüs ele Geçirdi !", 0 + 16, "Windows") X = MsgBox ( "Windows ADMİNASÖR hesabı devreye girdi. ", 0 + 48, "Windows") X = MsgBox ( "Bilgisiyarınızdaki tüm dosyalar siliniyor onaylıyormusunuz ?. ", 4 + 64, "Warning") X = MsgBox ( "Erişim engellendi.Dosyalarınız Siliniyor.", 0 + 16, "Windows") X = MsgBox ( "Tüm Dosyalarınız Silindi. ", 0 + 64 , "Windows") X = MsgBox ( "Bilgisiyarınız Risk Altında.Sistem geri yükleme başlatılıyor", 1 + 48, "Windows") X = MsgBox ( "Virüs Sistemi ele geçirdi.Geri yükleme başlatılamıyor. ", 2 + 16 , "Windows") X = MsgBox ( "ERİŞİM ENGELLENDİ BİLGİSİYAR ÇOK BÜYÜK RİSK ALTINDA ! ", 2 + 16 , "Windows") X = MsgBox ( "Virüs CDNizi ele geçidi CD niz Açılıyor ! ", 0 + 16 , "Windows") Set owMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection
 

MolotOn

Üye
18 Haz 2021
89
21
23
Yok
Bir arkadaşım şaka amaçlı virüs atmak istiyorum, bilgisayarına girip yazı yazmak dvdsini açıp kapatmak istiyorum hangi virüsü atabilirim? Eskiden vardı bende kaybettim. Adını da unuttum.
Söylediklerini rat kullanarak yapabilirsin fakat port açık değil ise yapamıyorsun port açık değil ise şunlara bakabilirsin,

Kod:
".VBS" dosyasının içersine yazılıyordu cd-rom sürekli açıp kapıyor

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

Kod:
Bu da mouse yerlerini değiştiriyor aynı şekilde ".VBS" dosyası

set Shell = WScript.CreateObject( "WScript.Shell" )
Shell.Run ("RUNDLL32 USER32.DLL,SwapMouseButton")
 

AROCKS

Katılımcı Üye
26 Mar 2018
946
60
%appdata% ~ Crypted '
Bu konumu inceleyebilirsiniz ;

 

illerin beyi

Katılımcı Üye
2 Mar 2021
971
92
Bir arkadaşım şaka amaçlı virüs atmak istiyorum, bilgisayarına girip yazı yazmak dvdsini açıp kapatmak istiyorum hangi virüsü atabilirim? Eskiden vardı bende kaybettim. Adını da unuttum.
biraz abartılı ve tehlikeli ama buyur
 

MolotOn

Üye
18 Haz 2021
89
21
23
Yok
biraz abartılı ve tehlikeli ama buyur
notepad ile yapılan virüsler çalışmıyor sanal pc kurup denedim yani bu kodlar uzun zamandır işlevsiz notepad ile virüs yapılmaz :D , zaten anti virüsler yakalıyor boşuna uğraşmış olur
 

illerin beyi

Katılımcı Üye
2 Mar 2021
971
92
Sonsuza kadar notepad çalıştırıyor bir esprisi yok hocam bu tehlikeli bile değil :D
peki bilgisayarı kapatabilecek misin arka planda çok büyük işlem yapıldığı için alt + f4 çalışmıyor ctrl + alt + delete çalışmıyor ve gittikçe ram kullanması da artıyor ne yapacaksın bundan kurtulmanın tek yolu bilgisayarın bataryasını çıkartıp fişini çekmek ! :D
 

MolotOn

Üye
18 Haz 2021
89
21
23
Yok
peki bilgisayarı kapatabilecek misin arka planda çok büyük işlem yapıldığı için alt + f4 çalışmıyor ctrl + alt + delete çalışmıyor ve gittikçe ram kullanması da artıyor ne yapacaksın bundan kurtulmanın tek yolu bilgisayarın bataryasını çıkartıp fişini çekmek ! :D
Tamam da "Dangerous Notepad Virus!" yazıyor verdiğiniz linkte gaza geliyorsun ama çıkan virüs bilgisayarın düğmesinden kapatıp açınca düzeliyor :D harbiden tehlikeliymiş qweq
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.