git.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/examples/ephemeral.pl

   1 #!/usr/local/bin/perl -w
   2 # ephemeral.pl mikem@open.com.au
   3 #
   4 # Test and demonstrate setting ephemeral RSA key
   5
   6 use Net::SSLeay qw(die_now);
   7
   8 Net::SSLeay::randomize();
   9 Net::SSLeay::load_error_strings();
  10 Net::SSLeay::ERR_load_crypto_strings();
  11 Net::SSLeay::SSLeay_add_ssl_algorithms();
  12
  13 $ctx = Net::SSLeay::CTX_new()
  14     or die_now("Failed to create SSL_CTX $!");
  15
  16 $rsa = &Net::SSLeay::RSA_generate_key(512, 0x10001); # 0x10001 = RSA_F4
  17
  18 die_now("Failed to set ephemeral RSA key $!")
  19     if (&Net::SSLeay::CTX_set_tmp_rsa($ctx, $rsa) < 0);
  20
  21 print "OK\n";
  22 exit;