'Über Socks4 verbinden
ftpConn.RemoteHost = sSocksServer
ftpConn.RemotePort = sSocksPort
 
funftpConnect = ftpConn.Connect(True)
 
If Not funftpConnect Then Exit Function

'Zu Socks4-Proxy erfolgreich verbunden!
Dim SocksHeader As String
 
Dim TempArray() As String
Dim i As Long
Dim HostIP As String
 
'Ziel IP zerlegen...
ReDim TempArray(0)
TempArray = Split(sFTPServer, ".")
If UBound(TempArray) <> 3 Then Exit Function
 
HostIP = ""
For i = 0 To 3 Step 1
   HostIP = HostIP & getChr(getHex(TempArray(i), "2"))
Next
 
'1 - h04 - Socksversion 4
SocksHeader = Chr(&H4)
'2 - h01 - CMD: Connect
SocksHeader = SocksHeader & Chr(&H1)
'3,4 - Port des Zielhosts
SocksHeader = SocksHeader & getChr(getHex(21, "4"))
'5,6,7,8 - IP des Zielhosts
SocksHeader = SocksHeader & HostIP
'9,10,... (variable Länge) - User ID
SocksHeader = SocksHeader & getChr(getHex(sFTPUser, "0"))
'Letztes Byte - h00 - Abschluss
SocksHeader = SocksHeader & Chr(&H0)
 
ftpConn.SendCommand SocksHeader