File Manager

X7ROOT File Manager

Current Path: /usr/libexec/usermin/gnupg

📁 ..
📄 CHANGELOG(713 B)
📄 config(22 B)
📄 config.info(136 B)
📄 config.info.ca(159 B)
📄 config.info.de(163 B)
📄 config.info.nl(162 B)
📄 config.info.no(142 B)
📄 decrypt.cgi(1.08 KB)
📄 delete_keys.cgi(325 B)
📄 delkey.cgi(710 B)
📄 edit_decrypt.cgi(927 B)
📄 edit_encrypt.cgi(1.03 KB)
📄 edit_export.cgi(1.16 KB)
📄 edit_key.cgi(2.73 KB)
📄 edit_secret.cgi(963 B)
📄 edit_sign.cgi(1.08 KB)
📄 edit_verify.cgi(1.11 KB)
📄 encrypt.cgi(844 B)
📄 export.cgi(1.33 KB)
📄 gnupg-lib.pl(13.38 KB)
📁 images
📄 import.cgi(1.06 KB)
📄 index.cgi(1.64 KB)
📄 list_keys.cgi(3.71 KB)
📄 module.info(198 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(160 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(244 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(300 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(313 B)
📄 module.info.ca(23 B)
📄 module.info.ca.auto(142 B)
📄 module.info.cs(0 B)
📄 module.info.cs.auto(192 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(165 B)
📄 module.info.de(104 B)
📄 module.info.de.auto(12 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(345 B)
📄 module.info.es(35 B)
📄 module.info.es.auto(156 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(173 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(243 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(165 B)
📄 module.info.fr(26 B)
📄 module.info.fr.auto(159 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(199 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(194 B)
📄 module.info.hu(27 B)
📄 module.info.hu.auto(169 B)
📄 module.info.it(0 B)
📄 module.info.it.auto(182 B)
📄 module.info.ja(24 B)
📄 module.info.ja.auto(153 B)
📄 module.info.ko(0 B)
📄 module.info.ko.auto(163 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(204 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(185 B)
📄 module.info.ms(0 B)
📄 module.info.ms.auto(176 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(193 B)
📄 module.info.nl(28 B)
📄 module.info.nl.auto(142 B)
📄 module.info.no(25 B)
📄 module.info.no.auto(131 B)
📄 module.info.pl(0 B)
📄 module.info.pl.auto(180 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(181 B)
📄 module.info.pt_BR(0 B)
📄 module.info.pt_BR.auto(190 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(184 B)
📄 module.info.ru(0 B)
📄 module.info.ru.auto(290 B)
📄 module.info.sk(0 B)
📄 module.info.sk.auto(186 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(185 B)
📄 module.info.sv(0 B)
📄 module.info.sv.auto(163 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(311 B)
📄 module.info.tr(0 B)
📄 module.info.tr.auto(195 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(300 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(293 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(163 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(137 B)
📄 module.info.zh_TW(0 B)
📄 module.info.zh_TW.auto(146 B)
📄 recv.cgi(734 B)
📄 save_key.cgi(2.85 KB)
📄 secret.cgi(2.02 KB)
📄 send.cgi(654 B)
📄 sign.cgi(1018 B)
📄 signkey.cgi(2.05 KB)
📁 ulang
📄 verify.cgi(1.53 KB)

Editing: signkey.cgi

#!/usr/bin/perl
# signkey.cgi
# Sign a key, after asking the user if he is sure

require './gnupg-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'signkey_title'}, "");

@keys = &list_keys();
$key = $keys[$in{'idx'}];
($secret) = grep { $_->{'secret'} } @keys;

if ($in{'confirm'}) {
	# Do it!
	$cmd = "$gpgpath --edit-key \"$key->{'name'}->[0]\"";
	($fh, $fpid) = &foreign_call("proc", "pty_process_exec", $cmd);
	&wait_for($fh, "command>");
	syswrite($fh, "sign\n");
	while(1) {
		$rv = &wait_for($fh, "really sign all",
				'really sign\?', "already", "your selection",
				"passphrase", "nothing to sign", "command>",
				"(error|failed).*", "expire at the same time");
		sleep(1);
		if ($rv == 0 || $rv == 1) {
			syswrite($fh, "y\n");
			}
		elsif ($rv == 2 || $rv == 5) {
			print "",&text('signkey_already',
				 "<tt>$key->{'name'}->[0]</tt>"),"\n";
			last;
			}
		elsif ($rv == 3) {
			syswrite($fh, $in{'trust'}."\n");
			}
		elsif ($rv == 4) {
			$pass = &get_passphrase();
			syswrite($fh, "$pass\n");
			}
		elsif ($rv == 6) {
			print "",&text('signkey_success',
			 "<tt>$key->{'name'}->[0]</tt>"),"\n";
			last;
			}
		elsif ($rv == 7) {
			print "",&text('signkey_failed',
			 "<tt>$key->{'name'}->[0]</tt>",
			 "<pre>$wait_for_input</pre>"),"\n";
			last;
			}
		elsif ($rv == 8) {
			syswrite($fh, "y\n");
			}
		else {
			# Unknown response!
			last;
			}
		}
	syswrite($fh, "quit\n");
	$rv = &wait_for($fh, "save changes");
	if ($rv == 0) {
		syswrite($fh, "y\n");
		sleep(1);
		}
	close($fh);
	}
else {
	# Ask the user if he is sure
	print &ui_confirmation_form("signkey.cgi", 
	 &text('signkey_confirm', "<tt>$key->{'name'}->[0]</tt>",
	 $key->{'email'}->[0] ? "&lt;<tt>$key->{'email'}->[0]</tt>&gt;" : "",
	 "<tt>".&key_fingerprint($key)."</tt>"),
	 [ [ "idx", $key->{'index'} ] ],
	 [ [ "confirm", $text{'key_sign'} ] ],
	 $text{'signkey_trustlevel'}." ".
	 &ui_select("trust", 0,
		 [ map { [ $_, $text{'signkey_trust'.$_} ] } (0..3) ])
	 );
	}

&ui_print_footer("list_keys.cgi", $text{'keys_return'},
	"", $text{'index_return'});

X7ROOT File Manager

Editing: signkey.cgi

Upload File

Create Folder