[prev in list] [next in list] [prev in thread] [next in thread] 

List:       twsocket
Subject:    Re: [twsocket] TSmtpCli and password
From:       "Francois PIETTE" <francois.piette () overbyte ! be>
Date:       2005-02-28 18:55:13
Message-ID: 02aa01c51dc7$0be128d0$6401a8c0 () TOSHIBA2
[Download RAW message or body]

> > 1) Is the string you get what you expect to have ?
> 1-because TSmtpClient.password need a string.

> > 2) What do you mean by "not work" ? Be more precise: what is the error
> > message or exception ? Describe what 'not work' means.
> 2-Password as string is not accepted by server.

I really don't understand your point !
Password are always strings. Is your problem a conversion problem between
string and shortstring ?
You must send the password exactly as expected by the server. If the server
tell you to use "MyPassword" then you must send that exactly.

> Is not necessary...Ok I want to send password as read only also
> for privacy reason

I don't understand what you mean "send as read only".

Looking at your code, it seems that you want to store scrambled password in
the registry. That's perfect provided you unscramble the password before
feeding it to the SMTP component. The component will scramble it according
to SmtpAuthType selected and of course according to server capabilities.

See this extracted from the component source code:
    TSmtpAuthType    = (smtpAuthNone,        smtpAuthPlain,
smtpAuthLogin,
                        smtpAuthCramMD5,     smtpAuthCramSha1,
                        smtpAuthAutoSelect);

Again, please explain clearly what you want to do (really) and maybe we can
give you some useful advice.

--
francois.piette@overbyte.be
http://www.overbyte.be



----- Original Message ----- 
From: "GSE Sas" <gse-sas@eurofasteners.com>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Monday, February 28, 2005 7:34 PM
Subject: Re: [twsocket] TSmtpCli and password


> 1-because TSmtpClient.password need a string.
> 2-Password as string is not accepted by server.
>
> Is not necessary...Ok I want to send password as read only also for
privacy
> reason
>
> Robert
> ----- Original Message ----- 
> From: "Francois PIETTE" <francois.piette@overbyte.be>
> To: "ICS support mailing" <twsocket@elists.org>
> Sent: Monday, February 28, 2005 6:15 PM
> Subject: Re: [twsocket] TSmtpCli and password
>
>
> >> The string not work when inserted in TSmtpCli.Password why?
> >
> > To questions:
> > 1) Is the string you get what you expect to have ?
> > 2) What do you mean by "not work" ? Be more precise: what is the error
> > message or exception ? Describe what 'not work' means.
> >
> >> Is not necessary for me decode the password
> >
> > For you probably not, but for the SMTP server: surely !
> >
> > --
> > francois.piette@overbyte.be
> > http://www.overbyte.be
> >
> >
> > ----- Original Message ----- 
> > From: "GSE Sas" <gse-sas@eurofasteners.com>
> > To: "ICS support mailing" <twsocket@elists.org>
> > Sent: Monday, February 28, 2005 5:43 PM
> > Subject: [twsocket] TSmtpCli and password
> >
> >
> >> I want use the SMTP password of my client as
> >>
> >> Function GetPassword(UserAddr:ShortString):ShortString;
> >> var
> >>   Reg: TRegistry;
> >>   i,Len:Integer;
> >>   Buf:PByteArray;
> >> Begin
> >>   Reg:=TRegistry.Create;
> >>   Result:='';
> >>   Try
> >>     Reg.RootKey :=CurKey;
> >>     if Reg.OpenKey(UserAddr,False) then
> >>     begin
> >>       Buf:=AllocMem($FFFF);
> >>       Len:=Reg.ReadBinaryData('SMTP Password2',Buf^,$FFFF);
> >>       For i:=0 To Len-1 Do
> >>       Begin
> >>         Result:=Result+IntToHex(Buf[i],2)+' ';
> >>       End;
> >>       If Len>0 Then Delete(Result,Length(Result),1);
> >>       FreeMem(Buf,$FFFF);
> >>     End;
> >>   Except
> >>     On E:ERegistryException Do Begin End;
> >>   End;
> >>   Reg.Free;
> >> End;
> >>
> >> The string not work when inserted in TSmtpCli.Password why?
> >> Is not necessary for me decode the password
> >>
> >> Tks for your help
> >> Robert
> >>
> >> To unsubscribe or change your settings for TWSocket mailing list
> >> please goto http://www.elists.org/mailman/listinfo/twsocket
> >> Visit our website at http://www.overbyte.be
> >>
> >>
> >> -- 
> >> To unsubscribe or change your settings for TWSocket mailing list
> >> please goto http://www.elists.org/mailman/listinfo/twsocket
> >> Visit our website at http://www.overbyte.be
> >>
> >
> >
> > -- 
> > To unsubscribe or change your settings for TWSocket mailing list
> > please goto http://www.elists.org/mailman/listinfo/twsocket
> > Visit our website at http://www.overbyte.be
> >
>
>
>
> -- 
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://www.elists.org/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be
>


-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
[prev in list] [next in list] [prev in thread] [next in thread]