One Hat Cyber Team

Your IP: 216.73.216.133
Server IP: 185.119.109.197
Server: Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.1.33
Buat File | Buat Folder

Dir : ~/proc/thread-self/root/usr/share/usermin/gnupg/

View File Name : delkey.cgi

#!/usr/bin/perl
# delkey.cgi
# Delete a key, perhaps after asking for confirmation

require './gnupg-lib.pl';
&ReadParse();

@keys = &list_keys();
$key = $keys[$in{'idx'}];
if ($key->{'secret'} && !$in{'confirm'}) {
	# For a secret key, ask the user if he is sure
	&ui_print_header(undef, $text{'delkey_title'}, "");

	print &ui_confirmation_form("delkey.cgi",
		&text('delkey_rusure', $key->{'name'}->[0],
                                       $key->{'email'}->[0]),
		[ [ 'idx', $in{'idx'} ] ],
		[ [ 'confirm', $text{'delkey_ok'} ] ],
		);

	&ui_print_footer("list_keys.cgi", $text{'keys_return'},
		"", $text{'index_return'});
	}
else {
	# Just do it
	&delete_key($key);
	&redirect("list_keys.cgi");
	}