CGI script question

[S.E.Fling]

Hi all,

Can someone tell me what language the following CGI script is written in? Whatever it 
is, can it run on a CF site? Thanks.  sf


    sub valid
    { ### Copyright Keynetics Inc. Patents pending.
      my($a,$b,$c,$i,$q,$w,$x,$y,$z,@s,@v);

      ###############################
      $a='YOUR_SECRET_KEY_GOES_HERE';
      ###############################

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

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

      $q=''; $w=uc "$a $b"; $x=$y=$z=17;
      @v=unpack("C*",$w); $n=1+$#v;
      for($i=0;$i<256;$i++)
      { $w=($x+$y)&0xffffffff; $w=($w<<$z)|($w>>(32-$z));
        $w+=$v[$i%$n]; $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;
    }


------------------------------------------------------------------------------
Archives: http://www.eGroups.com/list/cf-talk
To Unsubscribe visit 
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or send a 
message to [EMAIL PROTECTED] with 'unsubscribe' in the body.