===================================================================
RCS file: /var/cvsroot/h14m/hns-perl/public_html/diary/webif.cgi.in,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- webif.cgi 2003/10/23 09:44:38 1.25
+++ webif.cgi 2005/09/01 02:36:30 1.26
@@ -86,6 +86,13 @@
# テンポラリファイルリスト
my @tempfiles;
+# secret生成
+my @salts = ( "A".."Z", "a".."z", "0".."9", ".", "/" );
+my $salt = $salts[int(rand(64))] . $salts[int(rand(64))];
+my $admini = new HNS::Admini;
+my $id = $admini->status->id;
+my $secret = crypt(substr($id, 4), $salt);
+
#条件分岐
my $object = param('object') || param('keywords');
@@ -201,6 +208,7 @@
本文
パスワード
+
@@ -214,6 +222,7 @@
パスワード
+
@@ -357,6 +366,7 @@
本文
パスワード
+
@@ -370,6 +380,7 @@
パスワード
+
@@ -460,6 +471,7 @@
本文
パスワード
+
@@ -471,6 +483,7 @@