sub valid
{
my($a,$b,$c,$h,$i,$l,$q,$w,$x,$y,$z,@s,@v);

$a=$secret;

$q='&'.substr($ENV{'QUERY_STRING'},0,256);
$q=~/\Wseed=(\w+)/; $b=$1;
$q=~/\Wcbpop=(\w+)/; $c=$1;

return 0 unless $a&&$b&&$c;

$h=0x80000000; $l=0x7fffffff;
$q=''; $w=uc "$a $b"; $x=$y=$z=17;
@v=unpack("C*",$w); $n=1+$#v;
for($i=0;$i<256;$i++)
{ $w=(($x&$l)+($y&$l))^(($x^$y)&$h);
$w=($w<<$z)|($w>>(32-$z));
$w=(($w&$l)+$v[$i%$n])^($w&$h);
$s[$i&7]+=$w&31; $z=$y&31; $y=$x; $x=$w;
}

for ($i=0;$i<8;$i++)
{ $q.=substr('0123456789BCDEFGHJKLMNPQRSTVWXYZ',$s[$i]&31,1); }

return $c eq $q;
}
# end the 'valied' sub