どんなことでも

この人 blog を書くのだろうか？

pukiwiki

2007-12-18 23:12:31 | Webページ補足
上記リンク先の pukiwiki ですが、時々出鱈目なファイルを添付されてしまいます。
で、今日来た奴を見てみると IP が固定でした。なので、gmail に送っている更新履歴を検索してみました。
キーワード「label:pukiwiki-編集履歴 "File attached" -75.126.208.65」
どうも、以前からこの IP 固定のようです。
ということで、Whois して 75.126.208.64/27 からの更新を deny しました。
それだけ。ファイル削除はぼちぼち。

ぼちぼち消してから、削除メールを数えると 148件ありました。
頑張ったσ(^_^)
あと、1ページに表示する件数は 5件だと少ない感じだったので 10件にしました。(まぁ、ここ最近書き込みが多からなのですが)

PGP を perl で

2007-12-18 18:53:12 | perl
また、perl ですよ。
ほんとに、MSX-BASIC をちょっと知ってるぐらいで perl をいじり初めて...
で「gpg -ca --cipher-algo TWOFISH」みたいなことを perl でしようと思い
#!/usr/bin/perl -w

use lib qw(...);

# use strict;
use Crypt::OpenPGP::Cipher;

my $orignal;
my $password = "Xevious";
my $algorithm = "Twofish";

# 「key must be 16, 24, or 32 bytes long at Crypt/Twofish.pm line 24.」
# なんて出るので、後ろに NULL をくっつけて 16 bit 単位に揃える。
my $align = 16;
my $length = int((length($password)+($align-1))/$align) * $align - length($password);
$password = $password . ("\000" x $length);

my $cipher = Crypt::OpenPGP::Cipher->new($algorithm,$password);

open BODY, "<$ENV{HOME}/file";
while (<BODY>){$orignal .= $_;}
close BODY;

my $encrepted = $cipher->encrypt($orignal);

open BODY, ">$ENV{HOME}/file.enc";
print BODY $encrepted;
close BODY;
かなり省略。でも、多分動く。
しかし、出来たファイルを gpg に食わせてみる。
> gpg -o - ~/file.enc
gpg: 有効なOpenPGPデータが見つかりません。
gpg: processing message failed: eof
Exit 2
デコードできず。
う～ん、どっか例が転がってないかなぁ。慣用暗号化ってので先ず敷居が上がるんだよねぇ。
大体、perl 自身で複合化できるかどうかを試していない時点で(^^; perl 自身で複合化できるのなら、pgp コマンドを使わずに perl コマンドで暗号化すれば良いとも言えなくもない。gpg コマンドに関わり合う必要は全くないか。
# でも、出来ないのは悔しい。

ついついコメントを書いてしまった

2007-12-18 17:54:29 | ニュース
メガサイズで食べてみたいＢ級グルメランキング
...;_;

1kg ぐらいのなら、4,200円 -> 今だけ 2,839円 だそうです。
チョコ一杯食ったから、暫くお菓子系は良いかな。
アンチウィルスで、ちょこっと書いたけど神戸スイーツ大満足セットとか買った上に(12/8着なので、きよ美ちゃん誕生日祝いということで(笑)) 12/5には「消費できなさそう」なもれなく神戸林檎チョコレート付！限定復刻版！X'masバージョン 神戸マイスターザッハとか買ったんで(12/16着にしたから父親の誕生日祝いと言うことで。勿論、父親は知りません。私が一人で食ってるだけ(^^;;;;;)。
そりゃ、水道代もないよなぁと。
お店の宣伝メールに付いてきたルミナリエの写真。東京のルミナリエもどきは確か去年までだったんですよねぇ。

ナナオ 24.1型液晶モニタ プレミアムモデル HD2441W-JS 限定SET
いくら、35,000円引きといわれてもねぇ。

東プレ Realforce108[SJ08J0] MyShopオリジナルモデル
だから、昔付いてきたファンクションキーの役割を書いたプラパンみたいな奴を付けないとさぁ...

お手頃価格の上質イヤホン
この中から買うとしたら「オーディオテクニカ　ATHCK7 ATH-CK7」かなぁ。
「Micro Solution Ears Monitor Pro II」ってのもちょっと気になる。
まぁ、全然記事を読んでなくて、メーカーと型名からの印象ですが。

ソニー　MDR-EX90SL これは、多分以前パナソニックからから乗り換えたらいまいちだったと書いたやつ。まぁ、聴く音楽次第と言うところもあるので、iPod とか持って行って実際に繋いで試せれば一番なんですけどねぇ。

コンチェルティーノ／岡崎耕治【ファゴット、ピアノ】
ファゴットの CD とかもあるんですね。

DOMKE F-2 カメラバッグ
やっぱり、カメラバッグは欲しいなぁ。普通のタウンバックじゃ、クッションが無いからねぇ。上の緑でも良いな。どっちでも良いです。買えないから(笑)

$this が undef

2007-12-18 13:22:42 | perl
さて、また perl
http://blog.livedoor.jp/jigorou/archives/640584.html
とか色々見ながら、パッケージというか、オブジェクト指向っぽいのを書いてみようかと思った。
で、以下。
#! /usr/bin/perl -Tw
use strict;
{
package test_pkg;
sub new{
my $this = shift;

my $data = {
"alpha" => "Alpha",
"beta" => "Beta"
};

return bless $data => $this;
}
}
my $obj_test_pkg = test_pkg::new();
これを動かすと、bless の引数の $this が undef だとエラーが出る。
第一引数には自動的にパッケージ名が入るのではないのか？とか思った。
で、最後の1行を
my $obj_test_pkg = test_pkg->new();
と書き換えてみた。動いた。う～ん、`::' と `->' は等価ではないのか。perl は謎が多いなぁ。