ImportExport`RegisterExport[
	"UnsignedInteger128",
	Export[#1,#2,{"Binary","UnsignedInteger128"},##3]&,
	"Sources" -> ImportExport`DefaultSources["Binary"],
	"FunctionChannels" -> {"Streams"},
	"BinaryFormat" -> True
]