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

radserv X
radserv X (FreeBSD 9.1-RELEASE, DVD Install, Part 1) の続きです。BIOS 設定は初期化したままで進めないか、改めて試してみました。mountroo
v
ここ数年は週末に自宅で 350ml または 500ml 缶を 2 缶前後空けるクセがついています。ビールは ザ・プレミアム・モルツ が一番のお気に入りですが、以前から本体にシールが貼られていました。あ
ホットスナック, 枝豆, からっキュウ
私の自宅付近には徒歩 5 分圏内にセブンイレブンが 5 つもあります。ドミナント方式という呼び名もあり、単に集中してしまった訳ではなく意図しているそうです。出店の考え方 | セブン-イレブン?近くて便
魯肉飯 (ランチセット, 大盛り)
一茶一会 (印度チキンカレー) から日を空けずして再び訪れました。気になっていた魯肉飯 (豚の角煮) にチャレンジしてみたかったからです。前回訪れた週末の看板には、印度チキンカレーの横に "
株式会社エーティーワークス 富山本社
Drive Network ではすでに以下の記事でもご紹介している通り、株式会社エーティーワークス の radserv シリーズを大量投入しています。2012/04/19 Drive Network
My Select (2013/05/31)
沖縄出張 (No. 21 ? てぃーだ社員食堂 Part 1) の続きです。05/20 から 2 週間の沖縄出張で、ランチ時に社食をいただいたのは 4 回でした。Part 1 に引き続いて残り 3 回
Fruit Salad
48 時間ファスティングダイエット (No. 1) の続きです。2 日目 : 倦怠感・眠気は普通に戻る午前中を境に、前日のとにかくだるくて眠い感じはほぼなくなり、普段と変わらなくなりました。この日の酵
ESXi 5.1 Install - NG (PCPUs are in panic 1)
Adaptec RAID BIOS で Initialize Drives によりメタデータを消して RAID アレイの初期化をしたにも関わらず、データが残っている表示を出す不可解なインストール状況を
伊江島 (6)
沖縄本島 (No. 4 – 瀬底大橋) の続きです。出発して 15 分弱で肉眼でもはっきりと伊江島が迫ってくるのが分かります。普通に写真を撮っている様に見えるかもしれませんが、風がものすご
HHKB Lite2
普段デスクトップ PC を使用していますが、キーボードは 10 年近く同じものを使用しています。かなり前の購入ということもあって PS/2 モデル ですし大分色が変わっていますが、未だ現役です。IT
Valid HTML5 Valid CSS3 Another HTML Lint