One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Net-SSLeay/examples/

View File Name : ephemeral.pl

#!/usr/bin/perl -w
# ephemeral.pl mikem@open.com.au
#
# Test and demonstrate setting ephemeral RSA key

use Net::SSLeay qw(die_now);

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

$ctx = Net::SSLeay::CTX_new() 
    or die_now("Failed to create SSL_CTX $!");

$rsa = &Net::SSLeay::RSA_generate_key(512, 0x10001); # 0x10001 = RSA_F4

die_now("Failed to set ephemeral RSA key $!")
    if (&Net::SSLeay::CTX_set_tmp_rsa($ctx, $rsa) < 0);

print "OK\n";
exit;