Versione delle 16:30, 28 dic 2021

A volte può capitare che per poter utilizzare alcuni comandi o per eliminare la protezione ad alcuni file, sia necessario inserire la propria parola-chiave (password) di root.

A seconda delle circostanze vi sono alcune modalità.

Utilizzo della funzione Gambas: Desktop.RunAsRoot

Innanzitutto possiamo lanciare un comando bash attraverso la funzione propria di Gambas: Desktop.RunAsRoot. Essa presuppone innanzitutto che sia stato impostato il componente gb.desktop, e che sia presente nel sistema il programma xterm.
Nelle parentesi va scritta fra virgolette l'intera linea di comando da lanciare, e non il solo comando:

Public Sub Button1_Click()

 Desktop.RunAsRoot("Intera_linea_di_comando")

End

Esempio:

Desktop.RunAsRoot("cat /dev/input/mouse0")

Se il codice prevede l'intercettazione di dati, questi potrebbero essere raccolti servendosi, laddove possibile, di una variabile d'appoggio.
Prendendo in considerazione l'esempio precedente:

Private fl As File
Private sFile As String


Public Sub Form_Open()

' Temp$() rappresenta il file temporaneo d'appoggio:
 sFile = Temp$()

 Desktop.RunAsRoot("cat /dev/input/mouse0 > " & sFile)

' Restiamo in attesa sino a quando il file non sarà creato:
 Repeat
   Wait 0.01
 Until Exist(sFile)

 fl = Open sFile For Read Watch

End

Public Sub File_Read()

 Dim s As String

 s = File.Load(sFile)

 TextEdit1.Text = s

End

Attendere sino a quando non è stata immessa la password

Nel precedente esempio abbiamo visto una modalità per far attendere al programma l'immissione della password necessaria per l'esecuzione del comando inserito nella funzione Desktop.RunAsRoot. In quel caso il codice attendeva la creazione di un file:

' Restiamo in attesa sino a quando il file non sarà creato:
 Repeat
   Wait 0.1
 Until Exist(sFile)

Ora vediamo una possibile soluzione nel caso in cui, invece, si debba attendere la chiusura della finestra di xterm, nella quale viene immessa la password, ossia la chiusura del processo di quel programma:

Public Sub Form_Open()  
 
 Dim s As String  
 
' Intendo avviare il comando come "root":
 Desktop.RunAsRoot("linea_di_comando")  
  
' Per ciascun processo in questo momento attivo... 
 For Each s In Dir("/proc", "", gb.Directory)  
    
' ...vado a vedere il file "comm":
   If Exist("/proc" &/ s &/ "comm") Then  
   
' Se in quel file c'è una stringa simile a "xterm",...
     If File.Load("/proc" &/ s &/ "comm") Like "*xterm*" Then  
     
' ...allora avvio il ciclo,
       Repeat  
         Wait 0.01  
' ...che gira in attesa fino a quando il processo di "xterm" non è stato terminato:
       Until Exist("/proc" &/ s) = False  
     Endif  
 
   Endif  
 Next  
  
' Allora sono sicuro che ho passato *innanzitutto* la password, e il comando bash dovrebbe così poter partire tranquillamente.

End

Dare una volta sola la password di root per aprire un file protetto

Per dare una volta sola la password di root per aprire un file protetto si utilizza il comando chmod |1| e il codice 4777 |2| (corrispondente a: rwsrwxrwx) per impostare il setUID. Tale comando consentirà con effetto temporaneo, ossia limitato alla sola attuale sessione di sistema, di modificare i permessi del file, in modo tale ad esempio che tutti possano eseguire tranquillamente un programma o accedere ad un file che di norma richiede i permessi di root.
In sostanza, la password verrà sì inserita, ma 1 volta soltanto.

Esempio:

Private pr as Process


Public Sub Form_Open()

' Se il file non possiede i più ampi permessi...
 If Stat("/dev/input/mouse0").Auth <> "rwsrwxrwx" Then
' ...allora modificheremo in quel senso i permessi del file:
   Desktop.RunAsRoot("chmod 4777 /dev/input/mouse0")
 ' Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:
   Repeat
     Wait 0.01
   Until Stat("/dev/input/mouse0").Auth = "rwsrwxrwx"
 Endif

' Modificati i permessi, passiamo, dunque, avanti per gestire il file:
  pr = Shell "cat /dev/input/mouse0" For Read As "pro"

End

Public Sub pro_Read()
 
 Dim b As Byte
 
 Read #pr, b
 
 Print b
 
End

Uso diretto di comandi bash lanciati mediante Shell

Far aprire un terminale per inserire la propria password con sudo

La seguente riga di comando farà aprire una finestra di Terminale, nella quale si potrà inserire la propria parola-chiave:

Public Sub Button1_Click()

 Shell "xterm -e sudo 'comando_da_lanciare'"
 
' oppure usando "x-terminal-emulator":
 Shell "/usr/bin/x-terminal-emulator -e sudo 'comando_da_lanciare'"</font>

End

L'eventuale stampa dei dati di risultato del comando lanciato, però si avranno all'interno della finestra del terminale.
E' possibile deviare il flusso di dati verso un qualsiasi file d'appoggio con questa riga:

Shell "xterm -e sudo 'comando_da_lanciare'" > /percorso/del/file/d'appoggio"

e raccogliere successivamente i dati salvati nel file d'appoggio:

Private fl As File


Public Sub Form_Open()

 fl = Open "/percorso/del/file/d'appoggio" For Read Watch
 
 Shell "xterm -e sudo 'comando_da_lanciare'" > /percorso/del/file/d'appoggio"
 
' oppure anche con "x-terminal-emulator":
 'Shell "/usr/bin/x-terminal-emulator -e sudo 'comando_da_lanciare'" <B>></b> /percorso/del/file/d'appoggio"
 
End

Public Sub File_Read()

 Dim s As String
 
 s = File.Load("/percorso/del/file/d'appoggio")
 
 Print s
 
End

Shell "xterm -e sudo chmod 666 /percorso/del/file/protetto/da/sbloccare"

Shell "x-terminal-emulator -e sudo chmod 666 /percorso/del/file/protetto/da/sbloccare"

Shell "echo MIA-PASSWORD | sudo -S chmod 4777 file-protetto-da-sbloccare"

Shell "echo MIA-PASSWORD | sudo -S comando-da-lanciare"

Public Sub Main()

 Dim fl As File

 Shell "echo MIA-PASSWORD | sudo -S chmod 4777 '/dev/tty0'"
 
 Repeat
   Wait 0.01
 Until Stat("/dev/tty0").Auth = "rwsrwxrwx"

 fl = Open "/dev/tty0" For Write

 fl.Close

End

 Public Sub Main()

 Dim fl As File
 
 Shell "echo MIA-PASSWORD | sudo -S chmod 666 '/dev/tty0'"
 
 Repeat
   Wait 0.01
 Until Access("/dev/tty0", gb.Read)

 fl = Open "/dev/tty0" For Write
 
 fl.Close

End

Public Sub Main()

 Dim fl As File
 
 Shell "echo mia_password | sudo -S chmod 666 '/dev/tty0'" Wait
 
 fl = Open "/dev/tty0" For Write

 fl.Close

End

Public Sub Main()
 
 Dim s As String
 
 Input s
   
 Shell "echo " & s & " | sudo -S chmod 666 /dev/tty1"
  
End

Library "libc:6"

' int system (const char *__command)
' Execute the given line as a shell command.
Private Extern system_C(__command As String) As Integer Exec "system"


Public Sub Main()
 
 Dim i As Integer
  
 i = system_C("echo 'MIA_PASSWORD' | sudo -s chmod 666 /dev/tty0")
 If i < 0 Then Error.Raise("Impossibile lanciare il comando !")
  
End

a = all (ossia per tutte e tre le classi: proprietario del file, gruppo, altri);
o = "others" (altri);
g = "group" (gruppo)
u = "user" (proprietario)

r = lettura
w = scrittura
x = esecuzione

4 = lettura
2 = scrittura
1 = esecuzione

Assegnando ad una classe utente del file il valore 0 (zero) per i tre permessi, viene negata alla classe ovviamente ogni tipo di permesso.
Esempi:
000 nega ogni permesso a tutte e tre le classi di utenti;
604 nega ogni permesso alla sola classe "gruppo";
700 nega ogni permesso alle classi "gruppo" ed "altri".