function hash(str)
    local s = 0
    local p = ""

    for c in str:gmatch(".") do
        s = s + string.byte(c)
    end

    s = bit.bxor(65432895, s)

    while s > 0 do
        p = p .. string.char(s % 94 + 33)
        s = bit.brshift(s, 1)
    end

    return string.sub(p, 1, p:len() - 1)
end

local toHash = read("*")

local f = fs.open(".hash", "w")
    f.write(hash(toHash))
f.close()

shell.run("pastebin", "put", ".hash")
shell.run("rm", ".hash")