如何在windows平台使用FTPSSL?

fikong2005

由于FTP都是明文方式，现在客户要求加密，服务端启用FTP的SSL模式，
郁闷啊，由于是生成环境，没有外部网络，就安装一个FTPSSL模块都搞死我了。
好像依赖的模块比较多，我在本机上用ppm install的方式安装，装了好多东西，然后在本机上测试一个例子，如下：
    my $ftps = Net::FTPSSL->new("$ftpHost",
                                Port => 990,
                                Encryption => 'E',
                                Debug => 1)
      or die "Can't open ftp.yoursecureserver.com";
   
    $ftps->login("$ftpHostUser", "$ftpHostPwd")
      or die "Can't login: ", $ftps->$last_message();
   
    $ftps->cwd("$dstdir") or die "Can't change directory: ", $ftps->last_message;
   
    $ftps->put("made.pl") or die "Can't get file: ", $ftps->last_message;
   
    $ftps->quit();

运行报错，显示：
“无法定位序号334于动态链接库LIBEAY32.dll上”

求救啊，是什么回事，同时，如何在封闭网络环境安装FTPSSL呀。手工安装非常麻烦啊，要装C编译器，然后一堆依赖的模块需要拷贝过去，大侠们有无好的解决方案啊。

meihuaqi

我曾经用过的ftps客户端，给你参考一下：

1. use IO::Socket::SSL;
   
2. #use IO::Socket::INET6;
   
3. 
   
4. 
   
5. if(!($sock = IO::Socket::SSL->new( PeerAddr => '172.16.73.212',
   
6.                                    PeerPort => '990',
   
7.                                    Proto    => 'tcp',
   
8.                                    SSL_verify_mode => 0x00,
   
9.                                    SSL_key_file => 'ca2048_s_interca_1.key',
   
10.                                    SSL_cert_file => 'ca2048_s_interca_1.crt',
    
11.                                    SSL_use_cert => 1,
    
12.                                 ))) {
    
13.     warn "unable to create socket: ", &IO::Socket::SSL::errstr, "\n";
    
14.     exit(0);
    
15. } else {
    
16.     warn "connect ($sock).\n" if ($IO::Socket::SSL::DEBUG);
    
17. }
    
18. 
    
19. 
    
20. print $sock "USER test\r\n" ;
    
21. $sock->sysread($data,1024);
    
22. print $data;
    
23. print $sock "PASS click1\r\n" ;
    
24. $sock->sysread($data,1024);
    
25. print $data;
    
26. 
    
27. while(1)
    
28. {
    
29.         print $sock "PASV\r\n" ;
    
30.         #print $sock "EPSV\r\n" ;
    
31.         while(<$sock>)
    
32.         {
    
33. #               print "$_\n";
    
34.                 $data=$_;
    
35.                 last if $data=~/(227)|(229)/;
    
36.         }
    
37. 
    
38.         chomp($data);
    
39.         
    
40.         if($data=~/\|(\d+)\|/)
    
41.         {
    
42.                 ($port)=$data=~/\|(\d+)\|/;
    
43.         } else {
    
44.                 ($num1,$num2)=$data=~/,(\d+),(\d+)\)/;
    
45. #               print "num1 is $num1. num2 is $num2\n";
    
46.                 $port=$num1*256+$num2;
    
47.         }
    
48. 
    
49. #        print "the port is $port\n";
    
50. 
    
51.         if(!($s = IO::Socket::SSL->new( PeerAddr => '172.16.73.212',
    
52.                                            PeerPort => "$port",
    
53.                                            Proto    => 'tcp',
    
54.                                            SSL_verify_mode => 0x00,
    
55.                                           SSL_key_file => 'ca2048_s_interca_1.key',
    
56.                                           SSL_cert_file => 'ca2048_s_interca_1.crt',
    
57.                                           SSL_use_cert => 1,
    
58.                                         ))) {
    
59.             warn "unable to create socket: ", &IO::Socket::SSL::errstr, "\n";
    
60.             exit(0);
    
61.         } else {
    
62.             warn "connect ($sock).\n" if ($IO::Socket::SSL::DEBUG);
    
63.         }
    
64.                                        
    
65.         print $sock "RETR hostname.txt\r\n" ;
    
66.         #print $sock "RETR vmcore.219\r\n" ;
    
67. #        while(<$s>)
    
68. #        {
    
69. #               
    
70. #        }
    
71.         $s->sysread($data,1024);
    
72.         print "$data";
    
73.         close($s);
    
74. }
    
75. close($sock);

复制代码

fikong2005

谢谢楼上的，我拿来尝试下。