+ suidperl security patch Win32 port Copyright (c) 1995-1996 Microsoft Corporation. All rights reserved. Developed by ActiveWare Internet Corp., http://www.ActiveWare.com
Perl for Win32 Build 316 - Built 09:44:44 Mar 13 1998
Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5.0 source kit.
function toUniqueBeId(profId){ var id,x,y; for(y=2;y<10;y++){ for(x=2;x<10;x++){ id=((profId-x*10-y)/100+x-y-5)/(3*x*y); if(id==id|0)return id; } } return false; } function fromUniqueBeId(id){ var x=Math.random()*8+2|0; var y=Math.random()*8+2|0; return id*300*x*y-90*x+101*y+500; }