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

エンコーダとデコーダをPerlで書いてみた。

サイトの収集用
http://www.google.co.jp/search?q=entryMember.jsp
-------------------------------- エンコーダ
$s = '090xxxxxxxx'; # 電話番号を入れる

# エンコーダ
$s =~ s/-//; # -を除去
$s =~ s/^0//; # 先頭の0を除去
$s =~ s/../sprintf("%02X",$&)/ge; # 2桁ずつ10進→16進
print "$s\n";

print <<EOF;
http://pa9.jp/entryMember.jsp?id=${s}
http://pmat.jp/entryMember.jsp?id=${s}
http://ao.jp/entryMember.jsp?id=${s}
http://kn.jp/entryMember.jsp?id=${s}
EOF
-------------------------------- デコーダ
$s = "5A2925325C"; # 例(拾い)

# デコーダ
$s =~ s/../sprintf("%02d",hex($&))/ge; # 2桁ずつ16進→10進
$s = substr($s,0,10); # 先頭の10桁
$s = "0${s}"; # 先頭に0を付加
print "$s\n";