[這篇文章最後由POP在 2011/07/19 11:57pm 第 4 次編輯]
使用方法:
〔postpw=密碼〕文章內容〔/postpw〕用途:
就像部落格可以選擇輸入密碼加密的效果
對於想加密只想讓特定人士瀏覽文章內容
但又不想使用論壇既有加密標籤
(因顧慮此特定人士恐不符解密條件)
特點:
1. 安全性高, 參照現有加密標籤修改, 無破解漏洞(若有其他官方標籤也會有)
2. 使用cookies儲存輸入密碼, 瀏覽器未關閉前或未超過1日有效期限, 瀏覽者無須重複輸入密碼
修改:
1. attachment.cgi
找到
if ($postjf eq "yes" && $pvtdown ne "no") {
if ($post1 =~m/\[post=(.+?)\](.+?)\[\/post\]/isg){
$viewusepost=$1;
unless (($StartCheck >= $viewusepost)||($membercode eq "ad")||($membercode eq "smo")||($inmembmod eq "yes")||($poster eq $inmembername)){
if ($newformat eq 0) {
&error("普通錯誤&你無權下載這個加密附件！需要發表文章達到$viewusepost，而你只有$StartCheck。");
} else {
while ($post1 =~ /\[post=(.+?)\](.+?)\[\/post\]/is) {
&error("普通錯誤&你無權下載這個加密附件！需要發表文章達到$viewusepost，而你只有$StartCheck。") if ($2 =~ /$filename/);
$post1 =~ s/\[post=(.+?)\](.+?)\[\/post\]//is;
}
}
}
}
}
加上
#文章密碼標籤_S
if ($postpw eq "yes" && $pvtdown ne "no") {
if ($post1 =~m/\
文章內容 :
本內容已被隱藏 , 須輸入密碼才能查看
</font>
</font>
</td>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><blockquote><font face=$font>文章內容 : <hr noshade size=1><font color=red>本內容已被隱藏 , 須輸入密碼$LeoBBS_B_CHT能查看<\/font><hr noshade size=1><\/font><\/blockquote></font>
</td>
<!--文章密碼標籤_E-->
15. code.cgi
找到
if ($postjf eq "yes") {
if ($$post =~m/\[post=(\d+?)\](.+?)\[\/post\]/isg){
$viewusepost=$1;
if ($StartCheck >= $viewusepost) { $Checkpost='ok'; } else { $Checkpost='not'; }
if (($Checkpost eq 'ok')||($mymembercode eq "ad")||($mymembercode eq "smo")||($myinmembmod eq "yes")||(lc($membername) eq lc($inmembername))){
$$post =~s/\[post=(\d+?)\](.*)\[\/post\]/<blockquote><font color=$posternamecolor>文章內容：（發言總數須有 <b>$viewusepost<\/B> $LeoBBS_B_CHT能查看本文章） <hr noshade size=1>$2<hr noshade size=1><\/font><\/blockquote>/isg;
} else {
$$post =~s/(\[post=(\d+?)\])(.*)(\[\/post\])/<blockquote><font color=$posternamecolor>文章內容： <hr noshade size=1><font color=$fonthighlight>本內容已被隱藏 , 發言總數須有 <b>$viewusepost<\/B> $LeoBBS_B_CHT能查看<\/font><hr noshade size=1><\/font><\/blockquote>/isg;
$addme="附件保密!<br><br>" if (($addme)&&($1 =~ m/^\[post/));
}
}
}
加上
#文章密碼標籤_S
if ($postpw eq "yes") {
if ($$post =~m/\[postpw=(.+?)\](.+?)\[\/postpw\]/isg){
$inpostpw = $query->param('postpw');
$inpostpw = $query->cookie('apostpwcookie') if ($inpostpw eq "");
$viewusepostpw=$1;
if ($inpostpw eq $viewusepostpw) { $Checkpostpw='ok'; }
else { $Checkpostpw='not'; }
if (($Checkpostpw eq 'ok')||($mymembercode eq "ad")||($mymembercode eq "smo")||($myinmembmod eq "yes")||(lc($membername) eq lc($inmembername) && $inmembername ne "")){
$$post =~s/\[postpw=(.+?)\](.*)\[\/postpw\]/<blockquote><font color=$posternamecolor>文章內容：（須輸入密碼: <b>$viewusepostpw<\/B> $LeoBBS_B_CHT能查看本文章） <hr noshade size=1>$2<hr noshade size=1><\/font><\/blockquote>/isg;
} else {
$$post =~s/(\[postpw=(.+?)\])(.*)(\[\/postpw\])/<blockquote><font color=$posternamecolor>文章內容： <hr noshade size=1><font color=$fonthighlight>本內容已被隱藏 , 須輸入密碼$LeoBBS_B_CHT能查看<form method=post action=$thisprog?forum=$inforum&topic=$intopic onSubmit=submitonce(this)><input name=forum type=hidden value=$inforum><input name=topic type=hidden value=$intopic><input type=password name=postpw> <input type=submit value=送出><\/form><\/font><hr noshade size=1><\/font><\/blockquote>/isg;
$addme="附件保密!<br><br>" if (($addme)&&($1 =~ m/^\[postpw/));
}
}
}
#文章密碼標籤_E
16. wap_code.cgi
找到
if ($postjf eq "yes") {
if ($$post =~m/\[post=(.+?)\](.+?)\[\/post\]/isg){
$viewusepost=$1;
if ($StartCheck >= $viewusepost) { $Checkpost='ok'; } else { $Checkpost='not'; }
if (($Checkpost eq 'ok')||($mymembercode eq "ad")||($mymembercode eq "smo")||($myinmembmod eq "yes")||(lc($membername) eq lc($inmembername))){
$$post =~s/\[post=(.+?)\](.*)\[\/post\]/$2/isg;
} else {
$$post =~s/(\[post=(.+?)\])(.*)(\[\/post\])/\(本內容已被隱藏 , 發言總數須有 <b>$viewusepost<\/b> $LeoBBS_B_CHT能查看\)/isg;
$addme="(附件保密!)<br><br>" if (($addme)&&($1 =~ m/^\[post/));
}
}
}
加上
#文章密碼標籤_S
if ($postpw eq "yes") {
if ($$post =~m/\[postpw=(.+?)\](.+?)\[\/postpw\]/isg){
$inpostpw = $query->param('postpw');
$viewusepostpw=$1;
if ($inpostpw eq $viewusepostpw) { $Checkpostpw='ok'; } else { $Checkpostpw='not'; }
if (($Checkpostpw eq 'ok')||($mymembercode eq "ad")||($mymembercode eq "smo")||($myinmembmod eq "yes")||(lc($membername) eq lc($inmembername) && $inmembername ne "")){
$$post =~s/\[postpw=(.+?)\](.*)\[\/postpw\]/$2/isg;
} else {
$$post =~s/(\[postpw=(.+?)\])(.*)(\[\/postpw\])/\(本內容已被隱藏 , 須輸入密碼$LeoBBS_B_CHT能查看\)<form method=post action=$thisprog?forum=$inforum&topic=$intopic onSubmit=submitonce(this)><input name=forum type=hidden value=$inforum><input name=topic type=hidden value=$intopic><input type=password name=postpw> <input type=submit value=送出><\/form>/isg;
$addme="(附件保密!)<br><br>" if (($addme)&&($1 =~ m/^\[postpw/));
}
}
}
#文章密碼標籤_E
17. topic.cgi
找到
$mancookie = cookie(-name => "man", -value => "$man1", -path => "$cookiepath/", -expires => "0");
加上
#文章密碼標籤_S
if ($postpw eq "yes") {
$chkpostpw = $query->param('postpw');
if ($chkpostpw ne "") {
$postpwcookie = cookie(-name => "apostpwcookie", -value => "$chkpostpw", -path => "$cookiepath/", -expires => "+1d");
print header(-cookie=>[$postpwcookie] , -expires=>"$EXP_MODE" , -cache=>"$CACHE_MODES");
}
}
#文章密碼標籤_E
18. rss.cgi
找到
&banname($forumid);
加上
#判別使用LBCODE _S
my $filetoopen = "${lbdir}forum$forumid/foruminfo.cgi";
open(FILE, "$filetoopen");
my $forums = <FILE>;
close(FILE);
(my $no, $no, $no, $no, $no, $no, $no, $idmbcodestate, $no, $no, $no) = split(/\t/,$forums);
#判別使用LBCODE _S
-=-=-=- 以下內容由 [i]POP[/i] 在 [i]2011年07月19日 11:53pm[/i] 時新增 -=-=-=-
修改步驟15 code.cgi部分
[postpw=(\d+?)
更新為
[postpw=(.+?)
修改原因: "\d"為只允許數字密碼, "."為文字或數字皆可設定密碼
