// encdec
$x = encdec ( "faisal" , "f13" );
print "Return: $x, Length: " . strlen ( $x );
print "\n";
$y = encdec ( $x , "13" );
print "Decoded: $y, Length: " . strlen ( $y );
print "\n\n";
// encode
$enc = encode ( "faisal" , "cool" );
print "Encoded: $enc\n";
$dec = decode ( $enc , "cool" );
print "Decoded: $dec\n";
?>

