@verb #322:":_send_packet" this none this rxdo #55
@program #322:":_send_packet" this none this
caller == this || raise(E_PERM)
{data} = args
l = data:length()
l_pad = 3 + (8 - l % 8)
padding = $blob:new(@$list_utils:make(l_pad))
for x in [1..l_pad]
  padding:set_at(x, random(255))
endfor
l = l + l_pad + 1
lstr = $blob:new(l / 256 ^ 3, l / 256 ^ 2, l / 256, l)
packet = $blob:new(lstr, l_pad, data, padding)
packet:send(this.con)
"Last modified by Lao-Tzu (#8084) on Tue Dec 11 06:15:14 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.