Ararat Synapse

> Hi,
> 
> I read all posts which match to "10091" on this news group 
> but can't find solution. I am running demo "sftp". I set 
> sll_openssl plugin instead of cryptlib (application is not 
> responding with this plugin). But when I click "connect" I 
> get error 10091 "Network subsystem is unusable". I looked at 
> TSimpleSFTP.Connect and this line is strange:
> 
> FSocket.SSL.SSLType:=LT_SSHv2;
> 
> Because is seems that this type is not handled in TSSLOpenSSL.Init:
> 
>   case FSSLType of
>     LT_SSLv2:
>       Fctx := SslCtxNew(SslMethodV2);
>     LT_SSLv3:
>       Fctx := SslCtxNew(SslMethodV3);
>     LT_TLSv1:
>       Fctx := SslCtxNew(SslMethodTLSV1);
>     LT_all:
>       Fctx := SslCtxNew(SslMethodV23);
>   else
>     Exit;
>   end;
> 
> Case is going to ELSE, so exit with result=false;
> 
> Can you help me?
> 
> Regards

Openssl has no support for ssh. You have to use cryptlib with synapse for
sftp.

Ludo

With Cryptlib I get this same error 10091 (but instead of "Network
subsystem is unusable" I see some squares (some charset problem). I
debug into and problem is in function:

TSSLCryptLib.Connect

In line:
if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_ACTIVE, 1)) then
      Exit;

SSLCheck return False, because cryptSetAttribute return -22 (and in
SSLCheck is error check if Value<>0 then error). I can't debug further
because cryptSetAttribute is external function

I am using latest stable synapse 39 and cryptlib 3.2.2 from synapse serwer.
I tried with synapse snapshot but this same error, so I downloaded
cryptlib 3.4.1 and ssl_cryptlib.pas (from synapse) is incompatible
with cryptlib.pas (from crytplib). I can't compile it (Incompatible
types Char and AnsiChar in function cryptKeysetOpen. I have Delphi
2010 32bit.

Regards

> With Cryptlib I get this same error 10091 (but instead of 
> "Network subsystem is unusable" I see some squares (some 
> charset problem). I debug into and problem is in function:
> 
> TSSLCryptLib.Connect
> 
> In line:
> if not SSLCheck(cryptSetAttribute(FCryptSession, 
> CRYPT_SESSINFO_ACTIVE, 1)) then
>       Exit;
> 
> SSLCheck return False, because cryptSetAttribute return -22 
> (and in SSLCheck is error check if Value<>0 then error). I 
> can't debug further because cryptSetAttribute is external function
> 

Are you getting more information in SSL.LastErrorDesc? You can trace into
SSLCheck and verify the value at the end.

Without more info, the primary suspect is that there is something wrong with
the SSH authorization (wrong credentials, key mismatch,...). 


> I am using latest stable synapse 39 and cryptlib 3.2.2 from 
> synapse serwer. I tried with synapse snapshot but this same 
> error, so I downloaded cryptlib 3.4.1 and ssl_cryptlib.pas 
> (from synapse) is incompatible with cryptlib.pas (from 
> crytplib). I can't compile it (Incompatible types Char and 
> AnsiChar in function cryptKeysetOpen. I have Delphi 2010 32bit.
> 

Unfortunately, cryptlib versions aren't binary compatible and every cryptlib
release has to use new pascal bindings. AFAIK the pascal bindings from
cryptlib are generated by a script and sometimes some "fiddling" is required
to get it working with a particular Delphi version, or Freepascal in my
case. I've been using ssh with cryptlib 3.2.2 succesfully, so the cryptlib
version isn't my first suspect here.

Ludo

2012/2/22 Ludo Brands <ludo.brands@...>:
>> With Cryptlib I get this same error 10091 (but instead of
>> "Network subsystem is unusable" I see some squares (some
>> charset problem). I debug into and problem is in function:
>>
>> TSSLCryptLib.Connect
>>
>> In line:
>> if not SSLCheck(cryptSetAttribute(FCryptSession,
>> CRYPT_SESSINFO_ACTIVE, 1)) then
>>       Exit;
>>
>> SSLCheck return False, because cryptSetAttribute return -22
>> (and in SSLCheck is error check if Value<>0 then error). I
>> can't debug further because cryptSetAttribute is external function
>>
>
> Are you getting more information in SSL.LastErrorDesc? You can trace into
> SSLCheck and verify the value at the end.

Ok, so I'm back to stable synapse 39 and cryptlib 3.2.2.

So in summary, problem is in function:

TSSLCryptLib.Connect

In line:
if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_ACTIVE, 1)) then
      Exit;

Function cryptSetAttribute return value -22 and send it to SSLCheck.
This occur error:

FLastErrorDesc := GetString(FCryptSession, CRYPT_ATTRIBUTE_INT_ERRORMESSAGE);

Above string is "'敓癲牥爠灥牯整㩤䤠癮污摩瀠獡睳牯d'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0".
Instead of these
 chinese chars I see squares. GetString is calling:
cryptGetAttributeString(cryptHandle, attributeType, pointer(Result), l);
... where attributeType=13
I think something wrong is with function cryptSetAttribute (which
return -22) because it is suspending for 5-10 seconds.

Regards

> Ok, so I'm back to stable synapse 39 and cryptlib 3.2.2.
> 
> So in summary, problem is in function:
> 
> TSSLCryptLib.Connect
> 
> In line:
> if not SSLCheck(cryptSetAttribute(FCryptSession, 
> CRYPT_SESSINFO_ACTIVE, 1)) then
>       Exit;
> 
> Function cryptSetAttribute return value -22 and send it to 
> SSLCheck. This occur error:
> 
> FLastErrorDesc := GetString(FCryptSession, 
> CRYPT_ATTRIBUTE_INT_ERRORMESSAGE);
> 
> Above string is "'敓癲牥爠灥牯整㩤䤠癮污摩瀠獡睳牯d'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0".
> Instead of these
>  chinese chars I see squares. GetString is calling: 
> cryptGetAttributeString(cryptHandle, attributeType, 
> pointer(Result), l); ... where attributeType=13 I think 
> something wrong is with function cryptSetAttribute (which 
> return -22) because it is suspending for 5-10 seconds.
> 

5-10 seconds isn't that long to do the SSH authorization (even when it fails). 

The chinese characters could mean 2 things. Delphi 10 interpreting the ascii string as unicode or a mismatch with the cryptlib binding and the cryptlib dll loaded. A while ago I was chasing weird bugs in cryptlib which finally turned out to be a wrong cryptlib ddl being picked up. I contributed then a patch to synapse that checks for the correct dll version at run time. I would suggest you try with synapse snapshot or svn and cryptlib 3.2.2.

Ludo

I have tried this combination too, but this same error

> 
> I have tried this combination too, but this same error
> 

Just tried sftp demo with D2006, cl332 and synapse svn. It connects
correctly but then raises an out of memory exception in Receive packet in
TSimpleSFTP.Init which is well after the SSH authentication.

I get also the 10091 error when I mistype the username or password but it
gives a nice "Server reported: Invalid password" after 5-10 seconds.

I don't have D2010 so perhaps somebody else can help.

Ludo

Hi

I am using cryptlib.pas (cl-3.4.1.zip) and synapse svn with the sftp code

and I get following same errors on linux and window compile with freepascal 2.6.0 using -Mdelphi compile option (suppose to be delphi 7+ compatible ??)

simplesftp.pas(429,40) Hint: Conversion between ordinals and pointers is not portable
simplesftp.pas(429,33) Hint: Conversion between ordinals and pointers is not portable
simplesftp.pas(430,10) Hint: Conversion between ordinals and pointers is not portable
simplesftp.pas(430,3) Hint: Conversion between ordinals and pointers is not portable
simplesftp.pas(429,40) Warning: Converting pointers to signed integers may result in wrong comparison results  nd range errors, use an unsigned type instead.
simplesftp.pas(430,10) Warning: Converting pointers to signed integers may result in wrong comparison results  nd range errors, use an unsigned type instead.
simplesftp.pas(445,5) Note: Local variable "CurDWORD" not used
simplesftp.pas(470,24) Error: Illegal qualifier
simplesftp.pas(476,15) Error: Identifier not found "CopyMemory"
simplesftp.pas(478,15) Error: Identifier not found "CopyMemory"
simplesftp.pas(480,18) Error: Identifier not found "CopyMemory"
simplesftp.pas(491,13) Error: Identifier not found "CopyMemory"
simplesftp.pas(632,21) Error: Identifier not found "CreateFile"
simplesftp.pas(632,50) Error: Identifier not found "GENERIC_READ"
simplesftp.pas(632,66) Error: Identifier not found "FILE_SHARE_READ"
simplesftp.pas(632,83) Error: Identifier not found "FILE_SHARE_WRITE"
simplesftp.pas(632,101) Error: Identifier not found "OPEN_EXISTING"
simplesftp.pas(634,36) Error: Identifier not found "INVALID_HANDLE_VALUE"
simplesftp.pas(635,19) Error: Identifier not found "Windows"
simplesftp.pas(640,16) Error: Identifier not found "CloseHandle"
simplesftp.pas(653,21) Error: Identifier not found "CreateFile"
simplesftp.pas(653,51) Error: Identifier not found "GENERIC_WRITE"
simplesftp.pas(653,67) Error: Identifier not found "FILE_SHARE_READ"
simplesftp.pas(653,84) Error: Identifier not found "FILE_SHARE_WRITE"
simplesftp.pas(653,102) Error: Identifier not found "OPEN_EXISTING"
simplesftp.pas(655,36) Error: Identifier not found "INVALID_HANDLE_VALUE"
simplesftp.pas(656,19) Error: Identifier not found "Windows"
simplesftp.pas(658,16) Error: Identifier not found "CloseHandle"
simplesftp.pas(709,13) Error: Identifier not found "CopyMemory"

You guys are lucky you got runtime errors 

lists@...

On Wed, 22 Feb 2012 16:07:40 +0100
"Ludo Brands" <ludo.brands@...> wrote:

> > 
> > I have tried this combination too, but this same error
> > 
> 
> Just tried sftp demo with D2006, cl332 and synapse svn. It connects
> correctly but then raises an out of memory exception in Receive packet in
> TSimpleSFTP.Init which is well after the SSH authentication.
> 
> I get also the 10091 error when I mistype the username or password but it
> gives a nice "Server reported: Invalid password" after 5-10 seconds.
> 
> I don't have D2010 so perhaps somebody else can help.
> 
> Ludo
> 
> 
> ------------------------------------------------------------------------------
> Virtualization & Cloud Management Using Capacity Planning
> Cloud computing makes use of virtualization - but cloud computing 
> also focuses on allowing computing to be delivered as a service.
> http://www.accelacomm.com/jaw/sfnl/114/51521223/
> _______________________________________________
> synalist-public mailing list
> synalist-public@...
> https://lists.sourceforge.net/lists/listinfo/synalist-public

> simplesftp.pas(470,24) Error: Illegal qualifier
> simplesftp.pas(476,15) Error: Identifier not found "CopyMemory"
> simplesftp.pas(478,15) Error: Identifier not found "CopyMemory"
> simplesftp.pas(480,18) Error: Identifier not found "CopyMemory"
> simplesftp.pas(491,13) Error: Identifier not found "CopyMemory"
> simplesftp.pas(632,21) Error: Identifier not found "CreateFile"
> simplesftp.pas(632,50) Error: Identifier not found "GENERIC_READ"
> simplesftp.pas(632,66) Error: Identifier not found "FILE_SHARE_READ"
> simplesftp.pas(632,83) Error: Identifier not found "FILE_SHARE_WRITE"
> simplesftp.pas(632,101) Error: Identifier not found "OPEN_EXISTING"
> simplesftp.pas(634,36) Error: Identifier not found 
> "INVALID_HANDLE_VALUE"
> simplesftp.pas(635,19) Error: Identifier not found "Windows"
> simplesftp.pas(640,16) Error: Identifier not found "CloseHandle"
> simplesftp.pas(653,21) Error: Identifier not found "CreateFile"
> simplesftp.pas(653,51) Error: Identifier not found "GENERIC_WRITE"
> simplesftp.pas(653,67) Error: Identifier not found "FILE_SHARE_READ"
> simplesftp.pas(653,84) Error: Identifier not found "FILE_SHARE_WRITE"
> simplesftp.pas(653,102) Error: Identifier not found "OPEN_EXISTING"
> simplesftp.pas(655,36) Error: Identifier not found 
> "INVALID_HANDLE_VALUE"
> simplesftp.pas(656,19) Error: Identifier not found "Windows"
> simplesftp.pas(658,16) Error: Identifier not found "CloseHandle"
> simplesftp.pas(709,13) Error: Identifier not found "CopyMemory"
> 
> You guys are lucky you got runtime errors 
> 

The sftp code was clearly not ported to fpc. Furthermore, it uses windows
only calls like CopyMemory. FPC has this also in the windows unit.

Using lazarus I used the Delphi project converter tool and I had only to
change one line and set the project options to Delphi mode to get sftp
running. And it also breaks with an out of memory error after succesfully
logging in.

I attach the converted files for your perusal,

Ludo

Thank you - this was the only program in the synapse demos that i had trouble with and brought it out of retirement when i saw this thread

FYI the fpc cross compiler on the commandline in linux making win32 executables works great with synapse

from using the ppcross386 with -gl -vh i get this when it times out and the exception is raised
there were a number of units in places that weren't used but commenting them out had not effect

I hope this gives you additional info you might not have had about where the code was having problems

TApplication.HandleException Synapse TCP/IP Socket error 10060: Connection timed out
  Stack trace:
  $005CB88E  TBLOCKSOCKET__EXCEPTCHECK,  line 2598 of /usr/local/fpc/units-win32/synapse/blcksock.pas
  $005CA968  TBLOCKSOCKET__RECVPACKET,  line 2351 of /usr/local/fpc/units-win32/synapse/blcksock.pas
  $005CA4B9  TBLOCKSOCKET__RECVBUFFEREX,  line 2212 of /usr/local/fpc/units-win32/synapse/blcksock.pas
  $0042E59E  TSIMPLESFTP__RECEIVEBUFFER,  line 722 of SimpleSFTP.pas
  $0042E61C  TSIMPLESFTP__RECEIVEPACKET,  line 733 of SimpleSFTP.pas
  $0042E8DD  TSIMPLESFTP__INIT,  line 767 of SimpleSFTP.pas
  $0042D9C3  TSIMPLESFTP__CONNECT,  line 593 of SimpleSFTP.pas
  $0042BFCF  TTESTSFTPFORM__CONNECTBUTTONCLICK,  line 88 of Main.pas
  $004B7119  TCONTROL__CLICK,  line 2662 of /usr/local/lazarus/lcl-win32/include/control.inc
  $005698A3  TBUTTONCONTROL__CLICK,  line 62 of /usr/local/lazarus/lcl-win32/include/buttoncontrol.inc
  $00569FD6  TCUSTOMBUTTON__CLICK,  line 174 of /usr/local/lazarus/lcl-win32/include/buttons.inc
  $0056A791  TBUTTON__CLICK,  line 349 of /usr/local/lazarus/lcl-win32/include/buttons.inc
  $0056975E  TBUTTONCONTROL__WMDEFAULTCLICKED,  line 26 of /usr/local/lazarus/lcl-win32/include/buttoncontrol.inc
  $0040CF06
  $004A710D  TWINCONTROL__WNDPROC,  line 5276 of /usr/local/lazarus/lcl-win32/include/wincontrol.inc
  $005A996B  DELIVERMESSAGE,  line 113 of /usr/local/lazarus/lcl-win32/lclmessageglue.pas
  $005B3C00  GTK2WSBUTTON_CLICKED,  line 2307 of /usr/local/lazarus/lcl-win32/interfaces/gtk2/gtk2wsstdctrls.pp





The sftp code was clearly not ported to fpc. Furthermore, it uses windows
only calls like CopyMemory. FPC has this also in the windows unit.

Using lazarus I used the Delphi project converter tool and I had only to
change one line and set the project options to Delphi mode to get sftp
running. And it also breaks with an out of memory error after succesfully
logging in.

I attach the converted files for your perusal,

Ludo

after commenting out all the unused units i now get

TApplication.HandleException Out of memory
  Stack trace:
  $0040FE3A
  $00410189
  $005C300D  TSIMPLESFTP__INIT,  line 769 of SimpleSFTP.pas
  $005C20F3  TSIMPLESFTP__CONNECT,  line 595 of SimpleSFTP.pas
  $0042BFCF  TTESTSFTPFORM__CONNECTBUTTONCLICK,  line 89 of Main.pas
  $004B1679  TCONTROL__CLICK,  line 2662 of /usr/local/lazarus/lcl-win32/include/control.inc
  $00563E03  TBUTTONCONTROL__CLICK,  line 62 of /usr/local/lazarus/lcl-win32/include/buttoncontrol.inc
  $00564536  TCUSTOMBUTTON__CLICK,  line 174 of /usr/local/lazarus/lcl-win32/include/buttons.inc
  $00564CF1  TBUTTON__CLICK,  line 349 of /usr/local/lazarus/lcl-win32/include/buttons.inc
  $00563CBE  TBUTTONCONTROL__WMDEFAULTCLICKED,  line 26 of /usr/local/lazarus/lcl-win32/include/buttoncontrol.inc
  $0040CF06
  $004A166D  TWINCONTROL__WNDPROC,  line 5276 of /usr/local/lazarus/lcl-win32/include/wincontrol.inc
  $005A3ECB  DELIVERMESSAGE,  line 113 of /usr/local/lazarus/lcl-win32/lclmessageglue.pas
  $005AE160  GTK2WSBUTTON_CLICKED,  line 2307 of /usr/local/lazarus/lcl-win32/interfaces/gtk2/gtk2wsstdctrls.pp
  $63A44124
  $63A57879
  $63A58A93
WARNING: TLCLComponent.Destroy with LCLRefCount>0. Hint: Maybe the component is processing an event?


interesting how the user is able to login 

/var/log/auth.log

Feb 22 12:50:07 localhost sshd[20367]: Accepted password for sftp1 from 127.0.0.1 port 51791 ssh2
Feb 22 12:50:07 localhost sshd[20367]: pam_unix(sshd:session): session opened for user sftp1 by (uid=0)
Feb 22 12:50:08 localhost sshd[20367]: pam_unix(sshd:session): session closed for user sftp1


Hope this is helpfull

> Thank you - this was the only program in the synapse demos 
> that i had trouble with and brought it out of retirement when 
> i saw this thread
> 
> FYI the fpc cross compiler on the commandline in linux making 
> win32 executables works great with synapse
> 
> from using the ppcross386 with -gl -vh i get this when it 
> times out and the exception is raised there were a number of 
> units in places that weren't used but commenting them out had 
> not effect
> 
> I hope this gives you additional info you might not have had 
> about where the code was having problems
> 
> TApplication.HandleException Synapse TCP/IP Socket error 
> 10060: Connection timed out
>   Stack trace:
>   $005CB88E  TBLOCKSOCKET__EXCEPTCHECK,  line 2598 of 
> /usr/local/fpc/units-win32/synapse/blcksock.pas
>   $005CA968  TBLOCKSOCKET__RECVPACKET,  line 2351 of 
> /usr/local/fpc/units-win32/synapse/blcksock.pas
>   $005CA4B9  TBLOCKSOCKET__RECVBUFFEREX,  line 2212 of 
> /usr/local/fpc/units-win32/synapse/blcksock.pas
>   $0042E59E  TSIMPLESFTP__RECEIVEBUFFER,  line 722 of SimpleSFTP.pas
>   $0042E61C  TSIMPLESFTP__RECEIVEPACKET,  line 733 of SimpleSFTP.pas
>   $0042E8DD  TSIMPLESFTP__INIT,  line 767 of SimpleSFTP.pas
>   $0042D9C3  TSIMPLESFTP__CONNECT,  line 593 of SimpleSFTP.pas
>   $0042BFCF  TTESTSFTPFORM__CONNECTBUTTONCLICK,  line 88 of Main.pas
>   $004B7119  TCONTROL__CLICK,  line 2662 of 
> /usr/local/lazarus/lcl-win32/include/control.inc
>   $005698A3  TBUTTONCONTROL__CLICK,  line 62 of 
> /usr/local/lazarus/lcl-win32/include/buttoncontrol.inc
>   $00569FD6  TCUSTOMBUTTON__CLICK,  line 174 of 
> /usr/local/lazarus/lcl-win32/include/buttons.inc
>   $0056A791  TBUTTON__CLICK,  line 349 of 
> /usr/local/lazarus/lcl-win32/include/buttons.inc
>   $0056975E  TBUTTONCONTROL__WMDEFAULTCLICKED,  line 26 of 
> /usr/local/lazarus/lcl-win32/include/buttoncontrol.inc
>   $0040CF06
>   $004A710D  TWINCONTROL__WNDPROC,  line 5276 of 
> /usr/local/lazarus/lcl-win32/include/wincontrol.inc
>   $005A996B  DELIVERMESSAGE,  line 113 of 
> /usr/local/lazarus/lcl-win32/lclmessageglue.pas
>   $005B3C00  GTK2WSBUTTON_CLICKED,  line 2307 of 
> /usr/local/lazarus/lcl-win32/interfaces/gtk2/gtk2wsstdctrls.pp
> 
> 

The problem I'm seeing is quite different. The stacktrace is the same up to
TSIMPLESFTP__RECEIVEPACKET,  line 733 of SimpleSFTP.pas but I do receive a
packet. However the packet length is enormuous and the OOM occurs at line
746 setlength.

Ludo

> after commenting out all the unused units i now get
> 
> TApplication.HandleException Out of memory
>   Stack trace:
>   $0040FE3A
>   $00410189
>   $005C300D  TSIMPLESFTP__INIT,  line 769 of SimpleSFTP.pas
>   $005C20F3  TSIMPLESFTP__CONNECT,  line 595 of SimpleSFTP.pas
>   $0042BFCF  TTESTSFTPFORM__CONNECTBUTTONCLICK,  line 89 of Main.pas
>   $004B1679  TCONTROL__CLICK,  line 2662 of 
> /usr/local/lazarus/lcl-win32/include/control.inc
>   $00563E03  TBUTTONCONTROL__CLICK,  line 62 of 
> /usr/local/lazarus/lcl-win32/include/buttoncontrol.inc
>   $00564536  TCUSTOMBUTTON__CLICK,  line 174 of 
> /usr/local/lazarus/lcl-win32/include/buttons.inc
>   $00564CF1  TBUTTON__CLICK,  line 349 of 
> /usr/local/lazarus/lcl-win32/include/buttons.inc
>   $00563CBE  TBUTTONCONTROL__WMDEFAULTCLICKED,  line 26 of 
> /usr/local/lazarus/lcl-win32/include/buttoncontrol.inc
>   $0040CF06
>   $004A166D  TWINCONTROL__WNDPROC,  line 5276 of 
> /usr/local/lazarus/lcl-win32/include/wincontrol.inc
>   $005A3ECB  DELIVERMESSAGE,  line 113 of 
> /usr/local/lazarus/lcl-win32/lclmessageglue.pas
>   $005AE160  GTK2WSBUTTON_CLICKED,  line 2307 of 
> /usr/local/lazarus/lcl-win32/interfaces/gtk2/gtk2wsstdctrls.pp
>   $63A44124
>   $63A57879
>   $63A58A93
> WARNING: TLCLComponent.Destroy with LCLRefCount>0. Hint: 
> Maybe the component is processing an event?
> 
> 
> interesting how the user is able to login 
> 
> /var/log/auth.log
> 
> Feb 22 12:50:07 localhost sshd[20367]: Accepted password for 
> sftp1 from 127.0.0.1 port 51791 ssh2 Feb 22 12:50:07 
> localhost sshd[20367]: pam_unix(sshd:session): session opened 
> for user sftp1 by (uid=0) Feb 22 12:50:08 localhost 
> sshd[20367]: pam_unix(sshd:session): session closed for user sftp1
> 
> 

As said before, this problem is after the SSH authentication. You are logged
in but the FTP protocol negociation fails. 

Ludo

> interesting how the user is able to login 
> 
> /var/log/auth.log
> 
> Feb 22 12:50:07 localhost sshd[20367]: Accepted password for 
> sftp1 from 127.0.0.1 port 51791 ssh2 Feb 22 12:50:07 
> localhost sshd[20367]: pam_unix(sshd:session): session opened 
> for user sftp1 by (uid=0) Feb 22 12:50:08 localhost 
> sshd[20367]: pam_unix(sshd:session): session closed for user sftp1
> 

The difference between your situation and mine is that we both get logged in
but you don't receive an answer for the ftp negotiation and I receive data
that can't be interpreted correctly. Probably a difference in server. 
At the beginning of TSimpleSFTP.Init it says "//negotiate protocol version
(we support version 3 only!)      ". Although, when I connect with the sftp
command line (mingw), and type 'version' at the sftp prompt after logging
in, it says SFTP protocol version 3. So there is apparently something wrong
in the TSimpleSFTP implementation.

Ludo

In case you missed my setup - i'm cross compiling the code on linux with the ppcross386 on cli
and not compiling it in lazarus and then running the exe with wine. I usually convert the lfm form data
from Main.lfm into the Main.pas but will wait until this error is fixed so we are all using same code.

On Wed, 22 Feb 2012 21:33:59 +0100
"Ludo Brands" <ludo.brands@...> wrote:

> > interesting how the user is able to login 
> > 
> > /var/log/auth.log
> > 
> > Feb 22 12:50:07 localhost sshd[20367]: Accepted password for 
> > sftp1 from 127.0.0.1 port 51791 ssh2 Feb 22 12:50:07 
> > localhost sshd[20367]: pam_unix(sshd:session): session opened 
> > for user sftp1 by (uid=0) Feb 22 12:50:08 localhost 
> > sshd[20367]: pam_unix(sshd:session): session closed for user sftp1
> > 
> 
> The difference between your situation and mine is that we both get logged in
> but you don't receive an answer for the ftp negotiation and I receive data
> that can't be interpreted correctly. Probably a difference in server. 

I'm running openssh 5.9p1 sshd with the following in the sshd_config

Subsystem	sftp	/usr/local/libexec/sftp-server

Match group sftp
	X11Forwarding no
	AllowTcpForwarding no
	ChrootDirectory /home/sftp/%u
	ForceCommand internal-sftp

%u in this case being sftp1

> At the beginning of TSimpleSFTP.Init it says "//negotiate protocol version
> (we support version 3 only!)      ". Although, when I connect with the sftp
> command line (mingw), and type 'version' at the sftp prompt after logging
> in, it says SFTP protocol version 3. So there is apparently something wrong
> in the TSimpleSFTP implementation.

I get the same

> 
> Ludo
> 
> 
> ------------------------------------------------------------------------------
> Virtualization & Cloud Management Using Capacity Planning
> Cloud computing makes use of virtualization - but cloud computing 
> also focuses on allowing computing to be delivered as a service.
> http://www.accelacomm.com/jaw/sfnl/114/51521223/
> _______________________________________________
> synalist-public mailing list
> synalist-public@...
> https://lists.sourceforge.net/lists/listinfo/synalist-public

On Wed, Feb 22, 2012 at 5:40 AM, Ludo Brands <ludo.brands@...> wrote:
>
> > With Cryptlib I get this same error 10091 (but instead of
> > "Network subsystem is unusable" I see some squares (some
> > charset problem). I debug into and problem is in function:
> >
> > TSSLCryptLib.Connect
> >
> > In line:
> > if not SSLCheck(cryptSetAttribute(FCryptSession,
> > CRYPT_SESSINFO_ACTIVE, 1)) then
> >       Exit;
> >
> > SSLCheck return False, because cryptSetAttribute return -22
> > (and in SSLCheck is error check if Value<>0 then error). I
> > can't debug further because cryptSetAttribute is external function
> >
>
> Are you getting more information in SSL.LastErrorDesc? You can trace into
> SSLCheck and verify the value at the end.
>
> Without more info, the primary suspect is that there is something wrong with
> the SSH authorization (wrong credentials, key mismatch,...).
>
>
> > I am using latest stable synapse 39 and cryptlib 3.2.2 from
> > synapse serwer. I tried with synapse snapshot but this same
> > error, so I downloaded cryptlib 3.4.1 and ssl_cryptlib.pas
> > (from synapse) is incompatible with cryptlib.pas (from
> > crytplib). I can't compile it (Incompatible types Char and
> > AnsiChar in function cryptKeysetOpen. I have Delphi 2010 32bit.
> >
>
> Unfortunately, cryptlib versions aren't binary compatible and every cryptlib
> release has to use new pascal bindings. AFAIK the pascal bindings from
> cryptlib are generated by a script and sometimes some "fiddling" is required
> to get it working with a particular Delphi version, or Freepascal in my
> case. I've been using ssh with cryptlib 3.2.2 succesfully, so the cryptlib
> version isn't my first suspect here.

Where I get the official cryptlib (unit and DLL) for FPC and Delphi?

Thanks,
Marcos Douglas

Am 2013-02-19 16:20, schrieb Marcos Douglas:
> Where I get the official cryptlib (unit and DLL) for FPC and Delphi?
Maybe here: http://cryptlib.sogot.de/delphi.html

On Tue, Feb 19, 2013 at 1:49 PM, Jürgen Hestermann
<juergen.hestermann@...> wrote:
>
> Am 2013-02-19 16:20, schrieb Marcos Douglas:
>> Where I get the official cryptlib (unit and DLL) for FPC and Delphi?
>
> Maybe here: http://cryptlib.sogot.de/delphi.html

Is this the official implementation?
I think this is only for Delphi... we have an FPC implementation too?

Regards,
Marcos Douglas

Am 2013-02-19 18:21, schrieb Marcos Douglas:
> Is this the official implementation? I think this is only for Delphi... we have an FPC implementation too? 

I don't think that there is an extra FPC version.
The Delphi version should be compatible (I think).
When I last used CryptLib only one version existed
and it worked for both. In the end it's just a unit.

On Tue, Feb 19, 2013 at 2:40 PM, Jürgen Hestermann
<juergen.hestermann@...> wrote:
>
> Am 2013-02-19 18:21, schrieb Marcos Douglas:
>> Is this the official implementation? I think this is only for Delphi... we have an FPC implementation too?
>
> I don't think that there is an extra FPC version.
> The Delphi version should be compatible (I think).
> When I last used CryptLib only one version existed
> and it worked for both. In the end it's just a unit.

Ok, thanks... but I tried to use the synapse-demo (sftp), trunk
version, using Delphi 7.
I compiled but when I run and click in "connect" I got an error: "Out of memory"

Marcos Douglas

Am 2013-02-19 18:40, schrieb Jürgen Hestermann:
> Am 2013-02-19 18:21, schrieb Marcos Douglas:
>> Is this the official implementation? I think this is only for Delphi... we have an FPC implementation too?
>
Back in 2009 it says that CryptLib is not supported on Free Pascal:
http://www.lazarus.freepascal.org/index.php?topic=6982.0

I hope that this has changed since then.

On Tue, Feb 19, 2013 at 2:51 PM, Jürgen Hestermann
<juergen.hestermann@...> wrote:
>
> Am 2013-02-19 18:40, schrieb Jürgen Hestermann:
>> Am 2013-02-19 18:21, schrieb Marcos Douglas:
>>> Is this the official implementation? I think this is only for Delphi... we have an FPC implementation too?
>>
> Back in 2009 it says that CryptLib is not supported on Free Pascal:
> http://www.lazarus.freepascal.org/index.php?topic=6982.0
>
> I hope that this has changed since then.
>

In this link have this other: http://synapse.ararat.cz/files/crypt/
I did not know about it. There is other cryptlib.pas[1]? I will compare both.

[1] http://cryptlib.sogot.de/delphi.html  and
http://synapse.ararat.cz/files/crypt/

Marcos Douglas

On Tue, Feb 19, 2013 at 2:57 PM, Marcos Douglas <md@...> wrote:
> On Tue, Feb 19, 2013 at 2:51 PM, Jürgen Hestermann
> <juergen.hestermann@...> wrote:
>>
>> Am 2013-02-19 18:40, schrieb Jürgen Hestermann:
>>> Am 2013-02-19 18:21, schrieb Marcos Douglas:
>>>> Is this the official implementation? I think this is only for Delphi... we have an FPC implementation too?
>>>
>> Back in 2009 it says that CryptLib is not supported on Free Pascal:
>> http://www.lazarus.freepascal.org/index.php?topic=6982.0
>>
>> I hope that this has changed since then.
>>
>
> In this link have this other: http://synapse.ararat.cz/files/crypt/
> I did not know about it. There is other cryptlib.pas[1]? I will compare both.
>
> [1] http://cryptlib.sogot.de/delphi.html  and
> http://synapse.ararat.cz/files/crypt/

Well, the cryptlib by "sogot.de" is more fresh than synapse's cryptlib.

Marcos Douglas

Am 2013-02-19 18:57, schrieb Marcos Douglas:
> In this link have this other: http://synapse.ararat.cz/files/crypt/
> I did not know about it. There is other cryptlib.pas[1]? I will compare both.

but these look like old versions (3.2.2) only

On Tue, Feb 19, 2013 at 3:02 PM, Jürgen Hestermann
<juergen.hestermann@...> wrote:
>
> Am 2013-02-19 18:57, schrieb Marcos Douglas:
>> In this link have this other: http://synapse.ararat.cz/files/crypt/
>> I did not know about it. There is other cryptlib.pas[1]? I will compare both.
>
> but these look like old versions (3.2.2) only

Yeah, you're right, I did not see.
Well, I will test the Synapse's demo again using both version.

Anyway, are there another way to use SFTP?

Regards,
Marcos Douglas