#!/usr/local/bin/perl

# 業者のサイトのホスト名
$h = "naem.name";

# ハッシュ部分の左2桁に相当。任意の2桁の数字を指定してください。仕様上、数字には""を付けること。01〜15の範囲で設定。
$salt = "08";

# 0〜999,1000〜1999,2000〜2999,…という風に順次範囲を指定。1回の出力数を欲張り過ぎないこと。
$i = "0"; $end = "1000";

# サブディレクトリやファイルの指定。必要に応じて、増やしたりしてください。
@d = (member/010-1/","member/014-2/","member/015-2/","member/018-1/","member/043-4/","member/054-1/","member/153-2/","member/155-3/","menu/010-1/","menu/014-2/","menu/015-2/","menu/018-1/","menu/043-4/","menu/054-1/","menu/153-2/","menu/155-3/");

print "Content-type: text/html\n\n";
print <<"EOM";
<title>$i-$end</title>
EOM

for ($i; $i<=$end; $i++) {
foreach $d (@d) {
$s = sprintf("%d",$i);# 出力する番号の桁数を指定したい場合は"%0*d"と指定。
$t = crypt($s,$salt);
printf <<EOF
<a href="http://$h/$t/$d">.</a>#この例では1個のドット( . )にリンクして出力容量を抑えている。
EOF
}
}