Large Parameters & TCPObjects = Crash?

function TCPLR::onLine(%this, %line) {
   echo(%line);
   if(trim(%line) !$= "") {
      %this.canRead = true;
   }
   if(%this.canRead) {
      if(strstr(%line, "$PGD") != -1) {
         $TCPBuffer["TCPLR"] = $TCPBuffer["TCPLR"] @ "n" @ strReplace(%line, "$PGD", "");
      }
   }
}

function TCP_PerformRegister(%username, %password, %email, %key) {
   if($TCP::AuthServer $= "") {
      error("Attempting to register without a connected server.");
      TestServerList();
      return;
   }
   %TCP = new TCPObject(TCPAR);
   
   %TCP.REGpw = %password;
   %TCP.REGuser = %username;
   %TCP.REGemail = %email;
   %TCP.REGkey = %key;
   
   %TCP.connect($TCP::AuthServer @ ":80");
}

function TCPAR::onConnected(%this) {
   %public_e = $Account::RSAKey::E;
   %public_n = $Account::RSAKey::N;

   %hashpass = PGDHash(%this.REGuser @ %this.REGpw @ "2.71828");
   $Account::Stor_Dec_Hash = PGDHash($Account::RSAKey::D);
   %aes_key = %this.REGpw @ $Account::Stor_Dec_Hash;
   %encrypted = encryptAccountKey(%aes_key, $Account::RSAKey::D);

   if(%encrypted $= "encryptfail") {
      MessageBoxOK("Account Encryption Failure", "PGD has failed to encrypt your account key.nGenerating a new RSA key, please try again.");
      GenerateRSA2048();
      
      %this.regFail = true;
      %this.disconnect();
      
      return;
   }

   $Account::RSAKey::D = %encrypted;
   $Account::RegEmail = %this.REGemail;

   %separator = getRandomSeperator(16);
   %header = assembleHTTP1_1Header($TCP::AuthServer, $TCP::AuthPath, "POST", "PGD: XXZ568 Client", "Content-Type: multipart/form-data; boundary="@%separator@"rn");

   %payload = %this.REGuser TAB %this.REGemail TAB PGDHash(%this.REGkey) TAB %encrypted TAB %public_n TAB %public_e TAB $Account::Stor_Dec_Hash TAB %hashpass;

   %dispo = makeDisposition(%separator, authMode, 2);
   %dispo = %dispo @ makeDisposition(%separator, fullPayload, %payload, 1);
   
   %header = %header @ "Content-Length: " @ strLen(%dispo) @ "rnrn";
   
   %request = %header @ %dispo;
   if($debugMode) {
      echo("REQUEST: n"@%request@"n");
   }
   
   %this.send(%request);
}

function TCPAR::onLine(%this, %line) {
   echo(%line);
   if(trim(%line) !$= "") {
      %this.canRead = true;
   }
   if(%this.canRead) {
      if(strstr(%line, "$PGD") != -1) {
         $TCPBuffer["TCPAR"] = $TCPBuffer["TCPAR"] @ "n" @ strReplace(%line, "$PGD", "");
      }
   }
}

function TCPAR::onDisconnect(%this) {
   if(%this.regFail) {
      %this.delete();
      return;
   }

   ValidateRegistration();
   %this.delete();
}

function ValidateRegistration() {
   %response = $TCPBuffer["TCPAR"];

   closeMessagePopup();
   %response = stripchars(%response, "$");
   %firstIter = true;
   if(strPos(%response, "n") == 0) {
      %response = getSubStr(%response, 1, strLen(%response));
   }
   while(%firstIter || strPos(%response, "n") != -1) {
      %firstIter = false;
      if(strPos(%response, "n") <= 0) {
         //last one!
         %line = %response;
      }
      else {
         %line = getSubStr(%response, 0, strPos(%response, "n"));
         %response = getSubStr(%response, strPos(%response, "n")+1, strLen(%response));
      }
      switch$(firstWord(%line)) {
         case "BAD_NAME":
            MessageBoxOk("Error", "This server has denied your usernamenPlease check for invalid characters or words.");
         case "NAME_TAKEN":
            MessageBoxOk("Error", "This username is in use.");
         case "NO_EMAIL":
            MessageBoxOK("Error", "Your email field is missing.");
         case "BAD_EMAIL":
            MessageBoxOK("Error", "Your email contains invalid characters, or is invalid.");
         case "NO_KEY":
            MessageBoxOK("Error", "Your account key field is empty.");
         case "INVALID_KEY":
            MessageBoxOK("Error", "Your account key field contains invalid characters.");
         case "INTERNAL_ERROR":
            MessageBoxOK("Error", "The server encountered an internal error, please try again later.");
         case "EMAIL_NOT_BOUND":
            MessageBoxOK("Error", "This account key can not be used with your email address.");
         case "SIGN_FAILURE":
            MessageBoxOK("Error", "The server has failed to generate a signature, please contact support@phantomdev.net.");
         case "SIGN_ERROR":
            MessageBoxOK("Error", "The server has failed to sign your account certificate.");
         case "CERT":
            %certline = strreplace(%response, "CERT ", "");
            %user = getField(%certline, 0);
            %guid = getField(%certline, 1);
            %cert = getField(%certline, 2);
            WriteAccountCertificate(%user, %guid, $Account::RegEmail, $Account::RSAKey::E, $Account::RSAKey::N, %cert, $Account::Stor_Dec_Hash, $Account::RSAKey::D);
            $Account::RSAKey::D = ""; // kill the private exponent field now that it's stored
            //MessagePopup("Registration Successful", "Thank you for registering, you can now login with your new account.", 3000);
            MessageBoxOK("Registration Successful", "Thank you for registering, enjoy PGD Survival!");
            //==============================================
            Canvas.popDialog(AccountRegistrationWindow);
            AccountSelector_DropBox.populate();
         default:
            //ignore!
      }
   }
   $TCPBuffer["TCPAR"] = "";
}