⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 00000001.htm

📁 一份很好的linux入门资料
💻 HTM
字号:
🔍 
<HTML><HEAD>  <TITLE>BBS水木清华站∶精华区</TITLE></HEAD><BODY><CENTER><H1>BBS水木清华站∶精华区</H1></CENTER>发信人:&nbsp;is&nbsp;(天啦~~~~),&nbsp;信区:&nbsp;Linux&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>标&nbsp;&nbsp;题:&nbsp;MAILShell.pl&nbsp;<BR>发信站:&nbsp;BBS&nbsp;水木清华站&nbsp;(Sun&nbsp;Apr&nbsp;11&nbsp;09:29:00&nbsp;1999)&nbsp;<BR>&nbsp;<BR>#!/usr/bin/perl&nbsp;<BR>&nbsp;<BR>$GPG=&quot;/usr/bin/gpg&quot;;&nbsp;<BR>$BASE=&quot;/root/MS&quot;;&nbsp;<BR>$SENDMAIL=&quot;/usr/sbin/sendmail&quot;;&nbsp;<BR>$passphrase=&quot;TTTTTTT&quot;;&nbsp;<BR>$From=&quot;MAIL-COMMANDER\<A HREF="mailto:@aha.isee.za.net";">@aha.isee.za.net";</A>&nbsp;<BR>$LocalUser=&quot;MAIL-COMMANDER&quot;;&nbsp;<BR>$sigs{&quot;Yu&nbsp;Xin&quot;}=&quot;8FF51D498C67273D68BBD3E1760DCC1279184EC1&quot;;&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>#&nbsp;Read&nbsp;Key&nbsp;ID&nbsp;from&nbsp;gpg's&nbsp;result&nbsp;<BR>sub&nbsp;GetSIG()&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my($input,$sig);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;open(in,&quot;&lt;&quot;.$_[0]);&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while($input=&lt;in&gt;)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chop($input);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if($input=~/^\[GNUPG:\]\sVALIDSIG\s[1234567890ABCDEF]*$/)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;($sig)=$input=~/^\[GNUPG:\]\sVALIDSIG\s([1234567890ABCDEF]*)$/;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;$sig;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;&quot;NONE&quot;;&nbsp;<BR>}&nbsp;<BR>&nbsp;<BR>#&nbsp;Decrypt&nbsp;Mail&nbsp;&nbsp;<BR>#&nbsp;id.orig&nbsp;gnupg&nbsp;source&nbsp;file&nbsp;<BR>#&nbsp;id.status&nbsp;gnupg&nbsp;running&nbsp;status&nbsp;<BR>#&nbsp;id.output&nbsp;gnupg&nbsp;output&nbsp;<BR>sub&nbsp;DecryptMail()&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my($id)=$_[0];&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my($cmds);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my($returncode);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$id=$BASE.&quot;/&quot;.$id;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#&nbsp;Create&nbsp;GnuPG&nbsp;command&nbsp;line&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$cmds=&quot;|&quot;.$GPG.&quot;&nbsp;--batch&nbsp;--passphrase-fd&nbsp;0&nbsp;--status-fd&nbsp;1&quot;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.&quot;&nbsp;--yes&nbsp;--output&nbsp;&quot;.$id.&quot;.output&nbsp;--decrypt&nbsp;&quot;.$id.&quot;.orig&nbsp;&gt;&nbsp;&quot;.&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$id.&quot;.status&nbsp;2&gt;&nbsp;/dev/null&quot;;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#&nbsp;input&nbsp;passphrase&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;open(out,$cmds);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;out&nbsp;$passphrase;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;close(out);&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#&nbsp;check&nbsp;exit&nbsp;code&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$returncode=$?&gt;&gt;8;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if($returncode!=0)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unlink($id.&quot;.output&quot;);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unlink($id.&quot;.orig&quot;);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unlink($id.&quot;.status&quot;);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;$returncode;&nbsp;<BR>}&nbsp;<BR>&nbsp;<BR>#&nbsp;Create&nbsp;proc&nbsp;id&nbsp;<BR>&nbsp;<BR>$curtime=time();&nbsp;<BR>$id=sprintf(&quot;%010d.%05d&quot;,$curtime,$$);&nbsp;<BR>$ReplyTo=&quot;me\<A HREF="mailto:@isee.za.net";">@isee.za.net";</A>&nbsp;<BR>$tmp=$BASE.&quot;/&quot;.$id;&nbsp;<BR>&nbsp;<BR>#&nbsp;Read&nbsp;mail&nbsp;from&nbsp;stdin&nbsp;and&nbsp;save&nbsp;in&nbsp;temp&nbsp;file&nbsp;<BR>$orig=$tmp.&quot;.orig&quot;;&nbsp;<BR>&nbsp;<BR>open(out,&quot;&gt;&quot;.$orig);&nbsp;<BR>$status=0;&nbsp;<BR>while($input=&lt;STDIN&gt;)&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;out&nbsp;$input;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#&nbsp;Get&nbsp;mail&nbsp;from&nbsp;address&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if($input=~/Reply-To:/&nbsp;&amp;&amp;&nbsp;status==0)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chop($input);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;($ReplyTo)=$input=~/^Reply-To:\s*(.+)/;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$status=1;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;<BR>}&nbsp;<BR>close(out);&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>#&nbsp;Call&nbsp;DecryptMail&nbsp;<BR>$exitcode=&amp;DecryptMail($id);&nbsp;<BR>&nbsp;<BR>if($exitcode!=0)&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit&nbsp;0;&nbsp;<BR>}&nbsp;<BR>&nbsp;<BR>$sig=&amp;GetSIG($tmp.&quot;.status&quot;);&nbsp;<BR>&nbsp;<BR>$status=0;&nbsp;<BR>foreach&nbsp;$i&nbsp;(keys(%sigs))&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if($sigs{$i}&nbsp;eq&nbsp;$sig)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$status=1;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$user=$i;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;last;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;<BR>}&nbsp;<BR>&nbsp;<BR>if($status==0)&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;unlink($orig);&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit&nbsp;0;&nbsp;<BR>}&nbsp;<BR>&nbsp;<BR>$script=$tmp.&quot;.output&quot;;&nbsp;<BR>chmod(0700,$script);&nbsp;<BR>&nbsp;<BR>system($script.&quot;&nbsp;&nbsp;&gt;&nbsp;&quot;.$tmp.&quot;.stdout&quot;.&quot;&nbsp;&nbsp;2&gt;&nbsp;&quot;.$tmp.&quot;.stderr&quot;);&nbsp;<BR>&nbsp;<BR>open(out,&quot;&gt;&quot;.$tmp.&quot;.reply&quot;);&nbsp;<BR>print&nbsp;out&nbsp;&quot;###&nbsp;Start&nbsp;#################################################\n\n&quot;;&nbsp;<BR>print&nbsp;out&nbsp;&quot;&nbsp;ID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;$id\n&quot;;&nbsp;<BR>print&nbsp;out&nbsp;&quot;&nbsp;Reply-To&nbsp;:&nbsp;$ReplyTo\n&quot;;&nbsp;<BR>print&nbsp;out&nbsp;&quot;&nbsp;User&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;$user\n&quot;;&nbsp;<BR>print&nbsp;out&nbsp;&quot;&nbsp;SIG&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;$sigs{$user}\n&quot;;&nbsp;<BR>print&nbsp;out&nbsp;&quot;\n&quot;;&nbsp;<BR>&nbsp;<BR>print&nbsp;out&nbsp;&quot;\n###&nbsp;Script&nbsp;#################################################\n\n&quot;;&nbsp;<BR>open(in,&quot;&lt;&quot;.$script);&nbsp;<BR>while($input=&lt;in&gt;)&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;out&nbsp;$input;&nbsp;<BR>}&nbsp;<BR>close(in);&nbsp;<BR>&nbsp;<BR>print&nbsp;out&nbsp;&quot;\n###&nbsp;STDOUT&nbsp;#################################################\n\n&quot;;&nbsp;<BR>open(in,&quot;&lt;&quot;.$tmp.&quot;.stdout&quot;);&nbsp;<BR>while($input=&lt;in&gt;)&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;out&nbsp;$input;&nbsp;<BR>}&nbsp;<BR>close(in);&nbsp;<BR>&nbsp;<BR>print&nbsp;out&nbsp;&quot;\n###&nbsp;STDERR&nbsp;#################################################\n\n&quot;;&nbsp;<BR>open(in,&quot;&lt;&quot;.$tmp.&quot;.stderr&quot;);&nbsp;<BR>while($input=&lt;in&gt;)&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;out&nbsp;$input;&nbsp;<BR>}&nbsp;<BR>close(in);&nbsp;<BR>print&nbsp;out&nbsp;&quot;\n###&nbsp;END&nbsp;####################################################\n&quot;;&nbsp;<BR>close(out);&nbsp;<BR>&nbsp;<BR>#Encrypt&nbsp;and&nbsp;sign&nbsp;out&nbsp;mail&nbsp;<BR>$cmd=&quot;|&quot;.$GPG.&quot;&nbsp;--batch&nbsp;-a&nbsp;-e&nbsp;-u&nbsp;\&quot;&quot;.$LocalUser.&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;\&quot;&nbsp;-s&nbsp;--yes&nbsp;--passphrase&nbsp;0&nbsp;--output&nbsp;&quot;.&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tmp.&quot;.sendout&nbsp;-r&nbsp;\&quot;&quot;.$user.&quot;\&quot;&nbsp;&quot;.&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tmp.&quot;.reply&nbsp;&gt;/dev/null&nbsp;2&gt;/dev/null&quot;;&nbsp;<BR>&nbsp;<BR>print&nbsp;$cmd,&quot;\n&quot;;&nbsp;<BR>open(out,$cmd);&nbsp;<BR>print&nbsp;out&nbsp;$passphrase;&nbsp;<BR>close(out);&nbsp;<BR>&nbsp;<BR>$cmd=&quot;|&quot;.$SENDMAIL.&quot;&nbsp;-t&nbsp;-f&quot;.$From;&nbsp;<BR>open(out,$cmd);&nbsp;<BR>print&nbsp;out&nbsp;&quot;From:&nbsp;$From\n&quot;;&nbsp;<BR>print&nbsp;out&nbsp;&quot;To:&nbsp;$ReplyTo\n&quot;;&nbsp;<BR>print&nbsp;out&nbsp;&quot;Subject:&nbsp;[$id]&nbsp;Result\n&quot;;&nbsp;<BR>print&nbsp;out&nbsp;&quot;Reply-To:&nbsp;$ReplyTo\n\n&quot;;&nbsp;<BR>&nbsp;<BR>open(in,&quot;&lt;&quot;.$tmp.&quot;.sendout&quot;);&nbsp;<BR>while($input=&lt;in&gt;)&nbsp;<BR>{&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;out&nbsp;$input;&nbsp;<BR>}&nbsp;<BR>close(out);&nbsp;<BR>close(in);&nbsp;<BR>&nbsp;<BR>#&nbsp;clean&nbsp;file&nbsp;<BR>&nbsp;<BR>unlink($tmp.&quot;.orig&quot;);&nbsp;<BR>unlink($tmp.&quot;.output&quot;);&nbsp;<BR>unlink($tmp.&quot;.status&quot;);&nbsp;<BR>unlink($tmp.&quot;.stdout&quot;);&nbsp;<BR>unlink($tmp.&quot;.stderr&quot;);&nbsp;<BR>#unlink($tmp.&quot;.reply&quot;);&nbsp;<BR>#unlink($tmp.&quot;.sendout&quot;);&nbsp;<BR>exit&nbsp;0&nbsp;<BR>&nbsp;<BR>--&nbsp;<BR>※&nbsp;来源:·BBS&nbsp;水木清华站&nbsp;bbs.net.tsinghua.edu.cn·[FROM:&nbsp;202.119.79.80]&nbsp;<BR><CENTER><H1>BBS水木清华站∶精华区</H1></CENTER></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -