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

雑貨さくら (5)
与那国島 (No. 13 – 雑貨さくら) が 2013/08/24 – 2013/08/28 の期間限定で東京に出店すると知り、楽しみにしていました。始めの方はきっと混雑もす
牛カルビ丼 大盛 (1)
吉野家 (ロース豚丼 十勝仕立て) で数回豚丼を試しつつも、同じくらいに気になる 牛カルビ丼 もコツコツ試しました。最寄駅そばの吉野家はあまり見かけない先会計タイプで、会計・商品受け渡し・下げ台が 1
2013/01/14 11:36 品川
通常沖縄出張の際は、沖縄の Drive Network のスタッフとは普段顔を合わせることが少ないため、顔を合わせた時ならではにミーティングや意識合わせを頻繁に行います。今回の出張は当初予定していませ
ARROWS X F-10D
ARROWS X F-10D (No. 1) の続きです。上下のカーソルキーはどこ ?HTC Desire SoftBank X06HTII と ARROWS X F-10D のまず大きな違いの 1
ソフトクリーム 石垣の塩
私用で月に 2, 3 回は必ず訪れている銀座には、一丁目に 銀座わしたショップ があり、店内に入ると突然那覇空港か国際通りのショップ内にワープした様な気分になれます。正面入口から見れば 1F の奥には
雑貨さくら (1)
与那国島 (No. 12 – 東崎 ? 祖納港) の続きです。数年前に西表島を訪れたことがあります。帰った後に やえやまブログ があることを思い出し、石垣島・西表島・与那国島から 2 つず
つけ麺 中盛 (330g)
先日自宅からデータセンターに向かう途中、JR 御茶ノ水駅から丸ノ内線御茶ノ水駅に乗り継いだところ、丸ノ内線が停電事故により振替輸送を実施とアナウンスが聞こえて来ました。振替輸送された方が遠回りになるど
まるよしらーめん (大盛り)
以前からラーメン好きな K 君が "今まででベスト" の勢いで褒めている らーめん まるよし が気になっていました。よく見ると、沖縄支店からは那覇方面に遠出するより若干近い距離にあ
Healthy Smoothies
48 時間ファスティングダイエット (No. 2) の続きです。3 日目 : リバウンドを制す誘惑の波に溺れず、無事 48 時間断食が完了♪ 小さなことでも成し遂げると気分が上向きになりますね。断食完
2013/01/14 12:13 羽田空港
沖縄出張 (No. 13 ? 欠航 Part 1) の続きです。保安検査場最近 ANA の保安検査場は C, D も拡張されたと記憶しています。A, B より明らかに空いているので、例え搭乗口が 50
Valid HTML5 Valid CSS3 Another HTML Lint