Thank for the J.M.'s and SqRoots' help in this post,I make a function to do this,one can use it encrypt any express in a URL.Now you just share your URL to another:
ShareAny[expr_] :=
Module[{list, imageWidth, imageHeight, n},
list = ToCharacterCode[Compress[expr]];
{imageWidth,
imageHeight} = {If[(n = Ceiling[Sqrt[Length[list]/3]])*(n - 1) >
Length[list]/3, n - 1, n], n};
Print[Style[
The following expression to share is in your clipboard., 11,
Red]]; (CopyToClipboard@#; #) &[
Defer[Uncompress@*FromCharacterCode@*
Flatten@*(ImageData[#, "Byte"] &)@*Import][
ImportString[
URLFetch["https://sm.ms/api/upload", Method -> "POST",
"MultipartElements" -> {{"smfile\"; filename=\"tmp.png",
"image/png"} ->
ExportString[
Image[ArrayReshape[list, {imageWidth, imageHeight, 3}],
"Byte"], "PNG"]}], "RawJSON"]["data", "url"]]]]
There is a example,you can cope with any expression,such as List,Image,Graph or other local file, like following
list = Range[10^5];
ShareAny[list]