redShark

function hack(nFromID, nToID, sMessage, sSide, sProtocol)
	if not sMessage or type(nFromID) ~= "number" or type(nToID) ~= "number" then
		error("hack(nFromID, nToID, sMessage[, sSide, sProtocol])")
	end

	modemSide = peripheral.wrap(sSide) or peripheral.find("modem")
	if not sSide or type(sSide) ~= "string" then
		modemSide = peripheral.find("modem")
	else
		modemSide = peripheral.wrap(sSide)
	end
	rednetProtocol = sProtocol or nil

	local messageID = math.random(1, 800000)

	local message = {nMessageID = messageID, nRecipient = nToID, message = sMessage, sProtocol = rednetProtocol}

	modemSide.transmit(nToID, nFromID, message)
end