PX : code

rot13 by Adam Trachtenberg
Download this code


<?php
/*
rot13 -- Adam Trachtenberg -- 1999
Returns the rot13 version of a string.
Algorithmic inspiration from John Norstad's NewsWatcher source code.
*/

/* Elegant version */
function rot13($text) {
  for (
$i 0$len strlen($text); $i $len$i++)
    if (
ereg('[[:alpha:]]',$text[$i])) 
      
$text[$i] = chr(ord($text[$i]) + ((strtoupper($text[$i]) > 'M') ? -13 13));
  return 
$text;
}

/* Efficient version */
/*
function rot13($text) {
  for ($i = 0, $len = strlen($text); $i < $len; $i++)
    if (strstr('abcdefghijklmnopqrstuvwxzyABCDEFGHIJKLMNOPQRSTUVWXYZ',$text[$i]))
      $text[$i] = chr(ord($text[$i]) + ((strtoupper($text[$i]) > 'M') ? -13 : 13));
  return $text;
}
*/
?>

Comments or questions?
PX is running PHP 5.2.17
Thanks to Miranda Productions for hosting and bandwidth.
Use of any code from PX is at your own risk.