]>
git.ipfire.org Git - thirdparty/openssl.git/blob - perl/ssl.pl
7 $ssl_ctx=SSL
::CTX
->new("SSLv3");
9 #$ssl_ctx->set_options("-info_callback" =>
11 # print STDERR $_[0]->state()."\n";
15 $conn="localhost:4433";
16 $conn=$ARGV[0] if $#ARGV >= 0;
17 $bio=BIO
->new("connect");
18 $bio->hostname($conn) || die $ssl->error();
20 #$bbio=BIO->new("buffer");
26 # my($bio,$state,$cmd,$buf,$lart,$ret)=@_;
27 # print STDERR "$state:$cmd\n";
32 print STDERR
"-1 ABCD\n";
33 $ssl=$ssl_ctx->new_ssl;
34 print STDERR
"000 ABCD\n";
37 print STDERR
"00 ABCD\n";
38 (($ret=$ssl->connect()) > 0) || die $ssl->error();
40 print STDERR
"0 ABCD\n";
42 (($ret=$ssl->syswrite("GET / HTTP/1.0\r\n\r\n")) > 0) || die $ssl->error();
44 print STDERR
"1 ABCD\n";
48 print STDERR
"2 ABCD\n";
49 $ret=$ssl->sysread($buf,1024);
50 print STDERR
"3 ABCD\n";
55 print STDERR
"4 ABCD\n";
56 @a=split(/[\r]\n/,$data);
57 ($server)=grep(/^Server:/,@a);
60 $x509=$ssl->get_peer_certificate();
61 print "subject:".$x509->get_subject_name()."\n";
62 print "issuer:". $x509->get_issuer_name()."\n";
64 $c=$ssl->get_current_cipher;
69 print "protocol=".$ssl->get_version."\n";
70 print "bits=$i($a) cipher type=$v cipher=$n\n";