$a = " !\"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_abcd" @
     "efghijklmnopqrstuvwxyz{|}€‚ƒ„…†‡ˆ‰Š‹Ž“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³µ¶·" @
     "¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþ";

function r(%s)
{
    %k = getsubstr($a,getRandom(0,215),1) @
         getsubstr($a,getRandom(0,215),1) @
         getsubstr($a,getRandom(0,215),1) @
         getsubstr($a,getRandom(0,215),1);

    %o = %k;
    %l = strlen(%s);

    while(strlen(%o) < %l)
        %o = %o @ %k;

    for(%i = 0; %i < %l; %i++)
    {
        %c = getsubstr(%s,%i,1);
        %q = getsubstr(%o,%i,1);
        %p = strpos($a,%c);
        %m = strpos($a,%q);
        %t = %p + %m;

        if(%t < 0)
            %t += 216;

        if(%t >= 216)
            %t -= 216;

        %n = getsubstr($a,%t,1);
        %y = %y @ %n;
    }

    return %k @ %y;
}

function d(%s)
{
    %k = getsubstr(%s,0,4);
    %o = %k;
    %s = getsubstr(%s,4,strlen(%s));
    %l = strlen(%s);

    while(strlen(%o) < %l)
        %o = %o @ %k;

    for(%i = 0; %i < %l; %i++)
    {
        %c = getsubstr(%s,%i,1);
        %q = getsubstr(%o,%i,1);
        %p = strpos($a,%c);
        %m = strpos($a,%q);
        %t = %p - %m;

        if(%t < 0)
            %t += 216;

        if(%t >= 216)
            %t -= 216;

        %n = getsubstr($a,%t,1);
        %y = %y @ %n;
    }

    return %y;
}

echo("r(%str)->encode\nd(%str)->decode");