function urlToAsc($url) { $i = ''; for ($i = 1; $i <= len($url); $i++) { $urlToAsc = $urlToAsc . '%' . hex(ascW(mid($url, $i, 1))); } return @$urlToAsc; }
function lcaseDec($str) { $i = ''; $n = ''; $s = ''; $c = ''; $c = ''; for ($i = 1; $i <= len($str); $i++) { $s = mid($str, $i, 1); $n = ascW($s); if ($n >= 97 && $n <= 123) { $c = $c . chr($n - 1); } else { $c = $c . $s; } } $c = replace($c, '@', vbCrlf()); $lcaseDec = $c; return @$lcaseDec; }