How to share files in Stack Exchange

Question

Background:

It is troublesome to upload some files to Stack exchange. A possibility is to give some Google Drive or Dropbox URL but it maybe unaccessible to some people. Using the SE Uploader gives some error information like the following:

This results in the add-on not being usable in China or other places with firewalls.

Using Databin is very very slow and limits your file size.

Question:

Is there a good method to share files in Stack Exchange?

Answer 1

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]

Answer 2

You can store limited amounts of data as QR images as I used here:

https://mathematica.stackexchange.com/a/73088/363

You don't need to scan them; the data can be retrieved from the image URL.