English
Includes

Zugriffsrechte of/ one File settle

 
- Page 1 -


Download below!
Hello Profaner...

The Include setting The with NTFS-Partitionen vorhandenen Zugriffsrechte (DACL) of/ one File or one Folder on arbitrary User, groups and values. particularly important is this with the development of Databases, The on Mehrbenutzersystemen walk. Optional there too The Possibility, a Logdatei with the Ergebnissen the APIs the encompassed functions to create.
therefore, whether at all Zugriffsrechte staid go can, kümmert the Include by the API GetVolumeInformation self. here becomes but nür verwertet, whether the grabbed einschränkbar is, not circa which Partition it itself deals! If the Include on other Betriebssystemen as Windows walk should, must this evtl. with bedacht go.

The Include contains 2 Procedures:
Get_Group_Name (3 Parameter) => determined over the SID whom right Gruppennamen the eachone-group or the Administratoren-group. In @$(0) becomes the ermittelte Gruppenname zurückgegeben.
Set_ACE_IN_DACL (6 Parameter) => forbid or allows Zugriffe of designed Usern or groups Files or Ordner.

The procedure Get_Group_Name:
1.Parameter: eachone or Administratoren, according to the, whom Gruppennamen one needed.
2.Parameter: number of/ one with Assign allocated and vorhandenen File to that produce one Logs, 0 if no Logdatei prepares go should
3.Parameter: actually Eintragsnummer the Logs (standing end in Log_Einträge&)

The procedure Set_ACE_IN_DACL:
1.Parameter: File- or Ordnername
2.Parameter: Username or group, on which The Zugriffsrechte relating.
3.Parameter: +;-;0 (-=Rechte prohibit, +=Rechte permit, 0=alles available delete)
4.Parameter: ? Happen? as String
possible ? Happen?
- FILE_READ_DATA (allows Data from one File To reading)
- FILE_WRITE_DATA (allows data To Scheiben)
- FILE_APPEND_DATA (allows data anzuhängen)
- FILE_READ_EA (allows erweiterte Attibute To reading)
- FILE_WRITE_EA (allows erweiterte attributes To write)
- FILE_EXECUTE (allows a File to execute)
- FILE_READ_ATTRIBUTES (reading the Fileattribute)
- FILE_WRITE_ATTRIBUTES (Change the Fileattribute)
- WRITE_DAC (Change the DACL Entries)
- READ_CONTROL (reading the DACL Entries and owner)
- SYNCHRONIZE (allows one FileHandle on one Complitition I/O To Waiting)
- File_Delete_CHILD (allows a Unterordner To delete - for Files no weight)
- ACCESS_SYSTEM_SECURITY (allows whom Access to whom SACL)
- WRITE_OWNER (proprietor Change)
- F_DELETE (File delete)
5.Parameter: Numer of/ one with Assign allocated File to that produce one Logs, 0 if no Logdatei prepares go should
6.Parameter: actually Eintragsnummer the Logs (standing end in Log_Einträge&)

example for the install the Include:
 $I DACL_SET.INC
Declare File$
Assign #1,"C:FILE_TEST.TXT"
REWRITE #1
Close #1
LET FILE$=@LoadFile $("Datei auswählen","*.*")
Get_Group_Name "Jeder",1,LOG_EINTRÄGE&
Set_ACE_IN_DACL File$,@$(0),"+0","SYNCHRONIZE FILE_WRITE_EA FILE_READ_EA FILE_READ_DATA FILE_WRITE_DATA FILE_APPEND_DATA FILE_EXECUTE FILE_READ_ATTRIBUTES FILE_WRITE_ATTRIBUTES F_DELETE",1,LOG_EINTRÄGE&
Get_Group_Name "Jeder",1,LOG_EINTRÄGE&
Set_ACE_IN_DACL File$,@$(0),"-","F_DELETE",1,LOG_EINTRÄGE&
Get_Group_Name "Administratoren",1,LOG_EINTRÄGE&
Set_ACE_IN_DACL File$,@$(0),"+","FILE_DELETE_CHILD,READ_CONTROL,ACCESS_SYSTEM_SECURITY,WRITE_OWNER,WRITE_DAC,F_DELETE,SYNCHRONIZE,FILE_WRITE_EA,FILE_READ_EA,FILE_READ_DATA,FILE_WRITE_DATA,FILE_APPEND_DATA,FILE_EXECUTE,FILE_READ_ATTRIBUTES,FILE_WRITE_ATTRIBUTES,F_DELETE",1,LOG_EINTRÄGE&
@ShellExec("C:FILE_TEST.TXT","open",1)
 
05/28/05  
 



 
- Page 1 -


will be me as next around the Integration the Heredity concern. there it there on The right Sorting and the read the Headers the Security-Descriptors ankommt (in the WIN32.HLP not documents), is the still a whole crowd work. ought to I to end the year not fertigwerden, I will try, The File time of somewhere differently from To post.

PS: the create complete new ACLs z.B. for Own Files and Registryschlüssel (Parameter 0) and the add of ACEs in the Prozeßbereich functions already perfect - to that add of ACEs To vorhandenen ACLs in the Registry and in the Dateisystem would I The thing so but not yet use.
 
12/17/05  
 



new Version:
1.) Heredity becomes supported.
2.) Automatic Heredity becomes supported.
3.) Sortierreihenfolge the ACEs watts Windows2000/XP standard angepaßt.
4.) Include watts on ca. one fünftel the previous Size gekürzt.

24 kB
Kurzbeschreibung: Includes to that settle of Zugriffsrechten in a Security-Descriptor Version 7
Hochgeladen:12/20/05
Downloadcounter158
Download
 
12/20/05  
 



over again Änderung:
- One bow watts eliminating
- Reading is now possible:
under Quelltextbeispiel (no fear, changes nothing!)
 $I DACL_SET.INC
DEF @GetSysColor(1) !"USER32","GetSysColor"
DEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Declare Auslesen&,Ordnername&,Ordnername$,ACE_MERKER&,Rechte_ART&,Select$
Declare 1&,2&,4&,8&,10&,20&,40&,80&,100&,10000&,20000&,40000&,80000&,100000&,20000000&,40000000&,80000000&,10000000&
Declare Beschränkter&,Ererbt&,Vererbungsart&,AUSWAHL$
Declare Vererbungsart&,Vererbt&,Username&,Automatische_Vererbung&,Block&,EIGENTÜMER&,ACE_NUMMER&
Declare Gewählter_ACE$,USERS$,Gültig&
Declare Text#,Tool#,Tool&
dim Text#,262
dim Tool#,40
Windowstyle 31+512
Windowtitle "Rechte of/ one File auslesen"
Window 0,0-640,440
SETTRUECOLOR 1
CLS @GETSYSCOLOR(15)
USERMESSAGES $10
Usefont "Arial",17,5,1,0,0
SetDialogFont  %FONT
LET Ordnername&=@Control("STATIC","No Ordner select!",$40000000+$10000000+$1000,110,5,505,20,%HWND,5000,%HINSTANCE)
LET Auslesen&=@CREATEBUTTON(%HWND,"Ordner wählen",5,5,100,25)
@Createtext(%HWND,"Eigentümer:",5,65,60,25)
LET EIGENTÜMER&=@CREATECHOICEBOX(%HWND,"",70,60,150,100)
LET Automatische_Vererbung&=@CreateCheckBox(%HWND,"Vererbbare rights automatically weitergeben",5,30,300,25)
LET Block&=@CreateCheckBox(%HWND,"Vererbung abblocken",305,30,120,25)
LET Ererbt&=@Control("STATIC","",$40000000+$10000000+$1000,440,30,150,20,%HWND,5002,%HINSTANCE)
@Createtext(%HWND,"ACE select:",300,65,100,25)
LET ACE_NUMMER&=@Control("ComboBox","",$40000000+$10000000+$200000+$100000+$3+$200,380,60,90,200,%HWND,5001,%HINSTANCE)
@Createtext(%HWND,"User/group:",5,95,70,25)
LET Beschränkter&=@CREATECHOICEBOX(%HWND,"",75,90,150,100)
@Createtext(%HWND,"Art the right:",250,95,100,25)
LET Rechte_ART&=@CREATECHOICEBOX(%HWND,"",350,90,150,100)
@AddChoice(Rechte_ART&,"Erlaubnis")
@AddChoice(Rechte_ART&,"Verbot")
@AddChoice(Rechte_ART&,"Konnte not red werden")
LET Vererbungsart&=@CREATECHOICEBOX(%HWND,"",350,120,205,100)
@AddChoice(Vererbungsart&,"Keine Vererbung")
@AddChoice(Vererbungsart&,"Vererbung on Files)
@AddChoice(Vererbungsart&,"Vererbung on Unterordner")
@AddChoice(Vererbungsart&,"Vererbung on Files and Unterordner")
LET gültig&=@CREATECHOICEBOX(%HWND,"",350,150,245,100)
@AddChoice(gültig&,"Gültig for actually Ordner")
@AddChoice(gültig&,"Gültig only for Kindobjekte")
Let 1&=@CreateCheckBox(%HWND,"Unterordner listen",5,125,120,25)
Let 2&=@CreateCheckBox(%HWND,"Dateien erstellen",5,150,120,25)
Let 4&=@CreateCheckBox(%HWND,"Ordner erstellen",5,175,120,25)
Let 8&=@CreateCheckBox(%HWND,"Erweiterte attributes lesen",5,200,150,25)
Let 10&=@CreateCheckBox(%HWND,"Erweiterte attributes schreiben",5,225,150,25)
Let 20&=@CreateCheckBox(%HWND,"Ordner durchsuchen",5,250,150,25)
Let 40&=@CreateCheckBox(%HWND,"Unterordner löschen",5,275,150,25)
Let 80&=@CreateCheckBox(%HWND,"Attribute lesen",5,300,150,25)
Let 100&=@CreateCheckBox(%HWND,"Attribute schreiben",5,325,150,25)
LET 10000&=@CreateCheckBox(%HWND,"Ordner löschen",200,125,120,25)
LET 20000&=@CreateCheckBox(%HWND,"Zugriffsrechte lesen",200,150,150,25)
LET 40000&=@CreateCheckBox(%HWND,"Zugriffsrechte schreiben",200,175,150,25)
LET 80000&=@CreateCheckBox(%HWND,"Eigentümer ändern",200,200,200,25)
LET 100000&=@CreateCheckBox(%HWND,"Auf Return the Handles "Wait,200,225,200,25)
LET 80000000&=@CreateCheckBox(%HWND,"Vererbtes generelles Leserecht",200,275,200,25)
LET 40000000&=@CreateCheckBox(%HWND,"Vererbtes generelles Schreibrecht",200,300,200,25)
LET 20000000&=@CreateCheckBox(%HWND,"Vererbtes generelles right to that search/Ausführen",200,325,290,25)
LET 10000000&=@CreateCheckBox(%HWND,"Vererbter genereller Vollzugriff",200,350,200,25)
LET Tool&=@control("tooltips_class32","",$d0000000,0,0,0,0,%HWND,0,%hinstance)
long Tool#,0=40 ------Size the TOOLINFO-structure
long Tool#,4=17 ------? Happen?
long Tool#,36=Text# --Memory-Variable with String
String Text#,0="Ordner dial and here a ACE select, everything else so let!!!" ---Text the 1.Tooltips
long Tool#,12=ACE_NUMMER&
@Sendmessage(Tool&,1028,0,Tool#) ------Tipp initialisieren
String Text#,0="Hier a Ordner dial and then ACE choices, everything else so let!!!" ---Text the 1.Tooltips
long Tool#,12=Auslesen&
@Sendmessage(Tool&,1028,0,Tool#) ------Tipp initialisieren
Dispose Text#
Dispose Tool#
@SetFocus(%HWND)

While %UMESSAGE<>$10

    Waitinput

    IF @ButtonClicked(Auslesen&)

        LET Ordnername$=@$ ChooseDir("Bitte Ordner to that Reading the rights auswählen")

        IF @AND(@RIGHT$(Ordnername$,1)="",@LEN(Ordnername$)>3)

            LET ORDNERname$=@LEFT$(Ordnername$,@LEN(Ordnername$)-1)

        endif

        Settext Ordnername&,Ordnername$
        Set_File_ACE_IN_DACL Ordnername$,"Administrator","","WRITE_DAC",0,0
        @Sendmessage(EIGENTÜMER&,$14B,0,0)
        @AddChoice(EIGENTÜMER&,ACE$[0,1])
        @Sendmessage(EIGENTÜMER&,$14E,0,0)
        @Sendmessage(ACE_NUMMER&,$14B,0,0)

        IF @VAL(ACE$[0,0]) | $400 = @VAL(ACE$[0,0])

            SetCheck Automatische_Vererbung&,1

        else

            SetCheck Automatische_Vererbung&,0

        endif

        IF @VAL(ACE$[0,0]) | $1000 = @VAL(ACE$[0,0])

            SetCheck Block&,1

        else

            SetCheck Block&,0

        endif

        LET ACE_MERKER&=1

        While @AND(ACE_MERKER&<@VAL(ACE$[0,2])+1,ACE_MERKER&<=ACE_ARRAY_GRÖßE%)

            @AddChoice(ACE_NUMMER&,@STR$(ACE_MERKER&))
            LET ACE_MERKER&=ACE_MERKER&+1

        wend

        IF @VAL(ACE$[0,2])+1>ACE_ARRAY_GRÖßE%

            @Messagebox("Es could not any ACEs read go!","ACE-aray To small dimensioniert!",16)

        endif

    Endif

    IF @Gettext$(ACE_NUMMER&)=""

        @Sendmessage(ACE_NUMMER&,$14E,0,0)

    endif

    IF Gewählter_ACE$<>@Gettext$(ACE_NUMMER&)

        let Gewählter_ACE$=@Gettext$(ACE_NUMMER&)
        LET ACE_MERKER&=@VAL(Gewählter_ACE$)

        IF @INSTR(ACE$[ACE_MERKER&,3]+",",USERS$)=0

            @ADDCHOICE(Beschränkter&,ACE$[ACE_MERKER&,3])
            LET USERS$=USERS$+ACE$[ACE_MERKER&,3]+","

        endif

        @SENDMESSAGE(Beschränkter&,$14E,@Sendmessage(Beschränkter&,$158,-1,@ADDR(ACE$[ACE_MERKER&,3])),0)

        IF ACE$[ACE_MERKER&,1]="0"

            Let Select$="Erlaubnis"

        Elseif ACE$[ACE_MERKER&,1]="1"

            Let Select$="Verbot"

        Else

            Let Select$="Konnte not red werden"

        endif

        @SENDMESSAGE(Rechte_ART&,$14E,@Sendmessage(Rechte_ART&,$158,-1,@ADDR(Select$)),0)

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$1)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 1&,1

        else

            Setcheck 1&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$2)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 2&,1

        else

            Setcheck 2&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$4)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 4&,1

        else

            Setcheck 4&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$8)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 8&,1

        else

            Setcheck 8&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$10)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 10&,1

        else

            Setcheck 10&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$20)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 20&,1

        else

            Setcheck 20&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$40)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 40&,1

        else

            Setcheck 40&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$80)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 80&,1

        else

            Setcheck 80&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$100)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 100&,1

        else

            Setcheck 100&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$10000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 10000&,1

        else

            Setcheck 10000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$20000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 20000&,1

        else

            Setcheck 20000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$40000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 40000&,1

        else

            Setcheck 40000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$80000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 80000&,1

        else

            Setcheck 80000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$100000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 100000&,1

        else

            Setcheck 100000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$10000000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 10000000&,1

        else

            Setcheck 10000000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$20000000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 20000000&,1

        else

            Setcheck 20000000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$40000000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 40000000&,1

        else

            Setcheck 40000000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$80000000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 80000000&,1

        else

            Setcheck 80000000&,0

        endif

        IF @VAL(ACE$[ACE_MERKER&,2]) | $10 = @VAL(ACE$[ACE_MERKER&,2])

            Settext Ererbt&,"Rechte are ererbt"

        else

            Settext Ererbt&,"Rechte are not ererbt"

        endif

        IF @VAL(ACE$[ACE_MERKER&,2]) | $3 = @VAL(ACE$[ACE_MERKER&,2])

            LET AUSWAHL$="Vererbung on Files and Unterordner"

        Elseif @VAL(ACE$[ACE_MERKER&,2]) | $1 = @VAL(ACE$[ACE_MERKER&,2])

            LET AUSWAHL$="Vererbung on Files

        Elseif @VAL(ACE$[ACE_MERKER&,2]) | $2 = @VAL(ACE$[ACE_MERKER&,2])

            LET AUSWAHL$="Vererbung on Unterordner"

        Else

            LET AUSWAHL$="Keine Vererbung"

        endif

        @SENDMESSAGE(Vererbungsart&,$14E,@Sendmessage(Vererbungsart&,$158,-1,@ADDR(selection$)),0)

        IF @VAL(ACE$[ACE_MERKER&,2]) | $8 = @VAL(ACE$[ACE_MERKER&,2])

            LET AUSWAHL$="Gültig only for Kindobjekte"

        Else

            LET AUSWAHL$="Gültig for actually Ordner"

        endif

        @SENDMESSAGE(Gültig&,$14E,@Sendmessage(Gültig&,$158,-1,@ADDR(selection$)),0)

    endif

wend


plenty Fun so, but first new version herunterladen!

31 kB
Kurzbeschreibung: Zugriffsrechte Objects settle, Version 8.3
Hochgeladen:12/25/05
Downloadcounter138
Download
 
12/22/05  
 



have me at installation the automatischen Heredity a integrally fat bow installed (rights watts always ererbt, even if the in the original not so tuned was). i will hoping, the the Error now eliminating is. have a Posting moreover supra one Update made. How one in the example supra already see can, is for future too the Abspeichern the ACE Arrays and so the edit of Rechten with the DACL_SET.INC planned.

The installation the Setzens of Token-Zugriffsrechten is ditto yet geplannt. Threads go too come.
 
12/23/05  
 



over again Update made (Version 8.2) and 2 Problems eliminating:

1.) Parameter u funzte not (incorrect Flag indicated)
2.) CreateFile needed apparently always the Zugriffsrecht SYNCRONIZE. it wealthy The rights WRITE_DAC and READ_CONTROL means to that receive one Filehandles not from. that is in the Klartext:
though one proprietor one Objektes is, can with SetSecurityInfo The Zugriffsrechte not Change, if to the right SYNCRONIZE not additional own.
means => new APIs Ge-/SetNamedSecurityInfo watts installed, then GEHTS with Files with less Rechten...
 
12/24/05  
 




Michael
Wodrich
Download works not...
 
Programmieren, das spannendste Detektivspiel der Welt.
12/25/05  
 



 
- Page 2 -


I look time...
 
12/25/05  
 



shining now to go. have a further bow eliminating:
Parameter 0 funktionierte not correctly. - it watts only deleted, but no new ACE laid out. (I had The Listboxes on the incorrect place deleted .)
I bastele To Time yet vast on the INC - I need tappt im dunkeln for a designed object and must there yet some install. Version 9 get again a own Download below, then can later The development rather understand.
actually Version 8.3.
 
12/25/05  
 




Michael
Wodrich
Yes, Download works again.

6 kB
Kurzbeschreibung: Räucherkerze
Hochgeladen:12/25/05
Downloadcounter362
Download
 
Programmieren, das spannendste Detektivspiel der Welt.
12/25/05  
 



unfortunately from lack on Time until end the year not yet tested:
new Opportunities:
1.) Modifizierung the ACEs in the Array and so The Possibility, very simply a Rechteeditor To building
2.) Zugriffsrechte of Threads are (ex windows2000) installed.

Token Zugriffsrechte come yet - evtl. but first To Sylvester ().

32 kB
Kurzbeschreibung: DACL_SET.zipper (23.9KB) Includes to that settle of Zugriffsrechten in a Security-Descriptor Versi
Hochgeladen:12/28/05
Downloadcounter132
Download
 
12/28/05  
 



It's all right the end To...
Besichtigte bow:
- Modifizierung the ACE-Arrays functions now (rights editor).
- Abspeicherung the ACE Arrays functions now (rights editor).
- Zeitweilige and Systemabhängige Access violation at Reading the String-SIDs the restricted User watts eliminating (To largely copies ).
- have on several to put at Mapping the rights space forget, what evtl. Problems make could.
new functions:
- Zugriffsrechte of Threads can now changed and gelistet go.
- Zugriffsrechte one Tokens can changed and gelistet go.
- Token can of a Thread or Process gotten go (ThreadToken is naturally only in rare Make present).

shining everything splendid To functions...

38 kB
Kurzbeschreibung: Include to that settle of Zugriffsrechten in a Security-Descriptor Version 10
Hochgeladen:03/03/06
Downloadcounter312
Download
 
12/31/05  
 



Update:

39 kB
Kurzbeschreibung: DACL_SET.INC Version 10.9
Hochgeladen:03/26/06
Downloadcounter159
Download
 
03/26/06  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

10.306 Views

Untitledvor 0 min.
Uwe Lang09/17/22
Rc01/31/22
Manfred Barei03/20/20
p.specht03/30/17
More...

Themeninformationen

this Topic has 2 subscriber:

unbekannt (16x)
Michael Wodrich (2x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie