TSSHClient (Synapse + SSL CryptoLib based)

← →
Сергей М. © (2010-10-20 15:02) [0]

Пытаюсь пользовать cl32.dll версии 3.4.0.0 (свежее вроде бы некуда)

ssh: TSSHClient;
..
if ssh.LogIn then // <- засада здесь begin Response := ssh.ReceiveData; // получим приветствие сервера ssh.SendCommand("some shell command"); // скомандуем ему что-либо Response := ssh.ReceiveData; // и получим отклик ShowMessage(Response); // показав его ssh.LogOut; // спасибо и до новых встреч end else ShowMessage(ssh.LastErrorDesc); // посмотрим что ему не понравилось

При этом во фрагменте

function TSSLCryptLib.Connect: boolean; begin Result := False; if FSocket.Socket = INVALID_SOCKET then Exit; if Prepare(false) then begin if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_NETWORKSOCKET, FSocket.Socket)) then Exit; if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_ACTIVE, 1)) then Exit; FSSLEnabled := True; Result := True; FReadBuffer := ""; end; end;

стабильно получаю граблями

Exception EPrivelege in module CL32.DLL at 0008E17E.
Priveleged instruction.

Эт чего такое ?
Либа глюкавая или где ?

Кто-нибудь вообще пользовал успешно эту либу для работы по SSH-протоколу ?

← →
Сергей М. © (2010-10-20 15:06) [1]

ой вру)...

function TSSLCryptLib.Connect: boolean; begin Result := False; if FSocket.Socket = INVALID_SOCKET then Exit; if Prepare(false) then begin if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_NETWORKSOCKET, FSocket.Socket)) then Exit; if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_ACTIVE, 1)) then Exit; FSSLEnabled := True; Result := True; FReadBuffer := ""; end; end;

← →
sniknik © (2010-10-20 16:33) [2]

> Кто-нибудь вообще пользовал успешно эту либу для работы по SSH-протоколу ?
а какая цель, смысл менять? у нас тут про какой то загон говорят, типа "сертифицированная" шифрация для платежей...
у тебя тоже?

← →
sniknik © (2010-10-20 16:34) [3]

упс...
загон = закон
хотя, по сути верно. ;)

> какая цель

Ну пусть будет такая - покомандовать удаленным никсовым сервером ..

TSSHClient (Synapse + SSL CryptoLib based) Найти похожие ветки