Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
.packlist	4.79 KB	-rw-rw-rw-
SSLeay.xs.dll	473 KB	-rw-rw-rw-
autosplit.ix	1.62 KB	-rw-rw-rw-
debug_read.al	699 B	-rw-rw-rw-
do_https.al	527 B	-rw-rw-rw-
do_https2.al	459 B	-rw-rw-rw-
do_https3.al	479 B	-rw-rw-rw-
do_https4.al	369 B	-rw-rw-rw-
do_httpx2.al	577 B	-rw-rw-rw-
do_httpx3.al	1.56 KB	-rw-rw-rw-
do_httpx4.al	562 B	-rw-rw-rw-
dump_peer_certificate.al	987 B	-rw-rw-rw-
get_http.al	325 B	-rw-rw-rw-
get_http3.al	328 B	-rw-rw-rw-
get_http4.al	328 B	-rw-rw-rw-
get_https.al	328 B	-rw-rw-rw-
get_https3.al	331 B	-rw-rw-rw-
get_https4.al	331 B	-rw-rw-rw-
get_httpx.al	325 B	-rw-rw-rw-
get_httpx3.al	328 B	-rw-rw-rw-
get_httpx4.al	328 B	-rw-rw-rw-
head_http.al	329 B	-rw-rw-rw-
head_http3.al	332 B	-rw-rw-rw-
head_http4.al	358 B	-rw-rw-rw-
head_https.al	332 B	-rw-rw-rw-
head_https3.al	335 B	-rw-rw-rw-
head_https4.al	345 B	-rw-rw-rw-
head_httpx.al	329 B	-rw-rw-rw-
head_httpx3.al	332 B	-rw-rw-rw-
head_httpx4.al	412 B	-rw-rw-rw-
http_cat.al	1.21 KB	-rw-rw-rw-
https_cat.al	3.05 KB	-rw-rw-rw-
httpx_cat.al	576 B	-rw-rw-rw-
initialize.al	842 B	-rw-rw-rw-
make_form.al	629 B	-rw-rw-rw-
make_headers.al	596 B	-rw-rw-rw-
new_x_ctx.al	1.86 KB	-rw-rw-rw-
open_proxy_tcp_connection.al	1.28 KB	-rw-rw-rw-
open_tcp_connection.al	1.49 KB	-rw-rw-rw-
post_http.al	327 B	-rw-rw-rw-
post_http3.al	330 B	-rw-rw-rw-
post_http4.al	330 B	-rw-rw-rw-
post_https.al	330 B	-rw-rw-rw-
post_https3.al	333 B	-rw-rw-rw-
post_https4.al	333 B	-rw-rw-rw-
post_httpx.al	327 B	-rw-rw-rw-
post_httpx3.al	330 B	-rw-rw-rw-
post_httpx4.al	330 B	-rw-rw-rw-
put_http.al	325 B	-rw-rw-rw-
put_http3.al	328 B	-rw-rw-rw-
put_http4.al	328 B	-rw-rw-rw-
put_https.al	328 B	-rw-rw-rw-
put_https3.al	331 B	-rw-rw-rw-
put_https4.al	331 B	-rw-rw-rw-
put_httpx.al	325 B	-rw-rw-rw-
put_httpx3.al	328 B	-rw-rw-rw-
put_httpx4.al	328 B	-rw-rw-rw-
randomize.al	1.03 KB	-rw-rw-rw-
set_cert_and_key.al	851 B	-rw-rw-rw-
set_proxy.al	557 B	-rw-rw-rw-
set_server_cert_and_key.al	427 B	-rw-rw-rw-
ssl_read_CRLF.al	394 B	-rw-rw-rw-
ssl_read_all.al	1.06 KB	-rw-rw-rw-
ssl_read_until.al	3.16 KB	-rw-rw-rw-
ssl_write_CRLF.al	835 B	-rw-rw-rw-
ssl_write_all.al	5.74 KB	-rw-rw-rw-
sslcat.al	3.15 KB	-rw-rw-rw-
tcp_read_CRLF.al	411 B	-rw-rw-rw-
tcp_read_all.al	782 B	-rw-rw-rw-
tcp_read_until.al	1003 B	-rw-rw-rw-
tcp_write_CRLF.al	816 B	-rw-rw-rw-
tcp_write_all.al	1.24 KB	-rw-rw-rw-
tcpcat.al	1.36 KB	-rw-rw-rw-
tcpxcat.al	502 B	-rw-rw-rw-
want_X509_lookup.al	456 B	-rw-rw-rw-
want_nothing.al	368 B	-rw-rw-rw-
want_read.al	318 B	-rw-rw-rw-
want_write.al	321 B	-rw-rw-rw-

Name

Size

Permission

Action

.packlist

4.79 KB

-rw-rw-rw-

SSLeay.xs.dll

473 KB

-rw-rw-rw-

autosplit.ix

1.62 KB

-rw-rw-rw-

debug_read.al

699 B

-rw-rw-rw-

do_https.al

527 B

-rw-rw-rw-

do_https2.al

459 B

-rw-rw-rw-

do_https3.al

479 B

-rw-rw-rw-

do_https4.al

369 B

-rw-rw-rw-

do_httpx2.al

577 B

-rw-rw-rw-

do_httpx3.al

1.56 KB

-rw-rw-rw-

do_httpx4.al

562 B

-rw-rw-rw-

dump_peer_certificate.al

987 B

-rw-rw-rw-

get_http.al

325 B

-rw-rw-rw-

get_http3.al

328 B

-rw-rw-rw-

get_http4.al

328 B

-rw-rw-rw-

get_https.al

328 B

-rw-rw-rw-

get_https3.al

331 B

-rw-rw-rw-

get_https4.al

331 B

-rw-rw-rw-

get_httpx.al

325 B

-rw-rw-rw-

get_httpx3.al

328 B

-rw-rw-rw-

get_httpx4.al

328 B

-rw-rw-rw-

head_http.al

329 B

-rw-rw-rw-

head_http3.al

332 B

-rw-rw-rw-

head_http4.al

358 B

-rw-rw-rw-

head_https.al

332 B

-rw-rw-rw-

head_https3.al

335 B

-rw-rw-rw-

head_https4.al

345 B

-rw-rw-rw-

head_httpx.al

329 B

-rw-rw-rw-

head_httpx3.al

332 B

-rw-rw-rw-

head_httpx4.al

412 B

-rw-rw-rw-

http_cat.al

1.21 KB

-rw-rw-rw-

https_cat.al

3.05 KB

-rw-rw-rw-

httpx_cat.al

576 B

-rw-rw-rw-

initialize.al

842 B

-rw-rw-rw-

make_form.al

629 B

-rw-rw-rw-

make_headers.al

596 B

-rw-rw-rw-

new_x_ctx.al

1.86 KB

-rw-rw-rw-

open_proxy_tcp_connection.al

1.28 KB

-rw-rw-rw-

open_tcp_connection.al

1.49 KB

-rw-rw-rw-

post_http.al

327 B

-rw-rw-rw-

post_http3.al

330 B

-rw-rw-rw-

post_http4.al

330 B

-rw-rw-rw-

post_https.al

330 B

-rw-rw-rw-

post_https3.al

333 B

-rw-rw-rw-

post_https4.al

333 B

-rw-rw-rw-

post_httpx.al

327 B

-rw-rw-rw-

post_httpx3.al

330 B

-rw-rw-rw-

post_httpx4.al

330 B

-rw-rw-rw-

put_http.al

325 B

-rw-rw-rw-

put_http3.al

328 B

-rw-rw-rw-

put_http4.al

328 B

-rw-rw-rw-

put_https.al

328 B

-rw-rw-rw-

put_https3.al

331 B

-rw-rw-rw-

put_https4.al

331 B

-rw-rw-rw-

put_httpx.al

325 B

-rw-rw-rw-

put_httpx3.al

328 B

-rw-rw-rw-

put_httpx4.al

328 B

-rw-rw-rw-

randomize.al

1.03 KB

-rw-rw-rw-

set_cert_and_key.al

851 B

-rw-rw-rw-

set_proxy.al

557 B

-rw-rw-rw-

set_server_cert_and_key.al

427 B

-rw-rw-rw-

ssl_read_CRLF.al

394 B

-rw-rw-rw-

ssl_read_all.al

1.06 KB

-rw-rw-rw-

ssl_read_until.al

3.16 KB

-rw-rw-rw-

ssl_write_CRLF.al

835 B

-rw-rw-rw-

ssl_write_all.al

5.74 KB

-rw-rw-rw-

sslcat.al

3.15 KB

-rw-rw-rw-

tcp_read_CRLF.al

411 B

-rw-rw-rw-

tcp_read_all.al

782 B

-rw-rw-rw-

tcp_read_until.al

1003 B

-rw-rw-rw-

tcp_write_CRLF.al

816 B

-rw-rw-rw-

tcp_write_all.al

1.24 KB

-rw-rw-rw-

tcpcat.al

1.36 KB

-rw-rw-rw-

tcpxcat.al

502 B

-rw-rw-rw-

want_X509_lookup.al

456 B

-rw-rw-rw-

want_nothing.al

368 B

-rw-rw-rw-

want_read.al

318 B

-rw-rw-rw-

want_write.al

321 B

-rw-rw-rw-

Code Editor : sslcat.al

# 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 1051 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\sslcat.al)"
###
### Basic request - response primitive (don't use for https)
###

sub sslcat { # address, port, message, $crt, $key --> 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(); # Will init at most once

$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 returned $got\n" if $trace>2;
    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 "sslcat $$: sending " . blength($out_message) . " bytes...\n"
	if $trace==3;
    warn "sslcat $$: sending `$out_message' (" . blength($out_message)
	. " bytes)...\n" if $trace>3;
    ($written, $errs) = ssl_write_all($ssl, $out_message);
    goto cleanup unless $written;

sleep $slowly if $slowly;  # Closing too soon can abort broken servers
    CORE::shutdown SSLCAT_S, 1;  # Half close --> No more output, send EOF to server

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::sslcat
1;

${this.title}

Code Editor : sslcat.al