Home » Program » パスワード暗号化 (Movable Type 6.0) (Tag: )

Movable Type 6.0 (mt_author テーブル author_password カラム) で使用する暗号化されたパスワードを作成するため、ソースファイルを参考にスクリプト化しました。

ソースファイルを展開したディレクトリを /home/tools/appli/mt.60/ とし、文末に添付したスクリプトを mkhash.pl として保存した場合、引数に文字列を指定することで、管理画面での操作と同様に暗号化されたパスワードが出力されます。

perl mkhash.pl raw_password

MT/Author.pm set_password() を参考に必要な個所のみ切り出しています。Movable Type 5.0 では Perl 標準の crypt() で処理出来ましたが、MT/Auth/MT.pm is_valid_password() を参照する限り、3 タイプの暗号化方式に対応しています。

添付したスクリプトでは、標準で採用されている方式を参考にしました。

#!/usr/bin/perl -w

use strict;
use lib qw ( /home/tools/appli/mt.60/lib /home/tools/appli/mt.60/extlib );

use MT::Util;

    my $pass  = $ARGV[0];
    my @alpha = ( 'a' .. 'z', 'A' .. 'Z', 0 .. 9 );
    my $salt  = join '', map $alpha[ rand @alpha ], 1 .. 16;

    print '{SHA}' . $salt . '$' . MT::Util::perl_sha1_digest_hex($salt . $pass);

Random Select

稲毛海浜公園プール (2)
千葉県稲毛市と千葉県船橋市にそれぞれ 15 年程住んでいました。稲毛市の方は小学校 1 年からの住まいなので、夏になると 稲毛海浜公園プール に行くことがひとつの楽しみでした。スイミングスクールにも通
与那国産カジキ 300g (1 日目)
ここ最近、休日のビールのお供にお刺身をチョイスすることが多々あります。夏季限定醸造生ビール 夏いちばんアサヒオリオン 沖縄だよりザ・プレミアム・モルツ <香るプレミアム> (Part 2)
飲み比べ ビアぐらすセット
年末年始の休暇に、ようやく先日いただいた贈り物をゆっくり試すことが出来ました。ビール好きと知っての心遣いだと思いますが、想い起こせば 20 代前半はビールはほぼ飲みませんでした。ダイニングバーでカクテ
FreeBSD Logo
現在 Drive Network で提供している 共有サーバ ビジネスセレクト では、お客様のデータ領域を自由に拡張出来る様、ストレージ機器をマウントしています。本日もメンテナンスを行いましたが、その
クリスマスツリー 2012
銀座・有楽町は最低でも 1 ヶ月に 2, 3 回は訪れるスポットです。クリスマス付近になると恒例の 「ミキモト ジャンボクリスマスツリー」点灯中です。カメラも解像度もまちまちなので統一感がありませんが
ビーフ + 野菜カレー (ルー大盛り, 辛さ 70 倍)
カリーライス専門店 エチオピア 本店 (No. 13 – 辛さ 70 倍メドレー 1) を投稿した時は、まさか全メニューを辛さ 70 倍で横断するとは思っていませんでしたが、我ながら凝り性
青菜魯肉 (1)
20 – 35 歳まで千葉県船橋市に住んでいましたが、今でも日本一美味しいと感じているのが "慶龍" の青菜魯肉 (豚の角煮)?です。普通盛りは茶碗のほぼすり切りですが
雑貨さくら (5)
与那国島 (No. 13 – 雑貨さくら) が 2013/08/24 – 2013/08/28 の期間限定で東京に出店すると知り、楽しみにしていました。始めの方はきっと混雑もす
FreeBSD Logo
FreeBSD kernel compile に続いて /etc/sysctl.conf のチューニングサンプルです。ここでは、radserv 向けにチューニングし、動作実績のある設定ファイルを紹介し
Firefox Logo
linux-firefox 13 以降、17 までは問題なくアップデート出来ていました。ところが、18 からは以下の様なエラーメッセージとともに起動しなくなりました。XPCOMGlueLoad err
Valid HTML5 Valid CSS3 Another HTML Lint