2012/2/22 Ludo Brands <ludo.bra...@free.fr>:
>> 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
------------------------------------------------------------------------------
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@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
