Subido a Gitea

.directory

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

.gitignore

@@ -0,0 +1,14 @@
+#---- Gambas files to ignore (v4)
+*.gambas
+.lock
+*~
+core
+core.*
+vgcore
+vgcore.*
+.kdbg*
+.*.prof
+.lang/*.pot
+.gambas/*
+.settings
+#----

.hidden/CHANGELOG

@@ -0,0 +1,6 @@
+* Thu Sep 10 2020 luisgulo <luisgulo@soloconlinux.org.es> 1.0.4
+- Ajuste de Icono de aplicacion
+
+* Thu Sep 10 2020 luisgulo <luisgulo@soloconlinux.org.es> 1.0.3
+- Lanzamiento inicial
+

.project

@@ -0,0 +1,30 @@
+# Gambas Project File 3.0
+Title=PdfVerifySign
+Startup=FMain
+Icon=PdfVerifySign-icono.png
+Version=1.0.4
+Component=gb.image
+Component=gb.gui
+Component=gb.form
+Description="Verificador de Firmas en Documentos PDF"
+Authors="luisgulo@soloconlinux.org.es"
+TabSize=2
+Language=es_ES
+SourcePath=/home/luisgulo/ProyectosGAMBAS/SOURCEs
+Maintainer=luisgulo
+Vendor=luisgulo
+Address=luisgulo@soloconlinux.org.es
+Url=https://repositorio.soloconlinux.org.es
+License=General Public License
+PackageName=pdfverifysign-1.0.4
+CreateEachDirectory=1
+Packager=1
+Systems=debian
+Menus=debian:"Applications/File Management"
+Categories=debian:"Utility"
+Groups=debian:"utils"
+ExtraDependencies=debian:"poppler-utils\t\t"
+Tags=Example,FileTools,Office,Security,Utility,Viewer
+Dependencies=poppler-utils
+WebSite=https://repositorio.soloconlinux.org.es/
+CreateMenu=1

.src/FMain.class

@@ -0,0 +1,42 @@
+' Gambas class file
+
+
+Public Sub Form_Open()
+  '' Usaremos el poder de pdfsig (poppler-utils)
+  ' Poner titulo y version
+  Me.Title = "PDFVerifySign" & " - versión: " & Application.Version
+  ' Solo permitimos ver PDFs
+  EscogePDF.Filter = ["*.pdf", "Ficheros PDF"]
+  'Definimos cabecera mensajes en toda la App
+  Message.Title = Application.Name 
+  System.Shell = "/bin/bash"
+End
+
+Public Sub botonSalir_Click()
+  Quit
+End
+
+Public Sub botonVerificarFirma_Click()
+  Dim ficheroPDF As String
+  Dim Resultado As String
+  txtResultado.Text = "*** Comprobando PDF ***"
+  If IsNull(EscogePDF.SelectedPath)
+    Message.Warning("No ha seleccionado ningun PDF para comprobar")
+    Return
+  Endif
+  ficheroPDF = EscogePDF.SelectedPath
+  'Comprobar si tiene firma o no
+  Shell "echo -n $(pdfsig " & Shell$(ficheroPDF) & " 1>/dev/null 2>/dev/null; echo $?)" To Resultado
+  If Resultado = "2"
+    Message.Info("No he podido localizar ninguna firma en el PDF")
+    txtResultado.Text = "No se ha localizado ninguna firma en el PDF"
+    Return
+  Endif
+  If Resultado = "1"
+    Message.Error("Formato de PDF Incorrecto")
+    txtResultado.Text = "Formato de PDF Incorrecto"
+    Return  
+  Endif
+  ' Si llega aqui tiene valor de retorno 0 (Correcto)
+  Shell "pdfsig " & Shell$(ficheroPDF) To txtResultado.Text
+End

.src/FMain.form

@@ -0,0 +1,35 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,120,69)
+  Icon = Picture["icon:/22/pdf"]
+  Resizable = False
+  { botonVerificarFirma Button
+    MoveScaled(71,64,23,4)
+    Text = (" Verificar Firma")
+    Picture = Picture["icon:/22/pdf"]
+  }
+  { txtResultado TextArea
+    MoveScaled(52,5,67,58)
+    Font = Font["-1"]
+    ReadOnly = True
+  }
+  { labelResultado Label
+    MoveScaled(52,1,57,4)
+    Text = ("Resultado de la verificación de la Firma del Documento PDF")
+  }
+  { EscogePDF FileChooser
+    MoveScaled(1,5,50,58)
+    Font = Font["-1"]
+    ReadOnly = True
+  }
+  { labelSelecciona Label
+    MoveScaled(1,1,50,4)
+    Text = ("Seleccione el PDF que desee verificar")
+  }
+  { botonSalir Button
+    MoveScaled(96,64,23,4)
+    Text = (" Salir")
+    Picture = Picture["icon:/22/quit"]
+  }
+}

.startup

@@ -0,0 +1,10 @@
+FMain
+PdfVerifySign
+0
+0
+1.0.4
+
+gb.image
+gb.gui
+gb.form
+