minor fixes

masterpaskalform.pas

@@ -1226,7 +1226,7 @@ procedure TUpdateMNs.Execute;
       LastIPVerify := NextBlockTimeStamp;
       MyIP := GetMiIP();
       //ToLog('console','Auto IP executed');
-      if  ( (MyIP <> '') and (MyIP <> LocalMN_IP) and (MyIP <> 'Closing NODE') ) then
+      if  ( (MyIP <> '') and (MyIP <> LocalMN_IP) and (MyIP <> 'Closing NODE') and (MyIP <> 'BANNED') and (IsValidIP(MyIP))) then
         begin
         ToLog('console','Auto IP: updated to '+MyIp);
         LocalMN_IP := MyIP;
@@ -2818,7 +2818,7 @@ procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
          ToLog('events',TimeToStr(now)+format(rs0061,[IPUser])); //New Connection from:
          ContextData.Slot:=ThisSlot;
          AContext.Data:=ContextData;
-         MyPublicIP := MiIp;
+         if IsValidIP(MiIp) then MyPublicIP := MiIp;
          U_DataPanel := true;
          ClearOutTextToSlot(ThisSlot);
          end;

mpprotocol.pas

@@ -863,12 +863,12 @@ function ValidateTrfr(order:Torderdata;Origen:String):integer;
 RecOrderId   := Parameter(TextLine,7);
 GenOrderID   := Parameter(TextLine,5)+Parameter(TextLine,10);
 Textbak := GetOpData(TextLine);
-SetLength(TrxArray,0);SetLength(senderTrx,0);
 if NumTransfers > 30 then
    begin
    Proceder := false;
    ErrorCode := 89;
    end;
+SetLength(TrxArray,0);SetLength(senderTrx,0);
 for cont := 0 to NumTransfers-1 do
    begin
    if not Proceder then Break;

mprpc.pas

@@ -732,7 +732,10 @@ function RPC_BlockOrders(NosoPParams:string):string;
    if length(ArraTrxs) > 0 then
       begin
       for counter := 0 to length(ArraTrxs)-1 do
+         begin
+
          AddOrder(ArraTrxs[counter]);
+         end;
       result := result+IntToStr(length(arrayOrds))+#127;
       for counter := 0 to length(arrayOrds)-1 do
          begin
@@ -925,7 +928,6 @@ function RPC_NewAddressFull(NosoPParams:string):string;
   EndPerformance('RPC_CheckCertificate');
 End;
 
-
 Function RPC_SubmitOrder(NosoPParams:string;waitresponse:boolean=false):string;
 var
   ResultLine : string;

nosonetwork.pas

@@ -1374,6 +1374,7 @@ procedure TThreadClientRead.Execute;
   contador : integer = 0;
   updated : boolean = false;
 Begin
+  if IsSeedNode(IPUser) then exit;
   EnterCriticalSection(CSBotsList);
   for contador := 0 to length(BotsList)-1 do
     begin