ワンクリック登録詐欺サイト質問スレ　その12

このスレで始まったネタだからこのスレに最初に貼るよ。
●shirahime系専用メールアドレス符号化(Perl)
　www.directs.ws/toon/
　www.directs.ws/orange/
　just- feed.net/shirahime/ = msst.us/shirahime/

# 文字の置換で_の部分は調べても分からなかったがたいていのは変換できるはず
# 小文字のメルアドでだめなら適当に大文字に替えてみるといい
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,A0bC2dE456789LmO_R_tuvwxyz_aB1cD3eghijkMnPqSf_}; # 文字の置換
$s = 'エラー' if ($s =~ /_/); # 結果に_が入ってたら失敗

# ここで$sに符号化した文字列が得られている
# ttp://www.directs.ws/toon/?${s}
# ttp://www.directs.ws/orange/?${s}