3
嘿,我正在编写一个程序,它使用@INC钩子来解密真正的perl源码。我有一个很烦人的问题,没有显示使用警告或任何我的标准技巧......基本上,当我开始创建新的密码对象时,循环跳到@INC中的下一个对象,没有错误或任何错误.... 我不知道该怎么办!@INC hook未知致命错误
#!/usr/bin/perl -w
use strict;
use Crypt::CBC;
use File::Spec;
sub load_crypt {
my ($self, $filename) = @_;
print "Key?\n: ";
chomp(my $key = <STDIN>);
for my $prefix (@INC) {
my $buffer = undef;
my $cipher = Crypt::CBC->new(-key => $key, -cipher => 'Blowfish');
my $derp = undef;
$cipher ->start('decrypting');
open my $fh, '<', File::Spec->($prefix, "$filename.nc") or next;
while (read($fh,$buffer,1024)) {
$derp .= $cipher->crypt($buffer);
}
$derp .= $cipher->finish;
return ($fh, $derp);
}
}
BEGIN {
unshift @INC, \&load_crypt;
}
require 'gold.pl';
另外,如果我把实际的密钥在初始化方法仍然失败
你认为给'@ INC添加函数引用是否会完成? – TLP
@TLP,阅读[require](http://perldoc.perl.org/functions/require.html)文档的末尾。它可以让你自定义模块源代码的加载方式。 (但在这种情况下,他做错了。) – cjm