I have isolated my problem, it appears that the scenario is the following: I actually get back the file from the server, its a text file named get, containing the string "TRANSFER TEST FILE"
#Tftp client code#
The first packet that I send is in the $rrq (READ REQUEST) variable: |2 byte op code "00:01" for RRQ|file name "67:65:74", meaning "get"|1 byte delimiter 0 "00"|mode "6f:63:74:65:74" meaning "octet"|1 byte ending 0 "00"
This is the code that I have: #include UDPStartup ( ) $socket = UDPOpen ( "192.168.1.84", 69 ) $rrq = "0x" & "0001676574006f6374657400" $status = UDPSend ( $socket, $rrq ) If $status = 0 then MsgBox ( 0, "ERROR", "Error while sending UDP message: " & ) Exit EndIf $srcv = UDPRecv ( $socket, 516 ) ConsoleWrite ( "Received Response: " & _HexToString ( Stringmid ( $srcv, 9 ) ) ) ConsoleWrite ( ) ConsoleWrite ( "Received Response: " & $srcv ) ConsoleWrite ( ) $rrq2 = "0x" & "0004001" $status2 = UDPSend ( $socket, $rrq2 ) $srcv2 = UDPRecv ( $socket, 516 ) ConsoleWrite ( "Received Response: " & _HexToString ( Stringmid ( $srcv2, 9 ) ) ) ConsoleWrite ( ) ConsoleWrite ( "Received Response: " & $srcv2 ) ConsoleWrite ( ) UDPCloseSocket ( $socket ) UDPShutdown ( ) I would greatly appreciate the input of some RFC gurus. I'm trying to write a TFTP Client and a TFTP Server in autoIT., so far I'm only at the client.
0 kommentar(er)
