Prozess_Analysierer

xXlowXx

Hi,
also ich beschreibe einfach mal was mein Programm macht. Es überprüft jeden Prozess auf eventuelle Bedrohung. Als 1. Ist es eine Windowsdatei, wenn ja wird es automatisch zu erlaubten Prozessen hinzugefügt (die Datei heißt Pfad.txt und ist für XP ausgelegt, weil ich XP habe aber kann beliebig erweitert werden) wenn es keine Windowsdatei ist dann prüft es ob es eventuell ein Spiel ist (anhand der CPU-Auslastung des Prozesses wenn ein Spiel ist dann wird es automatisch erlaubt), wenn es kein Spiel ist dann analysiert es 4 Kriterien:

1. Fenstername (Bedrohung wenn kein Fenstername)
2. Autostart (Bedrohung wenn es sich automatisch bei Windowsstart öffnet)
3. Internetverbindung (Bedrohung wenn es eine Verbindung zum Internet herstellt)
4. Firewalleintrag (Bedrohung wenn es einen Firewalleintrag zum Prozess gibt)

Wenn es weniger als 2 Kriterien erfüllt dann wird es automatisch zu erlaubten Programmen hinzugefügt, aber wenn mehr 2 der oben angegeben Kriterien zutreffen dann wird über ein GUI dargestellt wo sich die Datei befindet inclusive der 4 Kriterien danach muss der Benutzer entscheiden ob es gut oder böse is, wenn böse kann es den Prozess stoppen und immer wenn es wiederkommt wird der Prozess beendet. Naja im groben und ganzen wars das eigentlich.
In dem Archiv sind noch n Paar Sachen wie Icons und 1 Wavedatei, könnt ihr in den Windowsordner kopieren, müsst ihr aber net

Bei Fragen, Anregungen oder Kritik einfach posten
Ich habe mein Programm liebevoll Prozess_Security genannt

Hier ist der Source aber ist auch nochmal im Archiv enthalten.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\..\..\Programme\TuneUp Utilities 2009\Data\ico_alpha_cmDisplayStartmenuForm_il_8_32x32.ico
#AutoIt3Wrapper_Outfile=Prozess_Security.exe
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$P = ProcessList("Prozess_Security.exe")
If $P[0][0] > 1 Then Exit
;Opt("TrayMenuMode", 1) | Normalerweise aktiviert
FileDelete(@WindowsDir & "Firewall.txt")
FileDelete(@WindowsDir & "Firewall2.txt")
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <Sound.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#include <Array.au3>
#include <Guiedit.au3>
$Warnung = _SoundOpen(@WindowsDir & "\Icon\Warnung.wav")
ProcessSetPriority("Prozess_Security.exe", 4)
TraySetToolTip("Prozess_Security")
$Len1 = StringLen(@HomeDrive & "\WINDOWS\")
$Len2 = StringLen(@HomeDrive & "\Dokumente und Einstellungen\")
_Log(@MDAY & "." & @MON & "." & @YEAR & " [" & @HOUR & ":" & @MIN & ":" & @SEC & "] Programmstart")
$Ini = @WindowsDir & '\Prozesse.ini'
$Gruen = @WindowsDir & "\Icon\Grün.ico"
$Gelb = @WindowsDir & "\Icon\Gelb.ico"
$Rot = @WindowsDir & "\Icon\Rot.ico"
$Orange = @WindowsDir & "\Icon\Orange.ico"
Global $l, $Reg_Len, $Reg, $Inet_Len, $Inet, $Fire_Len, $Fire, $Fen_Len, $Fen, $File_Read
If Not FileExists($Ini) Then
IniWrite($Ini, "Immer", "explorer.exe", @WindowsDir & "\explorer.exe")
IniWrite($Ini, "Status", "AUTOEXEC", FileGetSize(@HomeDrive & "\AUTOEXEC.bat"))
EndIf
_Whileschleife()
Func _Whileschleife()
While 1
Global $Prozesse = ProcessList()
If $l = $Prozesse[0][0] Then
Sleep(40)
Else
$l = $Prozesse[0][0]
TraySetIcon($Gelb)
For $k = 2 To $l
$PID = $Prozesse[$k][1]
If $Prozesse[$k][0] = "Prozess_Security.exe" Or $Prozesse[$k][0] = "System" Or $Prozesse[$k][0] = "csrss.exe" Or $Prozesse[$k][0] = "svchost.exe" Then
Else
Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', 0x0410, 'int', 0, 'int', $PID)
If $aProc[0] = 0 Then $Prozess_Pfad = "Nicht ermittelbar!"
Local $vStruct = DllStructCreate('int[1024]')
DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0)
Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameExW', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'wstr', '', 'int', 2048)
If $aReturn[0] = 0 Then $Prozess_Pfad = "Nicht ermittelbar!"
$Prozess_Pfad = $aReturn[3]
$Read_Ini = IniReadSection($Ini, "Block")
If Not @error Then
For $a = 1 To $Read_Ini[0][0]
If IniRead($Ini, "Block", $Read_Ini[$a][1], "") = $Prozess_Pfad Then
If ProcessExists($Read_Ini[$a][0]) Then
TraySetIcon($Rot)
ProcessClose($Read_Ini[$a][0])
Sleep(100)
If Not ProcessExists($Read_Ini[$a][0]) Then
_Log(@MDAY & "." & @MON & "." & @YEAR & " [" & @HOUR & ":" & @MIN & ":" & @SEC & "] Prozess " & $Read_Ini[$a][0] & " geblockt")
$l = 0
_Whileschleife()
Else
_Log(@MDAY & "." & @MON & "." & @YEAR & " [" & @HOUR & ":" & @MIN & ":" & @SEC & "] Prozess " & $Read_Ini[$a][0] & " konnte nicht geblockt werden")
$l = 0
_Whileschleife()
EndIf
Sleep(1000)
EndIf
EndIf
Next
EndIf