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

花人逢 (瀬底島)
沖縄出張 (No. 30 – 花人逢) の続きです。07/14 (日) に訪れたばかりでしたが久々な好天気と景色にピザを味わい、どうしてももう一度行きたくなり、1 週間後に別のメンバーと訪
radserv ZG1
dmidecode をインストールした機器では、BIOS 内のハードウェア情報を OS から参照が可能になります。現在 FreeBSD 7.1-RELEASE i386 で提供している機器を 9.1-
古宇利大橋 (1)
沖縄出張 (No. 31 – 備瀬フク木並木通り) を後にして本部循環線に戻り、古宇利島を目指しました。私の記憶では、古宇利島へのルートは名護から奥武島 -> 屋我地島を抜けて古宇利
タコス (2)
沖縄本島 (No. 43 – ステーキハウス四季) の続きです。到着初日のランチは、元々初体験 2 連続のハシゴランチを計画していました。2 店目は、ここも以前から気になっていたタコス専門
ハートロック (1)
沖縄本島 (No. 30 – ハンバーグとパンケーキのお店 うるり) の続きです。今回 "うるり" と同じくらい外せないポイントとして、古宇利島のハートロックを挙げてい
辛つけ麺 (大盛 500g)
東京オフィスから神保町方面に 4, 5 分靖国通り沿いを歩くと、つけ麺さとう があります。ランチ時に限りませんが、入口手前の慣れないと見落とすところにトッピング無料券があります。味玉温野菜ネギ中に入っ
ねぎだこ
北千住マルイ は、他のマルイ (丸井) であればアクセサリーや婦人物の品物が揃う 1F にフードコートや食品系の店舗が並ぶ珍しい店舗です。7F に東急ハンズがあるため、たまに訪れた後に 1F で軽く食
マグロづけ丼 (1)
いさば (サーモン西京焼) から 1 ヶ月弱開きましたが、興味があったマグロづけ丼を試すべく訪れました。今日の日替りランチはさわらの西京焼。うーん、うーん。と少し考えましたが、西京焼自体は前回サーモン
玉友 甕仕込 13 年古酒 (2)
沖縄本島 (No. 6 – 打ち上げ) でお世話になったメンバー宅で、前日に誕生日プレゼントをいただいていました。この後には別のメンバーから 松藤 限定古酒 43 度 もプレゼントしていた
eco かまど (14)
長谷園 eco かまど (目止め) の続きです。目止めが終わった後に待ち望んでいた白米を炊くべく、すでに研いで浸水は済ませていました。まずは二合で試してみます。説明書きの手順は以下の通りです。360m
Valid HTML5 Valid CSS3 Another HTML Lint