Perl与Java的SSL通信示例

用用OpenSSL与JAVA(JSSE)通信一文中所生成的CA证书及keystore就可以在JAVA和OpenSSL之间通信了，下面以Perl代码为例：（Perl实际使用了OpenSSL)

下面的CLIENT端可以与前文提到的JAVA服务端通信：

1. #use strict;
2. use IO::Socket::SSL(debug4);
4. my ($v_mode, $sock, $buf);
6. if($ARGV[0] eq "DEBUG") { $IO::Socket::SSL::DEBUG = 1; }
8. # Check to make sure that we were not accidentally run in the wrong
9. # directory:
10. unless (-d "certs") {
11.     if (-d "../certs") {
12.     chdir "..";
13.     } else {
14. #    die "Please run this example from the IO::Socket::SSL distribution directory!/n";
15.     }
16. }
18. if(!($sock = IO::Socket::SSL->new( PeerAddr => '172.19.149.52',
19.                    PeerPort => '5555',
20.                    Proto    => 'tcp',
21.                    SSL_verify_mode => 0x01,
22.                    SSL_ca_file => 'mycerts/cacert.pem',
23.                  ))) {
24.     warn "unable to create socket: ", &IO::Socket::SSL::errstr, "/n";
25.     exit(0);
26. } else {
27.     warn "connect ($sock)./n" if ($IO::Socket::SSL::DEBUG);
28. }
30. # check server cert.
31. my ($subject_name, $issuer_name, $cipher);
32. if( ref($sock) eq "IO::Socket::SSL") {
33.     $subject_name = $sock->peer_certificate("subject");
34.     $issuer_name = $sock->peer_certificate("issuer");
35.     $cipher = $sock->get_cipher();
36. }
37. warn "cipher: $cipher./n", "server cert:/n", 
38.     "/t '$subject_name' /n/t '$issuer_name'./n/n";
40. print $sock "Knock, knock./n";
42. my ($buf) = $sock->getlines;
44. $sock->close();
46. print "read: '$buf'./n";

另外，也给出一个PERL的SVR端示例

1. #use strict;
2. use IO::Socket::SSL(debug4);
5. my ($sock, $s, $v_mode);
7. if($ARGV[0] eq "DEBUG") { $IO::Socket::SSL::DEBUG = 1; }
9. # Check to make sure that we were not accidentally run in the wrong
10. # directory:
11. unless (-d "certs") {
12.     if (-d "../certs") {
13.     chdir "..";
14.     } else {
15. #    die "Please run this example from the IO::Socket::SSL distribution directory!/n";
16.     }
17. }
19. if(!($sock = IO::Socket::SSL->new( Listen => 5,
20.                    LocalAddr => '10.56.28.35',
21.                    LocalPort => 9000,
22.                    Proto     => 'tcp',
23.                    Reuse     => 1,
24.                    SSL_use_cert => 1,
25.                    SSL_verify_mode => 0x00,
26.                    SSL_cert_file => 'mycerts/cert.pem',
27.                    SSL_key_file => 'mycerts/key.pem'                   
28.                  )) ) {
29.     warn "unable to create socket: ", &IO::Socket::SSL::errstr, "/n";
30.     exit(0);
31. }
32. warn "socket created: $sock./n";
34. while (1) {
35.   warn "waiting for next connection./n";
36.   
37.   while(($s = $sock->accept())) {
38.       my ($peer_cert, $subject_name, $issuer_name, $date, $str);
39.       
40.       if( ! $s ) {
41.       warn "error: ", $sock->errstr, "/n";
42.       next;
43.       }
44.       
45.       warn "connection opened ($s)./n";
46.       
47.       if( ref($sock) eq "IO::Socket::SSL") {
48.       $subject_name = $s->peer_certificate("subject");
49.       $issuer_name = $s->peer_certificate("issuer");
50.       }
51.       
52.       warn "/t subject: '$subject_name'./n";
53.       warn "/t issuer: '$issuer_name'./n";
54.   
55.       my $date = localtime();
56.       print $s "my date command says it's: '$date'";
57.       close($s);
58.       warn "/t connection closed./n";
59.   }
60. }
63. $sock->close();
65. warn "loop exited./n";

在PERL中写SSL的SOCKET，要注意：
SVR端中：
       SSL_use_cert => 1,
       SSL_verify_mode => 0x00,
       SSL_cert_file => 'mycerts/cert.pem',
       SSL_key_file => 'mycerts/key.pem'
CLI端是：
       SSL_verify_mode => 0x01,
       SSL_ca_file => 'mycerts/cacert.pem',
mode是0表示，不认证对端，是1表示要认证对方。

原文：http://www.blogjava.net/alwayscy/archive/2006/12/04/85368.html