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

ESXi 5.1 ? Install or Updrade (F1 Details)
VMware ESXi 5.1 Install (ESXi Found – RAID アレイ初期化) の続きです。ハードディスク 1 本目 (#0) を初期化改めて Adaptec RAI
サイゼリア ランチメニュー (1)
都内では有名なカジュアルなイタリアンレストラン サイゼリヤ は、最低月に 1 度は土曜日に訪れているため、平日のランチにまで訪れることは今までありませんでした。が、先日ふとオフィスのそばにある神田小川
エビだけ天丼 (2)
My Select "日本一シリーズ" 第 2 弾です。"エビだけ天丼" というメニュー自体、あまり聞きませんが沖縄出張の際の楽しみの 1 つになりつつあります
Lavender
緑内障 (No. 2) の続きです。点眼なしで臨んでみた前回 09/07 の時には 3 ヶ月後に来てくださいと言われていたので、先日 12/07 に訪れました。本来 1 日 1 回点眼するべき様ですが
Office Desk
久しぶりに靴ひものある革靴を買いました。試し履きした時は、今まで買ったことのある革靴の靴ひもと何か少し違うなと感じた程度でしたが、履いた時のフィット感と軽さとツヤですぐ決めました。購入後の初日にいざ靴
串焼き処 日比谷 鳥こまち (1)
先週の今日は、1 年ぶりに花の 46 年組 (笑) の 1 人と飲み会でした。沖縄出身ですが現在はタイで奮闘しているスタッフが久しぶりに国内での仕事の後に、東京オフィスからも近い有楽町に立ち寄ってくれ
まるよしらーめん (大盛り)
以前からラーメン好きな K 君が "今まででベスト" の勢いで褒めている らーめん まるよし が気になっていました。よく見ると、沖縄支店からは那覇方面に遠出するより若干近い距離にあ
Rack Sample 0
radserv ファームウェア別書き込みテスト の後、BIOS のバージョンアップに少々手こずりました。最近は DOS 起動 CD (ブータブル CD) より USB メモリを用いた方法がメジャーの様
味噌ラーメン (1)
少し前に沖縄つながりの友達から ラーメンさんぱち を教わりました。札幌が発祥で沖縄には石垣を含めて 7 店舗もありますが、都内どころか関東近県では お茶の水店 しかありません。運良くオフィスからは歩い
Drive Network Philosophy
現在の Drive Network のスタイルに リニューアル 後、SSL 証明書の提供の改善を手掛けました。提供の改善とは、Drive Network でのサービス提供の姿勢ではなく、それまでレンタ
Valid HTML5 Valid CSS3 Another HTML Lint