byp4a55 professor6T9

Linux vps-223903.laweb30.com.mx 3.10.0-1160.95.1.el7.x86_64 #1 SMP Mon Jul 24 13:59:37 UTC 2023 x86_64
Apache
162.214.112.52

File Name : ssl_client.pl

#
# a test client for testing IO::Socket::SSL-class's behavior
# (marko.asplund at kronodoc.fi).
#
# $Id: ssl_client.pl,v 1.7 2002/01/04 08:45:12 aspa Exp $.
#

use strict;
use IO::Socket::SSL;

my ($v_mode, $sock, $buf);

if($ARGV[0] eq "DEBUG") { $IO::Socket::SSL::DEBUG = 1; }

# Check to make sure that we were not accidentally run in the wrong
# directory:
unless (-d "certs") {
    if (-d "../certs") {
	chdir "..";
    } else {
	die "Please run this example from the IO::Socket::SSL distribution directory!\n";
    }
}

if(!($sock = IO::Socket::SSL->new( PeerAddr => 'localhost',
				   PeerPort => '9000',
				   Proto    => 'tcp',
				   SSL_use_cert => 1,
				   SSL_verify_mode => 0x01,
				   SSL_passwd_cb => sub { return "opossum" },
				 ))) {
    warn "unable to create socket: ", &IO::Socket::SSL::errstr, "\n";
    exit(0);
} else {
    warn "connect ($sock).\n" if ($IO::Socket::SSL::DEBUG);
}

# check server cert.
my ($subject_name, $issuer_name, $cipher);
if( ref($sock) eq "IO::Socket::SSL") {
    $subject_name = $sock->peer_certificate("subject");
    $issuer_name = $sock->peer_certificate("issuer");
    $cipher = $sock->get_cipher();
}
warn "cipher: $cipher.\n", "server cert:\n", 
    "\t '$subject_name' \n\t '$issuer_name'.\n\n";

my ($buf) = $sock->getlines;

$sock->close();

print "read: '$buf'.\n";

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2020-06-17 06:11:15
..	dir	-	root/root	0755	2020-06-17 06:11:15
async_https_server.pl	text/plain	4.46 KB	root/root	0644	2011-05-02 10:17:48
lwp-with-verifycn.pl	text/plain	382 B	root/root	0644	2009-01-22 09:44:47
ssl_client.pl	text/plain	1.3 KB	root/root	0644	2009-01-22 09:44:47
ssl_mitm.pl	text/x-perl	1.68 KB	root/root	0644	2013-05-30 09:28:41
ssl_server.pl	text/plain	1.59 KB	root/root	0644	2009-01-22 09:44:47

Team Anon Force

https://t.me/Professor6T9x