//<--Phantom Encryption-->\\
function rvenc(%string)
{
%split = splitstring(%string);
%half1 = $Split[0];
%half2 = $Split[1];
//Half 1 Split.
splitstring(%half1);
%pt1 = $Split[0];
%pt2 = $Split[1];
//Half 2 Split.
splitstring(%half2);
%pt3 = $Split[0];
%pt4 = $Split[1];
//Part 1 Split
splitstring(%pt1);
%q1 = $Split[0];
%q2 = $Split[1];
//Part 2 Split
splitstring(%pt2);
%q3 = $Split[0];
%q4 = $Split[1];
//Part 3 Split
splitstring(%pt3);
%q5 = $Split[0];
%q6 = $Split[1];
//Part 4 Split
splitstring(%pt4);
%q7 = $Split[0];
%q8 = $Split[1];
//8th Beginning
//8th1 Split
splitstring(%q1);
%Eight[0] = $Split[0];
%Eight[1] = $Split[1];
//8th2 Split
splitstring(%q2);
%Eight[2] = $Split[0];
%Eight[3] = $Split[1];
//8th3 Split
splitstring(%q3);
%Eight[4] = $Split[0];
%Eight[5] = $Split[1];
//8th4 Split
splitstring(%q4);
%Eight[6] = $Split[0];
%Eight[7] = $Split[1];
//8th5 Split
splitstring(%q5);
%Eight[8] = $Split[0];
%Eight[9] = $Split[1];
//8th6 Split
splitstring(%q6);
%Eight[10] = $Split[0];
%Eight[11] = $Split[1];
//8th7 Split
splitstring(%q7);
%Eight[12]  = $Split[0];
%Eight[13] = $Split[1];
//8th8 Split
splitstring(%pt4);
%Eight[14] = $Split[0];
%Eight[15] = $Split[1];
//Do More Encryption, With Layer2
//%q1 = Layer2(%q1,0);
//%q2 = Layer2(%q2,0);
//%q3 = Layer2(%q3,0);
//%q4 = Layer2(%q4,0);
//%q5 = Layer2(%q5,0);
//%q6 = Layer2(%q6,0);
//%q7 = Layer2(%q7,0);
//%q8 = Layer2(%q8,0);

return "RV" SPC %Eight[15] SPC %Eight[2] SPC %Eight[5] SPC %Eight[8] SPC %Eight[7] SPC %Eight[4] SPC %Eight[3] SPC %Eight[6] SPC %Eight[10] SPC %Eight[14] SPC %Eight[11] SPC %Eight[12] SPC %Eight[0] SPC %Eight[1] SPC %Eight[13] SPC %Eight[9];
}

function rvdec(%string)
{
//%string = Layer2(%string,1);
echo("A Test." SPC %string);
%word0 = getword(%string,13);
%word1 = getword(%string,14);
%word2 = getword(%string,2);
%word3 = getword(%string,7);
%word4 = getword(%string,6);
%word5 = getword(%string,3);
%word6 = getword(%string,8);
%word7 = getword(%string,5);
%word8 = getword(%string,4);
%word9 = getword(%string,16);
%word10 = getword(%string,9);
%word11 = getword(%string,11);
%word12 = getword(%string,12);
%word13 = getword(%string,15);
%word14 = getword(%string,10);
%word15 = getword(%string,1);
return %word0 SPC %word1 SPC %word2 SPC %word3 SPC %word4 SPC %word5 SPC %word6 SPC %word7 SPC %word8 SPC %word9 SPC %word10 SPC %word11 SPC %word12 SPC %word13 SPC %word14 SPC %word15;
}

function splitstring(%string) //Modified From Original For Encryption Purposes
{
%c = strlen(%string);
%c = %c/2;
%s1 = getSubStr(%string, 0, %c);
if (hasdecimal(%c))
%c = %c++;
%s2 = strreplace(%string,%s1,"");
$Split[0] = %s1;
$Split[1] = %s2;

return %s1 SPC "String2:" SPC %s2;
}

//Original SplitString
//function splitstring(%string)
//{
//%c = strlen(%string);
//%c = %c/2;
//%s1 = getSubStr(%string, 0, %c);
//if (hasdecimal(%c))
//%c = %c++;
//%s2 = strreplace(%string,%s1,"");

//return %s1 SPC "String2:" SPC %s2;
//}

function hasdecimal(%string)
{
%search = strstr(%string,".");
if (%search==-1)
return false;
else
return true;
}

//<--Encryption Variables-->\\
$Split[0] = "";
$Split[1] = "";

