Subida a GITEA

.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

.hidden/CHANGELOG

@@ -0,0 +1,3 @@
+* Tue Aug 17 2021 luisgulo <luisgulo@gmail.com> 1.0.1
+- Lanzamiento inicial
+

.project

@@ -0,0 +1,25 @@
+# Gambas Project File 3.0
+Title=ajustarsudo
+Startup=FMain
+Icon=sudo.png
+Version=1.0.1
+Component=gb.image
+Component=gb.gui
+Component=gb.form
+Description="Ajustar SUDO para el usuario actual.\nSolo se permite si conoce la clave de root"
+Authors="luisgulo@soloconlinux.org.es"
+TabSize=2
+Language=es_ES
+SourcePath=/home/luisgulo/ProyectosGAMBAS/SOURCEs
+Maintainer=luisgulo
+Vendor=SoloConLinux
+Address=luisgulo@gmail.com
+Url=https://repositorio.soloconlinux.org.es
+License=General Public License
+PackageName=ajustarsudo-1.0.1
+CreateEachDirectory=1
+Packager=1
+Systems=debian
+Menus=debian:"Applications/System/Administration"
+Categories=debian:"System"
+Groups=debian:"admin"

.settings

@@ -0,0 +1,23 @@
+[Breakpoints]
+Count=0
+
+[DebugWindow]
+Count=0
+
+[Executable]
+DoNotIncrementVersion=False
+NoTestModule=False
+Path="AjustarSudo.gambas"
+
+[OpenFile]
+File[1]=".src/FMain.form"
+Active=2
+File[2]=".src/FMain.class:0.14"
+Count=2
+
+[Package]
+Dir="~/ProyectosGAMBAS/INSTALADOR/AjustarSudo/"
+
+[Watches]
+Count=0
+

.src/FMain.class

@@ -0,0 +1,47 @@
+' Gambas class file
+
+
+Public Sub Form_Open()
+  ' Cargamos usuario actual
+  txtUsuario.Text = System.User.Name  
+  System.Shell = "/bin/bash"
+End
+
+Public Sub btnSalir_Click()
+  Quit
+End
+
+Public Sub btnAjustarSudo_Click()
+  Dim txtAccion As String
+  Message.Title = Me.Text  
+  ' Comprobar Clave ROOT
+  If IsNull(txtClaveRoot.Text) Then
+    ' Clave Vacia
+
+    Message.Error("Error: Debe de escribir la clave de 'root'" & gb.crlf & "La clave no puede estar vacia")
+  Else
+    ' Clave introducida
+    If SudoComodo.Value Then
+      ' Ajustar sudo en modo Cómodo
+      txtAccion = "SUDO COMODO"
+      'Shell "echo '" & txtUsuario.Text & " ALL = (ALL) NOPASSWD: ALL' > /tmp/autorizado_" & txtUsuario.Text
+      'Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'cp /tmp/autorizado_" & txtUsuario.Text & " /tmp/kk/'"
+      Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'echo " & txtUsuario.Text & " ALL = \\(ALL\\) NOPASSWD: ALL > /etc/sudoers.d/autorizado_" & txtUsuario.Text & "'"
+    Endif
+    If SudoSeguro.Value Then
+      ' Ajustar sudo en modo Seguro
+      txtAccion = "SUDO SEGURO"
+      'Shell "echo '" & txtUsuario.Text & " ALL=(ALL:ALL) ALL' > /tmp/autorizado_" & txtUsuario.Text
+      'Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'cp /tmp/autorizado_" & txtUsuario.Text & " /tmp/kk/'"      
+      Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'echo " & txtUsuario.Text & " ALL=\\(ALL:ALL\\) ALL > /etc/sudoers.d/autorizado_" & txtUsuario.Text & "'"
+    Endif
+    If SinSudo.Value Then
+      'Eliminar SUDO
+      txtAccion = "SIN SUDO"
+      Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'echo  \\# Usuario sin SUDO > /etc/sudoers.d/autorizado_" & txtUsuario.Text & "'" 
+    Endif
+    Message.Info("Configurado " & txtAccion & " para " & txtUsuario.Text)
+    Quit
+  Endif  
+  
+End

.src/FMain.class~

@@ -0,0 +1,48 @@
+' Gambas class file
+
+
+Public Sub Form_Open()
+  ' Cargamos usuario actual
+  txtUsuario.Text = System.User.Name  
+  System.Shell = "/bin/bash"
+End
+
+Public Sub btnSalir_Click()
+  Quit
+End
+
+Public Sub btnAjustarSudo_Click()
+  Dim SalidaShell As String
+  Dim txtAccion As String
+  Message.Title = Me.Text  
+  ' Comprobar Clave ROOT
+  If IsNull(txtClaveRoot.Text) Then
+    ' Clave Vacia
+
+    Message.Error("Error: Debe de escribir la clave de 'root'" & gb.crlf & "La clave no puede estar vacia")
+  Else
+    ' Clave introducida
+    If SudoComodo.Value Then
+      ' Ajustar sudo en modo Cómodo
+      txtAccion = "SUDO COMODO"
+      'Shell "echo '" & txtUsuario.Text & " ALL = (ALL) NOPASSWD: ALL' > /tmp/autorizado_" & txtUsuario.Text
+      'Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'cp /tmp/autorizado_" & txtUsuario.Text & " /tmp/kk/'"
+      Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'echo " & txtUsuario.Text & " ALL = \\(ALL\\) NOPASSWD: ALL > /etc/sudoers.d/autorizado_" & txtUsuario.Text & "'"
+    Endif
+    If SudoSeguro.Value Then
+      ' Ajustar sudo en modo Seguro
+      txtAccion = "SUDO SEGURO"
+      'Shell "echo '" & txtUsuario.Text & " ALL=(ALL:ALL) ALL' > /tmp/autorizado_" & txtUsuario.Text
+      'Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'cp /tmp/autorizado_" & txtUsuario.Text & " /tmp/kk/'"      
+      Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'echo " & txtUsuario.Text & " ALL=\\(ALL:ALL\\) ALL > /etc/sudoers.d/autorizado_" & txtUsuario.Text & "'"
+    Endif
+    If SinSudo.Value Then
+      'Eliminar SUDO
+      txtAccion = "SIN SUDO"
+      Shell "echo -n '" & txtClaveRoot.Text & "' |su -c 'echo  \\# Usuario sin SUDO > /etc/sudoers.d/autorizado_" & txtUsuario.Text & "'" 
+    Endif
+    Message.Info("Configurado " & txtAccion & " para " & txtUsuario.Text)
+    Quit
+  Endif  
+  
+End

.src/FMain.form

@@ -0,0 +1,41 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,50,39)
+  Text = ("Ajustar SUDO")
+  Icon = Picture["sudo.png"]
+  { txtClaveRoot TextBox
+    MoveScaled(24,9,24,4)
+    Password = True
+  }
+  { SudoComodo RadioButton
+    MoveScaled(2,15,46,4)
+    Text = ("Sudo Cómodo (sin pedir contraseña)")
+    Value = True
+  }
+  { SudoSeguro RadioButton
+    MoveScaled(2,20,46,4)
+    Text = ("Sudo Seguro (pide clave siempre)")
+  }
+  { SinSudo RadioButton
+    MoveScaled(2,25,46,4)
+    Text = ("Quitar Sudo a mi usuario")
+  }
+  { btnAjustarSudo Button
+    MoveScaled(20,32,28,4)
+    Text = ("Ajustar SUDO a mi usuario")
+  }
+  { btnSalir Button
+    MoveScaled(2,32,16,4)
+    Text = ("Salir")
+  }
+  { txtUsuario TextLabel
+    MoveScaled(2,3,46,4)
+    Border = Border.Plain
+  }
+  { lblClaveRoot TextLabel
+    MoveScaled(2,9,21,4)
+    Text = ("Escriba clave de root:")
+    Alignment = Align.Center
+  }
+}

.src/FMain.form~

@@ -0,0 +1,41 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,50,39)
+  Text = ("Ajustar SUDO")
+  Icon = Picture["icon:/22/linux"]
+  { txtClaveRoot TextBox
+    MoveScaled(24,9,24,4)
+    Password = True
+  }
+  { SudoComodo RadioButton
+    MoveScaled(2,15,46,4)
+    Text = ("Sudo Cómodo (sin pedir contraseña)")
+    Value = True
+  }
+  { SudoSeguro RadioButton
+    MoveScaled(2,20,46,4)
+    Text = ("Sudo Seguro (pide clave siempre)")
+  }
+  { SinSudo RadioButton
+    MoveScaled(2,25,46,4)
+    Text = ("Quitar Sudo a mi usuario")
+  }
+  { btnAjustarSudo Button
+    MoveScaled(20,32,28,4)
+    Text = ("Ajustar SUDO a mi usuario")
+  }
+  { btnSalir Button
+    MoveScaled(2,32,16,4)
+    Text = ("Salir")
+  }
+  { txtUsuario TextLabel
+    MoveScaled(2,3,46,4)
+    Border = Border.Plain
+  }
+  { lblClaveRoot TextLabel
+    MoveScaled(2,9,21,4)
+    Text = ("Escriba clave de root:")
+    Alignment = Align.Center
+  }
+}

.startup

@@ -0,0 +1,10 @@
+FMain
+ajustarsudo
+0
+0
+1.0.1
+
+gb.image
+gb.gui
+gb.form
+