🚀 go-pugleaf

He retocado el script en S-Lang de Javier Cantero (gpg-stuff.sl)
para verificar la firma digital de un mensaje.

La idea consiste en guardar la firma digital en las cabeceras, en
lugar de en el propio mensaje.

Por ejemplo, este mensaje est� firmado digitalmente (con GPG 1.0.1)
y la firma digital est� guardada en el campo 'X-PGP-Signature:'
(elegido arbitrariamente) en lugar de en el cuerpo del mensaje.

�Qu� utilidad puede tener esto?... eso que lo decida cada uno ;-)

Faltar�a el c�digo para firmar el cuerpo del mensaje, y a�adir el
campo de cabecera anterior con la firma digital.
En este mensaje este proceso lo he realizado "a mano":

	$ gpg -abs cuerpo-del-mensaje.txt

Y despu�s, insertado manualmente la firma digital (sin
delimitadores) en el propio mensaje:

X-PGP-Signature: <firma digital>

Aqu� va el parche para la versi�n del 7.10.99 de gpg-stuff.sl:

========== Cortar por aqu� ===========================================
--- gpg-stuff.sl.orig	Fri Oct  8 18:09:15 1999
+++ gpg-stuff.sl	Thu Apr 20 00:46:57 2000
@@ -3,6 +3,10 @@
 % Stuff para llamar GPG 1.0 desde slrn
 %
 % Est� basado practicamente en pgp-stuff.sl. Mirar all� para m�s informaci�n.
+%
+% * 19.4.2000 Manuel L�pez Moreno <luname@linuxfan.com>
+% - Modificaci�n chapuza para verificar la firma digital guardada
+%   en un campo de cabecera arbitrario: X-PGP-Signature
 
 define pgp_check_signature ()
 {
@@ -10,10 +14,22 @@
   variable cmd;
   variable i=0;
   variable tmpfile="/tmp/slrn.gpg-tmpfile";
+  variable tmpbodyfile="/tmp/body.tmp";
+  variable tmpsignfile = "/tmp/signature.tmp";
+  variable beginStr = "-----BEGIN PGP SIGNATURE-----\n\n";
+  variable endStr = "\n-----END PGP SIGNATURE-----";
+  variable signature;
+  variable lines;
 
   if (is_group_mode)
   	return ();
 
+  signature = extract_displayed_article_header( "X-PGP-Signature" );
+  lines = extract_displayed_article_header( "Lines" );
+
+  system(sprintf( "echo -e '%s' '%s' '%s' > \"%s\"",
+	beginStr, signature, endStr, tmpsignfile, 4 ));
+
   i=save_current_article(tmpfile);
   if ( i!=0 )
   {
@@ -21,8 +37,11 @@
      return();
   }
 
+  system(sprintf( "tail -%s %s > \"%s\"",
+	lines, tmpfile, tmpbodyfile, 3 ));
+
   cmd="gpg --verify";
-  i = system(sprintf("%s '%s'", cmd, tmpfile, 2));
+  i = system(sprintf("%s '%s' '%s'", cmd, tmpsignfile, tmpbodyfile, 3));
 
   if(i == 0)
   {
========== Cortar por aqu� ===========================================

-- 
Manuel L�pez Moreno
O---m <http://www.linuxfan.com/~luname/pgp-key.asc>

Visita: Web de ecol.* <http://www.linux-es.com/es.comp.os.linux.*/>