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

radserv ZG1
現在 Drive Network で使用している主な機器の LAN Port と FreeBSD デバイス名の紐付けを整理しました。各機器共通事項として、em0 : ケーブル 白em1 : ケーブル
日替そば (ニラカナそば + 定食)
うちなぁ料理と古酒家 ニライカナイ (ソーキそば定食) でメニューが多少変わっていたので、日を空けずに訪れました。実は 1 週間程前にも訪れましたが、その際はおかわり無料のじゅうしぃが切れて白ご飯だけ
radserv ZG1
dmidecode をインストールした機器では、BIOS 内のハードウェア情報を OS から参照が可能になります。現在 FreeBSD 7.1-RELEASE i386 で提供している機器を 9.1-
ARROWS X F-10D
スマートフォンを使い始めて 2 年弱ですが、HTC Desire SoftBank X06HTII を使っていました。スマートフォンとしてはやや古めですが、入力が少ししにくい (指が大きい ?) 以外
VBoxManage list hdds
自宅や出張時に使用しているノート PC (hp dv5 has broken again) はホスト OS を Windows 7, ゲスト OS に FreeBSD をインストールしています。今回
マルちゃん きしもと食堂 きしもとそば (1)
1 月末に facebook 沖縄ユーザーグループ で、きしもと食堂のきしもとそばをイメージしたカップ麺が限定発売されたと多数投稿されて来ました。きしもと食堂は 2 年前に 沖縄出張 (No. 17
唐揚げはて
与那国島 (No. 13 – 雑貨さくら) の続きです。1 日目と違い大人しい観光コースで終わりましたが、夕方ともなれば居酒屋タイムです。今晩は、昨日 居処屋どぅーらい と迷って 2 日目
Lavender
緑内障 (No. 3) の続きです。ふたたび (ほぼ) 点眼なしで臨んでみた前回 12/07 の時には 3 ヶ月後に来てくださいと言われていたので、先日 03/08 に訪れました。前回は処方はなしでし
本革パスケース
ある日 与那国島 雑貨さくらのブログ を読んでいると、手縫いの与那国花織の本革名刺入れを限定 8 個で公開していました。(都会でピッ・・・)名刺入れとして使えるし、Suica や PASMO で出入り
青のヱビス (2)
通年販売されたためにケース買いした ザ・プレミアム・モルツ <香るプレミアム> (Part 2) がそろそろなくなりかけたため、近所のスーパーで買い足そうと訪れた際、YEBISU ヱビスビ
Valid HTML5 Valid CSS3 Another HTML Lint