$minlength) { $minlength = strlen($key); } if(strlen($time)>$minlength) { $minlength = strlen($time); } while(strlen($email)<$minlength) { $email .= $email; } while(strlen($time)<$minlength) { $time .= $time; } while(strlen($key)<$minlength) { $key .= $key; } $email = substr($email,0,$minlength); $time = substr($time,0,$minlength); $key = substr($key,0,$minlength); // Create encrypted value... for($i=0;$i<$minlength;$i++) { $x = ord(substr($email,$i,1))+ord(substr($time,$i,1))+ord(substr($key,$i,1)); $result .= chr($x); } return $result; } // ik_encrypt function ik_decrypt($val,$key) { // Setup... if(strlen($key)==0) { $key = 'BiB1350fT!_tAmMi3-T3Rr4-a1aN~316'; } $time=strftime("%d-%B-%Y"); if(strlen($val)==0) { return ''; } $len=ord(substr($val,0,1)); $val=substr($val,1); $minlength = strlen($val); while(strlen($val)<$minlength) { $val .= $val; } while(strlen($time)<$minlength) { $time .= $time; } while(strlen($key)<$minlength) { $key .= $key; } $time = substr($time,0,$minlength); $key = substr($key,0,$minlength); $result = ''; for($i=0;$i<$minlength;$i++) { $x = ord(substr($val,$i,1))-ord(substr($time,$i,1))-ord(substr($key,$i,1)); $result .= chr($x); } return substr($result,0,$len); } // ik_decrypt function valid_ik_email($email,$val,$key) { $val = $this->ik_decrypt($val,$key); return ($email==$val); } } ?> Authors W-Z - Biblesoft
> Authors W-Z

Products by Authors W-Z There are 260 products.

per page
Showing 1 - 15 of 260 items