.vbs ile şaka virüs kodu

[GökhanBABA]

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


Bu kodu not defterine yapıştırıp dosya>farklı kaydet>dosya adının sonunu .vbs ile bitirin sonra masa üstüne bir dosya gelecek siz sakın açmayın yoksa cd sürekli açılır.

 

[ahmettrPro]

Teşekkürler kardeş! Bununla birilerini trollerim artık...

 

[keremdogan14]

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


Bu kodu not defterine yapıştırıp dosya>farklı kaydet>dosya adının sonunu .vbs ile bitirin sonra masa üstüne bir dosya gelecek siz sakın açmayın yoksa cd sürekli açılır.

knk ben bunu yaptım ama yanlışlıkal dosyayı açtım geri nasıl düzeltirim

 

[PingKrali]

knk ben bunu yaptım ama yanlışlıkal dosyayı açtım geri nasıl düzeltirim

Aradan 4 ay geçmiş ben genede söyleyim görev yöneticisinden

 

[defacerGLD]

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


Bu kodu not defterine yapıştırıp dosya>farklı kaydet>dosya adının sonunu .vbs ile bitirin sonra masa üstüne bir dosya gelecek siz sakın açmayın yoksa cd sürekli açılır.

alıntı olduğunu yazsaydın keske



ve görev yöneticinde

wscript.exe olarak gözükür kapatında biter

Mesaj otomatik birleştirildi: 28 Haziran 2020

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

ve burdaki gibi

"Bilgisayarın haklı yoğun saldırı altındasın"

yerleri değistirince yazı da değisir

ve bu çöp uğraşmayın bile

 

[merduino]

alıntı olduğunu yazsaydın keske



ve görev yöneticinde

wscript.exe olarak gözükür kapatında biter

Mesaj otomatik birleştirildi: 28 Haziran 2020

ve burdaki gibi

yerleri değistirince yazı da değisir

ve bu çöp uğraşmayın bile

E gözükmüyo öyle bir şey

 

[defacerGLD]

E gözükmüyo öyle bir şey

eğer o yazılar geliyorsa sen görmemişşin

 

[CapScroLL]

En azından konsol uygulaması yazıp chrome falan açtırabilirsiniz, hem öğrenirsiniz hem eğlenirsiniz daha gerekli olan teknolojilerle yapın bunları.

 

[defacerGLD]

En azından konsol uygulaması yazıp chrome falan açtırabilirsiniz, hem öğrenirsiniz hem eğlenirsiniz daha gerekli olan teknolojilerle yapın bunları.

o dedğin acayip kolay daha zor örnekler daha iyi olur tek satırda bile yazılır varsayılan tarayıcı ile site açma

 

[merduino]

eğer o yazılar geliyorsa sen görmemişşin

Hayır yazılar geldi ama gözükmüyo ada göre sıraladım w ile başlayanlarda yok

Mesaj otomatik birleştirildi: 28 Haziran 2020

eğer o yazılar geliyorsa sen görmemişşin

Tm pc yi kapatınca düzeldi