eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Now assigns random port based on IANI recommendations

This commit is contained in:
mysticbbs 2013-09-07 19:03:24 -04:00
parent ada1c5dfd1
commit 027af16d6f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mdl/m_tcp_client_ftp.pas
View File

@ -15,6 +15,8 @@ Type
DataIP : String;
DataSocket : TIOSocket;
IsPassive : Boolean;
MinPort : Word;
MaxPort : Word;
Constructor Create (NetI: String); Override;
Function OpenDataSession : Boolean;
@ -41,9 +43,11 @@ Constructor TFTPClient.Create (NetI: String);
Begin
Inherited Create(NetI);
IsPassive := False;
DataIP := '';
DataPort := ftpDefaultDataPort;
IsPassive := False;
DataIP := '';
MinPort := 49152;
MaxPort := 65535;
DataPort := Random(MaxPort - MinPort) + MinPort;
End;
Function TFTPClient.OpenDataSession : Boolean;
@ -154,7 +158,7 @@ Begin
End;
End Else Begin
IsPassive := False;
DataPort := ftpDefaultDataPort;
DataPort := Random(MaxPort - MinPort) + MinPort;
Result := SendCommand('PORT ' + strReplace(Client.PeerIP, '.', ',') + ',' + strI2S(WordRec(DataPort).Hi) + ',' + strI2S(WordRec(DataPort).Lo)) = 200;
End;
End;