vmwareのページにあるmd5値が見にくくてしょうがないので、めんどうだから自動化してしまった。perlでやったほうが早く作れそうだったけど、ruby脳作成中なのでrubyで。

ダウンロードページのHTMLを標準入力から読んでもげってる。fetchメソッドはrubyのリファレンスマニュアルにあったやつのコピペ。

#/usr/bin/ruby
require 'hpricot'
require 'kconv'
require 'digest/md5'
require 'uri'
require 'net/http'

Net::HTTP.version_1_2

def fetch( uri_str, limit = 10 )
  raise ArgumentError, 'http redirect too deep' if limit == 0

  response = Net::HTTP.get_response(URI.parse(uri_str))
  case response
  when Net::HTTPSuccess     then response
  when Net::HTTPRedirection then fetch(response['location'], limit - 1)
  else
    response.error!
  end
end

doc = Hpricot(STDIN.read.toutf8)
list = (doc/"td span a")

list.each do |l|
  url = l[:href]
  filename = File.basename l[:href]
  md5 = l.next_node.next_node.next_node.to_s.sub(/^.md5sum: (.*).$/, '\1');

  res = fetch(url)
  open(filename, "wb") do |f|
    f.write res.body
  end

  real_md5 = Digest::MD5.hexdigest(File.open(filename).read)

  puts filename
  printf("md5 : %s\n", md5)
  printf("real: %s\n", real_md5)

  if (md5 == real_md5)
    puts 'valid!'
  else
    puts 'invalid!'
  end
end

つぎのバージョンアップ時も使えるといいな……。

(@465)

この前書いた記事 にたくさん はてブでコメント を頂いた。ありがとうございます >みなさん

しかし、コメントを読んでると、あまりにも簡単に納得されてしまってる方もいらっしゃるようなので、書いた本人としてはいささか恐怖を覚える。前回の記事は大人たちから向けられる「やりたいことを見つける」とか「個性が大切」だとかいう変な価値観に、子供たちが惑わされてる事へのアンチテーゼとも言うべきものだ。別に夢を持った人生を否定する気は無いし、いつまでも夢見てたって構わないと思う。というか、そもそも俺がそういう人間だ。

そういう面を若干補完するために、今回は別の視点で書いてみようと思う。

＠ 「やりたいこと」はなんでもいい:

＠ 「個性」はあなたの歩いたあとにできる:

TOTOROの自堕落 と うどんとこ でハッケソ。

いよいよ本格化してきたかな、国内向けフィッシングも。2週ほど前から、ヤングサンデーの「クロサギ」っていう詐欺漫画でもフィッシング編が始まってる。

フィッシングやるような奴は、たいていあちこちのサーバやらパソコンやらを狙って、rootとかpostfixとかjordanとかmichaelとかそういうユーザー名で辞書アタック、あるいはIDと同じパスワードでsshとかでログインしようとしてる模様。で、そこからフィッシングメールを発信するわけね。

そういうわけで、各サーバ管理者さまも詐欺の片棒担がされないよう、気をつけましょう。

(@922)

イラクのファルージャ情勢はそうとうひどいと聞いてたが、まあホントにひどいもんだ。米軍による虐殺とまで言われてるが、この虐殺を招いたのはいったい誰なのだろうか。

若い海兵隊員が、戦闘年齢の男性は立ち去ることを禁ずると述べた。戦闘年齢？　一体いくつのことか知りたかった。海兵隊員は、少し考えたあと、45歳より下は全員、と言った。下限はなかった。

とくにこの文から、米軍には戦闘員と非戦闘員の区別がつかなくなってる事がうかがい知れる。非戦闘員のふりをして近付く戦闘員がかなりいたことを推測するに充分なエピソードではないだろうか。表題の文章は反米を訴えているようだが、米軍も人の子である。自分の命がかわいいのは当然であろう。幕末の日本の武士たちが、粗末な槍や鉄砲で蒸気機関の戦艦に対抗しようとしたエピソードは笑い話として語られることが多いが、少なくとも卑怯な振る舞いでは無かった事を誇りに思いたい。

もちろんイラク戦争は下策中の下策だったとは思うが、間違いだったとは思わない。大量破壊兵器が本当に無いのなら、フセイン政権がおとなしく査察を受け入れてればよかった話だ。これは湾岸戦争の事後処理なのである。

しかし、人道的に、戦闘員と非戦闘員の区別が付かず、本来攻撃してはいけないはずの宗教施設まで爆撃しなければならない事態に陥った時点で、ここは一時的にでも撤退すべきではなかろうか。親米政権を作ることはもはや諦めたほうがよろしかろう。大量破壊兵器を持たない国であってくれれば、それでよしとすべきだ。あとは国連に一任し、アメリカは口をつぐめばよい。日本もアメリカの依頼とは無関係に、イラク復興のためにできることをやっていこう。日本にとってもアメリカは軍事的盾であり、米軍が存在するから憲法第九条も成り立っているのである。あんまりアメリカの人気と国力が弱まっては、日本も危ういのだ。

反米を掲げるつもりは無い。だがここは引いてくれと切に願う。イラク人は真面目な人々だと聞いている。米軍がいなくなったからといって、非人道的な暴挙に出るような恥知らずではないはずだ。交渉相手としてやっかいすぎたフセインはもういないのだ。再び武力ではなく交渉力で平和を勝ち取るチャンスなのである。

(@201)

with-output-temp-bufferという関数が無くて、muleではirchat-pjのDCCが動かない模様。俺のへたくそなDCC通すhackも入ってるので純正でも同様かはわからないが、この関数どうにか作れないのかなあ。

(@614)

＠ ふむ:

＠ 思考メモ:

	;; 'Setting -> 'Waiting
;	(let ((host (matching-substring output 1))
;	      (port (matching-substring output 2))
;	      (size (matching-substring output 3)))
	(let ((host (shell-command-to-string
	       (concat "ipaddr2int " (shell-quote-argument dccaddr))))
	      (port dccport)
	      (size (matching-substring output 3)))

＠ 思考メモ2:

error in process filter: Symbol's function definition is void: with-output-to-string [2 times]

＠ 思考メモ3:

＠ 動いた!!:

って、気づくに決まってるでしょうが、みずくさい(笑)
チャットにも遊びに来いよ〜
(@326)

＠ 間違ってこっちに: