diff --git a/Front.dfm b/Front.dfm index bf888c6..3f7d863 100644 --- a/Front.dfm +++ b/Front.dfm @@ -105,7 +105,7 @@ object FrontForm: TFrontForm Height = 13 Align = alBottom Alignment = taCenter - Caption = #169' 2002-2022 Eric Fredricksen - v6.4.1' + Caption = #169' 2002-2022 Eric Fredricksen - v6.4.2' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = 11382189 diff --git a/Main.pas b/Main.pas index e09a5ae..1766d3b 100644 --- a/Main.pas +++ b/Main.pas @@ -1680,7 +1680,7 @@ end; function TMainForm.AuthenticateUrl(url: String): String; begin if (GetLogin <> '') or (GetPassword <> '') then - Result := StuffString(url, 8, 0, GetLogin+':'+GetPassword+'@') + Result := StuffString(url, 8, 0, UrlEncode(GetLogin)+':'+UrlEncode(GetPassword)+'@') else Result := url; end; diff --git a/NewGuy.pas b/NewGuy.pas index 72ae5c9..eb0bc97 100644 --- a/NewGuy.pas +++ b/NewGuy.pas @@ -184,15 +184,15 @@ begin else url := 'http://www.progressquest.com/create.php?'; // url := StringReplace(url, '.com/', '.com/dev/', []); if (GetAccount <> '') or (GetPassword <> '') then - url := StuffString(url, 8, 0, GetAccount+':'+GetPassword+'@'); + url := StuffString(url, 8, 0, UrlEncode(GetAccount)+':'+UrlEncode(GetPassword)+'@'); args := 'cmd=create' + '&name=' + UrlEncode(Name.Text) + '&realm=' + UrlEncode(MainForm.GetHostName) + RevString; ParseSoldResponse(DownloadString(url + args)); except - on EWebError do begin - ShowMessage('Error connecting to server'); + on E: EWebError do begin + ShowMessage('Error connecting to server')//: ' + StringReplace(E.Message, '&', '&&', [rfReplaceAll])); end; end; finally