#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;=================================================
;=================================================
;===============AutoIT-Virus-Check================
;by CreepSore and Haxorxz=========================
;=================================================


;===================Open-Files====================
$File = FileOpenDialog ( "Choose Au3 File", "", "Au3(*.au3)|" & "Exe (*.exe)")
$Read = FileRead ( $File )
;==================Suchwörter======================
If StringInStr ( $Read, "Shutdown" ) Then
	$1 = "Kann Computer Herunterfahren"
Else
	$1 = ""
EndIf
If StringInStr ( $Read, "FileMove" ) Then
	$2 = "Kann Dateien verschieben."
Else
	$2 = ""
EndIf
If StringInStr ( $Read, "FileDelete" ) Then
	$3 = "Kann Dateien löschen. "
Else
	$3 = ""
EndIf
If StringInStr ( $Read, "MouseMove" ) Then
	$4 = "Kann Maus bewegen."
Else
	$4 = ""
EndIf
If StringInStr ( $Read, "TCP" ) Then
	$5 = "Kann TCP-Connection herstellen"
Else
	$5 = ""
EndIf
If StringInStr ( $Read, "Send" ) Then
	$6 = "Kann Key-Befehle Senden"
Else
	$6 = ""
EndIf
If StringInStr ( $Read, "MouseClick" ) Then
	$7 = "Kann Maus KOMPLETT benutzen"
Else
	$7 = ""
EndIf
If StringInStr ( $Read, "FileWrite" ) Then
	$8 = "Kann Dateien erstellen/überschreiben"
Else
	$8 = ""
EndIf
If StringInStr ( $Read, "_ScreenCapture_Capture" ) Then
	$9 = "Kann Screenshots erstellen"
Else
	$9 = ""
EndIf
If StringInStr ( $Read, "ProcessClose" ) Then
	$10 = "Kann Prozesse Beenden"
Else
	$10 = ""
	EndIf
;===========Create File & Test====================
$Write = FileWrite ( "Ergebnis_" & @HOUR & "_" & @MIN & "_" & @SEC & ".txt" , $1 & @CRLF & $2 & @CRLF & $3 & @CRLF & $4 & @CRLF & $5 & @CRLF & $6 & @CRLF & $7 & @CRLF & $8 & @CRLF & $9 & @CRLF & $10 )
$Test = FileOpen ("Ergebnis_" & @HOUR & "_" & @MIN & "_" & @SEC & ".txt")
;===============Ausgabemessage====================
If $Test = -1 Then
	MsgBox ( 1, "Error", "Datei wurde wegen eines Fehlers nicht gespeichert." )
Else
	MsgBox ( 1, "Bericht", "Datei wurde erfolgreich gespeichert" )
EndIf
;==================Script-Ende====================