Red de conocimiento del abogados - Ley de patentes - Por favor pregunte... ¿Cómo se envía el código VBS completo que creó la última vez (el que simula el virus)? Después de guardarlo, ni siquiera puede usarlo para editarlo...

Por favor pregunte... ¿Cómo se envía el código VBS completo que creó la última vez (el que simula el virus)? Después de guardarlo, ni siquiera puede usarlo para editarlo...

Archivo 1: CAutorun_1.vbs

El código es el siguiente:

''''''''''''''''' ''' Comienza el código''''''''''''''''

Set ws=CreateObject("WScript.Shell")

ws. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system\DisableTaskMgr", 0, "REG_DWORD"

MsgBox "¡Utilice el Administrador de tareas para finalizar todos los procesos de wscript.exe!", 64, " Último cerdo inteligente"

''''''''''''''''Fin del código'''''''''''''''' ' ''

Archivo 2: CAutorun_2.vbs

El código es el siguiente:

''''''''''''''' '' '''Inicio de código''''''''''''''''

En caso de error, reanudar siguiente

Establecer fso=CreateObject("Scripting .FileSystemObject")

Establecer Cx=fso.GetSpecialFolder(0)

C=fso.GetParentFolderName(Cx)

Establecer Fdrs=fso.GetFolder(C ).SubCarpetas

Para cada Fdr en Fdrs

Si fso.GetExtensionName(Fdr.Name)="exe" Entonces

fso.GetFolder(C amp. Fdr.Name).Delete(True)

Finalizar si

Siguiente

Establecer drvs=fso.Drives

Para cada drv en drvs

Si drv.DriveType=2 Entonces

fso.GetFile(drv amp; "\Autorun.inf").Delete(True)

fso. GetFile(drv amp; "\fun.xls.exe").Delete(True)

Si drv amp "\" = C Entonces

De lo contrario

Establezca Fdrs=fso.GetFolder(drv amp; "\").SubCarpetas

Para cada Fdr en Fdrs

Si fso.GetExtensionName(Fdr.Name)="exe" Entonces

Fdr.Name=fso.GetBaseName(Fdr.Name)

Finalizar si

Siguiente

Finalizar si

Finalizar si

Siguiente

fso.GetFolder(C amp; "Archivos de programa").Atributos=0

fso.GetFol

der(C amp; "Documentos y configuraciones").Attributes=0

fso.GetFolder(C amp; "WINDOWS").Attributes=0

MsgBox "Eliminación del virus de ejecución automática falsa ¡Terminado!", 64, "El cerdo más inteligente"

''''''''''''''''''Fin del código''''''''' '''''''''

Uso:

1. Ejecute "CAutorun_1.vbs";

2. finalice el proceso "wscript.exe";

3. Ejecute "CAutorun_2.vbs";

4.

Nota: Lo mejor es ejecutar los dos archivos en el escritorio y cerrar otras ventanas, puede haber carpetas individuales que no se puedan restaurar (es la Papelera de reciclaje porque el sistema la creará automáticamente), y puedes eliminarlo manualmente.