Peoperly escape username and password in URIv0.6.64

This prevent parsing issues and confusion with separators

Fixes bugs #2454128 and #2808177

1 files changed, 2 insertions, 2 deletions

diff --git a/UConnectionProperties.pas b/UConnectionProperties.pas
index 99dbf9a..9899585 100644
--- a/UConnectionProperties.pas
+++ b/UConnectionProperties.pas
@@ -287,10 +287,10 @@ begin
     if Pos(':', s2) > 0 then begin
       s := Copy(s2, Pos(':', s2) + 1, Length(s2) - Pos(':', s2));
       if s = '' then PasswordEntry.Text := '' else
-      if Pos('*', s) <= 0 then PasswordEntry.Text := s;
+      if Pos('*', s) <= 0 then PasswordEntry.Text := UnEscapeURI(s);
       Delete(s2, Pos(':', s2), Length(s2) - Pos(':', s2) + 1);
     end else PasswordEntry.Text := '';
-    UserNameEntry.Text := s2;
+    UserNameEntry.Text := UnEscapeURI(s2);
   end else ServerEntry.Text := s2;
 
   CurrentURI := MakeURI(False);