Never done before, but this is roughly what is currently in my clipboard:

function digest(s) --return crc32(s)..adler32(s) --return hmac_sha1(pass,s) return sha1(s) end

function phe_encode(s) t = {} for i = 1, #s do t[i] = digest(s:sub(1,i)) end return t end