質問掲示板

CGIなどのの質問を受付ます。
現在SPAM対策の為、一部ホストアドレスを規制中。

新規発言一覧最新記事過去一覧 | 検索HOME

スレッド

└◇74:
crypt暗号化・・・・ [とむ] 11/13 10:36

 └◇75:Re:crypt暗号化・・・・ [moon] 11/14
  └◇76:Re[2]:crypt暗号化・・・・ [とむ] 11/14
   └◇77:Re[3]:crypt暗号化・・・・ [moon] 11/15
    └◇78:Re[4]:crypt暗号化・・・・ [とむ] 11/18 <


74● crypt暗号化・・・・[ とむ ] 2002 11/13 10:36
うーっす、OFF会いつやるの?
まあ、連絡ください。万難排除してでもいくので。

で、質問。
BBSの削除・変更用パスにCrypt暗号使ったのはいいけど、
複合化できないの知ってるから、入力パスワードをCrypt
かけて暗号化したら、消せなくなったんですが。

ちなみにソースはこんな感じ

$pass_check = crypt($date,$in{'passwd'});

if ($pass_check eq $array[$#array]){
# -- ここで処理
$flag = 1;
}

<変数>
$array[$#array] : ログにかかれているパスワード
$in{'passwd'} : 入力されたパスワード
$pass_check : 上のパスワードのCrypt後

どして?
スレッド一覧


75● Re:crypt暗号化・・・・[ moon ] 2002 11/14 09:09
> $pass_check = crypt($date,$in{'passwd'});
>
> if ($pass_check eq $array[$#array]){
> # -- ここで処理
> $flag = 1;
> }
>
> <変数>
> $array[$#array] : ログにかかれているパスワード
> $in{'passwd'} : 入力されたパスワード
> $pass_check : 上のパスワードのCrypt後

cryptって、上の2バイト使ってやらなダメなんでしょ?
使ってへんからやん?
スレッド一覧


76● Re[2]:crypt暗号化・・・・[ とむ ] 2002 11/14 10:43
おおう、上部2byteは日付によって変更しております。
その2byteを格納した変数が$dateですよぉ
スレッド一覧


77● Re[3]:crypt暗号化・・・・[ moon ] 2002 11/15 09:48
if ($F{'pass'} =~ /^\$1\$/) { $salt = 3; } else { $salt = 0; }

if (crypt($F{'pass2'}, substr($F{'pass'},$salt,2)) eq $F{'pass'}) {
    $message = "パスワードは「$F{'pass2'}」であってます";
}
if (!$message) { $message = "パスワードがちがうよ"; }

とか、

if (crypt($_, substr($F{'pass'},$salt,2)) eq $F{'pass'}) {
    $message = "パスワードは「$_」です";
}

とかの感じ。
MD5だと頭が$1$とかになるよねぇ。。
スレッド一覧


78● Re[4]:crypt暗号化・・・・[ とむ ] 2002 11/18 13:41
おおう、そやった。MD5つうこと忘れてたわ。
そのコードでやったらうまくいったでぇ!

しかし、難儀やなぁ。もっと簡単だった覚えがあるんやけどな。
あとはこれを、PRELから、PHP化するだけや。
おいちゃんがんばりますわ。

ほな!ありがとさん。
スレッド一覧

CGIROOM