Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Programmstart verhindern (https://www.delphipraxis.net/139846-programmstart-verhindern.html)

Sir Rufo 7. Sep 2009 10:54

Re: Programmstart verhindern
 
Zitat:

Zitat von Luckie
Zitat:

Zitat von Sir Rufo
Du solltest dein Programm auf jeden Fall immer einen "Heartbeat" senden lassen, sonst hat über kurz oder lang ein Schüler diesen Prozess gekillt.
Am Besten 2 Prozesse, die sich gegenseitig überwachen.

Warum so umständlich? Für solche Fälle nimmt man einen Dienst.

Wir sprechen aber auch von Kids, die da sehr kreativ sein können, somit also gleich eine weitere Hürde einbauen.

Aphton 7. Sep 2009 11:01

Re: Programmstart verhindern
 
Liste der Anhänge anzeigen (Anzahl: 1)
Wie gefällt dir folgendes?

Edit: Beschreibung:
Auf Hook klicken, andere Programme öffnen und zusehen, wie Einträge in der Listbox entstehen.

MfG

Luckie 7. Sep 2009 11:05

Re: Programmstart verhindern
 
Zitat:

Zitat von Sir Rufo
Zitat:

Zitat von Luckie
Zitat:

Zitat von Sir Rufo
Du solltest dein Programm auf jeden Fall immer einen "Heartbeat" senden lassen, sonst hat über kurz oder lang ein Schüler diesen Prozess gekillt.
Am Besten 2 Prozesse, die sich gegenseitig überwachen.

Warum so umständlich? Für solche Fälle nimmt man einen Dienst.

Wir sprechen aber auch von Kids, die da sehr kreativ sein können, somit also gleich eine weitere Hürde einbauen.

Und wie sollen sie bei einem Dienst kreativ sein? Ich denke mal, dass sie nicht als Administratoren an den Rechnern sitzen. Bei deiner unsicheren Lösung würden sie wahrscheinlich kreativ werden. Zum Beispiel per Skript schnell hintereinander beide Prozesse abschiessen oder so was.

Mithrandir 7. Sep 2009 11:29

Re: Programmstart verhindern
 
Zitat:

Zitat von xZise
Hallo,

ich habe für unsere Schule einen Service entwickelt und möchte gerne, dass er bestimmte Programme am starten verhindert.
Und zwar wird leider ziemlich viel CS2D gespielt, und naja ich dachte mir, ich "bekomme" mit, wenn ein Programm gestartet wird und lese den Dateipfad aus, erstelle einen MD5 (o.ä.) Hash und überprüfe, ob dieser Hash in einer "Blacklist" Datenbank vorkommt und wenn dies nicht der Fall ist, lasse ich das Programm starten.

Und wenn du statt der Blacklist eine Whitelist nimmst? Sprich, alle Programme, die in dieser Liste stehen, dürfen gestartet werden.

Stevie 7. Sep 2009 11:41

Re: Programmstart verhindern
 
Sowas sollte man über Security Policies von Windows regeln.

xZise 7. Sep 2009 13:55

Re: Programmstart verhindern
 
Zitat:

Zitat von Sir Rufo
Zitat:

Zitat von xZise
2. Gibt es keinen "Lehrer PC" ;) Zumindest nicht in dem Raum um den es geht. Dort ist sozusagen freiwillige Beschäftigung (*räsuper*)

Aber man könnte doch zentral eine White-/Grey-/Blacklist halten und diese entsprechend füllen lassen. Und zentral kann man dann von der Greylist in die White-/Blacklist eintragen lassen. MD5-Hash wäre das richtige Kriterium zum Merken und dazu den PC-Namen und Dateipfad.

Naja ich wollte es ja eh Zentral in einer MySQL Datenbank abspeichern, wo alle lesend Zugriff haben.
Zitat:

Zitat von Sir Rufo
Zitat:

Zitat von xZise
3. Dachte ich mir, zum Beispiel Kaspersky überprüft ja jede *.exe beim Start, dann könnte ich das ja auch "sauber" erledigen und nicht andere Prozesse kille :P

Ist aber wahrscheinlich schwieriger von der Umsetzung. Meine Variante ist da relativ einfach umzusetzen (getarnt als automatisches Software-Update).

Wozu tarnen? Da es ein Dienst bzw. Service ist, bekommt der normale Benutzer davon nichts mit. Und da sie natürlich keine Administrationsrechte haben, bekommen sie den Dienst auch nicht weg. Also alles wunderbar.

Zitat:

Zitat von Stevie
Sowas sollte man über Security Policies von Windows regeln.

In wie fern. Also ich kenne mich da jetzt nicht so wahnsinnig gut aus, aber soweit ich weiß kann man ja nur einen Pfad angeben.

Zitat:

Zitat von Daniel G
Und wenn du statt der Blacklist eine Whitelist nimmst? Sprich, alle Programme, die in dieser Liste stehen, dürfen gestartet werden.

Aber an diesen Rechnern wird u.U. auch programmiert, oder es werden einfach andere Programme gebraucht. Deshalb ist eine reine Whitelist nicht "umzusetzen" :)

Zitat:

Zitat von Aphton
Wie gefällt dir folgendes?

Edit: Beschreibung:
Auf Hook klicken, andere Programme öffnen und zusehen, wie Einträge in der Listbox entstehen.

MfG

Das schaue ich mir gleich mal an.

Zitat:

Zitat von Sir Rufo
Wir sprechen aber auch von Kids, die da sehr kreativ sein können, somit also gleich eine weitere Hürde einbauen.

Sagte zwar Luckie schon, aber da nützt eigentlich nur die Kreativität die Administratoren zu "bestechen". Aber das kann ich schlecht verhindern. Außerdem läuft ein Dienst auch, ohne das jemand angemeldet ist.

MfG
xZise

ccc2 7. Sep 2009 15:07

Re: Programmstart verhindern
 
Wie wäre es damit, ein kleines Teil zu proggen, das folgende Funktion nutzt:

Delphi-Quellcode:
function FileInUse(Dateiname: string): Boolean;
//
// testet, ob Datei in Benutzung
//
// true = Datei wird benutzt
// false = Datei wird nicht benutzt
//
var
  hFile: THandle;
begin
  Result := False;
  if not FileExists(Dateiname) then
    Exit;
  hFile := CreateFile(pchar(Dateiname), GENERIC_READ or GENERIC_WRITE
    or GENERIC_EXECUTE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := hFile = INVALID_HANDLE_VALUE;
  if not Result then
    CloseHandle(hFile);
end;

einen Timer reingesetzt, der z.B. alle 5 min. abfragt, ob die "böse" exe in Benutzung ist. Wenn ja, dann einfach die exe löschen lassen :idea:

und die compilierte exe einfach mit Windows mitstarten lassen (nur über Registry-Eintrag).

xZise 7. Sep 2009 16:25

Re: Programmstart verhindern
 
Zitat:

Zitat von ccc2
Wie wäre es damit, ein kleines Teil zu proggen, das folgende Funktion nutzt:

Delphi-Quellcode:
function FileInUse(Dateiname: string): Boolean;
//
// testet, ob Datei in Benutzung
//
// true = Datei wird benutzt
// false = Datei wird nicht benutzt
//
var
  hFile: THandle;
begin
  Result := False;
  if not FileExists(Dateiname) then
    Exit;
  hFile := CreateFile(pchar(Dateiname), GENERIC_READ or GENERIC_WRITE
    or GENERIC_EXECUTE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := hFile = INVALID_HANDLE_VALUE;
  if not Result then
    CloseHandle(hFile);
end;

einen Timer reingesetzt, der z.B. alle 5 min. abfragt, ob die "böse" exe in Benutzung ist. Wenn ja, dann einfach die exe löschen lassen :idea:

Naja, aber ich kenne ja gerade nicht den Dateinamen. Sondern ich möchte den Dateinamen haben, damit ich davon einen Hash erstellen kann.

Zitat:

Zitat von ccc2
und die compilierte exe einfach mit Windows mitstarten lassen (nur über Registry-Eintrag).

Und warum dann nicht als Dienst?!

Übrigens Aphton: Unter Windows 7 scheint das nicht zu funktionieren. Ich werde das gleich nochmal auf XP testen.

MfG
xZise

Aphton 7. Sep 2009 16:43

Re: Programmstart verhindern
 
Sicher bin ich mir nur hier bei Vista 32 Bit SP2.
Aber ansich sollte es schon funzen; zumindest XP & Vista

Zitat:

Zitat von xZise
Naja, aber ich kenne ja gerade nicht den Dateinamen. Sondern ich möchte den Dateinamen haben, damit ich davon einen Hash erstellen kann.

Es ist genau das, was du suchst!

MfG

xZise 8. Sep 2009 07:34

Re: Programmstart verhindern
 
Hallo Aphton,
Erstens bezog ich mich auf "ccc2" und zweitens kann ich dann verhindern, dass das Programm gestartet wird?

MfG
xZise


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:26 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz