3v4l.org

run code in 150+ php & hhvm versions
Bugs & Features
<?php // Copyright (c) 2005-2006 Joachim Henke // http://base91.sourceforge.net/ $b91_enctab = array( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '!', '#', '$', '%', '&', '(', ')', '*', '+', ',', '.', '/', ':', ';', '<', '=', '>', '?', '@', '[', ']', '^', '_', '`', '{', '|', '}', '~', '"' ); $b91_dectab = array_flip($b91_enctab); function base91_decode($d) { global $b91_dectab; $l = strlen($d); $v = -1; for ($i = 0; $i < $l; ++$i) { $c = $b91_dectab[$d{$i}]; if (!isset($c)) continue; if ($v < 0) $v = $c; else { $v += $c * 91; $b |= $v << $n; $n += ($v & 8191) > 88 ? 13 : 14; do { $o .= chr($b & 255); $b >>= 8; $n -= 8; } while ($n > 7); $v = -1; } } if ($v + 1) $o .= chr(($b | $v << $n) & 255); return $o; } function base91_encode($d) { global $b91_enctab; $l = strlen($d); for ($i = 0; $i < $l; ++$i) { $b |= ord($d{$i}) << $n; $n += 8; if ($n > 13) { $v = $b & 8191; if ($v > 88) { $b >>= 13; $n -= 13; } else { $v = $b & 16383; $b >>= 14; $n -= 14; } $o .= $b91_enctab[$v % 91] . $b91_enctab[$v / 91]; } } if ($n) { $o .= $b91_enctab[$b % 91]; if ($n > 7 || $b > 90) $o .= $b91_enctab[$b / 91]; } return $o; } ?>
Output for 4.3.0 - 7.1.0