05/02/07 16:58:35 jdvCtUQE0
●shirahime系専用メルアドの符号化について
どんなメルアドも登録できるよ！
●メルアドの符号化の例
abcd@mail.efgh.co.jp ●元のメルアド
↓ 文字列を逆順にする
pj.oc.hgfe.liam@dcba
↓ BASE64符号化
cGoub2MuaGdmZS5saWFtQGRjYmE=
↓ =を消す
cGoub2MuaGdmZS5saWFtQGRjYmE
↓ 文字列を逆順にする
EmYjRGQtFWas5SZmdGauM2buoGc
↓ 変換表のルールで文字を置換する
KuER,NZal25-MA4u8N5BVi6BwN7 ●符号化の結果
●例
URLﾘﾝｸ(www.directs.ws)
URLﾘﾝｸ(www.directs.ws)
●変換表(上の文字を真下の文字に置換する)
前 ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/
後 GHIJKlNoQrTUVWXYZ,A0bC2dE456789LmOpRstuvwxyz-aB1cD3eghijkMnPqSf_
403:備えあれば憂い名無し
05/02/07 17:05:51 jdvCtUQE0
●shirahime系専用メールアドレス符号化(Perl)
www.directs.ws/toon/
www.directs.ws/orange/
just-feed.net/shirahime/ = msst.us/shirahime/
# /の置換先は確率が低すぎて不明だがほぼ100%問題ない。
# 小文字のメルアドでだめなら適当に一部を大文字に替えてみるといい。
use MIME::Base64;
$s = 'メールアドレス'; # ●符号化する前のメールアドレス
$s = reverse($s); # 文字列の逆転
$s = encode_base64($s); $s =~ s/[\r\n]//g; # BASE64符号化
$s =~ s/=+$//; # =を消す
$s = reverse($s); # 文字列の逆転
$s =~ tr
{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/}
{GHIJKlNoQrTUVWXYZ,A0bC2dE456789LmOpRstuvwxyz\-aB1cD3eghijkMnPqSf_}; # 文字の置換
$s = 'エラー' if ($s =~ /_/); # 結果に_が入ってたら失敗
# ●ここで$sに符号化した文字列が得られている
print "URLﾘﾝｸ(www.directs.ws)";
print "URLﾘﾝｸ(www.directs.ws)";
404:391
05/02/07 17:49:01 P72Mm7Fe0
>>393
執拗に訪問するのねｗ
わかーたよ。
ジェントルメンになれるように頑張る。