Thread Net::FTP auf Win11Pro schmiert ab (4 answers)
Opened by rosti at 2025-07-28 10:29

rosti
 2025-07-29 13:35
#197170 #197170
User since
2011-03-19
3656 Artikel
BenutzerIn
[Homepage]
user image
Beschluss: Selber bauen. Und mit IO::Socket auf Port 21 bin ich schonmal soweit:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
my $so = IO::Socket::INET->new("$host:21") or die $^E;

read2crlf();
$so->print("USER $user".CRLF);
read2crlf();
$so->print("PASS $pass".CRLF);
read2crlf();
$so->print("PASV".CRLF);
read2crlf();
$so->print("CWD files".CRLF);
read2crlf();
$so->print("PWD".CRLF);
read2crlf();

Und der Server antwortet:

220 ProFTPD Server (ProFTPD) [185.146.238.137]
331 Password required for ***
230 User *** logged in
227 Entering Passive Mode (185,146,238,137,202,245).
250 CWD command successful
257 "/files" is the current directory


Damit haben wir den Port für den Daten-Kanal: 202*256 + 245 und machen damit ein neues Socket auf (Passive Mode).

Code (perl): (dl )
1
2

$so->print("STOR test.txt".CRLF);
$dat->print("asdf\n");


Legt also die Datei test.txt auf dem Server an und schreibt "asdf\n" in diese Datei. Das funktioniert schonmal. Der Rest ist dann wohl Tippabeit ;)
Last edited: 2025-07-29 14:57:35 +0200 (CEST)
http://blog.rolfrost.de/

The art of steam.

View full thread Net::FTP auf Win11Pro schmiert ab