module Hashlib

export sha1

function sha1(s::String)

    result = zeros(Cuint, 20)

    ccall((:SHA1, "libssl"), Ptr{Cuchar}, (Ptr{Cuchar}, Cuint, Ptr{Cuchar}), s,
        length(s), result)
    println(map((c) -> string(char(c)), r))

    return join(map((c) -> string(char(c)), r), "")
end


println(sha1("test"))

end