Ich plane einen einfachen Schutz meiner Daten gegen Ransomware.
Da ich weiß, dass in meinen Datenordnern nur dbf-, ftp- und cdx-Dateien sein sollten, dachte ich, ich könnte beim Start ein FW-Programm laufen lassen und alle Datenordner überprüfen.
Wenn es eine Datei mit einer anderen Dateiendung gibt, wird der Server herunterfahren.
Es wäre gut, wenn das Programm ein Service wäre.
Wie startet man das Programm am besten?
Wie kann man den Server neu starten, dass man nach einem Angriff nicht in einer Schleife läuft?
Vielen Dank für eure Hilfe
Otto
Code: Alles auswählen
#include "FiveWin.ch"
static oWnd, oTimer
//----------------------------------------------------------------------------//
function Main()
DEFINE DIALOG oWnd FROM 3, 3 TO 20, 50 ;
TITLE OemToAnsi( "Testing timers" )
ACTIVATE DIALOG oWnd ;
ON INIT StartTimer()
return nil
//----------------------------------------------------------------------------//
function StartTimer()
DEFINE TIMER oTimer OF oWnd ;
INTERVAL 300 ;
ACTION ( check() )
ACTIVATE TIMER oTimer
return nil
//----------------------------------------------------------------------------//
function check()
local aDir := directory( "x:\xwhdaten\DATAWIN\" + "*.*","DHS")
local I := 1
local cFilename := ""
local lFehler := .f.
local cFehler := ""
oTimer:Deactivate()
FOR I := 1 to len( aDir )
lFehler := .T.
if aDir[ I , 1 ] <> "."
if ALLTRIM ( UPPER( cFileExt( aDir[ I , 1 ] ) ) ) = "DBF"
lFehler := .f.
endif
if UPPER( cFileExt( aDir[ I , 1 ] ) ) = "FPT"
lFehler := .f.
endif
if UPPER( cFileExt( aDir[ I , 1 ] ) ) = "CDX"
lFehler := .f.
endif
if lFehler = .t.
cFehler += aDir [ I, 1 ] + CRLF
FWLOG cFehler
winexec( "abmelden.bat" )
endif
endif
next
oTimer:activate()
return nil