REBOL [Title: "Binary Resource Embedder"]

    system/options/binary-base: 64
    file: to-file request-file/only
    if not file [quit]
    uncompressed: read/binary file
    compressed: compress to-string uncompressed
    editor compressed
    alert rejoin ["Uncompressed size:  " length? uncompressed
        " bytes.  Compressed size: " length? compressed " bytes."]