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

FreeBSD Logo
Disable SSLv3 (bsdftpd-ssl) に続いて、POODLE (Padding Oracle On Downgraded Legacy Encryption) と呼ばれる攻撃方法を回
Rack Sample 0
Drive Network で運用しているメールサーバ群を紹介します。メールアドレス数が数万規模では一般的な構成と推定しています。概要程度の説明しか記載出来ませんし、テキストアート ? ですがご勘弁く
サバ (2)
久しぶりの My Select “日本一シリーズ” 第 5 弾です。一時期神田錦町のオフィスではなく、銀座にサテライトオフィスを設けてそちらに勤務していたことがありました。銀座
2014 イチハナリアートプロジェクト (2)
沖縄本島 (No. 32 – アラハビーチ 〜 海中道路) の続きです。今回の沖縄入り前に、すでに 2014 イチハナリアートプロジェクト を訪れた人の記事や投稿を、来年タイミングが合えば
Rack Sample 0
ここ数年、"理想のファイルシステムとは何か" というテーマで考え続けています。機器単体では RAID (Redundant Arrays of Independent Disks)
真壁ちなー (4)
2012/11 の末にプライベートで沖縄を訪れた際、久しぶりに南部でゆったりした時間を取ることが出来たので、茶処 真壁ちなー を訪れたことがあります。南部ではかなり有名なお食事処の様です。糸満に近付く
タコス (2)
沖縄本島 (No. 43 – ステーキハウス四季) の続きです。到着初日のランチは、元々初体験 2 連続のハシゴランチを計画していました。2 店目は、ここも以前から気になっていたタコス専門
フェリーくだか (3)
沖縄入り 3 日目は久高島を訪れることに決めていました。前回同様、安座真港 11:30 発高速船ニューくだか (久高島行き 時刻表・運賃表) で訪れ、久高港 15:00 発で帰る予定でした。ところが、
Drive Network Philosophy
Drive Network "こだわり" シリーズ第 5 弾は、"1 クリックインストール" です。これは、Movable Type, WordPress, E
FreeBSD Logo
現在 Drive Network で提供している 共有サーバ ビジネスセレクト では、お客様のデータ領域を自由に拡張出来る様、ストレージ機器をマウントしています。本日もメンテナンスを行いましたが、その
Valid HTML5 Valid CSS3 Another HTML Lint