it技术指南:www.itedus.com
  • 信息订阅

IT指南

  • TNT五分钟问卷赢IPOD
  • 贝塔斯曼
  • 广告联盟
  • No pay, More gain!
  • 单价15元-网络广告平台
  • 注册阿里妈妈赚广告费
  • 首页
  • 新闻资讯
  • 网页制作
  • 软件使用
  • 操作系统
  • 软件编程
  • 网络编程
  • 图象处理
  • 网站欣赏
  • 数据库
  • 认证考试
  • 站长知识
正在浏览栏目导航:首页 > 网络编程 > CGI/perl >

PerlCGI程式写作常问问题集(4)安全

时间:2007-12-19 11:55:02   来源:本站原创  作者:IT爱好者


5.0-安全

--------------------------------------------------------------------------------

Q5.1:以Perl写成的CGI程式是不是不如以shell或C写的来得安全?
这个问题的答案是:CGI程式先天上就不安全,不管它是用那个语言写成的*。

【译者】WWW及
CGI操作安全FAQ中问题第31对此有深入的探讨。



--------------------------------------------------------------------------------

Q5.2:我该特别留意哪些安全事项?
绝对不要对shell暴露任何form资料。底下这几项通通都是安全漏洞:

open(COMMAND,"/usr/ucb/finger$form_user");
system("/usr/ucb/finger$form_user");
@data=`usr/ucb/finger$form_user`;
话虽如此,在上面的第二种写法中,系统安全可藉着改变参数传送的方式而得以改善。也就是将参数由字串方式传送(shell会先解译),改为序列方式传送。

system("/usr/ucb/finger",$form_user);
您同时应该阅读:

由LincolnStein所着,一份很完整的WWW及CGI操作安全FAQ
PaulPhillips所着,CGI安全FAQ


--------------------------------------------------------------------------------

Q5.3:为什麽大家都说
http://bigidiot.abuse-me.com/perl.exe?foo.pl这样很危险?会有多糟?
极度危险!想想看如果我这麽做会发生什麽事:

http://bigidiot.abuse-me.com/cgi-bin/perl.exe?-e 'format: c'


现在您同意了吧?避免这个恶梦发生的方法:

将perl.exe执行档由``cgi-bin''移到server根目录以外的目录里去。
在``cgi-bin''里用批次档(batch)script来叫出您的CGIscript。
以下是一例。假设您的CGIscript叫做``sample.pl''而您的批次档叫``simple.bat'':

@echooff
c:/dos_perl/perl.exec:/netscape/ns-home/docs/cgi-bin/simple.pl

现在,您可以做:

ClickHere


--------------------------------------------------------------------------------

Q5.4:要如何在程式中安全地使用逆向撇号(backticks,"`",位於键盘左上角)?这麽做:
@ans=`grep'$user_field'some.file`;
是不是真的不安全?
是的!这非常危险!试想,如果$user_field含有这样的内容会有什麽後果:

;rm-fr/;

要达到相同的效果,一个比较安全的做法是*:

if(openGREP,"-|"){
@ans=;
}else{
exec("/usr/local/bin/grep",$user_field,"some.file")
||die"Errorexec'ingcommand","/n";
}

closeGREP;

【译者】如果读者对以上openGREP,"-|"部份的句法有疑问,可以
参阅perlipcmanpages中SafePipeOpens一节的说明。



--------------------------------------------------------------------------------

Q5.5:/$user_variable/这个句法是不是Perl5中的一个安全漏洞?
不!这不是个安全漏洞。但是如果您用eval指令在执行期(runtime)去评估这个叙述,那麽,它会变成一个安全死角。例如这种做法可能很危险:

foreach$regexp(@all_regexps){
eval"foreach(/@data){push(/@matches,/$_)ifm|$regexp|o;}";
}


--------------------------------------------------------------------------------
版权事宜

--------------------------------------------------------------------------------

Thisdocument,andallitsparts,areCopyright(c)1996,Shishir
GundavaramandTomChristiansen.Allrightsreservered.
Permissontodistributethiscollection,inpartorfull,viaelectronic
means(emailed,postedorarchived)orprintedcopyaregrantedproviding
thatnochargesareinvolved,reasonableattemptismadetousethemost
currentversion,andallcreditsandcopyrightnoticesareretained.
Requestsforotherdistributionrights,includingincorporationin
commercialproducts,suchasbooks,magazinearticles,orCD-ROMsshouldbe
madetoeitheroftheauthors.

本文件着作权属於ShishirGundavaram及TomChristiansen所有,Copyright(C)1996。在不涉及收费营利、尽可能地使用最新版,及所有着作权告示保持完整的情况下,作者允许任何人透过电子形式(电子邮件、讨论群布告,或存放),或印表方式对本文件作完整或部份发行。如欲将本文件作其他方式发行,包括将本文件附加於商业产品,诸如书籍、杂志文章,或光碟等之中,必须事先对二位作者其中一人提出请求,以徵得许可授权。

本中译版及译者补充部份着作权属萧百龄及两只老虎工作室所有,Copyright(C)1997。本中译版遵守并使用与上述原文版相同的使用条款发行。

关键字:
关闭此页
上一篇:PerlCGI程式写作常问问题集(3)CGI与WWWServer
下一篇:Perl简介(适合对C语言有点认识的读者)

相关文章

    无相关信息
本栏目推荐
  • 单行代码的Perl程序
  • 使用perldoc找文档
  • Perl的经典用法:读入
  • Perl的经典用法:用正
  • PERL下的正则表达式
  • Perl简单模块指南
  • 如何使用strict和wa
  • 《极限编程》前言及
  • 使用Maypole进行快速
  • perl5中文教程1章

排行榜

  • 1PerlCookbook2介绍
  • 2《极限编程》前言及第一章
  • 3使用Maypole进行快速Web应用开发:第2
  • 4Perl简单模块指南
  • 5如何使用strict和warnings
  • 6Perl小技巧:文件操作
  • 7Perl简介
  • 8构建一个Perl/CGI投票系统

最新信息

  • Perl常用系统函数
  • Perl的运算符号字符
  • Perl的基本输入输出
  • Perl变量(1)--纯变量
  • Perl文件及目录操作
  • Perl常规表达式(2)
  • Perl变量(2)--数组
  • Perl常规表达式(1)
关于站点 - 广告服务 - 联系我们 - 返回顶部
Copyright © 2007 www.itedus.com . All rights reserved.QQ群:8814225
如果碰到相关技术问题可以联系我们,原创相关问题请与站长及时联系.鄂ICP备07005792号