MailScanner加密附件问题？

afeiraul

MailScanner可以检测附件的内容以及类型，请问它能不能给附件加密啊，比如我发现附件是doc类型的就使用：

1. zip -P 123456 aaa.zip aaa.doc

复制代码

给附件加密，替换aaa.doc为aaa.zip。

ruochen

好像不能加密

afeiraul

恩。。。我找到了可以打zip包，但是不能加密!

afeiraul

我看了它的code，在meesage.pm中（俺是搞C开发的，perl一点儿都不懂）

1. # Create a new zip archive
   
2.   my $zip = Archive::Zip->new();
   
3.   foreach $file (@files) {
   
4.     #JKF 20080331 $zip->addFile("$explodeinto/$file", $file);
   
5.     $unsafefile = $this->{safefile2file}{$file};
   
6.     #print STDERR "Adding $file as $unsafefile\n";
   
7.     MailScanner::Log::InfoLog("Adding zip member name \"%s\"", $file);
   
8.     $zip->addFile("$explodeinto/$file", $unsafefile);
   
9.   }
   
10.   # The new zip file is a normal attachment.
    
11.   my $safezipname = $this->MakeNameSafe('n'.$newzipname, $explodeinto);
    
12.   #print STDERR "Writing to zip $safezipname\n";
    
13.   my $result = $zip->writeToFileNamed($explodeinto . '/' . $safezipname);
    
14.   unless($result == AZ_OK) {
    
15.     #print STDERR "Error: Zip file could not be created!\n";
    
16.     MailScanner::Log::WarnLog("Zip file %s for message %s could not be created",
    
17.                               $safezipname, $this->{id});
    
18.     return;
    
19.   }

复制代码

看似比较简单改成密码保护的，但是它使用的是Archive的zip库，这套库不支持密码保护功能，google了半天也没有结果，在perl版块问也木有人回答。。。