Hi,

In Perl I have the following

use IO::Socket::SSL;

my $my_socket = new IO::Socket::SSL(PeerAddr => 'some.server.somewhere,
PeerPort => 12345,
);

my $line = <$my_socket>;
print("$line\n");
say $my_socket 'ECHO 1';
$line = <$my_socket>;
print("$line\n");

This runs as expected and I get

200 Some Server Somewhere - Hello [123.456.789.123]

310 Hello Echo

If I try the same with the following Python code:

import socket
import ssl

HOST = "some.server.somewhere"
PORT = 12345

context = ssl.create_default_context()

with socket.create_connection((HOST, PORT)) as sock:
with context.wrap_socket(sock, server_hostname=HOST) as ssock:
data = ssock.recv(1024)
print(data.decode())
ssock.write(b'ECHO 1')
data = ssock.read(1024)
print(data.decode())

I get a timeout for the 'ECHO' command:

200 Some Server Somewhere - Hello [123.456.789.123]

501 Timeout

Does anyone have an idea what I might be doing wrong?

Cheers,

Loris

--
This signature is currently under construction.

"Loris Bennett" <loris.bennett@fu-berlin.de> writes:
....
>ssock.write(b'ECHO 1')
>data = ssock.read(1024)
....
>Does anyone have an idea what I might be doing wrong?

No. But I'd try:

ssock.send( b"ECHO 1\r\n\r\n" )
data = ssock.recv( 1024 )

. (I don't know about a possible difference between "write"/
"read" and "send"/"recv", but just took that part from working
code of mine.)

In article <871r821wlg.fsf@hornfels.zedat.fu-berlin.de>,
Loris Bennett <loris.bennett@fu-berlin.de> wrote:
>In Perl I have the following
>
> use IO::Socket::SSL;
> my $my_socket = new IO::Socket::SSL(PeerAddr => 'some.server.somewhere,
> PeerPort => 12345,
> );
> my $line = <$my_socket>;
> print("$line\n");
> say $my_socket 'ECHO 1';
> $line = <$my_socket>;
> print("$line\n");
>
>This runs as expected and I get
>
> 200 Some Server Somewhere - Hello [123.456.789.123]
> 310 Hello Echo
>
>If I try the same with the following Python code:
>
> import socket
> import ssl
> HOST = "some.server.somewhere"
> PORT = 12345
> context = ssl.create_default_context()
> with socket.create_connection((HOST, PORT)) as sock:
> with context.wrap_socket(sock, server_hostname=HOST) as ssock:
> data = ssock.recv(1024)
> print(data.decode())
> ssock.write(b'ECHO 1')
> data = ssock.read(1024)
> print(data.decode())
>
>I get a timeout for the 'ECHO' command:
>
> 200 Some Server Somewhere - Hello [123.456.789.123]
> 501 Timeout
>
>Does anyone have an idea what I might be doing wrong?

Loris,

You don't specify the type of your server, but it looks like a
"normal" SMTP or NNTP or whatever server. This type of server is line
oriented.

The Perl "say" operation adds a trailing line terminator. The Python
"ssl:write" does not. Try adding an appropriate line terminator to
your Python code. Most likely it needs to be CR-LF. Perhaps use
"ssock.write(b'ECHO 1\r\n')

- dmw

On 2021-07-13 08:50, Loris Bennett wrote:
> Hi,
>
> In Perl I have the following
>
> use IO::Socket::SSL;
>
> my $my_socket = new IO::Socket::SSL(PeerAddr => 'some.server.somewhere,
> PeerPort => 12345,
> );
>
> my $line = <$my_socket>;
> print("$line\n");
> say $my_socket 'ECHO 1';
> $line = <$my_socket>;
> print("$line\n");
>
> This runs as expected and I get
>
> 200 Some Server Somewhere - Hello [123.456.789.123]
>
> 310 Hello Echo
>
> If I try the same with the following Python code:
>
> import socket
> import ssl
>
> HOST = "some.server.somewhere"
> PORT = 12345
>
> context = ssl.create_default_context()
>
> with socket.create_connection((HOST, PORT)) as sock:
> with context.wrap_socket(sock, server_hostname=HOST) as ssock:
> data = ssock.recv(1024)
> print(data.decode())
> ssock.write(b'ECHO 1')
> data = ssock.read(1024)
> print(data.decode())
>
> I get a timeout for the 'ECHO' command:
>
> 200 Some Server Somewhere - Hello [123.456.789.123]
>
> 501 Timeout
>
> Does anyone have an idea what I might be doing wrong?
>
The docs for Perl says that 'say' appends a newline.

On the other hand, 'ssock.write' doesn't append a newline.

Could that be the problem?

Hi,

MRAB <python@mrabarnett.plus.com> writes:

> On 2021-07-13 08:50, Loris Bennett wrote:
>> Hi,
>>
>> In Perl I have the following
>>
>> use IO::Socket::SSL;
>>
>> my $my_socket = new IO::Socket::SSL(PeerAddr => 'some.server.somewhere,
>> PeerPort => 12345,
>> );
>>
>> my $line = <$my_socket>;
>> print("$line\n");
>> say $my_socket 'ECHO 1';
>> $line = <$my_socket>;
>> print("$line\n");
>>
>> This runs as expected and I get
>>
>> 200 Some Server Somewhere - Hello [123.456.789.123]
>>
>> 310 Hello Echo
>>
>> If I try the same with the following Python code:
>>
>> import socket
>> import ssl
>>
>> HOST = "some.server.somewhere"
>> PORT = 12345
>>
>> context = ssl.create_default_context()
>>
>> with socket.create_connection((HOST, PORT)) as sock:
>> with context.wrap_socket(sock, server_hostname=HOST) as ssock:
>> data = ssock.recv(1024)
>> print(data.decode())
>> ssock.write(b'ECHO 1')
>> data = ssock.read(1024)
>> print(data.decode())
>>
>> I get a timeout for the 'ECHO' command:
>>
>> 200 Some Server Somewhere - Hello [123.456.789.123]
>>
>> 501 Timeout
>>
>> Does anyone have an idea what I might be doing wrong?
>>
> The docs for Perl says that 'say' appends a newline.
>
> On the other hand, 'ssock.write' doesn't append a newline.
>
> Could that be the problem?

Thanks and well-spotted everyone! The missing newline was indeed the
problem. With

ssock.write(b'ECHO 1\n')

the Python codes behaves like the Perl code.

Cheers,

Loris

--
This signature is currently under construction.