☆☆架空請求業者におしおきするスレ２☆☆

●shirahime系専用メルアドの符号化について
どんなメルアドも登録できるよ！

●メルアドの符号化の例
[email protected] ●元のメルアド
　↓　文字列を逆順にする
pj.oc.hgfe.liam@dcba
　↓　BASE64符号化
cGoub2MuaGdmZS5saWFtQGRjYmE=
　↓　=を消す
cGoub2MuaGdmZS5saWFtQGRjYmE
　↓　文字列を逆順にする
EmYjRGQtFWas5SZmdGauM2buoGc
　↓　変換表のルールで文字を置換する
KuER,NZal25-MA4u8N5BVi6BwN7 ●符号化の結果

●例
ttp://www.directs.ws/toon/?KuER,NZal25-MA4u8N5BVi6BwN7
ttp://www.directs.ws/orange/?KuER,NZal25-MA4u8N5BVi6BwN7

●変換表(上の文字を真下の文字に置換する)
前 ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/
後 GHIJKlNoQrTUVWXYZ,A0bC2dE456789LmOpRstuvwxyz-aB1cD3eghijkMnPqSf_

●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 "ttp://www.directs.ws/toon/?${s}\n";
print "ttp://www.directs.ws/orange/?${s}\n";