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

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

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

perl mkhash.pl raw_password

MT/Author.pm set_password() を参考に必要な個所のみ切り出しています。添付したスクリプトでは、標準で採用されている暗号化方式を参考にしました。

use lib で指定するパス以外は パスワード暗号化 (Movable Type 6.1) と同一の内容です。

#!/usr/bin/perl -w

use strict;
use lib qw ( /home/tools/appli/mt.61/lib /home/tools/appli/mt.61/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

伊古桟橋 (8)
黒島 (No. 4 – 黒島灯台) の続きです。黒島灯台からはややピッチを上げて 25 分程で入口に着きました。途中に郵便局や共同売店・カフェ等集落があり、ようやく人の気配を感じることが出
Dr. コトー診療所 (自転車)
与那国島 (No. 7 – Dr. コトー診療所 Part 1) の続きです。まずは事務室の中から。おぉ。。和田さんがカメラの手入れをしていそうです。そして病室。ドラマでは窓から外が映る際
川平湾 (3)
石垣島 (No. 6 – 明石食堂) の続きです。ランチで大満足した後は、ゆっくり川平湾に向かいました。寄り道しなければ明石食堂からは 40 分程の距離の様ですが、途中目についた海岸に降り
Becky Logo
Windows 環境ではメールソフトに Becky! を使用しています。普段は FreeBSD で作業していますが、場合によっては同じメールを Becky! 側で開く方が効率が良い場合があるからです。
青のヱビス (2)
通年販売されたためにケース買いした ザ・プレミアム・モルツ <香るプレミアム> (Part 2) がそろそろなくなりかけたため、近所のスーパーで買い足そうと訪れた際、YEBISU ヱビスビ
三鷹の森ジブリ美術館 (4)
三鷹の森ジブリ美術館 は 10 年程前に一度訪れていますが、今回連休中に再び訪れる機会がありました。まずは JR 三鷹駅まで電車の旅で、南口に降りるとコミュニティバスがあると聞いていました。てっきり無
エクストラコールド BAR (1 DRINK TIME)
エクストラコールド BAR には、出来た年に長蛇の列に並んで行きました。一番搾り FROZEN GARDEN で少し火がついたので、久しぶりに訪れてみました。普通の時間に行っても面白くないので、今回は
煮込み開始直前 (3)
ハッシュ・ド・ビーフの作り方 (No. 3) の続きです。煮込み最後はローリエを 2, 3 枚入れてよくかき混ぜ、2, 3 時間煮込む。適当にかき回せつつ。です。すべての材料を寸胴に移した状態で、ほぼ
新開発 ! 超クリーミー泡サーバー (18)
新開発 ! 超クリーミー泡サーバー (Part 2) で、ともあれ 20 点分 (応募台紙 1 枚分) はあたりました。そして発送先の登録完了後、1 ヶ月弱程で郵便物が届きましたが、20 点分が郵送さ
おろしそ餃子 並盛定食
天鴻餃子房 (海老にら餃子) から 1 ヶ月経ちました。改めて見ると、中々有名な様です。この日は、気になっていた "おろしそ餃子" を試してみることにしました。ずっと "
Valid HTML5 Valid CSS3 Another HTML Lint