A net-utils like confirm function for R3

confirm

confirm: func [ tcp-port [port!] challenge [string!] code [string!]
  /local data
][
	write tcp-port challenge
	tcp-port/awake: func [ event ][
		tcp-port: event/port
		switch/default event/type [
			wrote [
				read tcp-port
				false
			]
			read [
				data: enline to-string tcp-port/data
				true
			]
		][ true ]
	]
	wait tcp-port
	reduce [ find/part data length? code data ]
]