sub   RandKey { my   (@code,$keyword,$time,$i,$session,$self)=undef;      $time=time();      srand;      @code=split(/ */,  "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789");      for   ($i=0;$i <5   ;$i++)   {          $keyword .= "$code[int(rand(62))]$code[int(rand(62))]";      } #     $session=&crypt($self,"$keyword$time ");      $keyword.= $time;      return   $keyword; }