AutoIt packet injector 2

#include <string.au3>
Global $sBuffer, $rBuffer
Global $iSize, $iIndex

$IP = "127.0.0.1"
TCPStartUp()
$socket = TCPConnect( $IP, 16000)
If $socket = -1 Then MsgBox (0,"TCP","Can't make a connection")

NewPacket(0x704F,1)
AppendByte(4)
TCPSend($socket,GetPacket())

Func NewPacket($sValue, $iValue)
	Local $sTemp = Hex($sValue)
	$sBuffer = ""
	$iSize = 0
	$sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 4)
	$sBuffer &= StringLeft(ReverseHex(Hex($iValue)), 4)
EndFunc   ;==>NewPacket

Func ReverseHex($sString)
	Local $sTemp, $len
	For $i = StringLen($sString) + 1 To 1 Step -2
		$sTemp &= StringMid($sString, $i, 2)
	Next
	Return $sTemp
EndFunc   ;==>ReverseHex

Func AppendByte($sValue)
	$sBuffer &= StringRight(Hex($sValue), 2)
	$iSize += 1
EndFunc   ;==>AppendByte

Func GetPacket()
	Local $sTemp = "0x"
	$sTemp &= StringLeft(ReverseHex(Hex($iSize)), 4)
	$sTemp &= $sBuffer
	Return $sTemp
EndFunc   ;==>GetPacket