楽天モバイル[UNLIMITが今なら1円] ECナビでポインと Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！

無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料０円【あしたでんき】 海外旅行保険が無料！ 海外ホテル

告知欄です

メモ４

299 ：名無しさん＠停滞中 ★：09/06/26 20:32:12 ID:???

新型トリップについてなんですが
http://qb5.2ch.net/test/read.cgi/operate/1244993904/309
をコピペして見てみると

---------------------------------------------------
if (length $handle_pass >= 12)
{
my $mark = substr($handle_pass, 0, 1);
if ($mark eq '#' || $mark eq '$')
{
if ($handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|)
{
$GB->{TRIPSTRING} = substr(crypt(pack('H*', $1), "$2.."), -10);
}
else
{
# 将来の拡張用
$GB->{TRIPSTRING} = '???';
}
}
else
{
use Digest::SHA1 qw(sha1_base64);
$GB->{TRIPSTRING} = substr(sha1_base64($handle_pass), 0, 12);
$GB->{TRIPSTRING} =~ tr/+/./;
}
}
else
{
# 従来形式
}

・ 従来はトリップキーも含め <> や NG ワード等の置換処理が行われていたが，それをスルーするようにした．
・ キーの長さが 1024 桁を超えるとエラー．
---------------------------------------------------

苦手なperlでよくわかんないんですが

use Digest::SHA1 qw(sha1_base64;

と宣言してからsha1_base64で変換してるみたいで。


JavaScriptでsha1を計算するものを調べたら一応あったです

sha1.js　mitsunari@cybozu labs
http://labs.cybozu.co.jp/blog/mitsunari/2007/07/sha1_1.html


あとJavascriptでBase64エンコードも

http://user1.matsumoto.ne.jp/~goma/js/base64.html
http://www.onicos.com/staff/iz/amuse/javascript/expert/
http://www.onicos.com/staff/iz/amuse/javascript/expert/base64.html


最初のperlコードを理解してからsha1/base64それぞれのjsを応用して組み込めば
http://www.geocities.jp/mirrorhenkan/others/trip/trip.html
の更新も　
ひょっとしたｒら出来るかもですね（そんな余裕も時間もないですが）