my $session1 = crypt rand, 'XX';
my $session2 = crypt rand, 'AA';

##</code><code>##

my $session - crypt time, "XX";

##</code><code>##

my $rawID = time . ( toNum( $userID ) % toNum( $password ) +
            toNum( $ENV{REMOTE_ADDR} ) % $ENV{REMOTE_PORT} );

my $sessionID = crypt $rawID, "PY";