Portforwarding / NAT Tool

phonk

Moin,

ich habe in meinem Setup ein kleines Netzwerkproblem, das es erfordert einem Windows 7 Rechner als Port forwarder / NAT zu benutzen.

Also ich würde gerne ein AutoIT script schreiben, das nur einfach macht:

Höre auf port xxxxx wenn irgendwas hierauf von aussen reinkommt leite dies an ip xxx.xxx.xxx.xxx port xxxxxx weiter.

Natürlich muss auch, der rückwärtstraffic wieder an die andere geleitet werden.

Meine Frage, kann ich dies überhaupt mit autoIT abbilden ?
Und wie unfangreich würde dies werden, oder hat jemand schon eine Lösung ?

Nachid

wenn du weist welche Protokoll würd ichs
mal mit TCP funktionen versuchen....
d.h. du hängst in einer dauerschleife die hört auf dem port
und durch die den jeweiligen absender an den anderen
weiterleitet. Hatte mal so ne idee das man im netzwerk über jemand anderen
Surven kann - habs aber verworfen weil ich mich zu wenig mit
den Netzwerkfunktionen auskenne

phonk

Ja, es ist ein TCP Port.

Nachid

Dann schau dir die Grundlegenden TCP funktionen an

TCPStartUp
TCPSend
TCPRecv

und von denen 2

TCPSend
TCPRecv

jeweils ganz genau die Hilfedatei. Danach solltest du sowas in 2-3h hinbekommen

**peethebee**

Das ist nicht so einfach leider… Vor allem die Rückrichtung fällt einem nicht in der Schoß, so wie ich mir das denke :S.
Was spricht gegen einen billigen Router/Switch?

Johannes

James · AutoIt Version (Prod): 3.3.14.2

Ein Freund von mir hat genau für diesen Zweck ein Skript geschrieben:
http://www.autoitscript.com/forum/topic/13…ket-forwarding/

EDIT #1:
Hat das schon irgendwer ausprobiert?

Nachid

Ich möchte hier eigentlich meinen Code nicht rausrücken,
aber für dich....

durch kleine änderungen wird daraus das was du brauchst

Spoiler anzeigen

Server

[autoit]

;Server by Nachid
$ip = IniRead("config.ini","Config","IP","X")
$port = IniRead("config.ini","Config","Port","X")
$max = IniRead("config.ini","Config","Max","100")
If $ip="X" Or $port="X" Then Exit(1)
TCPStartup()
$main = TCPListen($ip,$port,$max)
Dim $socket[$max+1]
$socketnummer = 0
waitconnect()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func waitconnect()
While 1
$socket[$socketnummer] = TCPAccept($main)
If $socket[$socketnummer] >= 0 Then
$socketnummer = $socketnummer +1
EndIf
For $i=0 To $socketnummer Step +1
$var = TCPRecv($socket[$i],2048)
If $var <> "" Then sendall($var)
Next
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func sendall($var)
For $i=0 To $socketnummer Step +1
TCPSend($socket[$i],$var)
Next
EndFunc

[/autoit]

Client

[autoit]

#cs ----------------------------------------------------------------------------