- sq_mt_seed(md5($Str));
- }
- }
-
- // Apache-specific
- sq_mt_seed(md5($UNIQUE_ID));
-
- $randomized = 1;
- }
-
- function OneTimePadCreate ($length=100) {
- sq_mt_randomize();
-
- $pad = '';
- for ($i = 0; $i < $length; $i++) {
- $pad .= chr(mt_rand(0,255));
- }
-
- return base64_encode($pad);
- }
-
- /**
- * Check if we have a required PHP-version. Return TRUE if we do,
- * or FALSE if we don't.
- *
- * To check for 4.0.1, use sqCheckPHPVersion(4,0,1)
- * To check for 4.0b3, use sqCheckPHPVersion(4,0,-3)
- *
- * Does not handle betas like 4.0.1b1 or development versions
- */
- function sqCheckPHPVersion($major, $minor, $release) {
-
- $ver = phpversion();
- eregi('^([0-9]+)\\.([0-9]+)(.*)', $ver, $regs);
-
- /* Parse the version string. */
- $vmajor = strval($regs[1]);
- $vminor = strval($regs[2]);
- $vrel = $regs[3];
- if($vrel[0] == ".") {
- $vrel = strval(substr($vrel, 1));
- }
- if($vrel[0] == 'b' || $vrel[0] == 'B') {
- $vrel = - strval(substr($vrel, 1));
- }
- if($vrel[0] == 'r' || $vrel[0] == 'R') {
- $vrel = - strval(substr($vrel, 2))/10;
- }
-
- /* Compare major version. */
- if ($vmajor < $major) { return false; }
- if ($vmajor > $major) { return true; }
-
- /* Major is the same. Compare minor. */
- if ($vminor < $minor) { return false; }
- if ($vminor > $minor) { return true; }
-
- /* Major and minor is the same as the required one. Compare release */
- if ($vrel >= 0 && $release >= 0) { // Neither are beta
- if($vrel < $release) return false;
- } else if($vrel >= 0 && $release < 0) { // This is not beta, required is beta
- return true;
- } else if($vrel < 0 && $release >= 0){ // This is beta, require not beta
- return false;
- } else { // Both are beta
- if($vrel > $release) return false;
- }
-
- return true;
- }
-
- /**
- * Returns a string showing the size of the message/attachment.
- */
- function show_readable_size($bytes) {
- $bytes /= 1024;
- $type = 'k';
-
- if ($bytes / 1024 > 1) {
- $bytes /= 1024;
- $type = 'm';
- }
-
- if ($bytes < 10) {
- $bytes *= 10;
- settype($bytes, 'integer');
- $bytes /= 10;
- } else {
- settype($bytes, 'integer');
- }
-
- return $bytes . '<small> ' . $type . '</small>';
- }
-
- /**
- * Generates a random string from the caracter set you pass in
- *
- * Flags:
- * 1 = add lowercase a-z to $chars
- * 2 = add uppercase A-Z to $chars
- * 4 = add numbers 0-9 to $chars
- */
-
- function GenerateRandomString($size, $chars, $flags = 0) {
- if ($flags & 0x1) {
- $chars .= 'abcdefghijklmnopqrstuvwxyz';
- }
- if ($flags & 0x2) {
- $chars .= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- }
- if ($flags & 0x4) {
- $chars .= '0123456789';
- }
-
- if (($size < 1) || (strlen($chars) < 1)) {
- return '';
- }
-
- sq_mt_randomize(); // Initialize the random number generator
-
- $String = "";
- while (strlen($String) < $size) {
- $String .= $chars[mt_rand(0, strlen($chars))];
- }
-
- return $String;
- }
-
- function quoteIMAP($str) {
- return ereg_replace('(["\\])', '\\\\1', $str);
- }
-
- /**
- * Trims every element in the array
- */
- function TrimArray(&$array) {
- foreach ($array as $k => $v) {
- global $$k;
- if (is_array($$k)) {
- foreach ($$k as $k2 => $v2) {
- $$k[$k2] = substr($v2, 1);
+ }
+ }
+
+ /* Fallback is to omit the server name and use a relative */
+ /* URI, although this is not RFC 2616 compliant. */
+ return ($host ? $proto . $host . $port . $path : $path);
+}
+
+
+/**
+ * These functions are used to encrypt the passowrd before it is
+ * stored in a cookie.
+ */
+function OneTimePadEncrypt ($string, $epad) {
+ $pad = base64_decode($epad);
+ $encrypted = '';
+ for ($i = 0; $i < strlen ($string); $i++) {
+ $encrypted .= chr (ord($string[$i]) ^ ord($pad[$i]));
+ }
+
+ return base64_encode($encrypted);
+}
+
+function OneTimePadDecrypt ($string, $epad) {
+ $pad = base64_decode($epad);
+ $encrypted = base64_decode ($string);
+ $decrypted = '';
+ for ($i = 0; $i < strlen ($encrypted); $i++) {
+ $decrypted .= chr (ord($encrypted[$i]) ^ ord($pad[$i]));
+ }
+
+ return $decrypted;
+}
+
+
+/**
+ * Randomize the mt_rand() function. Toss this in strings or integers
+ * and it will seed the generator appropriately. With strings, it is
+ * better to get them long. Use md5() to lengthen smaller strings.
+ */
+function sq_mt_seed($Val) {
+ /* if mt_getrandmax() does not return a 2^n - 1 number,
+ this might not work well. This uses $Max as a bitmask. */
+ $Max = mt_getrandmax();
+
+ if (! is_int($Val)) {
+ if (function_exists('crc32')) {
+ $Val = crc32($Val);
+ } else {
+ $Str = $Val;
+ $Pos = 0;
+ $Val = 0;
+ $Mask = $Max / 2;
+ $HighBit = $Max ^ $Mask;
+ while ($Pos < strlen($Str)) {
+ if ($Val & $HighBit) {
+ $Val = (($Val & $Mask) << 1) + 1;
+ } else {
+ $Val = ($Val & $Mask) << 1;