0UT1S's

usr/lib64/perl5/vendor_perl/auto/Net/SSLeay/

By Order of Mr.0UT1S

N/A

601.71 KB

1.54 KB

677 bytes

508 bytes

446 bytes

466 bytes

357 bytes

559 bytes

1.52 KB

544 bytes

dump_peer_certificate.al

958 bytes

316 bytes

319 bytes

319 bytes

319 bytes

322 bytes

322 bytes

316 bytes

319 bytes

319 bytes

319 bytes

322 bytes

346 bytes

322 bytes

325 bytes

333 bytes

319 bytes

322 bytes

399 bytes

1.17 KB

2.96 KB

558 bytes

815 bytes

604 bytes

make_headers.al

575 bytes

1.81 KB

open_proxy_tcp_connection.al

1.25 KB

open_tcp_connection.al

1.45 KB

318 bytes

321 bytes

321 bytes

321 bytes

324 bytes

324 bytes

318 bytes

321 bytes

321 bytes

316 bytes

319 bytes

319 bytes

319 bytes

322 bytes

322 bytes

316 bytes

319 bytes

319 bytes

1.00 KB

set_cert_and_key.al

828 bytes

540 bytes

set_server_cert_and_key.al

413 bytes

ssl_read_CRLF.al

384 bytes

ssl_read_all.al

1.02 KB

ssl_read_until.al

3.07 KB

ssl_write_CRLF.al

812 bytes

ssl_write_all.al

5.60 KB

3.05 KB

tcp_read_CRLF.al

400 bytes

tcp_read_all.al

756 bytes

tcp_read_until.al

970 bytes

tcp_write_CRLF.al

793 bytes

tcp_write_all.al

1.20 KB

1.33 KB

485 bytes

want_X509_lookup.al

441 bytes

want_nothing.al

357 bytes

309 bytes

312 bytes

# NOTE: Derived from blib/lib/Net/SSLeay.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Net::SSLeay;

#line 1178 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/https_cat.al)"
###
### Basic request - response primitive, this is different from sslcat
###                 because this does not shutdown the connection.
###

sub https_cat { # address, port, message --> returns reply / (reply,errs,cert)
    my ($dest_serv, $port, $out_message, $crt_path, $key_path) = @_;
    my ($ctx, $ssl, $got, $errs, $written);

($got, $errs) = open_proxy_tcp_connection($dest_serv, $port);
    return (wantarray ? (undef, $errs) : undef) unless $got;

### Do SSL negotiation stuff

warn "Creating SSL $ssl_version context...\n" if $trace>2;
    initialize();

$ctx = new_x_ctx();
    goto cleanup2 if $errs = print_errs('CTX_new') or !$ctx;

CTX_set_options($ctx, &OP_ALL);
    goto cleanup2 if $errs = print_errs('CTX_set_options');

warn "Cert `$crt_path' given without key" if $crt_path && !$key_path;
    set_cert_and_key($ctx, $crt_path, $key_path) if $crt_path;

warn "Creating SSL connection (context was '$ctx')...\n" if $trace>2;
    $ssl = new($ctx);
    goto cleanup if $errs = print_errs('SSL_new') or !$ssl;

warn "Setting fd (ctx $ctx, con $ssl)...\n" if $trace>2;
    set_fd($ssl, fileno(SSLCAT_S));
    goto cleanup if $errs = print_errs('set_fd');

warn "Entering SSL negotiation phase...\n" if $trace>2;

if ($trace>2) {
	my $i = 0;
	my $p = '';
	my $cipher_list = 'Cipher list: ';
	$p=Net::SSLeay::get_cipher_list($ssl,$i);
	$cipher_list .= $p if $p;
	do {
	    $i++;
	    $cipher_list .= ', ' . $p if $p;
	    $p=Net::SSLeay::get_cipher_list($ssl,$i);
	} while $p;
	$cipher_list .= '\n';
	warn $cipher_list;
    }

$got = Net::SSLeay::connect($ssl);
    warn "SSLeay connect failed" if $trace>2 && $got==0;
    goto cleanup if $errs = print_errs('SSL_connect');

my $server_cert = get_peer_certificate($ssl);
    print_errs('get_peer_certificate');
    if ($trace>1) {
	warn "Cipher `" . get_cipher($ssl) . "'\n";
	print_errs('get_ciper');
	warn dump_peer_certificate($ssl);
    }

### Connected. Exchange some data (doing repeated tries if necessary).

warn "https_cat $$: sending " . blength($out_message) . " bytes...\n"
	if $trace==3;
    warn "https_cat $$: sending `$out_message' (" . blength($out_message)
	. " bytes)...\n" if $trace>3;
    ($written, $errs) = ssl_write_all($ssl, $out_message);
    goto cleanup unless $written;

warn "waiting for reply...\n" if $trace>2;
    ($got, $errs) = ssl_read_all($ssl);
    warn "Got " . blength($got) . " bytes.\n" if $trace==3;
    warn "Got `$got' (" . blength($got) . " bytes)\n" if $trace>3;

cleanup:
    free ($ssl);
    $errs .= print_errs('SSL_free');
cleanup2:
    CTX_free ($ctx);
    $errs .= print_errs('CTX_free');
    close SSLCAT_S;
    return wantarray ? ($got, $errs, $server_cert) : $got;
}

# end of Net::SSLeay::https_cat
1;