【やったぜ】キタ━━━(゚∀゚)━━━!!【駄コテ団】 (673レス)
【やったぜ】キタ━━━(゚∀゚)━━━!!【駄コテ団】 http://jbbs.shitaraba.net/bbs/read.cgi/game/6774/1056472244/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
671: ていうかよくわからん [sage] 749 ◆TWARamEjuA sage New! 2009/06/20(土) 23:43:05 ID:5ujo8Aec0 BE:?-BRZ(10072) ぅぃ♪ Boo2008実装型 sub Make_Trip{ # 仕様変更? @2009/06/17 my $key = shift; my $salt; ($key) = $key =~ /^#(.+)/; =comment 【堅牢】トリップの新方式を考えてみませんか【互換性】 http://qb5.2ch.net/test/read.cgi/operate/1244993904/309 309 名前: ◆cZfSunOs.U 投稿日:2009/06/19(金) 11:46:10 ID:MLNb4KfK0 生キー指定以外の12桁以上「##〜」形式も将来の拡張用にしておきましょう. で,まとめ: ・ 従来はトリップキーも含め <> や NG ワード等の置換処理が行われていたが,それをスルーするようにした. ・ キーの長さが 1024 桁を超えるとエラー. =cut # 12文字以上ある時に新式採用 if (length $key >= 12) { my $mark = substr($key, 0, 1); if ($mark eq '#' or $mark eq '$') { # 塩付きkey if (($key, $salt) = $key =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|){ $key = substr(crypt(pack('H*', $key), "$salt.."), -10); } # 将来の拡張用 else { $key = '???'; } } # そのままkey else { $key = substr(sha1_base64($key), 0, 12); $key =~ tr/+/./; } } else { # 従来形式 $salt = substr($key, , 1) . "H"; $salt =~ tr|�x3A-�x40�x5B-�x60�x00-�x2D�x7B-�xFF|A-Ga-f.|; # 仕様変更 @2003/11/15 $key = substr crypt($key, $salt), -10; } return "◆$key"; } http://jbbs.shitaraba.net/bbs/read.cgi/game/6774/1056472244/671
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 2 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.172s*