perl - 我可以在 CGI 脚本的源代码中安全地存储密码吗？

Question

我在Email::Send::SMTP::Gmail的帮助下通过 Gmail 使用 Perl 发送电子邮件。脚本存储为send.pl. 我正在访问它localhost/send.pl。我必须在这个 Perl 脚本中输入我的 Gmail 帐户密码，然后从我的浏览器访问它。

浏览此网站的任何人都可以通过任何方式获取我的 Gmail 密码吗？

我的代码：

use strict;
use warnings;
use Email::Send::SMTP::Gmail;
my $mail = Email::Send::SMTP::Gmail->new(
    -smtp  => 'gmail.com',
    -login => 'whateveraddress@gmail.com',
    -pass  => 'whatever_pass'
);
$mail->send(
    -to          => 'target@xxx.com',
    -subject     => 'Hello!',
    -charset     => 'KOI8-R',
    -verbose     => '1',
    -body        => 'Just testing it',
    -attachments => 'full_path_to_file'
);
$mail->bye;

Answer 1

只要服务器保持正确配置，不，您的密码是安全的。

但是，将密码保存在站点根目录之外的配置文件中并从脚本中读取它而不是将其嵌入脚本本身是一个好主意。这样，如果服务器配置发生更改并开始提供原始脚本而不是执行它，您的密码仍然是安全的。