Gecko [ satitravel.com ]

Linux server1.hosting4iran.com 4.18.0-553.89.1.el8_10.x86_64 #1 SMP Mon Dec 8 03:53:08 EST 2025 x86_64
LiteSpeed
Server IP : 185.208.174.156 & Your IP : 216.73.216.218
Domains : 282 Domain
User : satitravel

Name	Size	Permission	Date
bio.pl	1.18 KB	-rw-r--r--	2018-07-09 20:58
bulk.pl	1.91 KB	-rw-r--r--	2018-07-09 20:58
callback.pl	3.12 KB	-rw-r--r--	2018-07-09 20:58
cb-testi.pl	548 B	-rw-r--r--	2018-07-09 20:58
cli-cert.pl	3.72 KB	-rw-r--r--	2018-07-09 20:58
ephemeral.pl	553 B	-rw-r--r--	2018-07-09 20:58
get_authenticated_page.pl	730 B	-rw-r--r--	2018-07-09 20:58
get_page.pl	507 B	-rw-r--r--	2018-07-09 20:58
get_page_cert.pl	966 B	-rw-r--r--	2018-07-09 20:58
https-proxy-snif.pl	4.44 KB	-rw-r--r--	2018-07-09 20:58
makecert.pl	1.5 KB	-rw-r--r--	2018-07-09 20:58
minicli.pl	1.31 KB	-rw-r--r--	2018-07-09 20:58
passwd-cb.pl	809 B	-rw-r--r--	2018-07-09 20:58
req.conf	1.2 KB	-rw-r--r--	2018-07-09 20:58
server_key.pem	963 B	-rw-r--r--	2018-07-09 20:58
ssl-inetd-serv.pl	1.6 KB	-rw-r--r--	2018-07-09 20:58
ssl_diff.pl	631 B	-rw-r--r--	2018-07-09 20:58
sslcat.pl	526 B	-rw-r--r--	2018-07-09 20:58
sslecho.pl	3.07 KB	-rw-r--r--	2018-07-09 20:58
stdio_bulk.pl	2.53 KB	-rw-r--r--	2018-07-09 20:58
tcpcat.pl	422 B	-rw-r--r--	2018-07-09 20:58
tcpecho.pl	1.77 KB	-rw-r--r--	2018-07-09 20:58
x509_cert_details.pl	9.88 KB	-rw-r--r--	2018-07-09 20:58

Rename

#!/usr/bin/perl
# 19.6.1998, Sampo Kellomaki <sampo@iki.fi>
# 31.3.1999, Upgraded to OpenSSL-0.9.2b, --Sampo
# 31.7.1999, Upgraded to OpenSSL-0.9.3a, fixed depending on symlinks
#            (thanks to schinder@@pobox_.com) --Sampo
# 7.4.2001,  Upgraded to OpenSSL-0.9.6a --Sampo
# 9.11.2001, EGD patch from Mik Firestone <mik@@speed.stdio._com> --Sampo
#
# Make a self signed cert

use strict;
use warnings;
use File::Copy;
use File::Spec::Functions qw(catfile);

my $dir      = shift || usage();
my $exe_path = shift || '/usr/local/ssl/bin/openssl';
my $egd      = defined( $ENV{EGD_POOL} ) ? "-rand $ENV{EGD_POOL}" : '';

my $conf = catfile($dir, 'req.conf');
my $key  = catfile($dir, 'key.pem' );
my $cert = catfile($dir, 'cert.pem');

open (REQ, "|$exe_path req -config $conf "
      . "-x509 -days 3650 -new -keyout $key $egd >$cert")
    or die "cant open req. check your path ($!)";
print REQ <<DISTINGUISHED_NAME;
XX
Net::SSLeay
test land
Test City
Net::SSLeay Organization
Test Unit
127.0.0.1
sampo\@iki.fi
DISTINGUISHED_NAME
    ;
close REQ;
system "$exe_path verify $cert";  # Just to check

# Generate an encrypted password too
system "$exe_path rsa -in $key -des -passout pass:secret -out $key.e";

### Prepare examples directory as certificate directory

my $hash = `$exe_path x509 -inform pem -hash -noout <$cert`;
chomp $hash;

my $hash_file = catfile($dir, "$hash.0");
unlink $hash_file;
copy($cert, $hash_file) or die "Can't symlink $dir/$hash.0 ($!)";

sub usage {
    die "Usage: $0 DIR [PATH_TO_OPENSSL]";
}