Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Mars

Pages: [1] 2 3 ... 128
1
Programmers corner / Re: delphi 10
« on: May 13, 2020, 10:07:46 PM »
there is a bad problem with login , return always bad password when login or access protected resource for the account  is requested, can't test the visibility of page

to successfully connect I have to shortcut the md5 in the template

by doing this modification, the login form is asked for root and connection is good

waht you have updated is good but always prob with global  md5 encryption for password



2
Programmers corner / Re: delphi 10
« on: May 13, 2020, 09:54:23 PM »
ok boss i download it and give you a reply in a few minutes

3
Programmers corner / Re: delphi 10
« on: May 13, 2020, 09:50:40 PM »
yes, when the root is protected it doesn't work. Working on it.

the problem is located in Tfile.accessfor

if we put a break at the start of the while assigned(f) , everything seems to work fine

Code: [Select]
while assigned(f) do
  begin
     break;
     .....

4
Programmers corner / Re: delphi 10
« on: May 13, 2020, 12:54:09 AM »
yes you are right

login not working with a request from another computer, but from local computer at ip 127 or 192 in url  its works


the password change method is to be reviewed because of the redirection to ~ login

Code: [Select]
    function changePwd() {
        {.if|{.can change pwd.}
        | ask(this.innerHTML, 'password', function(s){
            s && ajax('changepwd', {'new':s}, getStdAjaxCB(function(){
                showMsg("{.!Password changed, you'll have to login again..}")
                location = '~login'
            }))
        })
        | showError("{.!Sorry, you lack permissions for this action.}")
.}
    }//changePwd


in main.pas  '~login' become obsolete
in hslib.pas  part of  WWW-Authentificate can be removed ??

5
HFS ~ HTTP File Server / Re: Edit error pages
« on: May 12, 2020, 11:06:42 PM »
in the template , change the content of the section
[error-page]

6
perhaps by using

Properties of the item -> permissions -> access

in this order check:  any account , anonymous, anyone   

validate by clicking on ok


7
Programmers corner / Re: delphi 10
« on: May 12, 2020, 10:50:50 PM »
always the same aspect, bug still present  :-[
I reloaded the exe but I wonder if you put the last one with the right dfm

i used your dfm to compile and i have no visual flaws ;), then  you will have to install a virtual machine XP  ;D

8
Programmers corner / Re: delphi 10
« on: May 12, 2020, 08:31:56 PM »
thanks mars. I'll try "parentfont=true", so that the font is just one.
I do not know if it is an oversight but with parentfont = true which is the default value it does not work, for each component accepting a custom FONT it is absolutely necessary to put parentfont = false everywhere, which also has the consequence of add the other lines to the dfm



there are actually only 5 locations where this is necessary, just do it for one version and this operation will remain operational for the following versions
the list is:
urltoolbar
toptoolbar
graphbox
centralpnl
mainfrm
  select each element successively, change the value from 8 to 6, then immediately return to the value 8, save main.pas and it is final so that the program is displayed correctly on XP

9
Programmers corner / Re: delphi 10
« on: May 10, 2020, 09:39:28 PM »
sigh..... i suspected what i did was not enough. Maybe mars could give me its main.dfm, but that may also be not enough.

I may be able to make tests using a VM with XP.

sorry for the delay but the last version alpha06 cannot be compiled on my delphi xe2, suddenly I modified the dfm by hand

what is different from the original version is the addition where it seems necessary to have
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False

10
Programmers corner / Re: delphi 10
« on: May 10, 2020, 05:37:12 PM »
i tried as you said, but i noticed that the only change in the DFM file was to add "ExplicitLeft". Strange. Maybe i didn't do it in the right way. I did it only for the main form now, if someone will confirm that it's working i'll do it for the other windows.

I imagine that this is just a problem inherent in the delphi version, and that by doing so we get to initialize the right values quite simply. it is not necessary to add it to the dfm

11
Programmers corner / Re: delphi 10
« on: May 10, 2020, 03:29:22 PM »
Quote
I run these alpha versions mostly with Ctrl & Shift pressed, thus no configuration was loaded.

try to use
Menu >> Debug >> Temporaly reset options

12
HTML & templates / Re: Alternative login form for modern browsers
« on: May 10, 2020, 02:54:51 PM »
Why stop now while everything is going so well  ;)

      if goodPassword(data.postVars.values['__PASSWORD_SHA256'], strSHA256)
      or goodPassword(data.postVars.values['__PASSWORD_MD5'], strMD5)
      or goodPassword(data.postVars.values['__PASSWORD_B64'], strB64)
      or (data.postVars.values['__PASSWORD'] = data.account.pwd) then

https://www.base64encoder.io/javascript/

we could even avoid indicating the type of encryption when sending the form in case of interception of frames
     if goodPassword(data.postVars.values['__PASSWORD'], strSHA256)
      or goodPassword(data.postVars.values['__PASSWORD'], strMD5)
      or goodPassword(data.postVars.values['__PASSWORD'], strB64)
      or (data.postVars.values['__PASSWORD'] = data.account.pwd) then

13
Bug reports / Re: Bug: Logout function at server level [Fixed]
« on: May 10, 2020, 02:35:28 PM »

Quote from: silentpliz
Mars, arrête de pirater mes posts, sinon je me fâche !!!

 Finally Silentpliz found his electric razor  8)
before

and after

by its star rating we can see that its neurons are 100% charged again  ;D ;D



14
Programmers corner / Re: delphi 10
« on: May 09, 2020, 05:50:35 PM »
cool, thanks. Maybe the best solution is to totally remove the font settings from the DFM files ? can you try that way?

deleting or modifying the fonts in the dfm is not enough, it is absolutely necessary to perform the operation for each inspector object of the structure, there are less than ten

15
Programmers corner / Re: delphi 10
« on: May 09, 2020, 05:25:05 PM »

I have very very good news to announce

working as a rebutto from the start with turbo delphi 2006, until then everything was going well, then for some time I had to work on another project which required at least a delphi XE, but despite unsuccessful tests the compilation of hfs did not pass not a few minor modifications still made it possible to obtain an exe but with a display of the huge buttons as I no longer know who made us a capture

I tried the delphi rio on a loaned pc but which only accepts windows 8 at least to work, but it was rather frustrating.

I managed to find the origin of the problem, you have to go into the design of the main.not and modify all the font sizes by increasing them by 2 pixels each, compile the project then return to the normal size of all fonts

So the latest sources can be compiled on a delphi XE2 running under Windows XP




I now need to check the overbyte update and the jcl suite like on delphi rio to complete compatibility with rejetto

Pages: [1] 2 3 ... 128