git.maemo.org Git - dh-make-perl/blob - dev/i386/libnet-ssleay-perl/libnet-ssleay-perl-1.35/examples/cb-testi.pl

   1 #!/usr/bin/perl
   2
   3 require Net::SSLeay;
   4
   5 sub provide_password {
   6 #    ($buf,$siz,$rwflag,$pwd)=@_;
   7     $_[0]="1234";
   8     return 4;
   9 }
  10
  11 Net::SSLeay::load_error_strings();
  12 Net::SSLeay::SSLeay_add_ssl_algorithms();
  13 Net::SSLeay::randomize();
  14
  15 $ctx=Net::SSLeay::CTX_new();
  16 Net::SSLeay::CTX_set_options($ctx,&Net::SSLeay::OP_ALL);
  17
  18 Net::SSLeay::CTX_set_default_passwd_cb($ctx,\&provide_password);
  19 $r=Net::SSLeay::CTX_use_PrivateKey_file($ctx,"server_key.pem",&Net::SSLeay::FILETYPE_PEM());
  20 if($r==0) {
  21     print "väärä avain\n";
  22 } else {
  23     print "OK\n";
  24 }