独自ドメインで Gmail が使える？Gmail for your domain

  https://www.google.com/hosted/Home

  早速，必要事項を記入して登録したら，始まったら連絡するよみたいなメッセージでまだ何も始まらない．
  なんじゃいな．

HTML::ColorKeywords を使って chalow の検索をハイライトする

  HTML::ColorKeywords が便利だったので chalow の検索 cgi である clsearch.cgi に色を付けてみた．
  clsearch.cgi はシンプルモードでは黄色のハイライトが付くが，アイテムモードでは付かないので，
  とりあえずアイテムモードでもハイライトするパッチ．

  clsearch.cgi と同じディレクトリに HTML/ColorKeywords.pm を置いておく．

--- clsearch.cgi-orig   2005-01-13 01:34:28.000000000 +0100
+++ clsearch.cgi        2006-02-12 00:25:49.374442000 +0100
@@ -2,6 +2,7 @@
 # $Id: clsearch.cgi,v 1.22 2005/01/13 00:34:28 yto Exp $
 # clsearch.cgi - chalow により HTML 化された ChangeLog を検索する CGI
 use strict;
+use HTML::ColorKeywords;

 ### User Setting from here
 # お好みにあわせて変えて下さい
@@ -66,6 +67,7 @@
 # ■■■ 検索 ■■■
 my $outstr = "";
 my $cnt = 0;
+my @keys;


 sub clean {
@@ -80,7 +82,7 @@
     $key =~ s/\s+$//;
     $key =~ s/^\s+//;

-    my @keys = ($key =~ /(".+?"|\S+)/g);
+    @keys = ($key =~ /(".+?"|\S+)/g);
 #    @keys = map {s/^"(.+)"$/$1/; s/(.)/'\x'.unpack("H2", $1)/gie; $_;} @keys;
     @keys = map {s/^"(.+)"$/$1/; $_;} @keys;

@@ -149,6 +151,10 @@
 }


+if ($mode == 1) { # アイテムモード
+    my $c = HTML::ColorKeywords->new();
+    $c->do(keys => \@keys, string => \$outstr);
+}

 # ■■■ 過去記事表示のための選択棒 ■■■
 my $page_max = int(($cnt - 1) / $numnum);

検索結果キーワードをハイライトする Perl モジュール HTML::ColorKeywords

  http://nais.to/~yto/clog/2006-02-11-1.html

  ハイライトされる色は Yahoo! の Web 検索結果のキーワードの色．
  試してみたら，キーワードの大文字小文字を区別するようなので，区別しないようにした．
  以下，diff．

--- ColorKeywords.pm-orig       2006-02-10 14:27:34.000000000 +0100
+++ ColorKeywords.pm    2006-02-12 00:19:21.571562000 +0100
@@ -30,7 +30,7 @@
     foreach (@frag) {
        next if (/^<.*?>$/);
        s!($self->{keypat})!"<span style=\"background-color:".
-           $self->{colors}->[$self->{key2no}{$1} % @{$self->{colors}}].
+           $self->{colors}->[$self->{key2no}{lc($1)} % @{$self->{colors}}].
            "\">$1</span>"!gie;
     }
     $$sp = join("", @frag);
@@ -38,6 +38,7 @@

 sub _set_regex {
     my ($self, $keys) = @_;
+    @$keys = map {lc($_)} @$keys;
     $self->{keypat} = join("|", map {"\Q".$_."\E"} @$keys);
     %{$self->{key2no}} = map {$keys->[$_]=>$_} (0..$#{$keys});
 }

秘密鍵を使わずに GnuPG のセッションキーで復号する方法

  GnuPG で暗号化したファイルを，自分の秘密鍵ではなく，セッションキーで複合する方法．
  公開鍵暗号方式でやってみた．

  環境は GnuPG 1.2.7 on Solaris 8．(都合の悪そうなものは消しています)

% echo 123456789 > test

% cat test
123456789

% gpg -r sunaoka -e test

% gpg --show-session-key < test.gpg > /dev/null
Enter passphrase: (秘密鍵のパスフレーズ)
gpg: session key: "9:E9906824A7DBFAD615225523AC07EC019CFFFE30EBB76A8CD8C970D8726A5CA0"

% gpg --override-session-key 9:E9906824A7DBFAD615225523AC07EC019CFFFE30EBB76A8CD8C970D8726A5CA0 -o test2 test.gpg

% cat test2
123456789

  確かにセッションキーさえあれば暗号化されたファイルを複合できる．
  また，上記の環境では対称暗号法式 (-c) で暗号化されたファイルではセッションキーは表示できなかった．

- ref.: コンピュータ系blog
  http://kinshachi.ddo.jp/kurage/html/MT/comp/archives/000724.html

CAPTCHA 破れたり

  http://d.hatena.ne.jp/hoshikuzu/20060210#P20060210EROGRIDCOMPUTING

  PHP の CAPTCHA ライブラリを見つけたばかりだけど，
  92% の的中率で CAPTCHA は解析されるという論文が発表されたということ．

prototype.js v1.4.0 の使い方

  http://www.imgsrc.co.jp/~kuriyama/prototype/prototype.js.html

  Using prototype.js v1.4.0 の邦訳版．