Server IP : 192.168.23.10 / Your IP : 216.73.217.47
Web Server : Apache
System : Linux echo.premieradvertising.com 5.14.0-611.55.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue May 19 15:19:29 EDT 2026 x86_64
User : rrrallyteam ( 1049)
PHP Version : 8.1.34
Disable Function : exec,passthru,shell_exec,system
MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF
Directory (0755) : /home/../usr/share/doc/libasyncns/../unzip/../perl-Net-SSLeay/examples/

[ Home ]	[ C0mmand ]	[ Upload File ]

Current File : /home/../usr/share/doc/libasyncns/../unzip/../perl-Net-SSLeay/examples/cb-testi.pl

#!/usr/bin/perl

require Net::SSLeay;

sub provide_password {
#    ($buf,$siz,$rwflag,$pwd)=@_;
    $_[0]="1234";
    return 4;
}

Net::SSLeay::load_error_strings();
Net::SSLeay::SSLeay_add_ssl_algorithms();
Net::SSLeay::randomize();

$ctx=Net::SSLeay::CTX_new();
Net::SSLeay::CTX_set_options($ctx,&Net::SSLeay::OP_ALL);

Net::SSLeay::CTX_set_default_passwd_cb($ctx,\&provide_password);
$r=Net::SSLeay::CTX_use_PrivateKey_file($ctx,"server_key.pem",&Net::SSLeay::FILETYPE_PEM());
if($r==0) {
    print "v��r� avain\n";
} else {
    print "OK\n";
}