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

hamburger with fries
1990 – 1992 年の 2 年程マクドナルドでアルバイトをしていました。途中からアルバイトでマネージャ (スイングマネージャ) にもなりましたが、この頃はまだバブルが弾けた直後で、今
一番搾り FROZEN GARDEN
一番搾り フローズン <生> の続きです。8/13 – 8/17 はお盆期間ということで、12:00 – 22:00 での営業時間とのこと。8/14 はお盆期間だか
ザ・プレミアム・モルツ
最近電車の宙吊り広告で気になっていた ザ・プレミアム・モルツ <コクのブレンド> を試してみました。ザ・プレミアム・モルツと、最近すでに見掛けなくなったザ・プレミアム・モルツ <黒&
Labeling Completed
サーバをラッキングした後、電源ケーブル, LAN ケーブルを配線した後に、L2 スイッチにはたくさんの LAN ケーブルが集合するため、一目見てどのサーバからのケーブルかが特定出来るためにラべリングし
あっちゃんの塩 80g
先日お友達から あっちゃんの塩 をいただきました。おそらく 沖縄本島 (No. 30 ? ハンバーグとパンケーキのお店 うるり) でも口にしたはずですが、塩そのものより他のメニューや素材の美味しさに目
白味噌ラーメン
普段生活している東京では 1 日 30 分程早朝に散歩をしています。"散歩" と言うと妙に笑われることもありますが、ウォーキングと言えばウォーキングです。沖縄出張は大概 2 週間の
つけそば 並盛 + ちゃーしゅーごはん
景色 (しょうぶ沼公園) を久しぶりに散策した後は、北綾瀬駅そばの わた井 を訪れました。足立区のみでなく、東京全体でも高評価に入る口コミに興味を引かれ、何度か訪れたことがあります。メニューは至ってシ
ロマンスロード (3)
久高島 (No. 2 – カベール岬) の続きです。カベール岬から南下すると、小さな看板が見えて来ました。"ロマンスロード" の下に書いてある Romansu Road
猫喫茶 毛玉
沖縄にも増え続ける猫カフェで、飼い猫も同伴出来る 毛玉 に着きました。来店は 2 回目です。コーヒーゼリーがお勧めと K 君から聞きましたが、本日は売り切れとのこと。プリンにしてみましたが、これ、美味
Valid HTML5 Valid CSS3 Another HTML Lint