今日も明日もググったー

google api blogger

2011-08-26T01:13:00.011+09:00

コード貼るしー、と思ってプリチーに見せたいわとか思ってたんで google-code-prettify 使ってました。

でもね、"all indentation for code snippets in my posts became broken" ってそうなの、なんか code tag だとインデント壊れちゃってたの。

とりあえず pre に置き換えれば ok っぽかったんですが、やっとこさ google の api 叩くことにしました。

Blogger API - Google Code まんまですわ。というかもうちょっと先に進んで Developer's Guide: Python - Blogger APIs - Google Code ここ見たんですが、

from gdata import service



blogger_service = service.GDataService('xxxxxxxx@gmail.com', 'xxxxxxxx')

blogger_service.source = 'exampleCo-exampleApp-1.0'

blogger_service.service = 'blogger'

blogger_service.account_type = 'GOOGLE'

blogger_service.server = 'www.blogger.com'

blogger_service.ProgrammaticLogin()



blog_id = '3061113982813699457'



i=1

while True:

  query = service.Query()

  query.feed = '/feeds/' + blog_id + '/posts/default'

  query.published_min = '2009-01-01'

  query.published_max = '2011-12-31'

  query.max_results = 10

  query.start_index=i

  feed = blogger_service.Get(query.ToUri())

  i += 10



  if len(feed.entry) == 0:

    break

  for entry in feed.entry:

    entry.content.text = entry.content.text.replace('<code ', '<pre ').replace('/code>', '/pre>')

    blogger_service.Put(entry, entry.GetEditLink().href)

これでとりあえず code を撲滅? できました見れてるかな??

ubuntu beep 鳴らす

2011-05-17T12:50:00.004+09:00

Ubuntu 10.10 入れて暫く経つわけですが terminal で beep しないのに気付いていませんでした。 beep させたいな、と思ったんで何で慣らないのか調べましたところ Ubuntu日本語フォーラム / ビープ音を有効にしたいうん、これこれ、と思ったけどどうもこの方は解決してない? とりあえず冒頭にある module を調べてみると

$ lsmod | grep pcspkr

$

うん、無いわ。つことで

$ sudo modprobe pcspkr

としたら無事鳴りました。なんだよー、何で load されてないんだよー、と思ったんですが、

$ grep pcspkr /etc/modprobe.d/*

/etc/modprobe.d/blacklist.conf:blacklist pcspkr

と見事に blacklisted だったので、有効にしときました。

google-spreadsheet api

2011-03-08T13:25:00.004+09:00

備忘でしかないんですがね
Google SpreadSheet の自分のブックの一覧が欲しくなって
Python で取るのがいいかしら? と思って調べました
まぁ、gdata 使えばいいんですけど、すぐなんですけど

# coding=utf8

import getpass
import sys

import gdata.spreadsheet.service


service = gdata.spreadsheet.service.SpreadsheetsService()
sys.stderr.write('e-mail: ')
service.email = raw_input()
service.password = getpass.getpass()
service.ProgrammaticLogin()

feed = service.GetSpreadsheetsFeed()

for i in [(x.updated.text, x.link[1].href, x.title.text)
          for x in feed.entry
          if x.author[0].email.text == service.email]:
    print("\t".join(i))

これでね、

$ python kono_script.py > output.tsv
e-mail: abcdefg@gmail.com
Password:
$

とかすれば output.tsv に出ます

わーい

map script interfaces wlan

2011-03-04T17:22:00.007+09:00

暫く自宅と会社をノートPC持って往復してたんですが
Debian でローテクでやってるんで wifi の設定も貧弱で
/etc/netwerk/interfaces を手で書き直してました
コメントにしたりコメントアウトにしたり
どうなのよそれ、と

で、Debian 系だとその interfaces で mapping っつーの使います
script を走らせて状況判断させて
事前にしてある任意の設定で interface を up できる
っつーのは知ってたけど今までそこまで使い込むことなかったんですが
やるべ、と、一大決心をして、ググりました

何も見ないし何も知らない | テーマ：コンピューター・Web
ん〜、惜しい、その最後のとこに書いてある
「Address(Mac Address)をsedで抜き出したらうまくいくかもしれない。」
それが欲しいんだ!

つわけで自分で作ればいいかと考え直しました
interfaces の mapping から復習しました

$ man interfaces

したら復習できました

例えば
wlan0 という interface に対してスクリプトで動的に設定したい、
という場合

mapping wlan0
  script /usr/local/sbin/my_script.sh
  map spam ham
  map egg bacon

みたいに書きます

で、ifup wlan0 と wlan0 を有効にしようとすると
/usr/local/sbin/my_script.sh に引数 wlan0 が渡され
更に map で始まる行の map 以外の部分が標準入力に渡されます
つまり、

$ echo -e "spam ham\negg bacon" | /usr/local/sbin/my_script.sh wlan0

したみたいになるわけです

でで、このコマンドの出力結果の文字列が
実際に設定されます

ででで、今回は wifi AP の MAC ADDRESS を登録しといて
実際に行う動作の設定へと導いてあげることにしました
/etc/network/interfaces はこんな感じにしたい

mapping wlan0
  script /usr/local/sbin/my_script.sh
  map XX:XX:XX:XX:XX:XX office
  map YY:YY:YY:YY:YY:YY home

iface wifi-office inet dhcp
    wpa-driver wext
    wpa-scan-ssid 1
    wpa-ap-scan 1
    wpa-ssid "office api"
    wpa-psk "xxxxxxxxxxxxxxxxxxxxxxxx"

iface wifi-home inet dhcp
    wpa-driver wext
    wpa-scan-ssid 1
    wpa-ap-scan 1
    wpa-ssid "office home"
    wpa-psk "yyyyyyyyyyyyyyyyyyyyyyyy"

で、あとは /usr/local/sbin/my_script.sh が
出力結果として "wifi-office" か "wifi-home" を出力してくれれば
それぞれの設定を施して AP に繋ぎにいってくれるはずです

じゃぁ /usr/local/sbin/my_script.sh どうすんのよ、というと
上のサイトと Debian の examples を見たらこんな感じに

#!/bin/sh
LANG=C
set -e

# 対象 interface で scan して wifi AP の MAC ADDRESS 集め
INTERFACE=$1
ifconfig $INTERFACE up
sleep 1
MACADDRESS_LIST=$(iwlist $INTERFACE scan | sed -n -e 's/^.*Address: \([0-9A-F:]*\).*$/\1/p')
ifconfig $INTERFACE down

which=""
# read は標準入力から1行読んで変数に入れる
while read testmac scheme; do
    if [ "$which" ]; then continue; fi
    for MACADDRESS in $MACADDRESS_LIST; do
        # 設定されてる MAC ADDRESS があれば対応する設定を $which に
        if [ "$testmac" = "$MACADDRESS" ]; then which="$scheme"; fi
    done
done

#仕上に出力、hit しなかったら "wifi-default" と出す
echo wifi-${which:-default}

どうも sleep が短かいのか
ちょっと調整しないと一発で成功とまではいってないんですが
これで一々設定ファイルいじらなくてもよくなりました

でもさ、どーせさ、みんな Ubuntu 使ってるからさ
こんなことしなくてもサクサク設定できちゃってるわけでしょ?
ぷんぷん

sysinstall gpt fdisk

2011-02-19T20:37:00.000+09:00

検証用の DELL のパソコンが壊れました
電源が入らなくなって電源ランプがオレンジに光ります
http://plusd.itmedia.co.jp/pcuser/articles/0809/30/news074.html
あれ、電源がそもそも弱かったのかしら、この子

で、なぜか TM8000 の載ったマザボと検証であたったケースがあり
放置してたので使ってやるかと DELL の HDD を移植などしてみることに
というか確か DELL の HDD はもともとこの TM8000 のやつに繋いであったので
戻してみただけだったのだ

つうか今更 ATAPI ですよお嬢さん

で、何で放置してたか忘れてたんだけど、
マザボをネジで止めると電源スイッチからのケーブルが届かなかったの
ひどい
とりあえずマザボは固定せずにスイッチが入ることを優先しつつ
後日 LED-30EX とやらを購入しました

しかし遅い、TM8000 が遅いのか何が遅いのか分からないけど遅い
試しに PC-BSD 8.1 と Ubuntu 10.10 を入れてみたんだけど遅い
KDE とか Gnome とかそもそも使わないのに更にこの遅さか
メモリ余ってるから完全に CPU が原因だろうにこの遅さか

というわけで Squeeze でも入れてみようかと思ったんですが
なんとなーく FreeBSD でもいってみるかと思ってまた CD 焼いて
インストールしようと思ったらインストールできないんですよ
sysinstall で Custom で設定して commit しようとすると
"Unable to find device node for /dev/ad0s1b in /dev"
みたいなこと言われちゃって slice 切ってくれないの

で、いろいろググってみたらどうやら HDD が GPT とやらで??
Ubuntu とか PC-BSD とか入れて遊んでたら何か変えられて
sysinstall からいじれなくなってしまっているらしい
Problem running fdisk via sysinstall
このスレッドが分かりやすかった

とりあえず、HDD の最後の部分に何か書かれてるからダメらしく

dd if=/dev/zero of=/dev/ad0 seek=?????????

と、seek をいくつにしたか忘れたけど
sysinstall で見れる block size くらいにしといて
とりあえず何か上書きしてみたらちゃんと sysinstall できました

解決はしたけど理屈は良く分かってないんだけど
眠いからとりあえず解決策だけ書いとくよ!!

レジストリ 2003 "documents and settings" 変更

2011-02-03T22:15:00.003+09:00

Documents and Settings なんて長いし空白入ってるし
いいとこなんて 1 つも無いわ
なんて思って昔設定変えた覚えがあるんですが、
何いじったんだか忘れてしまいました。

Documents and Settings フォルダの移動や名前の変更ができないことを通知するエラーメッセージが表示される
ProfilesDir っつー文字列があったんでこれみたいでした。
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList
これね、これ、多分
「特定のユーザー用に Windows をインストールした後で、Documents and Settings フォルダとして別のフォルダを指定するには、次の手順を実行します」
とか書いてあるし。

新規で user 作るときにはこの ProfilesDir の下にホームが作られて、
SID とかいうらしい ID が振られて ProfileList の下にレジストリできて
その中にホームの PATH が設定されます。
ProfilesDir で指定の PATH を途中で変えても
その影響範囲はその後に作るユーザーであって
既存ユーザーに関しては書いてあるみたいなことしないとダメみたいです。

で、更に、
All Users とか Default Users とかシステムで使うフォルダが
レジストリの ProfilesDir のあるとこに併記されてますが、
そいつらも移動かコピーしてあげないといけないみたい。

運用始めてから移動するのは嫌だなぁ、これ。

"libjavaplugin_oji.so"

2011-01-30T16:12:00.003+09:00

Java アプレット使いたいと思ったので
プラグインを! と思ったら何か上手く動かない
確か libjavaplugin_oji.so ってのを
適当なところにコピーすればいいと思ったのに!!

困ったなーと思ったら新しいのが出てるんでした
How can I configure java plugin libjavaplugin_oji.so to latest firefox 4 | Firefox Support Forum | Firefox Help
なるほど、近頃の Firefox などでは libnpjp2.so ってのを使うのか

Debian Lenny だったら sun-java6-bin って package に
/usr/lib/jvm/java-6-sun-1.6.0.22/jre/lib/i386/libnpjp2.so
がいたんで
~/.mozilla/plugins とか /opt/google/chrome とかに ln -s したら
何か上手く動いた、よかった

これで Java り放題です

hg push basic-auth web push_ssl

2010-12-20T15:29:00.004+09:00

調べるの 2 回目だったので書いとく。入門Mercurialにも書いてあったら御免なさい。

Mercurial を web ui 経由で push するには

[web]
allow_push = blooper
push_ssl = false

とか書けばいいって
PublishingRepositories - Mercurial
に書いてありました。

つーかその他、複数の repository をまとめて提供する方法とか
色々書いてあるからまた後でよーく読もうと思います。

hgweb.wsgi とか hgwebdir.wsgi とかあるけど
hgwebdir.wsgi がどこで提供されてるのか良く分からん。
と思ったらmodwsgi - Mercurial書いてあった。
WSGI さえ使えればあとは

from mercurial import demandimport; demandimport.enable()
from mercurial.hgweb.hgwebdir_mod import hgwebdir

application = hgwebdir('/var/www/vhosts/hg.example.net/cgi-bin/hgweb.config')

っての用意して
hgweb.config に提供したいもの書けばいいらしい。
楽チンだ。

bash 変数改行

2010-11-25T00:40:00.003+09:00

情弱なので shell script とか書けません
コマンドの結果とっといて調べて必要なら出力しようと思いました

$ diff=`diff -u a b`
$ if [ $diff != '' ]; then echo $diff; fi

みたいなね
そしたら結果が

--- a 2010-11-25 01:07:18.017333910 +0900 +++ b 2010-11-25 01:07:29.313422799 +0900 @@ -1,4 +1,4 @@ a -b c d +e

って感じで改行無くなっちゃったの

どーすんだかなー、と思ってググりました
bashなどのシェル変数の値に改行を含める事は可能でしょうか？ - Linux系OS - 教えて！goo
教えて！goo かぁ、情弱にはぴったりな感じです

つわけで、変数を "" で括って解決してしまいました
切ない

django file download

2010-11-03T01:44:00.003+09:00

ひさ〜しぶりに Django で作ってあったものをいじりました。
str で持ってるデータをダウンロードしてもらいたくって
どうするのかな〜と思ってググってみると

Generating file to download with Django - Stack Overflow
もぉほんと、Stack Overflow と結婚しちゃえばいいのに

上のページは
「Zip file を実ファイル作らずに何とかしたい」
っつー話だったようですが

def download(request):
    zip_string = (何か zipped なデータ)
    response = HttpResponse(zip_string, content_type='application/zip')
    response['Content-Disposition'] = 'attachment; filename=myfile.zip'
    return response

みたいにすればいいみたいでした。
みたいってのは content_type を HttpResponse の引数に渡して
Content-Disposition で filename など指定してあげること。

なんか、今更そんなこと調べてるのか! って感じですね、

getpass python username

2010-10-26T15:28:00.001+09:00

Google History は便利ですねぇ。
以前は Firefox の履歴から Google で検索したものを、
じゃなかった、ググったものを抜いてネタ探してたんですが、
今ではすっかり Google History です。

で、暫くサボってたんで記憶も曖昧になってるんですが
getpass python username で検索してるんですよね

何したかったかっつーとそれは覚えてて
getpass は key input 隠して入力取ってくれるけど
入力見せつつ prompt 出して入力取ってくれるの無いの?
って思って

でね、あるわけですよ、raw_input って関数が、だから、

import getpass

print "%s\t%s" % (raw_input('user: '), getpass.getpass('passwd: '))

こんなことすりゃいいんですよ

でね、これは覚えてるんだけどどのページ見て raw_input に辿りついたのか
もしかしたら何か適当にソースを読んだのかもしれないし
どっかページを見たのかもしれないし
それが思い出せんのです

いや〜、こまった
歳が

tokyocabinet

2010-10-10T11:19:00.004+09:00

Tokyo Cabinet を使ってみよー、と思ったんですが
ググってみても
データベースマネージャ Tokyo Cabinet
まぁご本家が一番お詳しいわけですよ

と思ってインストールしようとしたら若干はまりまして

32bit 環境だったら --enable-off64 付けましょう

というのが教訓でした

で、どうせならこれを TokyoTyrant からと思って
ディスク多めだった FreeBSD のサーバから、と思ったらまたはまって

FreeBSD だったら gmake 使って build

というのが結論でした

更に、データほ他マシンに移動させると

5: invalid meta data

って怒られたりするの。

--enable-swab っていう configure option もあるぞ

まじでー

dbm かわいいなぁ

メモリが 16GB くらいあるマシンが欲しいっす

cryptoapi aia windows-98

2010-10-05T11:03:00.003+09:00

cryptoapi というのはここでは Windows API の暗号のやつを想定
AIA は Authority Information Access の略
Authority Information Access は X.509 などの機能拡張
X.509 は公開鍵証明書の規格の名前
で Windows 98 は Microsoft の OS の名前

で、やっぱ AIA ですよね、何それ? っていうの
http://www.ipa.go.jp/security/rfc/RFC5280-04JA.html#042201 見ると
その証明書の認証局の証明書が入ったりするみたいです。

で、ここで我らが Microsoft さんの登場です。
いつも知らないところで色々してくれてる Microsoft さん。
CryptoAPI で証明書を検証するときにも AIA をちゃんと見てくれて
手元に指されてる証明書が無かったら取ってきてくれたりするんです。

えー、まじでー

っていうのを検索した結果の「暗号と PKI の基本」には書いてあります

にしても「RFC 5280」にしても「暗号と PKI の基本」にしても
長い
引用しようと思ったけど必要なとこ含ませると長くなっちゃって
そんなダラダラ引用しても仕方ないから引用しませんでした
なんかもーこっとさっくり言えないもんすかねぇ

で、Windows 98 ですよ、検索語句にも含めた
Windows 98 でもそうなのかどうか? が良く分からず
検索自体は空振りに終わってしまいました
実機検証でもできたらいいんですが．．．

Windows 98 ってどうやったらいま動かせるの??
CD はあるんですが boot disk が見当たらず
FreeDOS と仮想化技術で何とかならないのかなぁと思うんですが
面倒ですね、Windows 98 までそこまでするか??

いかん、Microsoft の話してるのに愚痴が多くなってしまった

diffie-hellman dhe

2010-09-23T16:07:00.001+09:00

なんか、質問受けてたんですよね、きっと
DH と DHE って何が違うの? って話になったんで検索しました

夜でもアッサム: SSL(TLS)のDHとDHEの違い
なんかもぉ、しっかり書いてありましたよ

DHEのEは、EphemeralのE。
DHEは、DHパラメータを通信時に動作に作成する。
DHは、DHパラメータは証明書に書かれている物を使う。よって、static DHとも呼ばれる。
DH-RSAは、証明書にCAがRSAで署名したという事。証明書にRSA鍵が入っているわけではない。
DHE-RSAは、証明書にRSA鍵が入っている。

でね、気になるので原典をあたるわけですよ、
英語だと辛いから和訳ですけど
The TLS Protocol Version 1.0

DH は、認証局(CA)によって署名されたサーバー証明書に含まれているDiffie-Hellman パラメータを使用した暗号スイートを示すものである。DHEは、CA によって署名された DSS またはRSA証明書により署名されたDiffie-Hellmanパラメータを使用した一時的 Diffie-Hellman を示すものである。使用される署名アルゴリズムは、DHまたは DHEパラメータの後に指定される。

おぉ、なるほど、これだ

この前後に、大量の CipherSuite が記載されています。
抜粋すると

CipherSuite TLS_RSA_WITH_RC4_128_MD5 = { 0x00,0x04 };
CipherSuite TLS_RSA_WITH_RC4_128_SHA = { 0x00,0x05 };
CipherSuite TLS_RSA_WITH_3DES_EDE_CBC_SHA = { 0x00,0x0A };
CipherSuite TLS_DH_DSS_WITH_3DES_EDE_CBC_SHA = { 0x00,0x0D };
CipherSuite TLS_DH_RSA_WITH_3DES_EDE_CBC_SHA = { 0x00,0x10 };
CipherSuite TLS_DHE_DSS_WITH_3DES_EDE_CBC_SHA = { 0x00,0x13 };
CipherSuite TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA = { 0x00,0x16 };

SSL/TLS って何をしてるかってーと

サーバ(とクライアント)の認証
通信の暗号化
通信の改竄検知

でした。で、それぞれ

証明書(=身元情報+公開鍵+それらの認証局による署名)と公開鍵に対応する秘密鍵を持ってること
外部とは秘密に交換した情報を鍵とした暗号化
外部とは秘密に交換した情報を鍵とした HMAC

で実現してました。

何が大切かっていうと「信頼できる相手」と「鍵交換」できるってことね

TLS_RSA_WITH: 鍵交換に使える RSA 証明書があるんで、秘密鍵持ってることを確認して認証して、証明書の鍵で鍵交換
TLS_DH_???_WITH: DH 証明書があるんで、鍵交換で同じもの共有できると秘密鍵の所有も確認できるんで認証もできる。??? ってのは証明書の署名。
TLS_DHE_???_WITH: 鍵交換には使えないかもしれない? RSA/DSS 証明書があるんで、秘密鍵持ってることを確認して認証して、公開鍵で署名した DH の鍵なら信頼できるんでそれを使って鍵交換。??? は、何だ? 証明書の公開鍵か? 署名か?

かな、ちょっと想像入ってるけど。
分からない部分もあるけど。

っていうか鍵交換に使える RSA 証明書しか見たことないし
TLS_RSA_WITH だけで許してもらえるよね、きっと。

pkcs7 openssl create

2010-09-02T12:50:00.002+09:00

Windows はダブルクリックで
X.509 な証明書の中身を見せてくれるのでいいですよね
PKCS#12 も PKCS#7 も中身見せてくれたりします
何で CSR は見せてくれないんでしょう、ここだけちょっと残念

PKCS#7 ってのは「PKCS - Wikipedia」に書いてありますが
メッセージの暗号化や証明書の配布に使われる形式だそうです
Windows だと複数の証明書をまとめて PKCS#7 にしておくと
一辺にインポートできたりして便利です

で、作り方が分からない、OpenSSL ならできるんじゃないの!?
でもそれっぽいコマンドがないヨ!!
と思って検索しました

Creating a PKCS7 (P7B) Using OpenSSL | langui.sh
おぉぉ、

$ openssl crl2pkcs7 -nocrl -certfile cert.pem

なのか。crl2pkcs7 なのに -nocrl ってそのセンス!!

PEM が連なってる 1 つのファイルを突っ込んでみて
できたファイルがちゃんと Windows で読めました、沢山入ってました
ちなみに拡張子は .p7b です

linux 音楽cd コピー

2010-08-30T21:38:00.000+09:00

数日車に乗る用事があったので
聴きたい CD をコピーして車で聴くかと思いました
で、Mac mini でコピーしようと思ったんですが方法が良く分からず
ググったり何なりした結果 iTunes に一旦読み込まないとダメと結論
なにそれ面倒くさい

本当は OS X 用のライティングソフトも持ってるんですが
インストールしてなくてどっか仕舞っちゃってたのでやっぱ面倒
なので Linux で何とかならないの? と思いました

Linux：コマンドラインで音楽CDをコピー - miyapiのひとりごと
これだ!

cdrdao ってソフトがあって、それなら音楽 CD も扱ってくれるみたいで

# cdrdao copy

でも適当にデバイス見付けてよきにはからってくれます
ドライブが複数繋がってたら指定したらいいと思う

cdrdao で使いそうなコマンドは copy の他に scanbus と write くらいかな?
copy のときに --keepimage って付けると .toc と .bin って拡張子のファイルが保存され
write で .toc なファイルを指定すると .bin を焼いてくれます
コピーを複数枚複製する場合にはこれが良さそうでした

conservative powersave ondemand userspace performance

2010-08-24T18:18:00.004+09:00

暑い日が続いています
熱いの嫌なのでノートパソコンの CPU も最低周波数で稼働してました
でも何だかそれって、寂しいですよね

CPU の速度ってどーしたかなーと思ってちょっと /etc/init.d 見てみると
/etc/init.d/cpufrequtils ってのが入ってました

$ dpkg -S /etc/init.d/cpufrequtils 
cpufrequtils: /etc/init.d/cpufrequtils

まんまだな
もちっと調べると /etc/default/cpufrequtils で設定してたみたいで

$ cat /etc/default/cpufrequtils 
GOVERNOR="powersave"

powersave と設定してました。

こいつをちょいと変えてみようかと思ったわけですが
そもそもどんな選択肢があるか覚えていません
/sys 以下のどっかに書いてあったよなー、と思って探すと

$ cat /sys/devices/system/cpu/cpu?/cpufreq/scaling_available_governors 
conservative powersave ondemand userspace performance 
conservative powersave ondemand userspace performance

つわけでこいつらで検索

動的にCPUクロックや電圧を変更するcpufreqの概要とcpufreqdデーモンについて - 試験運用中なLinux備忘録
説明してくださってました。
更に conservertive に関してのチューニングまで
cpufreqの「conservative」governorについての覚え書き - 試験運用中なLinux備忘録

まぁ、powersave の次は conservative かな、
気が向いたらちょっとだけがんばってくれればいいかな、
と思ったのでチューニングなどせずとりあえず conservative にだけしました
ちょっと様子みてみます

lxml html

2010-08-01T11:04:00.005+09:00

日本に割りあてられてる IP address が分かると嬉しいですよね
国内からならアクセスできるようにするとかできるようになります

ちょっとググると APNIC が日本に割りあててる IP address は
http://ftp.apnic.net/stats/apnic/delegated-apnic-latest
に書いてあるもののようでした
IPv4 についても IPv6 についても書いてあります

で一方で国内っつったら APNIC よりは JPNIC でしょってことで
ちょっと JPNIC のページを探っていたんですが

こんなのあったりして、ん〜、なんだこれはどうなってるんだ

で、何か違いがあるのかしら、と思って調べようと思ったんですが
JPNIC の方は table でこんなのどうしようかと
使ったことない lxml 使ってみることにしました
4 TopCoder: lxmlでHTMLスクレーピング
を見ながら

まぁだいたい 256 コ単位で割り振られてるんでしょうから
頭の3オクテット部分を列挙して diff 取ることにしましたよ

import math
import re
from urllib import urlopen

from lxml import html

def ip2int(ip):
  return sum(
    [256**x*int(y) for (x, y) in enumerate(reversed(ip.split('.')))])

def int2ip(n):
  result = []
  for i in range(4):
    result.insert(0, str(n % 256))
    n = n / 256
  return ".".join(result)

classCs = set(())

for line in urlopen('http://ftp.apnic.net/stats/apnic/delegated-apnic-latest'):
  rows = line.rstrip().split('|')
  if len(rows) >= 4 and rows[1] == 'JP' and rows[2] == 'ipv4':
    for i in range(int(rows[4])/256):
      classCs.add(ip2int(rows[3])+256*i)

for url in ('http://www.nic.ad.jp/ja/dns/jp-addr-block.html',
            'http://www.nic.ad.jp/ja/dns/ap-addr-block.html'):
  root = html.fromstring(urlopen(url).read())
  for (start, _, end) in [ [b.text for b in a.xpath('td')]
                            for a in root.xpath('//tr') ]:
    tmp = ip2int(start)
    end = ip2int(end)
    while tmp < end:
      classCs.add(tmp)
      tmp += 256

for num in sorted(classCs):
  print re.sub(r'\.[0-9]+$', '', int2ip(num))

使い捨てもいいところだ

で、こんな感じで2つ差分とってみましたところ

$ diff -u a.txt b.txt 
--- a.txt 2010-08-17 12:20:53.976666937 +0900
+++ b.txt 2010-08-17 12:14:20.992660340 +0900
@@ -554716,6 +554716,7 @@
 203.190.61
 203.190.62
 203.190.63
+203.191.2
 203.191.136
 203.191.137
 203.191.138

203.191.2?
そりゃいったい日本なのよどうなのよ
と思って上の delegated-apnic-latest を grep しみると

apnic|AU|ipv4|203.191.2.0|256|20060615|assigned

AU? オーストラリア??

まぁあとは WHOIS とか引いてみればいいわけですが
なんでオーストラリアかなぁ???

chrome "missing-plugin"

2010-07-29T10:11:00.003+09:00

google chrome を使っているんですが
extension なんて普段全然使っていないものですから
【レポート】Google Chromeのチームが使っているエクステンション19 | エンタープライズ | マイコミジャーナル
これがちょっと気になったりして

Google Docs/PDF Viewer - PDFやPowerPointプレゼンテーションデータなどをGoogle Docsビューアで閲覧するためのエクステンション。

これも入れてみました

でもね、
PDF 見るのはローカルで viewer 使った方が快適だ!
PPT なんて普段見ないや!
という理由からやっぱり削除することに

で、削除したら PDF クリックしたときに
"missing plug-in" とだけ出た画面になるようになっちゃった
昔はダウンロードしてくれてたのに、困った

ググりましたよ、困ったから
そしたら about:plugins を見ろって言われました

おぉ、Disable にできる

確かにね、ありました、PDF の plug-in
近頃の chrome は PDF viewer 持ってるはずなんですよね
Linux だとどうなってるんだか知りませんが
Adobe Reader 辺りから何かもってきて入れとくのかな??

まぁ、ここで有効/無効が選べるのが分かったので
無効にしてあげたら無事ダウンロードしてくれるようになりました

ちなみに右の方に details って詳細見せてくれるボタンあって
それ開いたら上から三つめの名無しさんは Java でした

ssl-v3

2010-07-24T14:01:00.001+09:00

今まで OpenSSL/GnuTLS/Java のライブラリを使って証明書取ってきました
そろそろ SSL のこと詳しく知ってもいいんじゃない?
でも暗号とか難しそうだしどうしようかなぁ

手元に「マスタリングTCP/IP SSL/TLS編」はあったので
つらつらと眺めたり wireshark のログを見て分かってきたので
更に原本にあたろうと思い SSLv3 の仕様を眺めることに
The SSL Protocol Version 3.0
SSLv2 はもぉ使わない方がいいらしいですしね
TLSv1 でもいいんですが、何となく SSL の方を選択

すげー簡単に SSL の手順書くと

client hello で使える暗号スイートリストと client random 送信
server hello で使う暗号スイートと server random 送信
server certificate でサーバの証明書送信
client key exchange で pre-master secret 送信
両者で鍵作って finish

細かいことは解説してるサイトを見るということで

よーし、とーさん Python で実装しちゃうぞー、と思いますよね
データのやりとりは TCP などの上で SSL Record とかいう
version と type と length だけ頭に付ける単純な入れ物に入れて行われて
中身もまぁ大体似たようなもんでした、type と length くらい

client hello は random とか送るんだけど決め打ちで
時間を入れるとこがあるんでそこだけ真面目に入れてみました

server hello done まではまだ暗号とか使ってないんで
パースして証明書を取り出してみました

ここまでで力尽きました
標準ライブラリだけでガンバりましたヨ!!

def bin2int(b):
  return sum(256**e*x for (e, x) in enumerate(reversed([ord(x) for x in b])))

def recv_server_hello_from(s):
  messages = []

  received = ''
  while True:
    while len(received) &lt; 5:
      bytes = s.recv(1024)
      if len(bytes) == 0:
        raise socket.error(&quot;0 bytes received&quot;)
      received += bytes

    header, received = received[:5], received[5:]
    content_type = ord(header[0])
    version_major = ord(header[1])
    version_minor = ord(header[2])
    if not (content_type == 22
        and version_major == 3 and version_minor in range(3)):
      raise socket.error(&quot;not SSLv3/TLS&quot;)
    content_length = bin2int(header[3:5])

    while len(received) &lt; content_length:
      bytes = s.recv(1024)
      if len(bytes) == 0:
        raise socket.error(&quot;0 bytes received&quot;)
      received += bytes

    content, received = received[:content_length], received[content_length:]

    class ServerHelloDone(Exception):
      pass
    try:
      while content:
        msg_type = ord(content[0])
        if msg_type == 14:
          raise ServerHelloDone
        if msg_type not in (2, 11, 12, 13, 14, 15, 16, 20):
          raise socket.error(&quot;not SSLv3/TLS msg_type = %d&quot; % msg_type)
        msg_length = bin2int(content[1:4])
        msg = content[4:4+msg_length]
        messages.append((msg_type, msg_length, msg))
        content = content[4+msg_length:]
    except ServerHelloDone:
      break

  return messages

def parse_server_certificate(data):
  certs = []

  length, data = data[:3], data[3:]

  while data:
    length = bin2int(data[:3])
    certs.append(data[3:length+3])
    data = data[length+3:]

  return certs

if __name__ == '__main__':
  import socket
  import struct
  import time

  client_hello = (b'\x16\x03\x00\x00`\x01\x00\x00\\\x03\x00'
      + struct.pack('&gt;I', int(time.time()))
      + 'L?\xac\xc8\xc5lw?\xa8\x1a\xce\xdf\x8d\xc0\x96'
      + '\t\x97\xab\xa1dv\xc1\xec\x9aj\xc8\x0f(\x00\x004\x00'
      + ':\x009\x008\x005\x004\x003\x002\x00/\x00\x1b\x00\x1a'
      + '\x00\x19\x00\x18\x00\x17\x00\x16\x00\x15\x00\x14\x00'
      + '\x13\x00\x12\x00\x11\x00\n\x00\t\x00\x08\x00\x06\x00'
      + '\x05\x00\x04\x00\x03\x02\x01\x00')

  s = socket.socket()
  s.connect(('www.google.com', 443))
  s.send(client_hello)
  
  for (msg_type, msg_length, msg) in recv_server_hello_from(s):
    if msg_type == 11:
      for cert in parse_server_certificate(msg):
        print '-----BEGIN CERTIFICATE-----'
        print cert.encode('base64'),
        print '-----END CERTIFICATE-----'

これ動かすと

$ python sslv3.py 
-----BEGIN CERTIFICATE-----
MIIDITCCAoqgAwIBAgIQL9+89q6RUm0PmqPfQDQ+mjANBgkqhkiG9w0BAQUFADBMMQswCQYDVQQG
EwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1bHRpbmcgKFB0eSkgTHRkLjEWMBQGA1UEAxMNVGhh
d3RlIFNHQyBDQTAeFw0wOTEyMTgwMDAwMDBaFw0xMTEyMTgyMzU5NTlaMGgxCzAJBgNVBAYTAlVT
MRMwEQYDVQQIEwpDYWxpZm9ybmlhMRYwFAYDVQQHFA1Nb3VudGFpbiBWaWV3MRMwEQYDVQQKFApH
b29nbGUgSW5jMRcwFQYDVQQDFA53d3cuZ29vZ2xlLmNvbTCBnzANBgkqhkiG9w0BAQEFAAOBjQAw
gYkCgYEA6PmGD5D6htffvXImttdEAoN4c9kCKO+IRTn7EOh8rqk41XXGOOsKFQebg+jNgtXj9xVo
RaELGYW84u+E593y17iYwqG7tcFR39SDAqc9BkJb4SLD3muFXxzW2k6L05vuuWciKh0R73mkszeK
9P4Y/bz5RiNQl/Os/CRGK1w7t0UCAwEAAaOB5zCB5DAMBgNVHRMBAf8EAjAAMDYGA1UdHwQvMC0w
K6ApoCeGJWh0dHA6Ly9jcmwudGhhd3RlLmNvbS9UaGF3dGVTR0NDQS5jcmwwKAYDVR0lBCEwHwYI
KwYBBQUHAwEGCCsGAQUFBwMCBglghkgBhvhCBAEwcgYIKwYBBQUHAQEEZjBkMCIGCCsGAQUFBzAB
hhZodHRwOi8vb2NzcC50aGF3dGUuY29tMD4GCCsGAQUFBzAChjJodHRwOi8vd3d3LnRoYXd0ZS5j
b20vcmVwb3NpdG9yeS9UaGF3dGVfU0dDX0NBLmNydDANBgkqhkiG9w0BAQUFAAOBgQCfQ89bxFAp
sb/isJr/aiEdLRLDLE5a+RLizrmCUi3nHX4adpaQedEkUjh5u2ONgJd8IyAPkU0Wueru9G2Jysa9
zCRo1kNbzipYvzwY4OA8Ys+WAi0oR1A04Se6z5nRUP8pJcA2NhUzUnC+MY+f6H/nEQyNv4SgQhqA
ibAxWEEHXw==
-----END CERTIFICATE-----
-----BEGIN CERTIFICATE-----
MIIDIzCCAoygAwIBAgIEMAAAAjANBgkqhkiG9w0BAQUFADBfMQswCQYDVQQGEwJVUzEXMBUGA1UE
ChMOVmVyaVNpZ24sIEluYy4xNzA1BgNVBAsTLkNsYXNzIDMgUHVibGljIFByaW1hcnkgQ2VydGlm
aWNhdGlvbiBBdXRob3JpdHkwHhcNMDQwNTEzMDAwMDAwWhcNMTQwNTEyMjM1OTU5WjBMMQswCQYD
VQQGEwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1bHRpbmcgKFB0eSkgTHRkLjEWMBQGA1UEAxMN
VGhhd3RlIFNHQyBDQTCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEA1NNn0I0Vf67NMf59HZGh
PwtxPKzMyGT7Y/wySweUvW+Aui/hBJPAM/wJMyPpC3QrccQDxtLN4i/1CWPN/0ilAL/g5/OIty0y
3pg25gqtAHvEZEo7hHUD8nCSfQ5i9SGraTaEMXWQ+L/HbIgbBpV8yeWo3nWhLHpo39XKHIdYYBkC
AwEAAaOB/jCB+zASBgNVHRMBAf8ECDAGAQH/AgEAMAsGA1UdDwQEAwIBBjARBglghkgBhvhCAQEE
BAMCAQYwKAYDVR0RBCEwH6QdMBsxGTAXBgNVBAMTEFByaXZhdGVMYWJlbDMtMTUwMQYDVR0fBCow
KDAmoCSgIoYgaHR0cDovL2NybC52ZXJpc2lnbi5jb20vcGNhMy5jcmwwMgYIKwYBBQUHAQEEJjAk
MCIGCCsGAQUFBzABhhZodHRwOi8vb2NzcC50aGF3dGUuY29tMDQGA1UdJQQtMCsGCCsGAQUFBwMB
BggrBgEFBQcDAgYJYIZIAYb4QgQBBgpghkgBhvhFAQgBMA0GCSqGSIb3DQEBBQUAA4GBAFWsY+re
od3SkF+fC852vhNRj5PZBSvIG3dLrWlQoe7e3P3bB+noOZTcq3J5Lwa/q4FwxKjt6lM07e8eU9kG
x1Yr0Vz00YqOtCuxN5BICEIlxT6Ky3/rbwTRbcV0oveifHtgPHfNDs5IAn8BL7abN+AqKjbc1YXW
rOU/VG+WHgWv
-----END CERTIFICATE-----

証明書が出てきます

つづく (のか!?)

imap4 login list

2010-07-15T17:37:00.001+09:00

telnet と openssl s_client があれば大抵のことはできるよね!
って思いませんか?

まぁそこまでするつもりはないんですが

IMAP4 の確認がしたかったんでそりゃ telnet だろと思い
ググってみたところ
IMAPプロトコルの流れを学ぶ
おぉ、すごい、各クライアントの挙動が!!

まぁ古い記事なので近頃はまた違うかもしれませんが
IMAP4 に関しては IMAP4rev1
RFC 3501 - INTERNET MESSAGE ACCESS PROTOCOL - VERSION 4rev1
これとか見たらいいのかなと思っています
subscribe ってコマンドなんかが増えているのです

postgresql graphviz

2010-07-09T10:36:00.000+09:00

PostgreSQL の DB がありまして
どんなことになってるか把握したいと思ったんですが
可視化だよ、世の中可視化だよと思い
可視化といえばと GraphViz で何とかならないの
って検索してみました

http://www.graphviz.org/Resources.php
GraphViz のページがヒットして良く見てみると
PostgreSQL Autodoc
このページへのリンクがありました

で、適当に apt-get で Perl の module 入れて
db に接続したら dot ファイルとか html ファイルとか生成してくれて
見事なグラフが書けました

備忘備忘

header_logo trac

2010-06-25T01:38:00.007+09:00

Ubuntu を入れたんで Trac + Mercurial でも作ってみようかと
最近 build ばっかしてて疲れてきたので package でサクサクいきたいです

package をまず探したいんですがファイルから探したいので
auto-apt とか apt-file とか入れようと思って
auto-apt 入れようとしたら凄い依存関係が攻めてきたので apt-file で
でも、apt-file 遅いんだよなぁ

$sudo aptitude install apt-file
(略)
$ sudo apt-file update
(略)
$ apt-file search bin/tracd
trac: /usr/bin/tracd

お前はそこまでしないと trac という package みつけられないのか!

trac を入れようとすると沢山依存関係で入ります。apache とか。
まぁ apache でいいですよね。
あと mercurial にしたいので trac-mercurial も入れます。

で、ここからググると思うでしょ?
でも Debian ならググらなくてもいいんです。
/usr/share/doc の下にドキュメント揃っていますの。

/usr/share/doc/apache2/README.Debian.gz
/usr/share/doc/trac/README.Debian.gz
/usr/share/doc/trac-mercurial/README.Debian

みたいに README に Debian って付いてるのが
Debian 系の設定方法が書いてあったりするファイルになります

/usr/share/doc/trac/README.Debian.gz に trac 環境の作り方細かに書いてあって

  Trac can work without vcs repository, but you may want to create
one for you project before creating a Trac environment. With
Subversion this can be made with:

    $ mkdir /path/to/repos
    $ svnadmin create /path/to/repos

A new Trac environment is created with trac-admin:

    $ trac-admin /path/to/projectenv initenv

なんかレポジトリ作ってそれ使って trac を initenv しろと
今回は mercurial でいきたいので svn? って聞かれるところを hg と答えます

で、apache で使えるようにするには

Configuring as CGI, WSGI, FastCGI
---------------------------------

For trac >= 0.11 the *gi scripts have to be generated using the deploy command:

        trac-admin /path/to/env deploy /path/to/www/trac

deploy しろと
WSGI がお薦めらしいので

#Trac as WSGI on Apache
#extra info on http://trac.edgewall.org/wiki/TracModWSGI
#info about daemon mode http://code.google.com/p/modwsgi/
# http://code.google.com/p/modwsgi/wiki/IntegrationWithTrac
WSGIScriptAlias /trac /path/to/www/trac/cgi-bin/trac.wsgi

WSGIScriptAlias を設定しろと
なんでまぁ例えば /etc/apache2/sites-available/default なんかに
WSGIScriptAlias 設定すればいいのかー

で、apache 再起動したら動かなかったんですが
そういえば mod_wsgi を入れた覚えがなく

$ apt-file search wsgi.conf
libapache2-mod-wsgi: /etc/apache2/mods-available/wsgi.conf

なので libapache2-mod-wsgi を入れました

で、最後に /usr/share/doc/trac-mercurial/README.Debian を見て

  [components]
  tracext.hg.* = enabled

(略)

  [hg]
  # -- Show revision number in addition to the changeset hash
  show_rev = yes
  
  # -- Changeset hash format
  node_format = short
  # hex:   Show the full SHA1 hash 
  # short: Show a shortened hash for the changesets

って設定を trac.ini にコピりました

これで http://192.168.0.1/trac とかにアクセスしちゃうと
mod_wsgi 経由で trac が動いちゃってるという素敵

で、動いたんだけど左上のロゴが壊れてたのでググったら
Tracサイトのロゴを変えたい - hack my life

src = site/your_project_logo.png

ってあるので、
trac の下の htdocs に your_project_logo.png って画像置けば OK だそうでした

lucid xen domu

2010-06-24T22:15:00.001+09:00

定期的に何かを更新するとか面倒ですよね
放っておくといつの間にか VM image も熟成しています
フレッシュなのが欲しいね! ということで作ることにしました

流行りには乗る方向で今回は Ubuntu

Debian 系である Ubuntu には debootstrap っていう
最小構成なシステムをネット経由で構築してくれるツールがあるので
debootstrap_1.0.23_all.deb を拾ってきて

$ ar -x debootstrap_1.0.23_all.deb
$ tar xfz data.tar.gz

みたいなことすると中身が取り出せます
usr ってディレクトリができてて中に色々ありますが
usr/share/debootstrap ってのが debootstrap のシステムみたいなもんなので

$ export DEBOOTSTRAP_DIR=(前は色々あるでしょうけど)usr/share/debootstrap

ってしときます

で、root_dir ってディレクトリ作っといて
おもむろに

$ ./usr/sbin/debootstrap --arch i386 lucid root_dir ftp://ftp.riken.go.jp/Linux/ubuntu

と打てばダウンロードと展開が始まります

で、以下は ext4 な file が root_dir にマウントされてると思って読んでね

終わったらデータは揃ってるんですけどまだ設定ができてないので
root_dir/etc/fstab に

/dev/hda1      /       ext4    errors=remount-ro       0       1

なんて書いて
root_dir/network/interfaces に

auto eth0
iface eth0 inet static
  address 192.168.0.2
  network 192.168.0.0
  netmask 255.255.255.0
  broadcast 192.168.0.255
  gateway 192.168.0.1
  dns-nameservers 192.168.0.1

みたいなの追加したらいいと思います
ほんとは Network の設定は NeworkManager とか使うんでしょうけど
まぁ、いつか覚えましょう

で、kernel ですよね
Xen 用の kernel で準仮想化といきたいところなんですが
Ubuntu の場合は server 用の kernel 使うんだったかなーと思いながら調べると
Xen: Debian Lenny Dom0 with Ubuntu Lucid Guest — Agile Web Operations
linux-image-ec2 を入れろと書いてある!! そんなのありますか
おどろいた

インストールするには chroot しましょう

$ chroot root_dir
$ apt-get update
$ apt-get install linux-image-ec2
$ apt-get install libc6-xen

的なことをしまして chroot を抜けます

root_dir/boot に initrd と vmlinuz ができてるんで
こいつらをコピーして Xen に登録してやったら完成です
簡単だよ Ubuntu! 簡単だよ Debian!!

python "クラス変数"

2010-06-05T00:32:00.002+09:00

やっぱりクラス変数のこと良く分かってませんでした
クラス変数？インスタンス変数？ - Ponsukeの日記
これこれ

例えば

class A(object):
  n = 0
  l = []

  def __init__(self):
    print self.n, self.l

    self.n = self.n + 10
    self.l.append(10)
    
    print self.n, self.l

A()
A()

こんなの実行すると

0 []
10 [10]
0 [10]
10 [10, 10]

ってなって
「なんで self.n が 0 に戻るんだYo!!」
とか思うわけですが

変数を参照するときはインスタンス変数探して無かったらクラス変数も見にいく
代入するときはインスタンス変数で無かったらインスタンス変数作る

というわけで

    self.n = self.n + 10

この右辺はクラス変数を見てるけど左辺はインスタンス変数なのでした。

クラス変数もインスタンスから self.xxx でアクセスできるとあるけれど
何か混乱しそうなので注意するか別の方法をとるかした方がいいなぁ
と思いました

"unicode-1-1-utf-7"

2010-05-20T11:53:00.002+09:00

なんか、メールでエラーが、っつーことで調べようと良く見ると
unicode-1-1-utf-7 って何だよって思ってググってみたんだけど
や、UTF-7 か、そうか、ASCII で見れちゃうのかとやっとこさ気付き

In [1]: print('+ayEwblPXT+GABTB4MG6RTU/hMGtZMWVXMFcwfjBXMF8wAg-'.decode('utf7').encode('euc-jp'))
次の受信者への配信に失敗しました。

で読めたっていう
それだけの話なんですけどね。

特に Exchange 2000 Server を恨んだりはしていません。

sni

2010-05-13T10:30:00.000+09:00

ことの始まりは
http://twitter.com/k4403/status/13880245576
このつぶやき

Google Reader で証明書に関する警告が出るということで
画像を見てみると FQDN が www.google.co.jp になっていました
ほぉ、www.google.co.jp でもアクセスできるのか、なんて思いつつ
Firefox でアクセスしたら www.google.com にリダイレクトされてしまった
あらら

とりあえず引いてみると

$ host www.google.co.jp
www.google.co.jp is an alias for www.google.com.
www.google.com is an alias for www.l.google.com.
www.l.google.com has address 66.249.89.99
www.l.google.com has address 66.249.89.104

まぁこの辺は色々な仕組みで IP address 渡されてるんだろうけど
でもまぁ、www.google.com の CNAME ってことになってるようで

で、他のブラウザでも、と思って w3m で繋いでみると

Bad cert ident www.google.com from www.google.co.jp: accept? (y/n)

むむむ?
何故 Firefox と結果が違うのだ?
ちなみに https://www.google.com/reader はちゃんと見れるの

で、どうやら 1 IP address で複数の証明書を利用しようとしてるみたいで
それには

マルチドメインな証明書 (CN とか SubjectAlternativeName に沢山書く)
ワイルドカードな証明書 (* 使う、ホスト名部分だけウマー)
Server Name Indication (SNI)

で、google はこの SNI っぽい

SNI?
そもそも何でそんな小細工しないといけなかったかというと
SSL/TLS の handshake の際に IP address だけ使ってたんですって
でも、Virtual Host 的なことは色々なサービスで使いたいのでこれは不便
マルチドメインとかワイルドカードもあったけど根本的に解決しようということなのか
登場したのが SNI だと思うの多分
Server Name Indication - Wikipedia, the free encyclopedia

でまぁ、どうしてるかというと、client hello に繋ぐ先の FQDN 入れるの
そうよね、伝えちゃえばいいのよね
で、Firefox で www.google.co.jp に繋いだところを wireshark で見てみたら
しっかり www.google.co.jp って名前を伝えているようでした
Google は SNI を使っている!!

SNI には 1 つだけ悲しいところがありまして
Windows XP がサポートしていません。2003 もかな。
Windows は CryptoAPI とかいう API で暗号回りを処理してるんだけど
多分それが古いのかな?
で、それを使ってる IE とか chrome が SNI 使えないみたいです。
(chrome はそのうち TLS まわりを自分でもってくるかもしれないけど)

例えば Google App Engine の Roadmap に
App Engine For Business Roadmap - Google App Engine - Google Code
独自ドメインで SSL 使えるようにって書いてあったりしますけど
ワイルドカードはダメだからマルチドメインか SNI かと思い
(IP address をしこたま用意してあるってのもあると思うんですが)
SNI だったら XP 切るのかなぁ〜、と思いました

でも Google だったら証明書も用意してくれるかなって思ったりもしたけど
審査があるんだよなぁ、やっぱ、証明書は自前で用意かなぁ
秘密鍵と CSR を作成してくれて、証明書と中間が用意できるようになるのかなぁ
や、アプリ部分と同様に upload するのかなぁ

ちょっと楽しみ

property python

2010-05-07T19:01:00.000+09:00

gnutls を使って SSL な server から証明書を取りたい話

gnutls python でサーバーの証明書は取ってきていましたが
python-gnutls にはその上の証明書を取る関数がありませんでした
で、とりあえずソース見てみると connection.py に

    @property
    def peer_certificate(self):
        if gnutls_certificate_type_get(self._c_object) != GNUTLS_CRT_X509:
            return None
        list_size = c_uint()
        cert_list = gnutls_certificate_get_peers(self._c_object, byref(list_size))
        if list_size.value == 0:
            return None
        cert = cert_list[0]
        return X509Certificate(string_at(cert.data, cert.size), X509_FMT_DER)

とありました。
サーバの提示する証明書全部取って、頭だけ出している!!

で、何か decorator 付いてるけどその辺り慣れていないのでググりました
Pythonでプロパティ - crazy()for(;;)you();
なるほど! () を省略したいんだな!!

というわけで書いてみました

from gnutls.connection import (
  ClientSession, GNUTLS_CRT_X509, X509Certificate, X509_FMT_DER,
  byref, c_uint, string_at,
  gnutls_certificate_type_get, gnutls_certificate_get_peers,
  )

def peer_certificate_chain(self):
  if gnutls_certificate_type_get(self._c_object) != GNUTLS_CRT_X509:
    return []
  list_size = c_uint()
  cert_list = gnutls_certificate_get_peers(self._c_object, byref(list_size))
  ders = []
  for i in range(list_size.value):
    cert = cert_list[i]
    ders.append(X509Certificate(string_at(cert.data, cert.size), X509_FMT_DER))
  return ders

ClientSession.peer_certificate_chain = property(peer_certificate_chain)

if __name__ == '__main__':
  import socket
  from gnutls import connection

  cred = connection.X509Credentials()
  sock = socket.socket()
  session = connection.ClientSession(sock, cred)

  session.connect(('www.google.com', 443))
  session.handshake()

  for i in session.peer_certificate_chain:
    print("%s <- %s" % (i.subject, i.issuer))

で、動かすと

$ python chain.py
C=US,ST=California,L=Mountain View,O=Google Inc,CN=www.google.com <- C=ZA,O=Thawte Consulting (Pty) Ltd.,CN=Thawte SGC CA
C=ZA,O=Thawte Consulting (Pty) Ltd.,CN=Thawte SGC CA <- C=US,O=VeriSign\, Inc.,OU=Class 3 Public Primary Certification Authority
$

うん、動いた

でも場当たりでメソッド足したりだなんて Python 的と言えないのでは?
と悩んだりもしました
う〜ん

rfc kindle

2010-05-04T16:39:00.000+09:00

Kindle DX を借りることができました
考えていた用途に「RFC をゴロゴロしながら読む」というのがあったので
ここぞとばかりに、と思って思考停止しました

Kindle DX は mobi/azw/html/txt/pdf などの format が読めるそうです
RFC は txt で配布されています

txt はブラウザで見るような感じで表示されるのですが
RFC は等幅フォント? monospace? で表示されることを前提としている風で
若干文章ががちゃがちゃするうえに
ページのヘッダとフッタが定期的に入ってきて少し憂鬱になります

pdf は 1 ページ毎に文字がある領域めいっぱいに最大化して表示してくれます
といっても Kindle だったら小さくて「もっと大きくしてくれよ!」と思うところ
Kindle DX であれば大きいのでそれなりに読めるようになります
がしかしどうも IETF の pdf はフォントが薄い
Courier で表示されてると思うのですが何だか薄くてちょっと辛い感じでした
pdf で無理矢理フォント入れかえ? ん〜

Kindle で RFC や Internet Drafts を読む: 日誌
なるページをググって見つけてみましたが
RFC 2629 な形式で書かれた RFC に関するもので全てがというわけではありません
多分、これはちょっと試してみたんですが良く分からず
若しかしたらどれでも読めるのかもしれません

txt である RFC を今から色々と編集するというのも手間で嫌なので
HTML やら epub -> azw という手順を踏むのも嫌だったので
pdf で何かフォントを入れかえてやれば良いのではないかと思いました

a2ps/a2psj/u2ps/enscript など txt を ps にしてくれるのはあるんですが
どうもこいつらは Courier やその Bold 辺りで決め打ちらしく
というかどのフォントに変更すればいいのか決めていませんでした
ワードパッドか? ワードパッドでフォント変えて pdf にしたらいいのか??

とここで、LaTeX を思いだしました
LaTeX なら色々と等幅フォントがあるに違いなく
少なくとも Computer Modern に Typewriter がある!!
txt に関しては verb な何かで囲んでやればいいと思ったので
簡単な tex soucre 生成スクリプトを作成

import fileinput

print r'''\documentclass[12pt,a4paper]{article}

\addtolength{\topmargin}{-4cm}
\addtolength{\textheight}{100cm}
\addtolength{\textwidth}{3cm}
\addtolength{\oddsidemargin}{0cm}
\addtolength{\evensidemargin}{0cm}
\pagestyle{empty}

\begin{document}
\begin{verbatim}'''

lines = fileinput.input()
lines.next()
lines.next()

for line in lines:
  line = line.rstrip("\n")
  if line.find("\x0c") > -1:
    print (r'''\end{verbatim}
\newpage
\begin{verbatim}''')
  else:
    print(line)

print r'''\end{verbatim}
\end{document}'''

プリアンブルとか出して
^L の度に verbatim を閉じて開いてるだけです

こんなのに rfc の txt 通してみたら
少なくとも IETF のよりは見易い pdf を得ることができました
ほんとは mobi とかで欲しいけど!
これでゴロゴロしてみようかと思います

"chirpstream.twitter.com"

2010-05-03T22:48:00.000+09:00

最新のTwitter API「ChirpUserStreams」をPythonから使う - ctrlshiftの日記
なんかそんな API 聞いたことある!
と思ってサンプルを動かそうとしたら上手くうごきませんでした

json の解釈に失敗してるっぽいんだけどそもそも
何が返ってくるかも分かってないので何だか良く分かりません
コピペに失敗したのかもしれません

で、楽な方向に流れてしまってそもそも何なのその API は、
とか調べようと思ったんですがとりあえず繋いでみました
http://chirpstream.twitter.com/2b/user.json
なんか、色々流れてくるじゃない

というわけで、とりあえず流れるものを書いてみた

import simplejson
import urllib2
import time

auth_handler = urllib2.HTTPBasicAuthHandler()
auth_handler.add_password(
  realm='Firehose',
  uri='http://chirpstream.twitter.com/',
  user='あなたの id を入れるところ',
  passwd='あなたの password を入れるところ')

opener = urllib2.build_opener(auth_handler)
urllib2.install_opener(opener)
u = urllib2.urlopen('http://chirpstream.twitter.com/2b/user.json')
u.readline()
u.readline()

while True:
  try:
    j = simplejson.loads(u.readline())
    print "[%s] %s".encode('utf-8') % (j['user']['screen_name'], j['text'])
  except:
    time.sleep(0.5)

とりあえずダラダラと TL が流れはじめたので良しとします
これは便利そうだ!

もう少しググってみた
Twitterの新しいStreaming API「ChirpUserStreams」がすごすぎる件 - すぎゃーんメモ
あ、なるほど、TLよりも豊富な情報が流れてるのか、それは凄い
Twitter API Wiki / ChirpUserStreams
まだ beta だからあんま本気で使うなと、なるほど
"In Q3 2010, launch User Streams at scale." ということなので楽しみに待ちます

と、こんなもの書いてる間にもどんどん情報が流れてました
アイコン無いと誰だか認識するの難しいなぁ
おかしいなぁ、CUIの世界の人だったはずなんだけどなぁ．．．

"self.class"

2010-05-01T16:53:00.002+09:00

クラス変数へのアクセス方法すら忘れていました
Python って何ですか? というレベルです
7.7 クラス定義
self.??? で良かったんですけどね

最初 method の外で定義されてるから何も付けずに OK かと思ったらダメで
ん〜、class って self.__class__ に入ってるな〜とか思って
調べてみたら
Python/codepiece/継承(2) - Glamenv-Septzen.net
ってページがひっかかったんですが、ここからリンクされてる
Effective Python Programming
が面白そうなんだけど長くて、あと少し古くて
最近の流行りとかもまとまってるの何かないかなぁ〜と思いました

でも初心者なのでこれ読むだけでも勉強になるに違いありません

python octet

2010-04-26T14:49:00.003+09:00

\110\145\154\154\157\054\040\127\157\162\154\144
ってあったらこれを string に直したいと思われるのではないでしょうか
私は思います
でもどうすればいいか直ぐには思いつきません
そこでグーグル先生に聴いてみました

octet string conversion
何か色々話されていますが斜めに読みます
コードしか読みません

>>> ''.join([chr(int(x,8)) for x in r'\110\145\154\154\157\054\040\127\157\162\154\144'.split('\\')[1:]])
'Hello, World'

あれ、なんかこれ、どっかの求人ので見たな
学習能力が無いようだ

python ssl

2010-04-26T12:27:00.001+09:00

何か私、勘違いをしていたみたいでして
Python 2.6 だと ssl って module がありました
17.3. ssl — SSL wrapper for socket objects — Python v2.6.5 documentation
ssl.SSLSocket.getpeercert とかあるの

というわけで簡単にいじってみました

import socket
import ssl

sock = socket.socket()
ssl_sock = ssl.wrap_socket(sock)
ssl_sock.connect(('www.google.com', 443))
der = ssl_sock.getpeercert(binary_form=True)
print ssl.DER_cert_to_PEM_cert(der)

として実行してみると

$ python get_cert.py 
-----BEGIN CERTIFICATE-----
MIIDITCCAoqgAwIBAgIQL9+89q6RUm0PmqPfQDQ+mjANBgkqhkiG9w0BAQUFADBM
MQswCQYDVQQGEwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1bHRpbmcgKFB0eSkg
THRkLjEWMBQGA1UEAxMNVGhhd3RlIFNHQyBDQTAeFw0wOTEyMTgwMDAwMDBaFw0x
MTEyMTgyMzU5NTlaMGgxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpDYWxpZm9ybmlh
MRYwFAYDVQQHFA1Nb3VudGFpbiBWaWV3MRMwEQYDVQQKFApHb29nbGUgSW5jMRcw
FQYDVQQDFA53d3cuZ29vZ2xlLmNvbTCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkC
gYEA6PmGD5D6htffvXImttdEAoN4c9kCKO+IRTn7EOh8rqk41XXGOOsKFQebg+jN
gtXj9xVoRaELGYW84u+E593y17iYwqG7tcFR39SDAqc9BkJb4SLD3muFXxzW2k6L
05vuuWciKh0R73mkszeK9P4Y/bz5RiNQl/Os/CRGK1w7t0UCAwEAAaOB5zCB5DAM
BgNVHRMBAf8EAjAAMDYGA1UdHwQvMC0wK6ApoCeGJWh0dHA6Ly9jcmwudGhhd3Rl
LmNvbS9UaGF3dGVTR0NDQS5jcmwwKAYDVR0lBCEwHwYIKwYBBQUHAwEGCCsGAQUF
BwMCBglghkgBhvhCBAEwcgYIKwYBBQUHAQEEZjBkMCIGCCsGAQUFBzABhhZodHRw
Oi8vb2NzcC50aGF3dGUuY29tMD4GCCsGAQUFBzAChjJodHRwOi8vd3d3LnRoYXd0
ZS5jb20vcmVwb3NpdG9yeS9UaGF3dGVfU0dDX0NBLmNydDANBgkqhkiG9w0BAQUF
AAOBgQCfQ89bxFApsb/isJr/aiEdLRLDLE5a+RLizrmCUi3nHX4adpaQedEkUjh5
u2ONgJd8IyAPkU0Wueru9G2Jysa9zCRo1kNbzipYvzwY4OA8Ys+WAi0oR1A04Se6
z5nRUP8pJcA2NhUzUnC+MY+f6H/nEQyNv4SgQhqAibAxWEEHXw==-----END CERTIFICATE-----

$

何だこの変な改行は
まぁ、動いた

あ、や、こんなことしなくても

ssl.get_server_certificate(("www.google.com", 443))

でいいのか

Python 2.6 だったらサーバー証明書取るだけならまぁいける
裏で動いてるのは OpenSSL だから OpenSSL は要るけど
うん、覚えておこう、っていうかもぉ、忘れられないわ

ocaml open as

2010-04-23T18:55:00.002+09:00

Python やら Haskell だと

import XXXX as Y

みたいなことできますので
OCaml だったらどうするんじゃらほいと思いました

ググったんだけど良く分からず
id:camlspotter さんに聴いちゃいました
答は

module Y = XXXX

でした
なるほど!

というわけで少し試してみることに

$ rlwrap ocaml 
        Objective Caml version 3.11.2

# #load "unix.cma";;
# module U = Unix;;
module U :
  sig
    type error =
      Unix.error =
        E2BIG
      | EACCES
      | EAGAIN
      | EBADF
      | EBUSY
(略)
    val setsid : unit -> int
  end
# U.connect;;
- : U.file_descr -> U.sockaddr -> unit = <fun>
#

おぉ〜、できてる

gnutls python

2010-04-23T12:40:00.000+09:00

悪ノリも大概にしなさいという気がしないでもないですが
どうせならと思って gnutls も使ってみようと
Python であれば python-gnutls というのがあります
easy_install でも pip でも使えば入ってしまいます

example とかも揃っているので良く分かってなくても使えてしまいましたが

from gnutls import crypto

x509 = crypto.X509Certificate(open("google.crt").read())

print "version: %d" % x509.version
print "serial number: %s" % x509.serial_number
print "issuer: %s" % x509.issuer.title()
print "not before: %s" % time.ctime(x509.activation_time)
print "not after: %s" % time.ctime(x509.expiration_time)
print "subject: %s" % x509.subject.title()

とか

import socket
import time

from gnutls import connection

cred = connection.X509Credentials()

sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
session = connection.ClientSession(sock, cred)

session.connect(('www.google.com', 443))
session.handshake()
x509 = session.peer_certificate
session.bye()
session.close()

print "version: %d" % x509.version
print "serial number: %s" % x509.serial_number
print "issuer: %s" % x509.issuer.title()
print "not before: %s" % time.ctime(x509.activation_time)
print "not after: %s" % time.ctime(x509.expiration_time)
print "subject: %s" % x509.subject.title()

とかすると

version: 3
serial number: 205024093581220934167709006090448199471
issuer: C=Za,O=Thawte Consulting (Pty) Ltd.,Cn=Thawte Sgc Ca
not before: Fri Dec 18 09:00:00 2009
not after: Mon Dec 19 08:59:59 2011
subject: C=Us,St=California,L=Mountain View,O=Google Inc,Cn=Www.Google.Com

こんなのが出ました

gnutls.constants.X509_FMT_DER とかあるので DER も読めたり
gnutls.library.functions ってのがあるんでガリガリ書いたり
できるのかな? 試していません

とりあえず証明書は読めました

scala cast

2010-04-21T12:18:00.002+09:00

Jython でできたら Scala でもできるべ JK、と思ったら失敗しやんの
というお話

同じようにしようと思ったんですね、Scala で

scala> import javax.net.ssl.SSLSocketFactory
import javax.net.ssl.SSLSocketFactory

scala> val fc = SSLSocketFactory.getDefault
fc: javax.net.SocketFactory = com.sun.net.ssl.internal.ssl.SSLSocketFactoryImpl@10c6406

scala> val sock = fc.createSocket("www.google.com", 443)
sock: java.net.Socket = 17aa961[SSL_NULL_WITH_NULL_NULL: Socket[addr=www.google.com/66.249.89.99,port=443,localport=57185]]

scala> sock.startHandshake
<console>:8: error: value startHandshake is not a member of java.net.Socket
       sock.startHandshake
            ^

scala>

java.net.Socket には startHandshake なんて無いと

あれー、と思って調べてみたら
Java の場合は Socket 作るときにキャストしてたんです
なんで調べてみましたところ
型キャスト - うなの日記
.asInstanceOf でキャストするらしい

とわけで仕切り直し

scala> import javax.net.ssl.SSLSocket                                 
import javax.net.ssl.SSLSocket

scala> val ssl_sock = fc.createSocket("www.google.com", 443).asInstanceOf[javax.net.ssl.SSLSocket]
ssl_sock: javax.net.ssl.SSLSocket = 5b55a9[SSL_NULL_WITH_NULL_NULL: Socket[addr=www.google.com/66.249.89.104,port=443,localport=51395]]

scala> ssl_sock.startHandshake

scala> val session = ssl_sock.getSession
session: javax.net.ssl.SSLSession = [Session-1, SSL_RSA_WITH_RC4_128_SHA]

scala> session.getPeerCertificates
res3: Array[java.security.cert.Certificate] = 
Array([
[
  Version: V3
  Subject: CN=www.google.com, O=Google Inc, L=Mountain View, ST=California, C=US
  Signature Algorithm: SHA1withRSA, OID = 1.2.840.113549.1.1.5

  Key:  Sun RSA public key, 1024 bits
  modulus: 16360039926653679142684174795487342200966220249542631283272411000230225514996552443305086682233800494025854567816692732625...
scala>

取れた!!

Scala の方が Java に対して素直なんですかね
何故 Jython でキャストが不要なのか良く分からず
どのくらい手を加えているのかっつーことなんでしょうか

sslsocketfactory session getdefault

2010-04-20T22:56:00.001+09:00

Jython で Java を使って SSL 張って証明書を取ろうとしました

色々ググったりして SSLSocketFactory ってのがあるということで
java.net パッケージの仕組み
を見てふんふんとする
で、socket を作って getSession したらそこに getPeerCertificates という method が!

In [63]: soc = factory.createSocket('www.google.com', 443)

In [1]: from javax.net.ssl import *

In [2]: sock = factory.createSocket('www.google.com', 443)

In [3]: session = sock.getSession()

In [4]: certs = session.getPeerCertificates()
---------------------------------------------------------------------------
SSLPeerUnverifiedException                Traceback (most recent call last)

/tmp/<ipython console> in <module>()

SSLPeerUnverifiedException: javax.net.ssl.SSLPeerUnverifiedException: peer not authenticated

In [5]:

うぎゃぁ!!

何か足りないのみたいなのでググり直すと
HTTPS通信にはまる - TNET日々のメモ
そうですよね、handshake してませんでした

ということで

import sys
from javax.net.ssl import SSLSocketFactory

host = "www.google.com"
port = 443

factory = SSLSocketFactory.getDefault()
sock = factory.createSocket(host, port)
sock.startHandshake()
session = sock.getSession()
certs = session.getPeerCertificates()

for c in certs:
  print '-----BEGIN CERTIFICATE-----'
  print c.getEncoded().tostring().encode('base64').rstrip()
  print '-----END CERTIFICATE-----'

Certificate を PEM で出したかったんですが
DER を array で取り出す方法しか分からなかったので
Jython str にして encode してしまいました
てゆーか array なんてあったんだー使ったことないよー

でどうなるかというと

$ jython get_certs.jy www.google.com
-----BEGIN CERTIFICATE-----
MIIDITCCAoqgAwIBAgIQL9+89q6RUm0PmqPfQDQ+mjANBgkqhkiG9w0BAQUFADBMMQswCQYDVQQG
EwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1bHRpbmcgKFB0eSkgTHRkLjEWMBQGA1UEAxMNVGhh
d3RlIFNHQyBDQTAeFw0wOTEyMTgwMDAwMDBaFw0xMTEyMTgyMzU5NTlaMGgxCzAJBgNVBAYTAlVT
MRMwEQYDVQQIEwpDYWxpZm9ybmlhMRYwFAYDVQQHFA1Nb3VudGFpbiBWaWV3MRMwEQYDVQQKFApH
b29nbGUgSW5jMRcwFQYDVQQDFA53d3cuZ29vZ2xlLmNvbTCBnzANBgkqhkiG9w0BAQEFAAOBjQAw
gYkCgYEA6PmGD5D6htffvXImttdEAoN4c9kCKO+IRTn7EOh8rqk41XXGOOsKFQebg+jNgtXj9xVo
RaELGYW84u+E593y17iYwqG7tcFR39SDAqc9BkJb4SLD3muFXxzW2k6L05vuuWciKh0R73mkszeK
9P4Y/bz5RiNQl/Os/CRGK1w7t0UCAwEAAaOB5zCB5DAMBgNVHRMBAf8EAjAAMDYGA1UdHwQvMC0w
K6ApoCeGJWh0dHA6Ly9jcmwudGhhd3RlLmNvbS9UaGF3dGVTR0NDQS5jcmwwKAYDVR0lBCEwHwYI
KwYBBQUHAwEGCCsGAQUFBwMCBglghkgBhvhCBAEwcgYIKwYBBQUHAQEEZjBkMCIGCCsGAQUFBzAB
hhZodHRwOi8vb2NzcC50aGF3dGUuY29tMD4GCCsGAQUFBzAChjJodHRwOi8vd3d3LnRoYXd0ZS5j
b20vcmVwb3NpdG9yeS9UaGF3dGVfU0dDX0NBLmNydDANBgkqhkiG9w0BAQUFAAOBgQCfQ89bxFAp
sb/isJr/aiEdLRLDLE5a+RLizrmCUi3nHX4adpaQedEkUjh5u2ONgJd8IyAPkU0Wueru9G2Jysa9
zCRo1kNbzipYvzwY4OA8Ys+WAi0oR1A04Se6z5nRUP8pJcA2NhUzUnC+MY+f6H/nEQyNv4SgQhqA
ibAxWEEHXw==
-----END CERTIFICATE-----
-----BEGIN CERTIFICATE-----
MIIDIzCCAoygAwIBAgIEMAAAAjANBgkqhkiG9w0BAQUFADBfMQswCQYDVQQGEwJVUzEXMBUGA1UE
ChMOVmVyaVNpZ24sIEluYy4xNzA1BgNVBAsTLkNsYXNzIDMgUHVibGljIFByaW1hcnkgQ2VydGlm
aWNhdGlvbiBBdXRob3JpdHkwHhcNMDQwNTEzMDAwMDAwWhcNMTQwNTEyMjM1OTU5WjBMMQswCQYD
VQQGEwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1bHRpbmcgKFB0eSkgTHRkLjEWMBQGA1UEAxMN
VGhhd3RlIFNHQyBDQTCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEA1NNn0I0Vf67NMf59HZGh
PwtxPKzMyGT7Y/wySweUvW+Aui/hBJPAM/wJMyPpC3QrccQDxtLN4i/1CWPN/0ilAL/g5/OIty0y
3pg25gqtAHvEZEo7hHUD8nCSfQ5i9SGraTaEMXWQ+L/HbIgbBpV8yeWo3nWhLHpo39XKHIdYYBkC
AwEAAaOB/jCB+zASBgNVHRMBAf8ECDAGAQH/AgEAMAsGA1UdDwQEAwIBBjARBglghkgBhvhCAQEE
BAMCAQYwKAYDVR0RBCEwH6QdMBsxGTAXBgNVBAMTEFByaXZhdGVMYWJlbDMtMTUwMQYDVR0fBCow
KDAmoCSgIoYgaHR0cDovL2NybC52ZXJpc2lnbi5jb20vcGNhMy5jcmwwMgYIKwYBBQUHAQEEJjAk
MCIGCCsGAQUFBzABhhZodHRwOi8vb2NzcC50aGF3dGUuY29tMDQGA1UdJQQtMCsGCCsGAQUFBwMB
BggrBgEFBQcDAgYJYIZIAYb4QgQBBgpghkgBhvhFAQgBMA0GCSqGSIb3DQEBBQUAA4GBAFWsY+re
od3SkF+fC852vhNRj5PZBSvIG3dLrWlQoe7e3P3bB+noOZTcq3J5Lwa/q4FwxKjt6lM07e8eU9kG
x1Yr0Vz00YqOtCuxN5BICEIlxT6Ky3/rbwTRbcV0oveifHtgPHfNDs5IAn8BL7abN+AqKjbc1YXW
rOU/VG+WHgWv
-----END CERTIFICATE-----
$

ありゃ、1行が76文字に．．．

まぁいいや、Java で証明書が取れました

InputStream 文字列

2010-04-20T00:31:00.002+09:00

色々ググっていたら
Java(TM) PKI API プログラマーズガイド
ってのを見付けました
こりゃいいや、これに違いない

で、先ず証明書読みたいと思いまして読み進めると
java.security.cert.CertificateFactory
を使うと良いらしく、サンプルも
Java 暗号化アーキテクチャー (JCA)
に書いてありました

FileInputStream fis = new FileInputStream(filename);
BufferedInputStream bis = new BufferedInputStream(fis);

CertificateFactory cf = CertificateFactory.getInstance("X.509");

while (bis.available() > 0) {
    Certificate cert = cf.generateCertificate(bis);
    System.out.println(cert.toString());
}

でも file を Java で読みたくないなぁ
でも Jython で file 開いた後どうするんだろう
中身を str にしたら何とかならないかな
つわけでググってみると
String文字列をInputStreamに変換する方法 - Java入門
そうそう、こういうの

というわけで簡単に証明書の中身を出してみました

from java.security.cert import CertificateFactory
from java.io import ByteArrayInputStream

pem_file = open("google.pem", "r")
cf = CertificateFactory.getInstance("X.509")
pem_stream = ByteArrayInputStream(pem_file.read())
x509 = cf.generateCertificate(pem_stream)

print x509.version
print x509.sigAlgName
print x509.issuerDN
print x509.notBefore
print x509.notAfter
print x509.subjectDN

これがこうなります

$ jython read_cert.jy
3
SHA1withRSA
CN=Thawte SGC CA, O=Thawte Consulting (Pty) Ltd., C=ZA
Fri Dec 18 09:00:00 JST 2009
Mon Dec 19 08:59:59 JST 2011
CN=www.google.com, O=Google Inc, L=Mountain View, ST=California, C=US
$

Python で開いた file をそのまま InputStream? にする方法もある気がする
今度調べよう

java http socket

2010-04-18T22:28:00.002+09:00

Jython っつっても Java を触りたく
Java のことなんて何も分かってないのを思いだしました
こまった

でもグーグルがあるじゃないか!
インターネット世代だし先ずは 80 番ポートじゃないか!!
教えてグーグル先生!!!

先生優しいので何でも教えてくれます
Java で HTTP クライアントを作ってみよう (1)
Java 関連はグーグル先生特に詳しいみたいでいくらでも出てきます
Java を使うことによるメリットの1つはグーグル先生が詳しいからかっ

で、これを Jython に写経です

import java.net as net
import java.io as io

host = "www.google.com"
port = 80
path = "/"

sock = net.Socket(host, port)
reader = io.BufferedReader(io.InputStreamReader(sock.getInputStream()))
writer = io.BufferedWriter(io.OutputStreamWriter(sock.getOutputStream()))

writer.write("GET %s HTTP/1.0\n\n" % (path,))
writer.flush()

while True:
  line = reader.readLine()
  if line:
    print line
  else:
    break

で、実行

$ jython get_google.jy
HTTP/1.0 302 Found
Location: http://www.google.co.jp/
Cache-Control: private
Content-Type: text/html; charset=UTF-8
(後略)

動いてしまいました、あっさり

これは、既にどこかに Java -> Jython translator があるに違いない

jython ipython

2010-04-18T17:18:00.003+09:00

OpenSSL ばっかりでは飽きてきたし
GNU TLS とかでもいいんだけど
Java のライブラリとか素敵なんじゃないのかしら
でも Java を今からって、private? public? static??

そこで Scala か Clojure かと思ったんですが Jython があるじゃないですか
先ずは Jython から初めようと思いダウンロードしてインストールしてみました

$ time /usr/local/jython-2.5.1/bin/jython /dev/null

real 0m2.870s
user 0m2.844s
sys 0m0.124s

立ち上がりは遅い。このパソコンが重いのか?
未だに EUC-JP 環境にいるので LANG=C とか ja_JP.UTF-8 とかしないと
string なリテラル打ったが最後帰ってこなくなったりしました

さて、Python だったら IPython とかで happy になってるわけなので
補完とかがある Jython が欲しいと思ってとりあえずググると、あるある
How to use IPython with Jython
作業日誌/2010-03-04 - Go's WikiLog

最初書いてある通りにしてるつもりができてなかったので動かず
読み直してちゃんと動きました

$ jython
Python 2.5.1 (Release_2_5_1:6813, Sep 26 2009, 13:47:54) 
Type "copyright", "credits" or "license" for more information.

IPython 0.9.1 -- An enhanced Interactive Python.
?         -> Introduction and overview of IPython's features.
%quickref -> Quick reference.
help      -> Python's own help system.
object?   -> Details about 'object'. ?object also works, ?? prints more.

In [1]: import java

In [2]: java.
java.__name__  java.awt       java.io        java.math      java.nio       java.security  java.text      
java.applet    java.beans     java.lang      java.net       java.rmi       java.sql       java.util      

In [2]: java.

Tab で補完もできました
さて、何して遊ぼう

"GetOcspSignerCertificate"

2010-04-14T23:34:00.004+09:00

失効されてるはずなのに OCSP が教えてくれないな〜
Windows でそんなことが起きた場合にはイベントビューアーを見ましょう
Windows 7 であればイベントビューアーを開くを参考

[アプリケーションとサービスログ] -> [Microsoft] -> [Windows] -> [CAPI2]
と進みます
この CAPI2 は CryptoAPI 2 の略で、1 は XP とか 2003 までのものなのかな?
Vista/2008 移行の色々機能が強化された CryptoAPI が CAPI2 です

デフォルトだとログが無効化されているので右の方にある [ログを有効化] を押せば
SSL なページを見にいったときの証明書の検証のログなどをガシガシ保存してくれます

例えばエラーが出てるところを見て
GetOcspSignerCertificate なんて書いてあったとしますと
検索することによって
Windows Vista での PKI に関する問題のトラブルシューティング
というページがひっかかりますので探しますと

OCSP 応答には署名が必要であり、OCSP 署名者の証明書には OCSP 署名 EKU が含まれている必要があります。この EKU がないと、エラーが発生します。このエラーは、"CertRejectedRevocationInfo" イベントの操作 "GetOCSPSignerCertificate" で示されます。OCSP 署名者の証明書の内容でその他のエラーが発生した場合も、同じ操作がログに記録されます。このようなエラーには、次のものがあります。
期間が無効な証明書

CDP 拡張機能または OCSP URL は含まれていても "Revocation_No_Check" 拡張機能が含まれていない証明書

これらのエラーの場合、CAPI2 では、OCSP 署名者の証明書に関する情報もログに記録されます。

ほぉほぉ

Revocation_No_Check というのは RFC2560 の 4.2.2.2.1 に
id-pkix-ocsp-nocheck OBJECT IDENTIFIER ::= { id-pkix-ocsp 5 } と記載が
1.3.6.1.5.5.7.48.1.5 ですね
OCSP はオンラインでやりとりをするので MITM などの対応をしなくてはいけません
OCSP Responder が信頼できるかどうかの判断はとても大切です

ちなみに OpenSSL の場合 man x509v3_config を見れば

   OCSP No Check
       The OCSP No Check extension is a string extension but its value is ignored.

       Example:

        noCheck = ignored

という記述が見付けられます

やぁ、Google って便利ですね

"mod_rewrite" "%2F"

2010-04-14T18:20:00.002+09:00

mod_rewrite で飛んでほしかったんですが
何故だか "%2F" が URL に入ってると飛べなくて
別にこんなリクエスト受けつけなけりゃという話もありますが
投げてくる人がいるんですから仕方がありません

GET で ? も使わずに base64 されたデータが飛んでくるんですが
これは mod_rewrite で query に回すとかで正しいんでしょうか
http://sample.com/ だけ公開したいサーバがあって
http://sample.com/Z2d1dHRlcg%3D%3D みたいなリクエストが来るんで
これを処理して返事したかっただけなんですが
なんか、大鉈振ってる気がします．．．

でまぁ、検索しましたら
PHPプロ！TIPS+ に
AllowEncodedSlashes On を設定しなさいと教えて頂き
無事に動くものができました

よかったよかった

"ocsp" "-rsigner"

2010-04-12T10:46:00.002+09:00

OCSP は Online Certificate Status Protocol の略です。
証明が失効されてるか有効かをオンラインで調べる為のものです。
例えば

$ openssl s_client -connect www.google.com:443 </dev/null | openssl x509 -noout -text
(前略)
        X509v3 extensions:
            X509v3 Basic Constraints: critical
                CA:FALSE
            X509v3 CRL Distribution Points: 
                URI:http://crl.thawte.com/ThawteSGCCA.crl

            X509v3 Extended Key Usage: 
                TLS Web Server Authentication, TLS Web Client Authentication, Netscape Server Gated Crypto
            Authority Information Access: 
                OCSP - URI:http://ocsp.thawte.com
                CA Issuers - URI:http://www.thawte.com/repository/Thawte_SGC_CA.crt
(後略)

のように http://ocsp.thawte.com が OCSP サーバだと分かります

openssl も ocsp というコマンドを持っているので
例えば

$ openssl s_client -connect www.google.com:443 -showcerts < /dev/null

などで google と thawte の証明書を取ってくれば

$ openssl ocsp -issuer thawte.crt -cert google.crt -url http://ocsp.thawte.com -resp_text -CAfile thawte.crt 
OCSP Response Data:
    OCSP Response Status: successful (0x0)
    Response Type: Basic OCSP Response
    Version: 1 (0x0)
    Responder Id: C = ZA, O = Thawte Consulting (Pty) Ltd., CN = Thawte SGC OCSP Responder
    Produced At: Apr 12 11:09:20 2010 GMT
    Responses:
    Certificate ID:
      Hash Algorithm: sha1
      Issuer Name Hash: 1E9209AA713C794BCA1E931A0A61AD3FD0BA6083
      Issuer Key Hash: 3B349A709173B28A1B0CF4E937CDB370329E1854
      Serial Number: 2FDFBCF6AE91526D0F9AA3DF40343E9A
    Cert Status: good
    This Update: Apr 12 11:09:20 2010 GMT
    Next Update: Apr 19 11:09:20 2010 GMT

Certificate:
    Data:
        Version: 3 (0x2)
        Serial Number:
            7c:ec:c6:3e:2b:8d:3e:ad:f6:ba:ce:11:13:1a:b7:73
        Signature Algorithm: sha1WithRSAEncryption
        Issuer: C=ZA, O=Thawte Consulting (Pty) Ltd., CN=Thawte SGC CA
        Validity
            Not Before: Feb 13 00:00:00 2010 GMT
            Not After : May 14 23:59:59 2010 GMT
        Subject: C=ZA, O=Thawte Consulting (Pty) Ltd., CN=Thawte SGC OCSP Responder
        Subject Public Key Info:
            Public Key Algorithm: rsaEncryption
            RSA Public Key: (1024 bit)
                Modulus (1024 bit):
                    00:d3:2f:7e:60:63:4c:bb:b9:98:84:91:23:d8:f0:
                    e9:d9:0f:35:42:40:dc:d5:75:d5:cf:4e:a0:3b:50:
                    e6:85:fa:38:27:bc:cb:8f:7e:34:8d:ed:8d:19:27:
                    9a:cb:9c:84:82:3c:3a:ed:7a:ba:2b:75:b1:74:c9:
                    32:7d:7d:11:bb:d2:7d:8b:c4:3c:03:7d:4f:22:c0:
                    03:82:26:b9:8e:ce:4a:21:0e:9c:ef:b8:e7:81:af:
                    a7:0a:14:c6:04:a0:94:05:44:e2:e2:fc:b0:71:2a:
                    98:f3:6f:d2:1c:46:ab:af:7d:ea:22:ab:3e:a1:94:
                    28:eb:91:67:61:a3:58:4b:ed
                Exponent: 65537 (0x10001)
        X509v3 extensions:
            X509v3 Basic Constraints: 
                CA:FALSE
            X509v3 Extended Key Usage: 
                OCSP Signing
            X509v3 Key Usage: 
                Digital Signature
            OCSP No Check: 

            X509v3 Subject Alternative Name: 
                DirName:/CN=OCSP5-TGV-4-109
    Signature Algorithm: sha1WithRSAEncryption
        b7:7e:90:32:f5:5e:73:86:d3:3a:f9:27:ea:95:0c:70:b8:80:
        e4:8e:83:9e:36:f5:8a:c4:c2:5f:a3:df:01:ed:24:03:dd:de:
        c1:41:56:5a:92:48:0b:8e:cc:67:9a:53:a5:9c:ea:e5:36:7f:
        4b:07:cc:9e:40:9a:fb:d3:cd:b2:df:de:87:f6:89:cf:5b:94:
        80:06:d7:d8:aa:db:35:8c:7b:46:84:e6:37:41:e7:d9:07:1e:
        7d:79:34:e1:18:91:b0:e8:fd:40:1b:eb:63:ef:6b:3a:2a:30:
        ad:48:0e:9e:8e:de:61:92:c1:c2:0d:d1:f3:6d:d5:db:4b:e5:
        82:25
-----BEGIN CERTIFICATE-----
MIICkjCCAfugAwIBAgIQfOzGPiuNPq32us4RExq3czANBgkqhkiG9w0BAQUFADBM
MQswCQYDVQQGEwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1bHRpbmcgKFB0eSkg
THRkLjEWMBQGA1UEAxMNVGhhd3RlIFNHQyBDQTAeFw0xMDAyMTMwMDAwMDBaFw0x
MDA1MTQyMzU5NTlaMFgxCzAJBgNVBAYTAlpBMSUwIwYDVQQKExxUaGF3dGUgQ29u
c3VsdGluZyAoUHR5KSBMdGQuMSIwIAYDVQQDExlUaGF3dGUgU0dDIE9DU1AgUmVz
cG9uZGVyMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDTL35gY0y7uZiEkSPY
8OnZDzVCQNzVddXPTqA7UOaF+jgnvMuPfjSN7Y0ZJ5rLnISCPDrterordbF0yTJ9
fRG70n2LxDwDfU8iwAOCJrmOzkohDpzvuOeBr6cKFMYEoJQFROLi/LBxKpjzb9Ic
Rquvfeoiqz6hlCjrkWdho1hL7QIDAQABo2kwZzAJBgNVHRMEAjAAMBMGA1UdJQQM
MAoGCCsGAQUFBwMJMAsGA1UdDwQEAwIHgDAPBgkrBgEFBQcwAQUEAgUAMCcGA1Ud
EQQgMB6kHDAaMRgwFgYDVQQDEw9PQ1NQNS1UR1YtNC0xMDkwDQYJKoZIhvcNAQEF
BQADgYEAt36QMvVec4bTOvkn6pUMcLiA5I6Dnjb1isTCX6PfAe0kA93ewUFWWpJI
C47MZ5pTpZzq5TZ/SwfMnkCa+9PNst/eh/aJz1uUgAbX2KrbNYx7RoTmN0Hn2Qce
fXk04RiRsOj9QBvrY+9rOiowrUgOno7eYZLBwg3R823V20vlgiU=
-----END CERTIFICATE-----
WARNING: no nonce in response
Response verify OK
google.crt: good
 This Update: Apr 12 11:09:20 2010 GMT
 Next Update: Apr 19 11:09:20 2010 GMT

good と言われてるので有効な証明書であることが確認できます

また、-index というオプションがあり
これで openssl ca コマンドで利用する index file を指定してやると
OCSP Responder としても動作させることができます
-rsigner ってのは response に署名する証明書を指定する為のものでした。

-reqin -reqout で OCSP のリクエストフォーマットのデータの入出力
-respin -respout で OCSP のレスポンスフォーマットのデータの入出力
ができるので、個別にリクエスト・レスポンスを作成・保存したりもできます。

再帰継続末尾

2010-04-10T03:11:00.000+09:00

再帰なら継続渡しで書き直して末尾再帰にできるヨ!!
そんなことを耳にしていたんですが
どうも継続というものが良く分かっていません
まぁ、関数渡すらしいな、程度の認識

再帰といえば fold なわけですが
Haskell だと foldr、OCaml だと List.fold_right です
まぁ、何でもいいんですが

foldr f v [] = v
foldr f v (x:xs) = f x (foldr f v xs)

とか

let fold_right f lst init = match lst with
  | [] -> init
  | x::xs -> f x (fold_right f xs init)

とかそういうのです
要するに

fold [] = v
fold (x:xs) = f x (fold xs)

みたいなことになってればいいんです

で、これ末尾再帰にはなってないわけですよ
することに意味があるかは知らないんですよ
したいんですよ、末尾再帰に
できないんですよ、まだ継続とか関数渡すとかの理解浅いから

ぐぐりました
反復的プロセス、末尾再帰、継続渡しスタイル : torus solutions!
append が末尾再帰の刑に処せられていますがまぁ fold も同じようなもんです

fold f v [] k = k v
fold f v (x:xs) k = fold f v xs (\y -> k (f x y))

let rec fold f lst v k = match lst with
  | [] -> k v
  | (x::xs) -> fold f xs v (fun y -> k (f x y))

でもね、
continuation(継続)は末尾再帰の最適化手段ではない : メカAG
飽くまで「継続を使うと再帰が末尾再帰に直せる」というだけなので
このままでは「継続」の入口にも立っていないのでした

付録:

で fold には left もありましてこっちは最初から末尾再帰でしたが
(最近 Haskell ご無沙汰なので Haskell だけにしよう、もぉ面倒だ)

foldl f v [] = v
foldl f v (x:xs) = foldl f (f v x) xs

こんなだったか
これは例えば

foldl (+) 0 [1,2,3]
= (((0+1)+2)+3)
= (\k -> k.(+1)) ((\k -> k.(+2)) (+3)) 0
= (\x k -> k.(+x)) 1 ((\x k -> k.(+x)) 2 (+3)) 0
= (\x k -> (\y -> k (y+x))) 1 ((\x k -> (\y -> k (y+x))) 2 (\x k -> (\y -> (y+x))) 3 id) 0
= (foldr (\x k -> (\y -> k ((+) y x))) id [1,2,3]) 0

ははは、欺瞞にも程がある
でもまぁ

foldl f v lst = (foldr (\x k -> (\y -> k (f y x))) id lst) v

と書けないこともないということで
何が嬉しいのかは分かりません

openssl 接続 bio

2010-04-05T18:48:00.003+09:00

SSL で証明書を取ってくるシリーズ
今回は何と C with OpenSSL
C なんて学部の頃に「独習 C」を友達に薦められ
読んだというか眺めた憶えはありますがそれっきりで
一生のうちで使うことは無かろうかと思っていたのですが

で、OpenSSL の各種 binding は散々いじってるので

socket 用意する
SSL Centext 用意する
socket と Context で SSL 作る
繋ぎにいって証明書もらう

というのは分かっちゃいるんですが
そもそも C で socket 叩いたことないよボク!!

というわけでググるわけです
良い sample code でも無いものかと探してみました

OpenSSLライブラリを使ってプログラミング(1) - 再帰の反復
このページは OpenSSL や SSL に関する詳しいまとめが
Geekなぺーじ : getaddrinfo（単純な例）
getaddrinfo の使い方とか socket の張り方とか

で、ついでなんで getopt とか構造体のこともググりながら
どうにかとりあえず動くものは作れました。
でもあれだからね、素人が作ったからどこに穴があるか分からないからね。

#include <stdio.h>
#include <getopt.h>
#include <sys/socket.h>
#include <netdb.h>
#include <openssl/ssl.h>

typedef struct {
  unsigned char *data;
  int length;
} der_data;

char* x509_as_pem(X509 *x509) {
  BIO *bio;
  BUF_MEM *bptr;
  
  bio = BIO_new(BIO_s_mem());
  PEM_write_bio_X509(bio, x509);
  bptr = BUF_MEM_new();
  BIO_get_mem_ptr(bio, &bptr);

  return bptr->data;
}

der_data* x509_as_der(X509 *x509) {
  int len;
  int i;
  unsigned char *buf, *p;
  der_data *data;

  len = i2d_X509(x509, NULL);
  buf = OPENSSL_malloc(len);
  if (buf == NULL) {
    printf("error\n");
    exit(1);
    }
  p = buf;
  i2d_X509(x509, &p);

  data = (der_data *)malloc( sizeof(der_data) );
  data->data = buf;
  data->length = len;
  return data;
}

int main(int argc, char *argv[]) {

  int der = 0;
  int c, s;
  char *cmd = argv[0];

  struct hostent *host;
  char *service = "443";
  struct addrinfo hints;
  struct addrinfo *result;
  int fd;

  SSL_CTX *ctx;
  SSL *ssl;
  int ret;
  X509 *x509;
  BIO *bio;

  void help() {
    fprintf(stderr, "usage: %s [-d] hostname\n", cmd);
    exit(1);
  }

  while ((c = getopt(argc, argv, ":d")) != -1) {
    switch (c) {
      case 'd':
        der = 1;
        break;
      case '?':
        help();
    }
  }
  argc -= optind;
  argv += optind;
  if (argc < 1) {
    help();
  }

  memset(&hints, 0, sizeof(struct addrinfo));
  hints.ai_family = AF_INET;
  hints.ai_socktype = SOCK_STREAM;
  if ((s = getaddrinfo(argv[0], service, &hints, &result)) != 0) {
    printf("error %d : %s\n", s, gai_strerror(s));
    exit(1);
  }

  fd = socket(result->ai_family, result->ai_socktype, result->ai_protocol);
  if (fd < 0) {
    perror("open socket error");
    exit(1);
  }

  if (connect(fd, result->ai_addr, result->ai_addrlen) != 0) {
    perror("connection error");
    return 1;
  }
  
  free(result);

  SSL_load_error_strings();
  SSL_library_init();

  ctx = SSL_CTX_new(SSLv23_method());
  if ( ctx == NULL ){
    ERR_print_errors_fp(stderr);
    exit(1);
  }

  ssl = SSL_new(ctx);
  if ( ssl == NULL ){
    ERR_print_errors_fp(stderr);
    exit(1);
  }

  ret = SSL_set_fd(ssl, fd);
  if ( ret == 0 ){
    ERR_print_errors_fp(stderr);
    exit(1);
  }

  ret = SSL_connect(ssl);
  if ( ret != 1 ){
    ERR_print_errors_fp(stderr);
    exit(1);
  }

  x509 = SSL_get_peer_certificate(ssl);
  if (x509 == NULL) {
    ERR_print_errors_fp(stderr);
    exit(1);
  }
  
  if (der == 0) {
    char *data;
    data = x509_as_pem(x509);
    printf("%s", data);
  } else {
    der_data *data;
    int i;

    data = x509_as_der(x509);
    for (i=0; i < data->length; i++) {
      printf("%c", (data->data)[i]);
    }
  }

  return 0;
}

セキュリティーとか何も考えてないというか
セキュリティーの考え方を知らないので
それは誰か教えてくれると嬉しいヨ!!

で、

$ gcc -lssl -o get_cert get_cert.c 
$ ./get_cert www.google.com
-----BEGIN CERTIFICATE-----
MIIDITCCAoqgAwIBAgIQL9+89q6RUm0PmqPfQDQ+mjANBgkqhkiG9w0BAQUFADBM
MQswCQYDVQQGEwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1bHRpbmcgKFB0eSkg
THRkLjEWMBQGA1UEAxMNVGhhd3RlIFNHQyBDQTAeFw0wOTEyMTgwMDAwMDBaFw0x
MTEyMTgyMzU5NTlaMGgxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpDYWxpZm9ybmlh
MRYwFAYDVQQHFA1Nb3VudGFpbiBWaWV3MRMwEQYDVQQKFApHb29nbGUgSW5jMRcw
FQYDVQQDFA53d3cuZ29vZ2xlLmNvbTCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkC
gYEA6PmGD5D6htffvXImttdEAoN4c9kCKO+IRTn7EOh8rqk41XXGOOsKFQebg+jN
gtXj9xVoRaELGYW84u+E593y17iYwqG7tcFR39SDAqc9BkJb4SLD3muFXxzW2k6L
05vuuWciKh0R73mkszeK9P4Y/bz5RiNQl/Os/CRGK1w7t0UCAwEAAaOB5zCB5DAM
BgNVHRMBAf8EAjAAMDYGA1UdHwQvMC0wK6ApoCeGJWh0dHA6Ly9jcmwudGhhd3Rl
LmNvbS9UaGF3dGVTR0NDQS5jcmwwKAYDVR0lBCEwHwYIKwYBBQUHAwEGCCsGAQUF
BwMCBglghkgBhvhCBAEwcgYIKwYBBQUHAQEEZjBkMCIGCCsGAQUFBzABhhZodHRw
Oi8vb2NzcC50aGF3dGUuY29tMD4GCCsGAQUFBzAChjJodHRwOi8vd3d3LnRoYXd0
ZS5jb20vcmVwb3NpdG9yeS9UaGF3dGVfU0dDX0NBLmNydDANBgkqhkiG9w0BAQUF
AAOBgQCfQ89bxFApsb/isJr/aiEdLRLDLE5a+RLizrmCUi3nHX4adpaQedEkUjh5
u2ONgJd8IyAPkU0Wueru9G2Jysa9zCRo1kNbzipYvzwY4OA8Ys+WAi0oR1A04Se6
z5nRUP8pJcA2NhUzUnC+MY+f6H/nEQyNv4SgQhqAibAxWEEHXw==
-----END CERTIFICATE-----
$ ./get_cert -d www.google.com | od -t x1
0000000 30 82 03 21 30 82 02 8a a0 03 02 01 02 02 10 2f
0000020 df bc f6 ae 91 52 6d 0f 9a a3 df 40 34 3e 9a 30
0000040 0d 06 09 2a 86 48 86 f7 0d 01 01 05 05 00 30 4c
0000060 31 0b 30 09 06 03 55 04 06 13 02 5a 41 31 25 30
0000100 23 06 03 55 04 0a 13 1c 54 68 61 77 74 65 20 43
0000120 6f 6e 73 75 6c 74 69 6e 67 20 28 50 74 79 29 20
0000140 4c 74 64 2e 31 16 30 14 06 03 55 04 03 13 0d 54
0000160 68 61 77 74 65 20 53 47 43 20 43 41 30 1e 17 0d
0000200 30 39 31 32 31 38 30 30 30 30 30 30 5a 17 0d 31
0000220 31 31 32 31 38 32 33 35 39 35 39 5a 30 68 31 0b
0000240 30 09 06 03 55 04 06 13 02 55 53 31 13 30 11 06
0000260 03 55 04 08 13 0a 43 61 6c 69 66 6f 72 6e 69 61
0000300 31 16 30 14 06 03 55 04 07 14 0d 4d 6f 75 6e 74
0000320 61 69 6e 20 56 69 65 77 31 13 30 11 06 03 55 04
0000340 0a 14 0a 47 6f 6f 67 6c 65 20 49 6e 63 31 17 30
0000360 15 06 03 55 04 03 14 0e 77 77 77 2e 67 6f 6f 67
0000400 6c 65 2e 63 6f 6d 30 81 9f 30 0d 06 09 2a 86 48
0000420 86 f7 0d 01 01 01 05 00 03 81 8d 00 30 81 89 02
0000440 81 81 00 e8 f9 86 0f 90 fa 86 d7 df bd 72 26 b6
0000460 d7 44 02 83 78 73 d9 02 28 ef 88 45 39 fb 10 e8
0000500 7c ae a9 38 d5 75 c6 38 eb 0a 15 07 9b 83 e8 cd
0000520 82 d5 e3 f7 15 68 45 a1 0b 19 85 bc e2 ef 84 e7
0000540 dd f2 d7 b8 98 c2 a1 bb b5 c1 51 df d4 83 02 a7
0000560 3d 06 42 5b e1 22 c3 de 6b 85 5f 1c d6 da 4e 8b
0000600 d3 9b ee b9 67 22 2a 1d 11 ef 79 a4 b3 37 8a f4
0000620 fe 18 fd bc f9 46 23 50 97 f3 ac fc 24 46 2b 5c
0000640 3b b7 45 02 03 01 00 01 a3 81 e7 30 81 e4 30 0c
0000660 06 03 55 1d 13 01 01 ff 04 02 30 00 30 36 06 03
0000700 55 1d 1f 04 2f 30 2d 30 2b a0 29 a0 27 86 25 68
0000720 74 74 70 3a 2f 2f 63 72 6c 2e 74 68 61 77 74 65
0000740 2e 63 6f 6d 2f 54 68 61 77 74 65 53 47 43 43 41
0000760 2e 63 72 6c 30 28 06 03 55 1d 25 04 21 30 1f 06
0001000 08 2b 06 01 05 05 07 03 01 06 08 2b 06 01 05 05
0001020 07 03 02 06 09 60 86 48 01 86 f8 42 04 01 30 72
0001040 06 08 2b 06 01 05 05 07 01 01 04 66 30 64 30 22
0001060 06 08 2b 06 01 05 05 07 30 01 86 16 68 74 74 70
0001100 3a 2f 2f 6f 63 73 70 2e 74 68 61 77 74 65 2e 63
0001120 6f 6d 30 3e 06 08 2b 06 01 05 05 07 30 02 86 32
0001140 68 74 74 70 3a 2f 2f 77 77 77 2e 74 68 61 77 74
0001160 65 2e 63 6f 6d 2f 72 65 70 6f 73 69 74 6f 72 79
0001200 2f 54 68 61 77 74 65 5f 53 47 43 5f 43 41 2e 63
0001220 72 74 30 0d 06 09 2a 86 48 86 f7 0d 01 01 05 05
0001240 00 03 81 81 00 9f 43 cf 5b c4 50 29 b1 bf e2 b0
0001260 9a ff 6a 21 1d 2d 12 c3 2c 4e 5a f9 12 e2 ce b9
0001300 82 52 2d e7 1d 7e 1a 76 96 90 79 d1 24 52 38 79
0001320 bb 63 8d 80 97 7c 23 20 0f 91 4d 16 b9 ea ee f4
0001340 6d 89 ca c6 bd cc 24 68 d6 43 5b ce 2a 58 bf 3c
0001360 18 e0 e0 3c 62 cf 96 02 2d 28 47 50 34 e1 27 ba
0001400 cf 99 d1 50 ff 29 25 c0 36 36 15 33 52 70 be 31
0001420 8f 9f e8 7f e7 11 0c 8d bf 84 a0 42 1a 80 89 b0
0001440 31 58 41 07 5f
0001445
$

という感じに der とか pem とかで取れるようになりました。

openssl s_client の劣化版じゃん!!
や、そうなんですけどね。

ocaml ssl

2010-04-05T14:46:00.000+09:00

SSL で繋いで証明書を取ってこようシリーズ
今回は OCaml でいってみようと思います
OCaml に関してはプログラミング in OCaml など見ると良いのかも

とりあえずググりますと
http://sourceforge.net/projects/savonet/files/ocaml-ssl/
こちらに OpenSSL の binding があったのでこれを使おうかと思いまして
っていうかね、
OCamlで簡易SSLクライアント - komamitsu.log
こんな素敵なまとめページが見つかってしまいました

OCaml-SSL をインストールしようとすると
「findlib が無いよ」
って言われたので findlib から入れました
で、使い方は上記ページを参考にしつつ試して動いた感じです

OCaml-SSL のソースをザザっと眺めてみたんですが
証明書をいじる関数があまり用意されていないらしく
というか subject と issuer を抜くものしかありませんでした
あらら

とりあえず minimal かと思われる証明書取ってくるのがこれ

open Unix;;

Ssl.init ();;
let hostent = gethostbyname "www.google.com";;
let addr = hostent.h_addr_list.(0);;
let sockaddr = ADDR_INET(addr, 443);;

let sock = Ssl.open_connection Ssl.SSLv23 (ADDR_INET(addr, 443));;
let cert = Ssl.get_certificate sock;;
Printf.printf "%s%!" (Ssl.get_subject cert)

っていうか何というコード
変数に欲しいもの列記して実行してるだけです
って OpenSSL をいじってるわけだから仕方ないのかな?

でまぁこんなのを show_subject.ml として用意して

ocamlfind c -package ssl -thread -linkpkg -o show_subject show_subject.ml

と打つとコマンドができました

findlib っていうのがあるのだというのを知ったのが
今回の最大の成果となっております

erlang foldl

2010-03-31T02:00:00.002+09:00

日本語で読める Haskell の入門書といえば今では
@kazu_yamamoto訳のプログラミングHaskellなわけです
何が素晴らしいって

オーム社の方曰く「ソフトカバーなのに、ハードカバーのように平たく開ける特殊な製本」だそうです。

もぉこれが気になって気になって買ってしまいました
や、無いんです、近所に、立ち読みとかできそうなところが

原著も素晴らしいんですが訳も素晴らしくって
付録に「訳者による関数の解説」とかまで付いてて至れりつくせり

で、Haskell っつったらモナドですよモナド
この本だと第8章「関数型パーサー」、第9章「対話プログラム」で
モナドっぽいものをすこーしずつ見ながら
第10章「型とクラスの定義」で「モナド型」の説明が出てきます。

でもね、(>>=) とかはもぉ第8章から出てるの

type Parser a = String -> [(a, String)]

parse :: Parser a -> String -> [(a, String)]
parse p inp = p inp

(>>=) :: Parser a -> (a -> Parser b) -> Parser b
p >>= f = \inp -> case parse p inp of
                          [] -> []
                          [(v, out)] -> parse (f v) out

みたいな感じで

原著のサポートページみたいのでは第8章で使ってるコード載せてるんだけど

> instance Monad Parser where
>    return v                   =  P (\inp -> [(v,inp)])
>    p >>= f                    =  P (\inp -> case parse p inp of
>                                                []        -> []
>                                                [(v,out)] -> parse (f v) out)

インスタンスにしてる!!
なんでもぉあれですよ、本を写経してみても実行しようとしたら

*Main> :t (>>=)

<interactive>:1:0:
    Ambiguous occurrence `>>='
    It could refer to either `Main.>>=', defined at ggutter.hs:7:2
                          or `Prelude.>>=', imported from Prelude

みたいなこと言われて
「>>= あいまいだからちゃんとモジュール指定すれ」って怒られちゃうの

むきー!! ということで Erlang で写経し直してみました

-module(parser).
-compile(export_all).

return(V) -> fun(Inp) -> [{V, Inp}] end.

failure() -> fun(_) -> [] end.

item() ->
  fun(X) ->
    case X of
      [] -> [];
      [H|T] -> [{H,T}]
    end
  end.

parse(P, Inp) -> P(Inp).

bind(A, F) ->
  fun(Inp) ->
    case parse(A, Inp) of
      [] -> [];
      [{V, Out}] -> parse(F(V), Out)
    end
  end.

l_or_r(P, Q) ->
  fun(Inp) ->
    case parse(P, Inp) of
      [] -> parse(Q, Inp);
      [{V, Out}] -> [{V, Out}]
    end
  end.

sat(P) ->
  bind(
    item(), fun(X) ->
      case P(X) of
        true -> return(X);
        false -> failure()
      end
    end).

is_digit(X) -> (X >= $0) and (X =< $9).
is_lower(X) -> (X >= $a) and (X =< $z).
is_upper(X) -> (X >= $A) and (X =< $Z).
is_alpha(X) -> is_lower(X) or is_upper(X).
is_alphanum(X) -> is_digit(X) or is_alpha(X).
is_space(X) -> X =:= $ .

digit() -> sat(fun is_digit/1).
lower() -> sat(fun is_lower/1).
upper() -> sat(fun is_upper/1).
letter() -> sat(fun is_alpha/1).
alphanum() -> sat(fun is_alphanum/1).

char(X) -> sat(fun(Y) -> X =:= Y end).
string([]) -> return([]);
string([H|T]) ->
  bind(char(H), fun(_) ->
  bind(string(T), fun(_) ->
       return([H|T])
  end) end).

many(P) ->
  l_or_r(many1(P), return([])).
many1(P) ->
  bind(P, fun(H) -> 
  bind(many(P), fun(T) ->
       return([H|T])
  end) end).

ident() ->
  bind(lower(), fun(H) ->
  bind(many(alphanum()), fun(T) ->
       return([H|T])
  end) end).

nat() ->
  bind(many1(digit()), fun(X) ->
       {Nat, _} = string:to_integer(X),
       return(Nat)
  end).

space() ->
  bind(many(sat(fun is_space/1)), fun(_) ->
       return({}) end).

token(P) ->
  bind(space(), fun(_) ->
  bind(P, fun(V) ->
  bind(space(), fun(_) ->
       return(V)
  end) end) end).

identifier() -> token(ident()).
natural() -> token(nat()).
symbol(X) -> token(string(X)).

int() ->
  l_or_r(
    bind(char($-), fun(_) ->
    bind(space(), fun(_) ->
    bind(nat(), fun(N) ->
         return(-N)
    end) end) end),
    nat()).

integer() -> token(int()).

見所は do notation っぽく見せようとしているところ

パーサーの部品とかは関数として定義しようかと思ったところ

token(fun nat/0)

みたいに
fun って付けてアリティーもどうにかしなきゃいけないのが面倒なので
関数返す関数にしてみた

で、8.8 で簡単な数式計算するのを作りましたので

-module(expr).
-compile(export_all).
-import(parser, [parse/2, item/0, symbol/1, l_or_r/2, bind/2, return/1, integer/0, l_or_r/2, many/1]).

eval(X) ->
  case parse(expr(), X) of
    [{N, []}] -> N;
    [{_, out}] -> throw("unused input " ++ out);
    [] -> throw("invalid input")
  end.

expr() ->
  bind(term(), fun(T) ->
    l_or_r(
      bind(
        many(
          bind(l_or_r(symbol("+"), symbol("-")), fun(Bin) ->
          bind(term(), fun(T1) ->
            case Bin of
              "+" -> return(T1);
              "-" -> return(-T1)
            end
          end) end)
        ), fun(List) ->
        return(lists:sum([T|List]))
      end),
      return(T)
    )
  end).

term() ->
  bind(factor(), fun(F) ->
    l_or_r(
      bind(
        many(
          bind(l_or_r(symbol("*"), symbol("/")), fun(Bin) ->
          bind(factor(), fun(F1) ->
               return({Bin, F1})
          end) end)
        ), fun(List) ->
        {P, D} = lists:splitwith(fun({X, _}) -> X =:= "*" end, List),
        TMP = lists:foldl(fun({_,X},Y) -> Y*X end, F, P),
        return(lists:foldl(fun({_,X},Y) -> Y/X end, TMP, D))
      end),
    return(F)
    )
  end).

factor() ->
  bind(atom(), fun(A) ->
  l_or_r(
    bind(symbol("^"), fun(_) ->
    bind(factor(), fun(F) ->
         return(math:pow(A,F))
    end) end),
    return(A)
  )
  end).

atom() ->
  l_or_r(
    bind(symbol("("), fun(_) ->
    bind(expr(), fun(E) ->
    bind(symbol(")"), fun(_) ->
         return(E)
    end) end) end),
    integer()).

で、動かしてみると

1> expr:eval("1-2/9-3/2^3^2-4").
-3.2280815972222223

Haskellで検算

Prelude> 1-2/9-3/2^3^2-4
-3.2280815972222223

おぉ、なんか、動いてるみたい

左再帰なんて始めてググったので何か色々間違ってるかもしれないけど動いたヨ!!

Erlang で Parsec っぽいことしようとしている
freesourcecode - Erlang Parsec library とか
Erlang 付属のパーサジェネレータ Yecc を使ってみた - muddy brown thang とか
まぁ、色々あるんだと思うんですが
lists:foldl とかやっとこさ使ったんでちょっと楽しかった

教訓: do notation は便利

erlang now

2010-03-29T18:20:00.003+09:00

Erlang で現在時刻を取りたい!!

Erlang Community - Dates and Time - Trapexit
このサイトはちょくちょく見るんだけど素敵だなぁ

1> erlang:localtime().
{{2010,3,29},{18,10,54}}

他にも色々載ってるので上のページ見てね

erlang resolve

2010-03-29T14:25:00.001+09:00

名前の解決の間にも色々したい!!

Erlang ならどんどん名前の解決をしてくれるに違いありません。
プログラミングErlangには
inet:gethostbyname/1 とかあるみたいですけど

1> inet:gethostbyname("www.google.com").
{ok,{hostent,"www.l.google.com",
             ["www.google.com"],
             inet,4,
             [{66,249,89,147},
              {66,249,89,106},
              {66,249,89,104},
              {66,249,89,105},
              {66,249,89,103},
              {66,249,89,99}]}}

そんなことでは飽きたりません

で、ググったら inet_res ってのがありました

2> inet_res:gethostbyname("www.google.com").
{ok,{hostent,"www.l.google.com",
             ["www.google.com"],
             inet,4,
             [{66,249,89,147},
              {66,249,89,106},
              {66,249,89,104},
              {66,249,89,105},
              {66,249,89,103},
              {66,249,89,99}]}}

いっしょやん
いやいや

3> inet_res:lookup("www.google.com", in, a). 
[{66,249,89,147},
 {66,249,89,106},
 {66,249,89,104},
 {66,249,89,105},
 {66,249,89,103},
 {66,249,89,99}]
4> inet_res:resolve("www.google.com", in, a).
{ok,{dns_rec,{dns_header,2,true,'query',false,false,true,
                         true,false,0},
             [{dns_query,"www.google.com",a,in}],
             [{dns_rr,"www.google.com",cname,in,0,315339,
                      "www.l.google.com",undefined,[],false},
              {dns_rr,"www.l.google.com",a,in,0,22,
                      {66,249,89,147},
                      undefined,[],false},
              {dns_rr,"www.l.google.com",a,in,0,22,
                      {66,249,89,106},
                      undefined,[],false},
              {dns_rr,"www.l.google.com",a,in,0,22,
                      {66,249,89,104},
                      undefined,[],false},
              {dns_rr,"www.l.google.com",a,in,0,22,
                      {66,249,89,105},
                      undefined,[],false},
              {dns_rr,"www.l.google.com",a,in,0,22,
                      {66,249,89,103},
                      undefined,[],false},
              {dns_rr,"www.l.google.com",a,in,0,22,
                      {66,249,89,99},
                      undefined,[],false}],
             [],[]}}

色々細かく指定できるみたい
例えば

5> inet_res:lookup("www.google.com", in, a, [{nameservers, [{{8,8,8,8}, 53}, {{8,8,4,4}, 53}]}]). 
[{66,249,89,147},
 {66,249,89,104},
 {66,249,89,103},
 {66,249,89,106},
 {66,249,89,99},
 {66,249,89,105}]

てな感じで nameservers も指定できます

あと、メモ (inet とか inet_parse とか)

6> inet_parse:ntoa({8,8,8,8}).
"8.8.8.8"
7>  inet_parse:address("8.8.8.8").
{ok,{8,8,8,8}}

"-import" erlang

2010-03-25T17:58:00.003+09:00

@higepon さんは言いました:

Erlang の import 使ってなかった。コード短くなる。

プログラミングErlangをちゃんと読めということなのかもしれません
でも、検索しました。

Erlang for Python programmers: Part II « Ruslan’s Blog

-import(lists, [foreach/2, map/2]).

とかすればいいみたい
確かに一々書くの面倒だよな〜と思ってたんですが
@voluntas さんは言いました:

@higepon 名前空間重要って事で使ってないです import ... 。

イライラしてきたら使ってみようと思いました

X11 debian nice

2010-03-22T13:34:00.003+09:00

debian だと X11 の nice 値をどっかで適当に設定してくれてるはずなんですが
もーそんなのどこだったかなんて憶えてないよ教えて○○えもーん
というわけでググえもんに聴いてみました

XWindowの起動に失敗する。 Debian SargeからEtchへの移行 - 後編 - | 日記
dpkg-reconfigure x11-common すればいいそうです
何て基本的

で、実際にやってみると

誰が X を立てられるか (root・console user・誰でも)
X の nice 値 (-10 から 0 推奨)

を聞かれました
debconf の設定次第でもっと色々聞かれるに違いありません

で、-10 で grep してみたところ
/etc/X11/Xwrapper.config:nice_value=-10
って出たのでこいつをいじればいいみたい

-10 にしてみました

"-newkey ec"

2010-03-05T12:14:00.007+09:00

楕円曲線暗号 (Elliptic Curve Cryptography, ECC) ってのがあります
公開鍵暗号の1つです
暗号使いたいといったら OpenSSL
OpenSSL なら ECC もばっちりに違いないと思い適当にコマンド叩きはじめました

Debian Lenny は OpenSSL 0.9.8g だそうです

とりあえず CSR 作る辺りの話ってのは幅広い暗号の話が? と思い

$ openssl req -help
unknown option -help
req [options] <infile >outfile
where options  are
 -inform arg    input format - DER or PEM
(中略)
-newkey ec:file generate a new EC key, parameters taken from CA in 'file'
(後略)

"unknown option -help" とか言われてますが
"-newkey ec:file" で ECC な CSR が作れるっぽい!

そこで、ググってみましたところ
OpenSSLによる楕円曲線暗号の利用
え〜と、変な検索語使わなくても良かったんじゃないの?

楕円曲線暗号ってのは、楕円曲線の上で掛け算をするんですが
楕円曲線っての自体が沢山あるので先ずどれを使うか決めないといけません
どれでもいいかというとそういうわけではなく
ものによっては暗号としての強度が落ちてしまうそうなので
「これ使ってこうぜ!!」ってのが定められています

http://www.ietf.org/rfc/rfc4492.txt
http://www.ietf.org/rfc/rfc5480.txt
http://www.ietf.org/rfc/rfc5639.txt
あれ、なんか、一杯あるな、どれだ

で、最初にどの曲線使うか決めるわけですが
openssl に ecparam ってのがありまして

$ openssl ecparam -list_curves
  secp112r1 : SECG/WTLS curve over a 112 bit prime field
  secp112r2 : SECG curve over a 112 bit prime field
  secp128r1 : SECG curve over a 128 bit prime field
  secp128r2 : SECG curve over a 128 bit prime field
  secp160k1 : SECG curve over a 160 bit prime field
  secp160r1 : SECG curve over a 160 bit prime field
  secp160r2 : SECG/WTLS curve over a 160 bit prime field
(後略)

と、扱える曲線のリストが出ます
で、実際にパラメータを出すには

$ openssl ecparam -name secp224r1
-----BEGIN EC PARAMETERS-----
BgUrgQQAIQ==
-----END EC PARAMETERS-----

とすると base64 された形で出てきます
これをファイルに入れといたりすれば OK

で、次に鍵を作りたいということで

$ openssl ecparam -name secp224r1 -genkey
-----BEGIN EC PARAMETERS-----
BgUrgQQAIQ==
-----END EC PARAMETERS-----
-----BEGIN EC PRIVATE KEY-----
MGgCAQEEHFaQDqPQ8x4NAr5Bz67BZcgqZurwgy4UGdlQ2OegBwYFK4EEACGhPAM6
AASNeby2ALikGQghKhN1a1SSvi1J+y1l55kE3AH1c4y+6LcesqdYKtkLt0P303p+
IH1Tj0J9MxqEJA==
-----END EC PRIVATE KEY-----

のように parameter と鍵が一緒に出せます

鍵だけ ecc.key というファイルに入れておいて

$ openssl ec -in ecc.key -param_out
read EC key
writing EC key
-----BEGIN EC PARAMETERS-----
BgUrgQQAIQ==
-----END EC PARAMETERS-----

と parameter を取り出すことも可能

じゃぁパラメータだけ出しても仕方なくない?
というとそうでもなくて、最初の req で出てきた -newkey で使えます
parameter の base64 を ecc.param ってファイルに入れといて

$ openssl req -new -newkey ec:ecc.param -nodes
Generating a 224 bit EC private key
writing new private key to 'privkey.pem'
-----
You are about to be asked to enter information that will be incorporated
into your certificate request.
What you are about to enter is what is called a Distinguished Name or a DN.
There are quite a few fields but you can leave some blank
For some fields there will be a default value,
If you enter '.', the field will be left blank.
-----
Country Name (2 letter code) [AU]:

や、まぁ、作っといて req に食わしてもいいんですが

CSR は CSR なんで、
あとはこれを RSA で署名してもいいし、ECC で署名してもいいし、
煮ても焼いても美味しく頂けます

python epoll

2010-02-13T14:32:00.000+09:00

「イベント〜?」「ドリブ〜ン!」

なんか、すっかり放置していました
私は GUI でチャットなどを作るはずだったのです
しかし全く着手せぬまま現在に至っています、ごめんなさい

そこで、少しだけ epoll 触っとこうと思うことにして調べました
How To Use Linux epoll with Python
何とも丁寧な説明がありました

とりあえず

select.epoll.register で file descriptor と何を監視するかを登録
select.epoll.poll で active なやつをとってくる

ってのだけ把握

というわけで、少し試してみることに

import socket
import select
from OpenSSL.SSL import Connection, Context, SSLv23_METHOD

fqdn = 'www.google.com'

s = socket.socket()
s.settimeout(0)

epoll = select.epoll()
epoll.register(s.fileno(), 2**11-1)

print epoll.poll(1)
s.connect_ex((fqdn, 443))
print "connect"
print epoll.poll(1)
ctx = Context(SSLv23_METHOD)
print "make Context"
print epoll.poll(1)
c = Connection(ctx, s) 
print "make Connection"
print epoll.poll(1)
c.set_connect_state()
print "set connect state"
print epoll.poll(1)
c.do_handshake()
print "do handshake"
print epoll.poll(1)
x509 = c.get_peer_certificate()
print x509.get_subject()

で、結果がこちら

$ python test1.py 
[(3, 276)]
connect
[(3, 260)]
make Context
[(3, 260)]
make Connection
[(3, 260)]
set connect state
[(3, 260)]
Traceback (most recent call last):
  File "test1.py", line 26, in <module>
    c.do_handshake()
OpenSSL.SSL.WantReadError

non-blocking のまま handshake しようとして怒られました

select.EPOLLOUT = 4, select.EPOLLHUP = 16, select.EPOLLWRNORM = 256
みたいなんですけど、まぁ、OUT だけ見りゃいいのかな、この場合

教訓:「OpenSSL の handshake を呼ぶんなら blocking にしよう」
え、そこなの?

ekrn.exe

2010-02-09T15:28:00.000+09:00

パソコンが遅いんだけど何でかなと言われて調べました
taskmgr を開いてみるとプロセスが 2 つ暴走しています
1 つは Firefox でもう 1 つは ekrn.exe というもの

ウイルス!? と思って検索してみたところ
「ekrn.exe のCPU使用率が100%になるのは？」
NOD32 のエンジンらしい

にしても何故 Firefox とコンビで
Firefox はこの前 3.6 にしてみたんですが
自分の環境でも Google Apps で暴走してしまうようだったので
3.5 に戻してみたばかりでした
今回の環境も試しに 3.5 に戻してみたら一先ず解決しました

その後 NOD32 も version up されてたので更新
これでちょっと様子見てみることにしました

NOD32 はまぁいいんだけど Firefox が暴走するのがちょっと心配です
しかも Google Apps とは
「ちょっと人柱過ぎだから気をつけろ」
ということかもしれません

erlang ssl_esock

2010-02-05T23:48:00.006+09:00

HTTPS サーバーから証明書を取ってこようシリーズ
今回は Erlang です

Erlang の SSL な module はこちら
Erlang -- SSL Reference Manual
ざっと見ると getpeercert という関数があるのでこれっぽいです

左のコラムに ssl と ssl_new というのがありますが、これは
以前は SSL 関連でも全て OpenSSL を利用していたようで
connection を張ろうとしたりすると ssl_esock という subprocess が立ち
そいつに色々と仕事を任せていたようです
でも Erlang 的にはそこに C が入ってしまうので嬉しくありません

そこで cryptographic primitive な部分だけ OpenSSL を使って
connection の部分なんかを Erlang で実装したのが ssl_new のようです
cryptographic primitive は crypto って application を使います

で、application とか良く分かってないんですが
とりあえず start とかしといたらいいんでしょ、というのが次

-module(get_cert).
-compile(export_all).

get_cert(Host) ->
  application:start(crypto),
  application:start(ssl),
  {ok, Sock} = ssl:connect(Host, 443, [{ssl_imp, new}]),
  {ok, Der} = ssl:peercert(Sock),
  {ok, Cert} = public_key:pkix_decode_cert(Der, otp),
  ssl:close(Sock),
  application:stop(ssl),
  application:stop(crypto),
  Cert.

ssl:connect の option に ssl_new を使うと伝え
ssl:peercert で証明書を DER で取り
public_key:pkix_decode_cert でそれを parse しています
otp ってあるのは parse の形式で、あと plain があります
それぞれ

-include_lib("public_key/include/public_key.hrl").
-include_lib("public_key/include/OTP-PUB-KEY.hrl").

的なことをしておけば読み易いです
かんたんなことしかしていませんね

で、動かしてみると

$ erl
Erlang R13B03 (erts-5.7.4) [source] [smp:2:2] [rq:2] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.7.4  (abort with ^G)
1> get_cert:get_cert("blogger.com").

=INFO REPORT==== 15-Feb-2010::01:34:14 ===
    application: crypto
    exited: stopped
    type: temporary

=INFO REPORT==== 15-Feb-2010::01:34:14 ===
    application: ssl
    exited: stopped
    type: temporary
{'OTPCertificate',
    {'OTPTBSCertificate',v3,134060097170805708820381,
        {'SignatureAlgorithm',{1,2,840,113549,1,1,5},'NULL'},
        {rdnSequence,
            [[{'AttributeTypeAndValue',{2,5,4,6},"US"}],
             [{'AttributeTypeAndValue',
                  {2,5,4,10},
                  {printableString,"Google Inc"}}],
             [{'AttributeTypeAndValue',
                  {2,5,4,3},
                  {printableString,"Google Internet Authority"}}]]},
        {'Validity',
            {utcTime,"091222015844Z"},
            {utcTime,"101222020844Z"}},
        {rdnSequence,
            [[{'AttributeTypeAndValue',{2,5,4,6},"US"}],
             [{'AttributeTypeAndValue',
                  {2,5,4,8},
                  {printableString,"California"}}],
             [{'AttributeTypeAndValue',
                  {2,5,4,7},
                  {printableString,"Mountain View"}}],
             [{'AttributeTypeAndValue',
                  {2,5,4,10},
                  {printableString,"Google Inc"}}],
             [{'AttributeTypeAndValue',
                  {2,5,4,3},
                  {teletexString,"*.blogger.com"}}]]},
(あと長いんで略)

こんな感じで X.509 を parse してくれてます

ちなみに public_key の Reference は
Erlang -- public_key
にあって
例えば pem_to_der ってのを使えば PEM の PATH 与えて
DER で返してくれるなんてのも分かります

pdf 署名

2010-01-25T16:27:00.004+09:00

PDF に署名したいなーって思いました
ググりました

Adobe Acrobat 使えばいいみたいなんですが
手元にあるのが弱いバージョンだからなのか
Reader と上手く連携してないからなのか
何だか良く分かりません

っていうか Linux とかでしたいじゃん

で、これですね
MOONGIFT: » PDFに署名をする「PortableSigner」:オープンソースを毎日紹介
Java で書かれてるようなので Linux でもいけそうだ!
と言いながらとりあえず Windows XP で試してみたんですが
インストールして Readme を参照して JCE というのを入れてみたら
しっかり署名することができました
簡単!
まぁ、きっと Acrobat を使うともっと凄いこと色々できるんだろうなぁ

で、Acrobat で開くと
「文書の証明の完全性が不明です。作成者が検証できませんでした。」
って出ます。
これはルート証明書から署名した証明書まで辿れなかったってことだろう
と思ったんでちょっと仕組みを調べてみました。

といっても、メニューの「文書」に「信頼済み証明書」ってのがあって
それ開いて表示を「証明書」にすれば良かっただけなんですが。
で、そこには Adobe Root CA ってのしかありません。
ん〜? と思って他のも調べてみると Reader の 8 までは Adobe Root CA のみ
9 になると色々と第三者機関の証明書も入っていました。

全ての信頼の起点はこれなの? と思いもう少し調べてみると
Windows であれば
[編集] -> [環境設定] -> [セキュリティ] -> [詳細環境設定]
と進んで [Windows 統合] ってところで
片っ端からチェックすればいいみたい。
Windows で信頼されているルートを Reader でも信頼することになります。

んでは、信頼済みな証明書ってのは何のことなの? って思ったので
更にしつこくググってみたら
Adobe - Certified Document Services (CDS)
に辿り着きました。

なるほど、Microsoft の場合は
Microsoft Root Certificate Program
Firefox の場合は
Mozilla CA Certificate Store Information
で採用されていないといけないわけですが
Adobe Reader に関してもそういうのがあるってことですね。
でも Adobe の少なくないの?

PDF の方が色々用途があったり署名が頻繁だからなのか
商品ラインナップも個人用とか法人用とかあったりして
署名できる回数も決まってたりで複雑そうでした。
タイムスタンプとかその辺良く分かってないんですが。
同じ Adobe でも Air 用の Code Signing とかとは勝手が違うみたい。
ビジネスとか法律の香がしてきました。

cario letter a4 lenny

2010-01-23T01:46:00.003+09:00

実家にはパソコンがあるんですがプリンタがありません
母親が印刷したいと言いだしました
何なら印刷して送ってこいという勢いです
しかし我が家にもプリンタは無いのです

近頃のコンビニは凄いよなと思いつつ
最寄りのコンビニであるセブンイレブンのページを見ると
コンビニでのサービスネットプリント富士ゼロックス
ネットにファイル上げといてコンビニで印刷できるみたいです
ちなみに、我が家の最寄りのコンビニは USB メモリが挿せます

印刷したい内容はメールでもらっていたので Firefox から PDF に
で、ゼロックスのページのアカウント取って
先ずは添付されてた画像を登録したら用紙聞かれたので A4 を選択
次に PDF をアップロードしたらエラーに
「使える用紙は A4 とかだよ」
なんて言ってきます

$ pdfinfo mozilla.pdf 
Creator:        cairo 1.7.4 (http://cairographics.org)
Producer:       cairo 1.7.4 (http://cairographics.org)
Tagged:         no
Pages:          1
Encrypted:      no
Page size:      612 x 792 pts (letter)
File size:      73537 bytes
Optimized:      no
PDF version:    1.5

あら、確かに letter になってるわ

何で画像のときは紙のサイズ聞いてきたのにさ、と思いつつ
Firefox の印刷画面をもう一度見ると確かに紙の指定のラジオが無い
昔はあった気がするんだけどと思いつつググりました
「firefox 印刷 pdf letter a4」で検索したんだけど良く分からず
「cario letter a4 lenny」で検索すると
#383455 - firefox: prints always in letter format - Debian Bug report logs
うん、なんか、皆悩んでいらっしゃる

斜め読みしても何かあーだこーだ言ってるっぽくって
最後まで斜めってしまったら prefs.js とか言っている
そーかーと思って about:config 開いて letter で検索して
出てきたの片っ端から A4 にしてやったら無事 A4 になりました

ちょっと、乱暴だったかしらと反省
最悪の場合

$ ps2pdf -sPAPERSIZE=a4 mozilla.ps mozilla.pdf

かなーと思ってたんで、よかった

excel 連続した

2010-01-22T03:39:00.002+09:00

手元にある紙に書かれたデータを Google SpreadSheet に載せたいと思い
日付毎に数値があるんで最初日付を一つずつ入れていたんですが
これは絶対にオレのやる仕事じゃない!! と思いまして
検索してみました
excel ってあるのは、まぁエクセルと同じだろうってことで

エクセル連続番号を入れる技
なるほど!! 確かにセルを選択すると右下に四角が
こんなの使ったことなかったぞ

でまぁ、なんか、右端掴んでみたら上手くいきました
表計算ソフト恐るべしっ

"信頼できる発行元"

2010-01-04T18:33:00.004+09:00

エクセルのファイルを受けてることがあるんですが
マクロとか入ってると最初無効にされるんですよね
で色々調べると例えば信頼したフォルダに入れとけば
マクロが最初から有効になったりするらしいです

で、そうでなければマクロに署名してあればいいみたいで
そうすると
エクセル2007のマクロセキュリティ - 遊・集・楽
にあるような

こんな画面になって「"信頼できる発行元"」って

署名とか発行元とか聴いちゃうと認証局? って思っちゃうんですが
そうじゃなくてファイル作った人なんですね
信頼できる発行元に関する作業
元の英語は "Trusted Publisher" でした
で、例えば信頼できる認証局から出てる証明書に辿れるような
証明書を用いて署名がしてあったとしても
最終的にエンドユーザーにその署名を認めるかって確認するみたい。

まぁ、そうか、正しいよな、認証局に全幅の信頼ってのも嫌だよな

"doesdirectoryexist" socket

2010-01-03T13:18:00.003+09:00

ディレクトリかどうか知りたいときってあります

$ ghci
Prelude> import System.Directory
Prelude System.Directory> doesDirectoryExist "/tmp/scim-panel-socket:0-foo"
True
Prelude System.Directory> getDirectoryContents "/tmp/scim-panel-socket:0-foo"
*** Exception: /tmp/scim-panel-socket:0-foo: getDirectoryContents: inappropriate type (Not a directory)

どないやねん

System.Directory を見てみると
s_isdir で判断してるらしいんだけどなぁ、よく分かんないなぁ
doesFileExist は doesDirectoryExist に not 取ってるみたいな感じ

でー、ググった、けど良く分からんかったけど Posix 思いだした
System.Posix.Files ってあった

Prelude> import System.Posix.Files
Prelude System.Posix.Files> status <- getFileStatus "/tmp/scim-panel-socket:0-foo"
Prelude System.Posix.Files> isDirectory status
False
Prelude System.Posix.Files> isNamedPipe status
False
Prelude System.Posix.Files> isSocket status
True

これかー

Windows とか良く知らないし
更に Posix な世界から出たことがあまり無い気がしてるんですが
あ、Windows のこととりあえず無視しておけばいいのか!!
や、System.Win32 ってのがあるのか．．．

mac gear boot

2009-12-29T23:05:00.003+09:00

Mac の調子が悪くなってしまいまして
起動すると最初に歯車みたいなのがクルクル回るんですが
その途中で止まっちゃう事態が発生

ちょっと持ち運んだときになってしまったのでもしかして
ハードディスクとかハードウェアの接触に不良が? と思って
ハードディスクは経年劣化もあったしシステムリフレッシュしたかったので
交換しようとしたら大変だったんですが交換できて解決しませんでした
残念

で、最初にやるべきだったメモリの抜き挿しをしたら少し良くなって
メモリ壊れたのか? メモリも増やしちゃうか!! なんて思ってました
でもなー、歯車クルクルの裏で何起きてるんだったかなー

ってここまですっかり忘れてたんですが
あの歯車クルクルではなくコンソールの表示も見ることもできるんですよね
あのクルクル出してるのは openfirmware っていう
パソコンでいうところの BIOS みたいなやつ? の機能でして
OS X からなら nvram ってコマンドで色々とパラメータ設定できます

例えば

$ sudo nvram boot-args="-v"

ってすると
起動時に verbose = 歯車でなくて黒いコンソールで白い字が出てきます
Mac でこの画面見るとちょっとギョっとしますが

boot-apgs をいじらなくても
起動時に Command + v すれば、その起動のときだけ verbose にできます

つわけで仕掛けたので、今度起動に失敗したら原因が分かる、かも??

sphinx doctree

2009-12-29T02:57:00.006+09:00

2010/08/09 追記:
@shibukawa が
http://blog.shibu.jp/article/40049067.html で
何か作ってくれてると
ステキ!!

Sphinx ついでに
Sphinx って reStructuredText って Wiki みたいな形式で文章書いて
make すると素敵にしてくれるって仕組みらしいんですが
これで HTML 作ってみると変にスペースが空くんですよ
っていうかそもそも HTML って変なスペース空くよね
Django の概要 — Django v1.0 documentation
ほら、「チュートリアルやリファレンス用ではありません」って
「り」と「ま」の間に空白入っちゃってるでしょ、これ改行なの

文章書いてたら改行するでしょ? え? しないの?

HTML は英語のこと考えて作ってあるからか、
や、どちらかというとブラウザの問題なんでしょうけど
改行があると表示するときに空白として扱うんですよね
日本語だったらブラウザが無視してくれればいいだけの話なんだけど
何とかしてよ、ブラウザ

と思ったら、IE7 は空白が無い!
Firefox, Opera, Chrome は空白になるのに
お前ら IE7 見習え!! (日本語のときの改行だけね)

で、今んとこ Firefox or Chrome を使っているので
空白嫌なら改行を無くすしかないなーと思いまして
ちょっと調べてみると docutils/parsers/rst/states.py の
RSTState class の paragraph って method で

        data = '\n'.join(lines).rstrip()

って改行入れてる
どっかで parse した段落の各行を lines に入れてて
この lines は indent は削除されているみたい
で、消された改行を復元してるのがココ

やっちゃいけないとは思いつつ直接いじっちゃいました、

        data = ''.join(lines).rstrip()

そしたら、
消えたよ! 改行が消えたよ!!
ひどいね! 英文引用とかだったらどうするんだろうね!!

でね、例えば、
Sphinx で language が ja で html を build するなら
この改行を消しちまいたいわけですよ

Sphinx で language って持ってますけど
多分 po file の処理にしか使ってなくて docutils には伝えておらず
print debug で確認もしてみたけどどうやら
Sphinx から呼ばれる docutils の language は en ぽくて
en にしてあるってよりは default が en ってだけなのかなぁ

一方で docutils も language って設定項目あるんだけど
これもやっぱり po file みたいなことをしてるだけみたい
まぁ self.document.settings.language_code は引けるので
それを元に join するところを場合分けするだけなんだけど

あと、html って RSTState に伝えるのはどうするのかなぁ〜
別に html を特別扱いしなくてもいいのかな?
改行要らないよね? そこまで

language_code で分岐くらいならまぁできそうなんだけど
Sphinx から docutils の language を指定するのが面倒になって
とりあえず放置することにしました
最悪改行無しの 1 行が凄い長い rst file を書けばいいんだしね!!

Shpinx の話でなくて docutils の話だな、これ

ちなみに pTeX は改行どうしてるかっていうと
行の最後と次の行の最初の文字の種類で
空白を入れるかどうか判断してるはずなんだけど
今試したら日本語で終わって日本語が始まったら改行無視で
その他の場合は空白を入れるっぽい
正しい
句読点とか禁則処理とかまでは面倒だから調べない

sphinx math

2009-12-29T01:35:00.011+09:00

ドキュメント作るなら Sphinx が素敵って方々から聴いていまして
まぁ、興味があったんでちょっといじってみました
参考は渋川さんの
渋日記: Pythonって何？という人のためのSphinxインストール入門
渋日記: Pythonって何？という人のためのSphinxチュートリアル
渋日記: Pythonって何？という人のためのSphinxチュートリアル[2]
もぉ手取り足取りです

設定なんてエンター連打でとりあえずちょこちょこ書いてみてたんですが
ちょっと数式打ってみたくなって思いだしました

> pngmath: include math, rendered as PNG images (y/N) [n]: n
> jsmath: include math, rendered in the browser by JSMath (y/N) [n]: n

sphinx-quickstart でどっちも n と答えてしまった!!

でまぁ拡張なんで追加できるはずじゃん、追加すればいいじゃん
って思ったんですがドキュメントとか読むの面倒だしーと思いまして
新しく Sphinx のプロジェクト立てようとして

> pngmath: include math, rendered as PNG images (y/N) [n]: y
> jsmath: include math, rendered in the browser by JSMath (y/N) [n]: y
Note: pngmath and jsmath cannot be enabled at the same time.
pngmath has been deselected.

しっかり怒られました
conf.py を diff してみると

$ diff -u /tmp/conf.py ~/myproject/conf.py
(前略)
@@ -22,7 +22,7 @@

# Add any Sphinx extension module names here, as strings. They can be extensions
# coming with Sphinx (named 'sphinx.ext.*') or your custom ones.
-extensions = ['sphinx.ext.pngmath', 'sphinx.ext.jsmath']
+extensions = []

# Add any paths that contain templates here, relative to this directory.
templates_path = ['_templates']
(後略)

名前登録するだけだった、っつーかコメントに書いてあるじゃん

png より jsmath とか格好良いかなーと思ったんですが
ググって出てきた渋川さんの翻訳
Sphinxにおける数式のサポート — Sphinx v1.0 (hg) documentation
の jsMath のとこ見たら

jsMath(と必要なフォント)はかなり巨大です

確かにフォントを用意するのは嫌だな
HTML で提供すれば十分だから今回は逃げちゃおう
ということでささっと sphinx.ext.pngmath に転向

あ、ちなみに、LaTeX 環境は当然のように整ってるんだZE!!
debian lenny なら多分 texlive-latex-base が入ってれば OK なはず

で、こんな文章書いてみました

==========
超幾何級数
==========

超幾何級数 :math:`_2F_1` とはパラメータ :math:`a, b, c, z \in\mathbb{C}` に対し

.. math::
  _2F_1(a,b,c;z) &= \sum_{n=0}^\infty \frac{(a)_n (b)_n}{(c)_n n!} z^n,\\
  (\alpha)_n &= \alpha \dot (\alpha+1) \cdots (\alpha + n - 1)

で定義される。但し :math:`c\not\in\mathbb{Z}_{<0}` とする。この級数は :math:`|z|<1` で絶対収束し正則関数を定義する。

そして make すると

(前略)
pickling environment... done
checking consistency... done
preparing documents... done
WARNING: dvipng command 'dvipng' cannot be run (needed for math display), check the pngmath_dvipng setting
(後略)

おぉ、dvipng ってのが要りますか、入れますとも入れますとも
debian lenny だと dvipng ってのがあったんで aptitude install dvipng
再度 make したら

こんなになりました

ってこんなスムースにはいかず LaTeX の部分で少しエラーと格闘したんですが
math:: の場合は要するに amsmath の gather 環境につっこんでいるみたい
\mathbb も使えたので amssymb も usepackage されてる
で、conf.py に pngmath_latex_preamble で preamble が書けるみたいだし
math:: に :nowrap: って付ければ段落を gather 環境に入れないみたいだし
色々好き勝手できそう

でも、数式打つのには YaTeX か AUC-TeX 使いたいな
次は jsMath?

cabal-install ghc-6.12.1

2009-12-22T16:47:00.003+09:00

GHC 6.12.1 が出たということで
IO と Unicode が仲良くなったとか噂を聴いて
インストールしてみようかなと思いました

でも、コンパイルする元気はないのでとりあえずバイナリーとってきます
http://haskell.org/ghc/dist/6.12.1/ghc-6.12.1-i386-unknown-linux-n.tar.bz2
を落としてインストールしてみました

で、cabal とか使いたいなと思ったんですが
Cabal は入ってるらしいんだけど cabal は入ってない!!
色々調べると cabal-install の 0.8 を入れるべきだそうで

あ、えっと、cabal ってのは python でいうと easy_install みたいな
Ruby でいうと gem みたいなやつです

cabal-install を入れるには network, HTTP, zlib を別途入れないとで
network が parsec を、HTTP が parsec と mtl を
更に parsec が mtl を要求しているので
mtl -> parsec -> network -> HTTP -> zlib
の順でインストールしました

で、「よーし HsOpenSSL 入れちゃうぞー」と思ったら

$ cabal install HsOpenSSL
Resolving dependencies...
cabal: cannot configure HsOpenSSL-0.6.5. It requires integer -any
There is no available version of integer that satisfies -any

あらら

"/dev/shm/sysconfig" opensuse-11.2

2009-12-18T22:01:00.006+09:00

OpenSUSE を 11.1 から 11.2 にしたら Xen が!!
vm が立たなくなってしまって

# xm create /etc/xen/vm/config.py
Using config file "/etc/xen/vm/config.py".
Error: Device 0 (vif) could not be connected. Hotplug scripts not working.

virtual な interface に繋げないとか言ってる

えー、って思って ifconfig -a とかしてみると
確かに昔あった peth0 とかが無くなっていました
Xen で interface を bridge させているので
物理 if である peth0 とそれを用いた bridge の eth0 と
両方が表示されないといけないのに、どうも上手く動いてないっぽい

Xen の bridge を立てるには
/etc/xen/scripts/network-bridge
を呼ぶようなスクリプトを Xen の設定ファイルに登録してあったので
network-bridge で直接 bridge 作ろうとしたら
どうも /dev/shm/sysconfig/xenbridges が mkdir できないらしい
/dev/shm/sysconfig が無いのね

ん〜、何で? って思ってググってみたところ
[opensuse] xend fails to create bridge on start (opensuse 11.2)
とりあえず同じ悩みを抱えてる人発見、しかも詳しく調べてくれてる
11.2 からは /dev/.sysconfig ってフォルダを使うみたい
でも、xen-tools のファイルがそれに追従してないのかな??

でまぁ、確かにそれが一番簡単そうだったので
network-bridge の mkdir の次に -p と書いてやることで
とりあえず解決はしました
ほんとは全部 /dev/.sysconfig 使うように書き換えるべきなのか??
update するときに憶えとかないと嵌りそうで怖いです．．．

eth0 eth2 変更

2009-12-17T16:24:00.002+09:00

OpenSUSE 使ってたんですが
ネットワークカードを挿し替えてみたら eth2 とか出てきました
これを eth0 にしたい!! んで調べました

ethデバイスの順序変更 | gmt-24.net
なるほど!
/etc/udev/rules.d/ の中に確かに色々とファイルが入っていて
MAC address 込みで設定がされてました。
一度挿すと MAC address 憶えといてコロコロ変わらないようにしてくれる
何てできた子なんでしょう、えーと、これの場合 udeb が?

automatically generated とかファイルには書いてあったんですが
手で書きかえてやって再起動で無事 interface の名前が変わりました

vmnic0 vmnic1

2009-12-17T02:00:00.004+09:00

ESXi にコンソールからログインして
ネットワーク周りの設定を確認したいと思ったんですが
ifconfig すら入っていませんでした
ethtool はあるのに!

インターフェース名が分からないと何もできないな
eth0 じゃないのか、何なんだ、と思ってググったり
vSphere Client? 悔しいじゃないですか

で、vmnic0 vmnic1 ってのを探りあてたわけですが
何が割り振られてるのか良く分からなかったりして

esxcfg-nics とか esxcfg-vswitch とかコマンドがあって
それぞれ -l で list してくれるんですが
どんなインターフェースがあるかとかどんな名前がついてるとか
vSphere Client で見れるような情報が得られました!!
．．．．．．

や、CUI っていいですよね

ie 新しいタブで開く

2009-12-15T17:13:00.000+09:00

「ここクリックしたら新しいタブで開けるといいな」
って、え、ん〜、target とかで何とかなるのかもしれないけど
でも new window 開くのであってタブ? HTML にタブって概念あり??

Ctrl+左クリックを紹介したらいけたらしいのでいいかと思ったけど
ググってみました

IE7で新規ウィンドウが常にタブで開くようにする
おー、設定項目あるじゃない!
IE も 7 にもなるとすっかりタブブラウザになってたんですね
もぉタブの無い生活なんて考えられませんもんねぇ〜

s3cmd

2009-12-14T23:13:00.002+09:00

S3 にでかーいファイルを上げようとしまして
s3fox 使ってたらどうも途中で止まってしまうし
OS X で試そうとしたんですがやっぱ何か上手くいかず
どーしよーかなーと思って彷徨っていたら
s3cmd って Python で書かれたのがあったんで試しました

Amazon S3用のコマンドラインツールs3cmd
最初に s3cmd --configure って打つと key を 2 つ聞いてきて
入力すると dot file が HOME の下にできます。
あとは get でも put でも mv でも何でもすればいいじゃない
ということで put してみたら無事に upload できました

格好つけて慣れない GUI なんか使うなって言われた気がしてきました
悲しい

vmware-tools ide xp

2009-12-08T18:58:00.000+09:00

ESXi 4 の上に XP を入れました
細かいことは良く分からずともいじれてしまうので
VM 作るのに一応カスタムで設定すると見せ掛けて
デフォルトばかりで進むということをしていました

で、インストールが終わって WMWare Tools をインストールすると
何かがエラーが起きていちタスクトレイの VMWare のロゴが
進入禁止みたいなマークで上書かれてしまっています

VMWare Tools を開いてみるとどうも HDD の部分でエラーが
あれー、Vista は SCSI だったかもしれないし
2003 とか 2008 は SCSI だったからかなぁ
と思ってググってみたんですがあんまし良さげな情報も出てきません

で、まぁ XP なら直ぐだしと思って再インストールしてやっぱりダメ
エェェェ、って思ってたんですがボーっとしてたら思い浮かびました
「そういえばこれ素の XP だから SP1 すらあたってなくね?」
エラーが出つつもライセンス認証して SP2 をあててみると
無事侵入禁止マークが取れました

解決はしたんですが、ものすごい無念

vmware-bios

2009-12-07T17:46:00.002+09:00

VMWare の VM に何か入れようとしてまして
上書きでインストールしようと思ったんですが
気付くと Windows が起動してしまっています
BIOS の画面とかにもいけない感じ

ドキュメント読む前にググっちゃうと
VMware/BIOSのセットアップ画面を出す - 俺の基地
そうか、なるほど、設定で最初の画面の出る時間が指定できるのか!

で、確かに VM の設定項目開いたら
[オプション] -> [詳細] -> [起動オプション] -> [パワーオン時起動遅延]
ってありまして
0 ミリ秒でした、そりゃ無理だ。

10000 ミリ秒にしたら、ちゃんと待ってくれたので
ESC 押して CD が選べました

authrootseq.txt authrootstl.cab

2009-12-05T01:23:00.004+09:00

インターネットってのは原理的には盗聴し放題だったり
いつどこから誰がアクセスしてくるかも分からなかったりするので
盗聴とかユーザー認証とかするのに暗号技術ってのは基本リテラシーです
新版暗号技術入門とか分かりやすい

で、Windows の場合 CryptoAPI っていう API を持っていて
(Linux だと OpenSSL がスタンダードですかね)
暗号・PKI 関係を処理してくれています
capi とか capi2 とかいうみたいです
http://msdn.microsoft.com/en-us/library/aa380255(VS.85).aspx
こっから辿れば色々分かるのかな

テクノロジーは日々進歩して
結果 XP と Vista では CryptoAPI も大きく変わっているそうで
(2008 -> 2008 R2 でも随分と変わっているらしいけど)
例えば XP も Vista もルート証明書の自動インストール機能があるのに
Internet Explorer のセキュリティ Internet Explorer 7 の EV SSL 証明書の実装
にもある通りそのタイミングが違ったりしています

というかそもそも Vista/2008 は「信頼されたルート証明機関」が
インストール直後には 10 こも無かったりするんですが
必要に応じて勝手にインストールされてしまうわけです
例えば以下がお詳しいのではないかと
自堕落な技術者の日記 : Windows 7 RCを入れてみた(その2)
自堕落な技術者の日記 : Windowsルート認証機関の更新(2009.02)

でまぁ、確かに
Microsoft ルート証明書プログラムのメンバ (2009 年 2 月)
見たらどこが信頼されてるのかは分かるかもしれないですが
違う! そうじゃない! 欲しいのは証明書なんだっ!!
つうわけでどうしてるんだかちょっと調べてみました

で、ググっちゃみたんですが良く分からない
でも確かに IE on Vista で https://mixi.jp/ なんかにアクセスしてみると
ルート証明書が沢山インストールされてるのが確認できますし
mmc 経由で削除してもまたアクセスするとまたインストールされてます

良く分からなかったらパケットキャプチャだということで
Wireshark を使ってキャプチャーしてみました
http://www.download.windowsupdate.com/msdownload/update/v3/static/trustedr/en/authrootseq.txt
http://www.download.windowsupdate.com/msdownload/update/v3/static/trustedr/en/authrootstl.cab
http://www.download.windowsupdate.com/msdownload/update/v3/static/trustedr/en/02FAF3E291435468607857694DF5E45B68851868.crt
どうもこの辺りをダウンロードしてるみたいで関係あるみたい

でまぁ、この辺のファイル名とかでググればそれなりに情報が出てきます
authrootseq.txt は中を見るとテキストで何かシリアルみたいなものが
いま手元にあるのだと 1401CA5837700A984D って書いてありました

authrootstl.cab は中に authroot.stl ってのが入っていて
Vista で double click すると

1401CA5837700A984Dはシーケンス番号らしいし
どうやらこいつがリストっぽい

で、最後のは証明書で der で AddTrust の自己署名でした

$ sha1sum -b 02FAF3E291435468607857694DF5E45B68851868.crt 
02faf3e291435468607857694df5e45b68851868 *02FAF3E291435468607857694DF5E45B68851868.crt

なので、URI というか file name は DER を SHA1 したものみたい

で、authroot.stl ですわ
何か見辛いなと思ったし
「PKI 関係ならどうせ ASN.1 なんでしょ?」
と試しに asn1parse してみると

$ openssl asn1parse -inform der -in authroot.stl
    0:d=0  hl=5 l=77575 cons: SEQUENCE          
    5:d=1  hl=2 l=   9 prim:  OBJECT            :pkcs7-signedData
   16:d=1  hl=5 l=77559 cons:  cont [ 0 ]        
   21:d=2  hl=5 l=77554 cons:   SEQUENCE          
   26:d=3  hl=2 l=   1 prim:    INTEGER           :01
   29:d=3  hl=2 l=  11 cons:    SET               
   31:d=4  hl=2 l=   9 cons:     SEQUENCE          
   33:d=5  hl=2 l=   5 prim:      OBJECT            :sha1
   40:d=5  hl=2 l=   0 prim:      NULL              
   42:d=3  hl=5 l=70016 cons:    SEQUENCE          
   47:d=4  hl=2 l=   9 prim:     OBJECT            :1.3.6.1.4.1.311.10.1
   58:d=4  hl=5 l=70000 cons:     cont [ 0 ]        
   63:d=5  hl=5 l=69995 cons:      SEQUENCE          
   68:d=6  hl=2 l=  12 cons:       SEQUENCE          
   70:d=7  hl=2 l=  10 prim:        OBJECT            :1.3.6.1.4.1.311.10.3.9
   82:d=6  hl=2 l=   9 prim:       INTEGER           :1401CA5837700A984D
   93:d=6  hl=2 l=  13 prim:       UTCTIME           :091029013045Z
  108:d=6  hl=2 l=   9 cons:       SEQUENCE          
  110:d=7  hl=2 l=   5 prim:        OBJECT            :sha1
  117:d=7  hl=2 l=   0 prim:        NULL              
  119:d=6  hl=5 l=69939 cons:       SEQUENCE          
  124:d=7  hl=3 l= 165 cons:        SEQUENCE          
  127:d=8  hl=2 l=  20 prim:         OCTET STRING      [HEX DUMP]:A43489159A520F0D93D032CCAF37E7FE20A8B419
(以下略)

でたでた、PKCS#7 だったらしい、なるほど

AddTrust のは

(前略)
42165:d=7  hl=4 l= 261 cons:        SEQUENCE          
42169:d=8  hl=2 l=  20 prim:         OCTET STRING      [HEX DUMP]:02FAF3E291435468607857694DF5E45B68851868
42191:d=8  hl=3 l= 236 cons:         SET               
42194:d=9  hl=2 l=  32 cons:          SEQUENCE          
42196:d=10 hl=2 l=  10 prim:           OBJECT            :1.3.6.1.4.1.311.10.11.29
42208:d=10 hl=2 l=  18 cons:           SET               
42210:d=11 hl=2 l=  16 prim:            OCTET STRING      [HEX DUMP]:06F9583C00A763C23FB9E065A3366D55
42228:d=9  hl=2 l=  36 cons:          SEQUENCE          
42230:d=10 hl=2 l=  10 prim:           OBJECT            :1.3.6.1.4.1.311.10.11.11
42242:d=10 hl=2 l=  22 cons:           SET               
42244:d=11 hl=2 l=  20 prim:            OCTET STRING      [HEX DUMP]:5500530045005200540072007500730074000000
42266:d=9  hl=2 l=  36 cons:          SEQUENCE          
42268:d=10 hl=2 l=  10 prim:           OBJECT            :1.3.6.1.4.1.311.10.11.20
42280:d=10 hl=2 l=  22 cons:           SET               
42282:d=11 hl=2 l=  20 prim:            OCTET STRING      [HEX DUMP]:ADBD987A34B426F7FAC42654EF03BDE024CB541A
42304:d=9  hl=2 l=  54 cons:          SEQUENCE          
42306:d=10 hl=2 l=  10 prim:           OBJECT            :1.3.6.1.4.1.311.10.11.83
42318:d=10 hl=2 l=  40 cons:           SET               
42320:d=11 hl=2 l=  38 prim:            OCTET STRING      [HEX DUMP]:30243022060C2B06010401B231010201050130123010060A2B0601040182373C0101030200C0
42360:d=9  hl=2 l=  68 cons:          SEQUENCE          
42362:d=10 hl=2 l=  10 prim:           OBJECT            :1.3.6.1.4.1.311.10.11.9
42374:d=10 hl=2 l=  54 cons:           SET               
42376:d=11 hl=2 l=  52 prim:            OCTET STRING      [HEX DUMP]:303206082B0601050507030106082B0601050507030206082B0601050507030406082B0601050507030306082B06010505070308
(後略

ここら辺っぽい

1.3.6.1.4.1.311.10.11.29 っていう OID がありますが
これもググると wincrypt.h っていうファイルに

#define szOID_CERT_SUBJECT_NAME_MD5_HASH_PROP_ID            "1.3.6.1.4.1.311.10.11.29"

ってあるんで
Subject を md5 したもんでこれで捜すのかと推察
他の OID もそれぞれ興味深いんだけど、今は置いといて

つまり authroot.stl を見れば信頼されたルートの証明書の
DER での SHA1 値が分かってしまって
"SHA1 値.crt" で
http://www.download.windowsupdate.com/
を叩きまくってやったらいいんではないかと思うわけです

$ for i in `openssl asn1parse -inform der < authroot.stl | perl -ne '$a[0]=$a[1];$a[1]=$a[2];$a[2]=$a[3];$a[3]=$_;if (/1.3.6.1.4.1.311.10.11.29/) {$a[0]=~/.+:([0-9A-F]+)/; print $1 . "\n"}'`; do echo http://www.download.windowsupdate.com/msdownload/update/v3/static/trustedr/en/$i.crt; done

なんかまぁ、これでいいのかどうかは置いといて
とりあえず何かスラズラーっと出てきました
ん〜、これで全部なんだろうか?
確認しようと思えばできるけどなぁ．．．

Haskell import AF_INET

2009-12-03T17:54:00.000+09:00

不要なものを import するなんて!
ってのが何原理主義なんだか分からないですが
fromMaybe だけ使いたい! って思ったら

import Data.Maybe (fromMaybe)

ってしろって色々書いてあります
素敵

AF_INET が欲しいと思ったんで

import Network.Socket (AF_INET)

ってしてみました

$ ghci af_inet.hs
GHCi, version 6.10.4: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer ... linking ... done.
Loading package base ... linking ... done.
[1 of 1] Compiling Main             ( af_inet.hs, interpreted )

af_inet.hs:1:23: Module `Network.Socket' does not export `AF_INET'
Failed, modules loaded: none.

あら、"does not export" って言われてしまった

Prelude Network.Socket> :i AF_INET
data Family = ... | AF_INET | ...
   -- Defined in Network.Socket.Internal

なるほど
AF_INET は Family っていう型の data constructor らしい
だから素直には呼べないのかな?

import Network.Socket (Family)

これは通るんだけど

$ ghci af_inet.hs
GHCi, version 6.10.4: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer ... linking ... done.
Loading package base ... linking ... done.
[1 of 1] Compiling Main             ( af_inet.hs, interpreted )
Ok, modules loaded: Main.
*Main> AF_INET

<interactive>:1:0: Not in scope: data constructor `AF_INET'

そうよね、うんうん

残念ながらプログラミング Haskell にも記述が無く
色々ググっていたんですが、結局どうすればいいかっていうと

import Network.Socket (Family(AF_INET))

こうすればいいみたいでした
どこでこの記述見つけたんだかもぉ忘れちゃった

原理主義疲れる

haskell timeout

2009-12-03T15:55:00.002+09:00

プログラミング Haskell って素敵本も買ってみて、
ちょいちょい「お勉強」してるんですが
Haskell で timeout したくなったらどうしよう!?
心配性なので事前に調べておかないと気になって仕方がありません
ググってみました

System.Timeout

timeout :: Int -> IO a -> IO (Maybe a)

何マイクロ秒待つか指定して
IO しようとして、失敗すると Nothing 返ってくるっぽい

試してみた

Prelude Network.HTTP System.Timeout> timeout (3*10^6) $ simpleHTTP $ getRequest "http://10.0.0.1/"
Nothing
Prelude Network.HTTP System.Timeout> timeout (3*10^6) $ simpleHTTP $ getRequest "http://google.com/"
Just (Right HTTP/1.1 301 Moved Permanently 
Location: http://www.google.com/
Content-Type: text/html; charset=UTF-8
Date: Sat, 05 Dec 2009 04:49:50 GMT
Expires: Mon, 04 Jan 2010 04:49:50 GMT
Cache-Control: public, max-age=2592000
Server: gws
Content-Length: 219
X-XSS-Protection: 0
Connection: close

)
Prelude Network.HTTP System.Timeout>

~~何だこの最後の )~~Just ( の pair の ) じゃ
でもまぁ、待ててるみたいでした
Network.HTTP に timeout がある気がしないでもないけど、いつか調べよう

esxi-4 patch

2009-11-27T09:05:00.001+09:00

ESXi は最新の状態に保たれているんだろうと思っていたら
どうやらパッチなんかは何もあててないみたいでした
「他人を信じてはいけない」ということを教えてくれてるんでしょうか

というわけでパッチを、と思ったんですが方法が良く分かっていません
お前よくもまぁそんな状態で、っていうのは置いておきましょう

ネットワークエンジニアからみたITの世界やら: VMware ESXi4 にパッチをあてる
vSphere Client Host Update Utility ってのを使うみたいで
とりあえずそれ入ってないからインストール
(もしかしたら既に入っていたのかもしれないけど)
起動したら vSphere Client で使ったことのある ESXi サーバが
最初から表示されてたので選択してパッチがあるかどうか調べたり
適用したりしたら終わってしまいました

ハイパーバイザー? の update を遠隔で GUI でするっていうのが
未来やってきてるなっていう感じで受けとってしまうのは
もぉいいおっさんになった証拠なのかもしれません

inax トイレタンク水漏れ

2009-11-26T20:57:00.002+09:00

トイレの前に行ったら水が流れつづけてて
タンクを覗いてみたら水が貯まらずにどんどん流れていくの
当たり前か、流れてるんだから

テニスボールくらいの大きさの黒いゴムの玉があって
それが穴を塞いで水が貯まるようになっていて
上から押さえつけると貯まるんですが離すとまた流れてしまいます

う〜ん、と思って色々見たんだけど分からなかったんでググりました
【公式】INAX トイレトラブル診断・部品販売
ん〜、こっちじゃなくて「水が止まらない」なんだけどな
洗浄ハンドルとフロートゴム玉を確認する
ハンドルはちゃんと戻るしなぁ
良く見たから異物も入ってないしなぁ
部品の劣化かなぁ、困ったなぁ

異物があったので取り除いたら水が貯まるようになりました

svg pdf 変換

2009-11-25T16:21:00.003+09:00

たまーにですが、Graphviz にグラフを描かせます
全く複雑なものは描かせないんですがいかんせん大きく
node の中に文字情報入れときたいので大きくなるんですが
更に拡大・縮小して楽しく閲覧したいグラフなのです
png など bitmap で描画させると読ませたアプリが死んでしまうので
pdf で吐かせて evince で見るという生活をしていました

で、どうもこの pdf の engine がタコなのか
engine に何使ってるかすら調べてないのに言うのも何ですが
evince 以外のアプリだと見れない!!
っていうか evince は poppler とやらの front-end なのか
まぁ、Adobe の Reader で読めないわけです
OS X の preview でも zoom とかできないらしいんです
困りました

で、svg でも吐けるのは知っていたので吐かせてみて
何で見るかなと思って Firefox でいけたよなと思い open
見れる、見れました、見れるんですが、拡大・縮小が遅い
あるんじゃないかと思って svg から pdf への変換ツールを探しました

SVGフォーマットを他の画像形式に変換 - ふっくんのブログっぽいサイト"
おぉ、つかここからリンクされてる
LinuxでSVGフォーマットを他の画像形式に変換 - ふっくんのブログっぽいサイト
が真に探していたもの

$ $ auto-apt search bin/rsvg-convert
usr/bin/rsvg-convert graphics/librsvg2-bin
$ sudo aptitude install librsvg2-bin
Reading package lists... Done
Building dependency tree
Reading state information... Done
Reading extended state information
Initializing package states... Done
Reading task descriptions... Done
The following NEW packages will be installed:
  librsvg2-bin
0 packages upgraded, 1 newly installed, 0 to remove and 0 not upgraded.
Need to get 66.1kB of archives. After unpacking 164kB will be used.
Writing extended state information... Done
Get:1 http://ftp.jp.debian.org lenny/main librsvg2-bin 2.22.2-2lenny1 [66.1kB]
Fetched 66.1kB in 0s (92.1kB/s)
Selecting previously deselected package librsvg2-bin.
(Reading database ... 134001 files and directories currently installed.)
Unpacking librsvg2-bin (from .../librsvg2-bin_2.22.2-2lenny1_i386.deb) ...
Processing triggers for man-db ...
Setting up librsvg2-bin (2.22.2-2lenny1) ...
Reading package lists... Done
Building dependency tree
Reading state information... Done
Reading extended state information
Initializing package states... Done
Writing extended state information... Done
Reading task descriptions... Done
$ rsvg-convert -f pdf -o graph.pdf graph.svg

で pdf ができました

Adobe Reader でも読めるお行儀の良い pdf が完成!
しかも inkscape で svg いじってから pdf とかも可能に
まぁ、なんかこの svg がそこまでいけてる感じに作られてはないんですが、でも
svg のことが好きになりました

ubuntu サービス登録

2009-11-25T01:44:00.003+09:00

/etc/rc?.d の下っていつも手でいじってしまうんですが
たまにはちゃんとツール使おうか、っていうか
スクリプトで for で回すのほアホかなーと思ったので
ちょっとググりました

SE奮闘記: Ubuntuでサービス一覧表示（chkconfigがないから）
そうそう、redhat 系だと chkconfig なんですよね
CentOS はよくいじってるので、名前だけは知ってました
で、Ubuntu なんで $ sudo install sysv-rc-conf

で、man を斜めに読んでみて
試しスクリプトを /etc/init.d に test-script 置いて
$ sudo sysv-rc-conf test-script on
ってしたら確かに rc{2,3,4,5}.d に symbolic が張られたんだけど S20 とかって
これは、何順なの? alphabet 順なの?

で、man 見直したら /var の下に優先順位とか憶えてるファイルがあるらしく
/var/lib/sysv-rc-conf/services を開いてみたら確かに書いてあるので
手で変更したら希望の優先順位になったんでそれ以上 man を見ませんでした
コマンドラインからもできるに違いないと思うんだけどな．．．．

そういえば debian だと update-rc.d ってあった気がしてきたんだけど
これは使えるのかな、使えないのかな．．．．

．．．．が多いな

boto

2009-11-24T11:13:00.001+09:00

EC2 を外部から操作したいわけで
そうすると ec2-api-tools とか ec2-ami-tools とかあるわけですが
行けなかった bpstudy#27 の資料が

d_sea 後追いだけど、BPstudy#27 で話してきたことをブログに書いた http://d.hatena.ne.jp/d_sea/20091120/p1 スライドも張ったよ #bpstudy 12:26 PM Nov 23rd

と公開されてたので
早速見てみたら boto ってのが素敵そう

boto でググれば http://code.google.com/p/boto/ が直ぐ出ます
落として README 見たら docs か tests を見れば良いと書いてあったので
docs に行くと Make file が!
make って打ったら sphinx が無いと!!
でも
Pythonって何？という人のためのSphinxチュートリアル
を見てたので sphinx は virtualenv に入ってるので activate
無事 docs も見れました

pip で boto 入れてみて ipython 立ちあげて

In [1]: import boto

In [2]: conn = boto.connect_ec2('xxxx', 'yyyy') <- xxxx と yyyy は acces key と secret key

In [3]: instance = conn.get_all_instances()[0]

In [4]: volume = conn.get_all_volumes()[0]

In [5]: volume.attach(instances[0].id, '/dev/sdf')

みたいなことができました
もちろん instance の起動やら何やら色々できるみたいです
コマンドを長々と打つのに比べると method で色々呼べるのは楽だなぁと思いました

や、っていうか、スクリプトが組めるんで素敵だねって話なんですが
ipython の上で使うだけでもぉ大満足! でした

openssl haskell context

2009-11-21T02:22:00.004+09:00

Haskell で Socket 使って少し通信できるようになったので
SSL で通信でもしてやろうかと思いました
クライアントとして
引きつづき HsOpenSSL を使って

OpenSSL でクライアントとして接続というと
context っていうクライアント認証の情報とか SSL のバージョンとかと
あと socket を作っておいて
その二つを合わせて SSL の接続へと socket を昇格? させます

で、ググりゃそりゃリファレンスが出てくるので
OpenSSL.Session
ghci で上に従ってやってみようと思ったんですが何か上手くいかず
色々ググったりして散々悩んでみたんですが
コード書いてコンパイルしたら通ってしまいました
ghci だとダメってよりは、withOpenSSL が無くてダメだったのかな

折角なんで Firefox から ThawtePremiumServerCA って証明書を抜き
引き数に hostname を取って 443 port で SSL 通信して
サーバ証明書を取ってきて証明書の検証ができるかどうか試してみました

$ ./cert_check www.google.com
VerifyFailure
$ ./cert_check www.blogger.com
VerifySuccess

有効期限の確認も FQDN と CN の比較もしてなくて
ルート証明書の公開鍵でサーバ証明書の署名の確認してるだけですが

import System
import Data.Maybe
import Network.Socket
import Network.BSD
import OpenSSL
import OpenSSL.Session
import OpenSSL.X509
import OpenSSL.PEM
import OpenSSL.RSA
import OpenSSL.EVP.PKey

main = withOpenSSL $
  do
    (host:_) <- getArgs
    addr <- return . head . hostAddresses =<< getHostByName host

    ctx <- context
    sock <- socket AF_INET Stream 0
    Network.Socket.connect sock (SockAddrInet 443 addr)
    ssl <- connection ctx sock
    OpenSSL.Session.connect ssl
    x509 <- return . fromJust =<< getPeerCertificate ssl
    -- putStr =<< writeX509 x509
    OpenSSL.Session.shutdown ssl Unidirectional

    root <- readX509 =<< readFile "ThawtePremiumServerCA.crt"
    pk <- return . fromJust . toRSAKey =<< getPublicKey root
    putStrLn . show =<< verifyX509 x509 pk
  where
    toRSAKey :: SomePublicKey -> Maybe RSAPubKey
    toRSAKey = toPublicKey

haskell hostname resolve

2009-11-20T16:42:00.007+09:00

続きまして、HTTP でも叩こうかと思いました
直に Network.Socket を叩くよ!!

ってまぁ、流石にそんなことしてる人は沢山いらっしゃいまして
いくらでもサンプルが出てくるんですがシンプルだったのは
関数型プログラミング言語Haskell Part6
２ちゃんねるの過去ログの 607 さんでした
ちなみに検索語は "import Network.Socket"

で、挙がってた sample は

import Network.Socket 
main = putStrLn =<< do 
sock <- socket AF_INET Stream 0 
addr <- inet_addr "66.249.89.104" >>= \x -> return $ SockAddrInet 80 x 
connect sock addr 
send sock "GET / HTTP/1.1\nHost: www.google.co.jp\n\n" 
recv sock 10000000 >>= \x -> sClose sock >> return x

おぉぉ

IP address ってのはちょっと寂しかったので
名前を解決してやりたいなと思いもうちょっとググりました
Network.BSD
なるほど、getHostByName 使えと
上の２ちゃんのログの 604 さんが

インタフェースはCのAPIそのままだから、そっちを調べるべき。

っつってたので
C のこと分かってればいいみたいです
わたし? えぇ、分かってないですけど

> :t getHostByName
getHostByName :: HostName -> IO HostEntry
> :i HostEntry
data HostEntry
  = HostEntry {hostName :: HostName,
               hostAliases :: [HostName],
               hostFamily :: Network.Socket.Internal.Family,
               hostAddresses :: [Network.Socket.Internal.HostAddress]}
   -- Defined in Network.BSD

あと、HostName は String のこと
HostEntry の中の hostAddresses に IP address が入ってるので

> getHostByName "www.google.com" >>= return . hostAddresses
[1750726978,1666840898,2472147266,1733949762]

10進でアドレス見せてくれます

つわけで、こんなん作ったら

import System
import Network.BSD
import Network.Socket

main = do (host:path:_) <- getArgs
          addr <- return . head . hostAddresses =<< getHostByName host
          sock <- socket AF_INET Stream 0
          connect sock (SockAddrInet 80 addr)
          send sock $ "GET " ++ path ++ " HTTP/1.1\nHost: " ++ host ++ "\n\n" 
          putStrLn =<< recv sock 100000
          sClose sock

こんなん出ました

$ ./get www.ietf.org /rfc/rfc5280.txt
HTTP/1.1 200 OK
Date: Fri, 20 Nov 2009 08:10:29 GMT
Server: Apache/2.2.4 (Linux/SUSE) mod_ssl/2.2.4 OpenSSL/0.9.8e PHP/5.2.6 with Suhosin-Patch mod_python/3.3.1 Python/2.5.1 mod_perl/2.0.3 Perl/v5.8.8
Last-Modified: Wed, 07 May 2008 17:42:25 GMT
ETag: "1caf1b6-56144-7cddc240"
Accept-Ranges: bytes
Content-Length: 352580
Vary: Accept-Encoding
Content-Type: text/plain







Network Working Group                                          D. Cooper
Request for Comments: 5280                                          NIST
Obsoletes: 3280, 4325, 4630                                 S. Santesson
Category: Standards Track                                      Microsoft
                                                              S. Farrell
                                                  Trinity College Dublin
                                                               S. Boeyen
                                                                 Entrust
                                                              R. Housley
                                                          Vigil Security
                                                                 W. Polk
                                                                    NIST
                                                                May 2008


         Internet X.509 Public Key Infrastructure

~~なんでこれ途中で切れるの?~~
recv に渡す数字でちゃんと表示内容変化してるのに
気付いていなかったみたいです
socket が分かっていない．．．

"Couldn't match expected type `IO *' against inferred type"

2009-11-20T12:21:00.007+09:00

Haskell がきれいらしいので Haskell 少し真面目にしようかなと
証明書くらい読めなきゃいけないだろうということで X.509 を読むことに

ググったら HsOpenSSL という OpenSSL の binding があり
cabal は入れてあったので

$ cabal install HsOpenSSL

でインストール終了
OpenSSL を見て

    main = withOpenSSL $
       do ...

と withOpenSSL で囲むというのと
Learning After School » HsOpenSSL Update を見て
ghci には --make というオプションを与えないとダメなことを認識

とりあえず読めればいいと思ったので
PEM への PATH を最初の引数で取ってそれを解釈して吐くことにしました
HsOpenSSL 関係で使った関数は

OpenSSL.PEM.readX509 :: String -> IO X509
OpenSSL.X509.getVersion :: X509 -> IO Int
OpenSSL.X509.getVersiongetSerialNumber :: X509 -> IO Integer
OpenSSL.X509.getVersiongetNotBefore :: X509 -> IO UTCTime
OpenSSL.X509.getVersiongetNotAfter :: X509 -> IO UTCTime
OpenSSL.X509.getVersiongetIssuerName :: X509 -> Bool -> IO [(String, String)]
OpenSSL.X509.getVersiongetSubjectName :: X509 -> Bool -> IO [(String, String)]
OpenSSL.X509.getVersiongetPublicKey :: X509 -> IO SomePublicKey
OpenSSL.EVP.PKey.toPublicKey :: (PublicKey k) => SomePublicKey -> Maybe k

UTCTime ってのは Data.Time.Clock で定義されてるんだけど
Show のインスタンスなので show で文字列にできる
getIssuerName と getSubjectName の取る Bool は名前の省略するか否か
tuple は ("countryName", "JP") みたいなのが入ってる

でー、ここまでは良かったんだけど分からなかったのが公開鍵で
SomePublicKey ってのは class なんだけど

> :i SomePublicKey
data SomePublicKey where
 OpenSSL.EVP.PKey.SomePublicKey :: forall k.
                                   (PublicKey k) =>
                                   !k -> SomePublicKey
  -- Defined in OpenSSL.EVP.PKey
instance Eq SomePublicKey -- Defined in OpenSSL.EVP.PKey
instance PublicKey SomePublicKey -- Defined in OpenSSL.EVP.PKey
instance PKey SomePublicKey -- Defined in OpenSSL.EVP.PKey
> :i PublicKey
class (Eq k, Data.Typeable.Typeable k, PKey k) => PublicKey k where
 fromPublicKey :: k -> SomePublicKey
 toPublicKey :: SomePublicKey -> Maybe k
  -- Defined in OpenSSL.EVP.PKey
instance PublicKey RSAKeyPair -- Defined in OpenSSL.EVP.PKey
instance PublicKey SomePublicKey -- Defined in OpenSSL.EVP.PKey
instance PublicKey SomeKeyPair -- Defined in OpenSSL.EVP.PKey
instance PublicKey RSAPubKey -- Defined in OpenSSL.EVP.PKey

type とか class に関する理解が不足しているのは分かりつつ
toPublicKey に SomePublicKey かましたらいいんでしょ? と思って
で、IO SomePublicKey だから bind とか使ったらいいんでしょ? と思って

pk <- getPublicKey x509 >>= toPublicKey

としてみたら

Couldn't match expected type `IO b' against inferred type `Maybe k'

と言われてしまい
これが解決できなくて検索しました

Re: [Haskell-cafe] Convert IO Int to Int: msg#00458 haskell-cafe@haskell.org
何となく分かったのは、IO の中身取り出そうとしてて、そりゃダメだ
return かましてらしたんで、かましてみたら IO で包めて通りました!
と思いきや
SomePublicKey ってののインスタンスも指定しないとダメみたいで
:: Maybe RSAPublicKey ってのを付けないと toPubicKey が上手く動かず
ん〜、理解不足、RSA 決め打ち気持ち悪い

でもまぁ、こんな感じでとりあえず中身見れるようになりました

module Main where
import System
import OpenSSL
import OpenSSL.PEM
import OpenSSL.X509
import OpenSSL.EVP.PKey
import OpenSSL.RSA
import Data.Maybe

main :: IO ()
main = withOpenSSL $
  do
    x509 <- OpenSSL.PEM.readX509 =<< head =<< getArgs
    putStr "version: "
    getVersion x509 >>= putStrLn . show . succ
    putStr "serialNumber: "
    getSerialNumber x509 >>= putStrLn . show
    putStr "notBefore: "
    getNotBefore x509 >>= putStrLn . show
    putStr "notAfter: "
    getNotAfter x509 >>= putStrLn . show

    putStrLn ""
    issuerRDNs <- getIssuerName x509 True
    putStrLn "[issuer]"
    mapM_ printRDN issuerRDNs
    subjectRDNs <- getSubjectName x509 True
    putStrLn "[subject]"
    mapM_ printRDN subjectRDNs

    putStrLn "[publickKey]"
    somePublicKey <- getPublicKey x509
    pk <- return $ fromJust (toPublicKey somePublicKey :: Maybe RSAPubKey)
    putStr "e = "
    putStrLn $ show $ rsaE pk
    putStr "n = "
    putStrLn $ show $ rsaN pk<
  where
    printRDN (f, s) = putStrLn (f ++ " = " ++ s)

とりあえず動いたんで満足しました

$ ./x509 www.blogger.com.crt 
version: 3
serialNumber: 154451598012349719216436864807249350442
notBefore: 2008-04-29 22:42:19 UTC
notAfter: 2010-05-26 11:11:00 UTC

[issuer]
countryName = ZA
stateOrProvinceName = Western Cape
localityName = Cape Town
organizationName = Thawte Consulting cc
organizationalUnitName = Certification Services Division
commonName = Thawte Premium Server CA
emailAddress = premium-server@thawte.com
[subject]
countryName = US
stateOrProvinceName = California
localityName = Mountain View
organizationName = Google Inc
commonName = *.blogger.com
[publickKey]
e = 65537
n = 156261988165875299258992916522864140599934684523601467326503718745802091107083682835929499666111345772555979343409161090600093388197459190695135388517589095274179717212596199311728073635629373769115406240413244621434604136126497937524426697977932393973863819806782187408995863143657362345664311920806817108659

nginx mongrel_rails

2009-11-20T01:18:00.007+09:00

Ubuntu で Rails と思ったわけです
パッケージ使えばいいとは思うのですが
Ruby というか Rails 周りは動きが速かったりするので
追従するには手作りかなと思い Ruby から作りました
で、gem 入れて rails 入れたり他のも入れたり

rails 自体は何で動かそうかなーと思ったのですが
mongrel ってのがスタンダードだと以前聞いていたのでそれで
で、その前に流行りの nginx を置いてみることにしました

ググってみたところ mongrel_cluster ってのを使えと
Ruby on Rails: mongrel_clusterのフロントエンドに nginxを使用する
これは、サービスとして mongrel を使うならば
バックエンドが例え1プロセスだとしても使った方が良いとのことで
素直に従うことに

でも、まぁ、結局 init script はどうにかするしかないかぁ〜
自前で書くような技術も根性も無いので参考が欲しい!
Ubuntu だしパッケージの中のを見ればいいだろうと思って
apt-get には無かったけど aptitude に download ってコマンドがあったので

$ aptitude download mongrel-cluster
$ aptitude download nginx

などして deb ファイル取ってきて
ar -x とか tar xfz で中身とりだして適当にスクリプトを眺めました
そして init script も完成

良く分からなかったのが gem install mongrel_cluster で入れたら
設定ファイルが /etc/mongrel_cluster であることが前提みたいで
できるだけ Ubuntu のものと被らせたくないなと思ってたんですが
設定方法が分からなかったんで symlink で逃げることにしました
もぉ、Ubuntu の mongrel-cluster は入れれません
や、入れないけど

mongrel_cluster によって何か恩恵にあずかれたのかは良く分からず
でも、とりあえず形にする為に一旦そこは放置で

nginx が前にいますが
Rails のとあるアプリ? だけ見えるようにしたかったので
proxy_pass で飛ばすのにルールが必要かなーと思ったんですが
今度は真面目にドキュメントにあたってみたら
NginxHttpProxyModule
rewrite 使って書き換えてから proxy_pass かましてました
や、あたりまえな気が今ではしています

        location / {
            root   html;
            rewrite      ^/$ /application  break;
            proxy_pass http://mongrel_cluster;
        }

みたいにしてみました

あと、他のアプリは別途 location 立てて auth_basic しておきました
htpasswd は apache2-utils に入ってたので入れちゃいました
別途 location 立てるのが何か無駄な気がするんだけど仕方ないのかな
auth_basic が if の中では使えないので、まぁ、仕方ないのか?

久しぶりにこの辺の設定したので凄い頭痛くなりました

ec2-ami-tools ruby curl ubuntu debootstrap

2009-11-18T15:04:00.006+09:00

EC2 の上に minimal な ubuntu 環境が欲しいと思って
まぁ debootstrap で作って tool を入れたらいいのかなと思って
検索してたら

http://ec2ubuntu.googlecode.com/svn/trunk/bin/ec2ubuntu-build-ami
イメージ作る用のスクリプトが出てきました。
っつうか
ec2ubuntu - Project Hosting on Google Code
こういうのがちゃんとあるんですね、さすが。

で、欲しかった ami も C2 and Ubuntu - Alestic.com にあるし
apt-line には universe だけあるんで multiverse をコピー&置換で追加してやれば

$ aptitude install ec2-api-tools ec2-ami-tools

とかしてツールも入れれるみたいだし
あとは、真面目に作り込むだけみたいです．．．。
真面目に．．．。

"from xen to vmware"

2009-11-17T01:44:00.002+09:00

前回までのあらすじ:
ESXi 4 をインストールしてその上で Windows Server 2003 を動かしていたが
Xen の上に移行できないのかと思い OpenSUSE 上の Xen にコピーを試みる
ESXi の上ではその都度ファイルが大きくなるような奴は使っていなかったが
ide のドライバを入れた状態の ???-flat.vmdk とやらをコピーして起動してみたら
何の変換も無しに Xen の上で動いてしまったのだった!!

Xen の上で一通り遊んだので ESXi の上に帰ろうと思いました
で、あれー、変換しないといけないのかなーと思ったので
色々入れて検索してみて vmware 何とか converter とかも入れてみて
ん〜 Xen っぽいのが無いから変換できないじゃんと悩んでいました

でも、良く考えたら前回変換しないで動いたんですよね
コピーして ESXi のコンソールを立ちあげて
古いのをリネームして Xen からもってきたのをその名前にしてやったところ
何の躊躇いもなく ESXi さんは起動してくれちゃいました
つまり分割とか何とか機能使ってなかったら普通のイメージってことなのね!?

ドキュメント読まずに勘 95% で作業してるので
良く VMWare のこと分かってないんですが
ライブマイグレーションとか今んとこ考えてなくて
検証作業がポンポン作れたり
スナップショットで便利を感じたりできればいい程度なら
Xen も VMWare も、多分 KVM とかも、コピーでイメージ使い回せるみたい
でもドライバのこと忘れないでね、という感じでした

VMWare の便利ツールのことをもう少し調べないと無駄な苦労してそうです

vmware qemu-img xen bsod

2009-11-14T14:39:00.004+09:00

ESXi 4 をいじっているわけですが
Windows Server 2003 を立てて Xen に移行してみたいなと思いました

「esxi xen 変換」でググると
無料で構築するセキュリティシステム Vmware ESXi vmdk　から　Oracle VM　イメージ（img）への変換
qemu-img という command で disk image が変換できると出てきました。
なんだ、簡単じゃん、と思って変換して起動したらブルースクリーンに．．．

検索候補を続けて見たんですがどうも良く分からず
ESXi 4 は新しいし VMWare の image の version とかアレかなぁと思いながら
「vmware qemu-img xen bsod」で検索して辿り着いたのが
Selling Free Software for a Living: Converting VMWare image to SLES Xen
なるほど、IDE ドライバが無くてコケていると、それは当たり前だ

で、何が書いてあるかっていうと
Windows XP のシステムディスクを他のコンピューターに移動した後に STOP 0x0000007B エラーが表示される
に書いてある対応を実際にやるって話で
ESXi の方で Windows のドライバのファイルをコピーして
更にコピペで作れと書いてある mergeide.reg を結合してやって
ESXi から wget でイメージ取って Xen に食わしてやったら無事に起動しました。
っていうか quem-img 要らず? ESXi が新しいから??

Xen の方で SCSI だと思わせれば良い気もするんですけど
あれ、どうやるんだろう?

skype download old version linux

2009-11-12T12:09:00.002+09:00

Skype for Linux の version が 2.1 Beta とやらになり
PulseAudio とかでないとどうも上手く動かせなくなったみたいなんですが
具体的には音が聞こえるんだけど伝えられないっていう

Linux なんて止めなさいというご意見は有り難く頂戴致しまして
今後の参考とさせて頂くのですが
目の前にある問題としてこいつを解決しなくてはいけません

で、古いのを入れれば戻るか、と思ったんですが消しちゃってたみたいで
探しました
Windows のは山ほど出てくるんですが、と思ったら
I need Older Version of Skype for Linux, Where?

http://download.skype.com/linux/skype-2.0.0.72-fc5.i586.rpm
http://download.skype.com/linux/skype-debian_2.0.0.72-1_i386.deb
あぁ、なるほど、version さえ分かってれば直で打てば良かったんですね
まぁ、最近のものだけかもしれませんけど
えぇ、もっと古いのは試していませんけど

というわけで、
古いのに戻したら安定した通話が帰ってきました
PulseAudio との戦いはどうしたものでしょうか

esxi 再起動ログ

2009-11-11T14:20:00.002+09:00

ESXi 4 なぞいじっております
構築は他人に頼んでしまったヘタレなのですが
サーバ 1 台だけでローカルストレージの慎しい環境です
vSphere Client なんてのを教えてもらって GUI で楽々です

でも、ちょっと挙動に不安なところがあったので
ログでも参照してみようと思ったらログが無いじゃないですか
ESXi を再起動しちゃうと以前のログが見えなくなっちゃうみたいです
困った
ググった

VMwareESX/ESXi専用スレPart2
ひさしぶりに２ちゃんがひっかかりました
でもこれ USB で起動な話をしてるのかな、別かな、と思いつつ
サーバの [構成]->[ソフトウェア]->[詳細設定]->[Syslog] ってとこに
確かに Syslog.Local.DatastorePath って設定項目があって
vicfg-syslog.pl の画像を参照しつつ
設定してみてフォルダを作ってみたらログが吐き出されました

っていうか、まだ ssh で入ったこととかないんだけど
そういうことしてみちゃうべきなんでしょうか
とか、あとは、syslogd を他に立ててログ管理しろってことなんでしょうか
そろそろ動かしはじめて 3 週間なんだけど
やっと色々調べはじめてるしなぁ．．．

"AdobeAIRInstaller.bin" "AdobeAIRSDK.tbz2"

2009-10-21T13:19:00.003+09:00

Adobe Air ってのがあるらしくって
既存の知識で素敵なデスクトップアプリが作れるとか
まぁ既存ってのは HTML + JavaScript とか Flash とかみたいですが

で、まぁ、何だろな、試してみたいなと思ったので
ランタイムっぽいのと SDK っぽいのを Adobe からダウンロードしてみました
更にチュートリアルとか検索してみたり

でも、もぉコピペで動いちゃうような素敵なのは無いかなーと思って
タイトルの通り検索してみたら出てきました
KRAKENBEAL RECORD: AIR で Hello World
ありがたや、ありがたや

週末に試してみようと心に誓いました

vista 隠しファイル表示

2009-10-20T23:26:00.000+09:00

vista の方が検索しやすいんですが
相変わらず 2008 のこといじってまして
そういえば XP でなら最初にやるフォルダの表示の設定
あれ変更しないと見えなくて困るじゃないかと思いまして
フォルダを開いて隅々見たんですが何も見付かりませんでした

で、ググったら出てきたのが
隠しファイルやシステムファイルを表示させる方法＜Windows Vista(R)＞　【動画手順付き】： dynabook.comサポート情報
すごいな、東芝、動画まで用意してるのか

まぁ、面倒なんで動画は見ないでキャプチャーをざっと見ると
コンパネを見にいけっことのようだったので見にいって
しっかり「フォルダオプション」ってのを見付けました。
隠されてるの見えるようにして、拡張子も出して、
保護されてるオペレーティングシステムファイルってのも
表示してみるようにしました

にしても、
何かカタカナの間にスペース入ってることが 2008 多いんですが
これは日本語化する際に英語の分かち書きの部分を引き摺ってるんでしょうか
なんか、ちょっと気持ち悪いよマイクロソフトちゃん

inurl:communicator/english

2009-10-20T15:15:00.000+09:00

古いブラウザが欲しくなりました
なるべくオフィシャルっぽいところから

IE はまぁ、グレーなのしか無さそうなのでパス

Firefox は直前のシリーズのものであれば
http://mozilla.jp/firefox/locales/older/
にもあるんだけど
ftp://archive.mozilla.org/pub/mozilla.org/firefox/releases/
を見れば沢山
0.8 までなのは、それより前は firefox でなくて firebird になるからで
http://archive.mozilla.org/pub/mozilla.org/firebird/releases/
こちら。更に前には phoenix になるので
http://archive.mozilla.org/pub/mozilla.org/phoenix/releases/
にいくとありました。

Opera は
http://arc.opera.com/pub/opera/
ver 3 からあるっぽいんだけど、french とか italian とか書いてある
5 から英語もあるみたい、十分かな

Mozilla は
http://www-archive.mozilla.org/releases/
こっから辿れます、古いのは下の方にリンクが

あと、Netscape Communicator が
http://ftp.nluug.nl/netscape/communicator/english/
にあったり親とか親の親とか見てくと
http://ftp.nluug.nl/netscape/
Netscape 6 以降もあったりしました
http://ja.wikipedia.org/wiki/Netscape_(Mozillaベース)
を見ると Netscape と Mozilla の対応が分かったり

で、ついでなんで
「https://ja.www.mozilla.com/ に飛ばされると SSL のエラーが!!」
ってのに??? ってなってまして
あ、何でエラーが出るかっていうと CN=*.mozilla.com の証明書が提示されて
何で??? かっつーと「SSL/TLS で Namebase のバーチャルホスト」によると
IE 以外は * は . も match すると書いてあったから
エラーが出るってことは * に . は match しなくなったみたい

で、幾つか試してみると Firefox 3.0.12 までならエラーが出ないみたい
3.0.13 と 3.5 で CN に NULL を入れられちゃうと困っちゃう脆弱性が直されてるので
その際に * の解釈も変わったんじゃないかと推察はするけどそれ以上は調べませんでした

段々楽しくなってきてインストール厨の気持ちも分かってきたんではないかと思います

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"

2009-10-19T02:42:00.000+09:00

みんなのホームが入ってるとこくらい別ドライブに分けておきたいでしょ?
って思うのはどうなんですかね、Windows のマナーとか良く分かってないんですけど
ちなみに Windows Server 2008 R2

最初は、「コンピュータの管理」のユーザーのとこの各ユーザーのとこ右クリックして
プロパティー見たら「プロファイル」ってタブがあるんでこれかなーと思ったら違うみたい
何か方々にユーザ向けフォルダができてしまって失敗
ちなみにデフォルトは %SystemDrive%\Users になってるんだけど
他のドライブにプロファイル設定してみたら両方にできちゃった
しかも同じタブの下の方にホームフォルダってのがあるんだけどこれが良く分からない
セキュリティーの為に使うんだみたいなこと書いてあったけどとりあえず放置

で、管理者権限で作業してみてたんだけどできちゃったフォルダが消せなくって
どうも所有者が違うので消せないらしく
しかも所有者変えるのにチェックボックスにチェック入れないと再帰的に変更してくれない
まぁそれは chown で -R しなかったってことなんで確かにそうなんだけど、ごめんなさい

さて、
ユーザー少ないからいいだろうと思ってたんだけど
これはシステムのデフォルトを変更した方が良さそうだということで
タイトルの registry の値を見付けました
こいつの下に並んでるフォルダみたいので名前が長いのが各ユーザーに対応してるらしく
中には各ユーザーのプロファイルのフォルダの名前などが書いてあるので誰のだか分かり
できちゃった人のを消しちゃってからそのユーザーで再ログオンすると初期化してもらえました

更に、
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList
の中にある ProfilesDirectory とやらがシステムのデフォルトらしいので
これを好みの場所に変更してあげたら再ログオンで初期化されるプロファイルフォルダが
指定した場所にできるようになりました

っつうか、他でいうホームディレクトリ・ホームフォルダをプロファイルフォルダって言うの?
場当たりだけで何とかしようとするともぉ限界
つか、もうすこしグーグル先生とマイクロソフトちゃんが仲良くなってくれないかしら

pulseaudio usb

2009-10-16T00:57:00.001+09:00

Skype の 2.0 を使ってたんですが
2.1 が出てて Debian Lenny 用の .deb も出てたので
わーい、と思って入れてみました

で、チャットの相手が入力中なのが分かるようになって
だから何だって気もしないんだけど「うんうん」と思っていたら
どうも USB の電話みたいなやつのマイクが効かなくなってました

困ったなと思って検索してみたところ pulseaudio を使うようなことが書いてあり
http://share.skype.com/sites/linux/2009/08/skype_for_linux_21_beta.html
http://share.skype.com/sites/linux/2009/09/some_explanations.html
この辺り読んでうんうん唸ってました

pulseaudio にしたらどうやらマイクが使えるようになってるようだったんですが
何か、何かおかしいなと思っていたらどうやら本体のマイクを使っていたようで
自分のパソコンの本体にマイクが付いていることすら良く把握してませんでした
何だかなぁ

で、pavucontrol ってコマンドがありまして、
Skype の通話を始めると (テスト通話で OK)
pavucontrol の Recording ってところに何か出てくるので
そっから使いたい device を選択すれば切り替え可能のようでした

ん〜、Skype の Option で設定したいなぁ、何か間違ってるのかなぁ

OOo uim

2009-10-13T22:37:00.000+09:00

.doc とか .xls とか見れれば良いかと思っていて
OOo を入れてはあったんですが
簡単に PDF 作れればなと思って編集を開始したら
日本語が打てないことに気付きました

検索してみたところ

export SAL_USE_VCLPLUGIN=gtk

的なことがされていれば OK のようでした
でも、shift+space で toggle だったんで uim-xim が効いてる??

まぁ、入力できたからいいや、と思い
ちょちょいと PDF を作ることができました
しかも暗号化まで

"ie for mac" サポート

2009-10-07T11:52:00.011+09:00

その昔、Microsoft は Mac 向けに IE を出していました
なんとまぁ
でも、ご存じの通り今は提供されていません
しかし提供されてしまっていたのでどの程度サポートされていたのか
気になるところなので調べてみました

Microsoft、『IE for Mac』のサポートと配布の停止時期を明らかに
2005/12/31 でサポートが終了して
2006/01/31 で配布も終了していたようです
って配布の方が後って何でよ

まだ 3 年しか経っていないんですね
Chrome の OS X 版も使い物になるようになってきてるようですが
3 年後はどんなブラウザ使ってますかねぇ

retweet bookmarklet

2009-10-05T17:33:00.011+09:00

twitter で特にクライアントを使っていません
web だけです
特に不便を感じていなかったのですが
RT を手でやるのもどうかなと思いました
bookmarklet があれば、と思って調べました

Maraigue風。:[Twitter] ReTweetするためのブックマークレット
ありました
でもなんか、少し挙動が怪しい?
twitter も日々変化しているので追従しないといけないんでしょうか
しばらく使ってみようと思いました

vim list 行末

2009-10-01T21:20:00.001+09:00

ほんとに要るの? と思いつつも何となく

set number
set list

ってしてたんですが
rxvt だと doubl click で選択するときに行末の $ も選択されちゃって
や、それは嫌だなと思い Vim の方の行末表示文字を変更しようと思いました

vim で行末のスペースを可視化
あぁ、listchars か、と思って help 見ました

        Examples: >
            :set lcs=tab:>-,trail:-
            :set lcs=tab:>-,eol:<
            :set lcs=extends:>,precedes:<

なるほど
何も考えてなかったけど < が良さそうだ
ということで設定してみました。

Vim も 7 だと行末の空白も listchars で何とかできるらしく
どんどん進歩するなぁ

"import subprocess"

2009-09-27T12:22:00.000+09:00

古い話ですが
Debian の OpenSSL のパッケージの patch にバグが混入してまして
Debian とその派生パッケージで擬似乱数生成の質がもの凄く悪くなってしまいました
OpenSSL パッケージの脆弱性とその影響について (SSH鍵、SSL証明書等）

で、秘密鍵の blacklist が作成されとりまして
openssl-blacklist という名前で package されてます

んで、
openssl-blacklist の中に openssl-vulnkey ってコマンド入ってまして
blacklist と証明書・秘密鍵・CSR を照合してくれるんですけど
これが Python で書かれてまして、つらつら眺めてました

popen2 とか知ってたんですけど、今は subprocess っての使うんですね
17.1 subprocess -- サブプロセス管理を読んだんですけど中々頭に入らなくて
シンプルな例でもないものかと検索してみました

PyMOTW: subprocess - O'Reilly ONLamp Blog
おぉ、わかりやすい
STDIN/STDOUT/STDERR の読み書きとシグナルの投げ受けが!
あんま複雑なことするなら shell script 書けよってことだと思うんで
これくらい使えたらあとは何とでもなりそう、かな?

"ieee802.11a" apple

2009-09-26T14:58:00.001+09:00

もぉ無線 LAN が無い環境なんてありえないと思ってるわけなので
何かトラブルがあって繋がらなくなっちゃうと凄いストレスなんですが
身近に電子レンジっていうトラブルメーカーがいるんですよね

屋外で使うことなんて滅多にないっていうか今まで使ったことないので
g じゃなくって a でいいんですけど
そういえば次世代な n ってのがあったな、ありゃどっちだ? と思ったら
n はどっちもあるんだって wikipedia が教えてくれました
そしたら、是非とも a のある方を選びたい

あーでもでも、昔は apple が a なんてナンセンスみたいなこと言ってたよな
米アップル、「802.11a」を見限る
と思ったけど今出てる製品で a もサポートしてるみたいでした
家で使うなら a っつーか 5GHz がいいなぁ
新しい AP ほしいなぁ

あーでも、それって、FON とか否定してることになるのかしら

vim 折り返し

2009-09-19T13:03:00.000+09:00

エディタで CSV ファイルをいじるときってありますよね
あります、ありますでも、折り返されちゃうと何だか良く分からなくなりますよねどうやったら折り返さなくなるのかなぁ

vimで長い行が折り返されない、折り返すのをやめる方法

:set nowrap

でした。
トグルを設定する、までもないかな。

OpenOffice.org 入れましょう。