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

ソーキそば定食
うちなぁ料理と古酒家 ニライカナイ (手打ち生麺 沖縄そば定食) 以来、半年弱ご無沙汰していましたが、そろそろ体内の沖縄そばも切れたので、ふと訪れてみました。メール会員だと請福飲み放題 ? 気になりま
VAIO Fit 13A (背面)
hp dv5 has broken again and again で 5 年 3 ヶ月程愛用してきた hp dv5 の 5 回目の故障を機に、新たにノート PC を購入することにしました。初めてノー
伊江島 (6)
沖縄本島 (No. 4 – 瀬底大橋) の続きです。出発して 15 分弱で肉眼でもはっきりと伊江島が迫ってくるのが分かります。普通に写真を撮っている様に見えるかもしれませんが、風がものすご
eco かまど (20)
長谷園 eco かまど (三合炊き – 白米一合) の続きです。さて、いよいよ玄米炊きを試します。まずは 長谷園 eco かまど (三合炊き – 白米二合) 同様二合で試してみ
Havana カレー (ビーフ, ライス大盛り, ルー大盛り, 辛さ 5 倍)
前日土曜日は 沖縄出張 (No. 7 ? 毛玉) で戯れた後数人で飲み会がありました。退職したスタッフとも再会してのそれは賑やかな会でした。しこたま飲んだ次の日曜日。いつも通り起きて散歩して半身浴して
黒島研究所 (2)
黒島 (No. 2 – 西表島・小浜島 〜 到着) の続きです。船を降りて外に周ると、黒島船客ターミナルと書かれていました。外に出る前にすでにレンタサイクルやお迎え等の島民が数名見えるのは
ESXi 5.1 Install - NG (PCPUs are in panic 1)
Adaptec RAID BIOS で Initialize Drives によりメタデータを消して RAID アレイの初期化をしたにも関わらず、データが残っている表示を出す不可解なインストール状況を
iPhone 6 + iPhone 6 Plus
ARROWS X F-10D を使い続けて 2 年。使い始めから電池の持ちが悪かったのですが、iPhone 6 Plus が発売開始となり、ついに機種変更に踏み切りました。Apple Store Gi
Dr. コトー診療所 (入口)
与那国島 (No. 6 – 久部良 ? 比川) の続きです。さて、診療所の正面に周ってようやくご対面です。ドラマで何度も見た光景。天気に恵まれて良かった♪ドラマでは海岸に打ち上げられていた
Valid HTML5 Valid CSS3 Another HTML Lint