Classic ASP / VBScript SHA1 Hashing

sha1hash.vbs

function sha1HashString(str)
    Dim hexStr, x, aBytes, sha1
    aBytes = CreateObject("System.Text.UTF8Encoding").GetBytes_4(str)
    set sha1 = CreateObject("System.Security.Cryptography.SHA1Managed")
    sha1.Initialize()
    aBytes = sha1.ComputeHash_2( (aBytes) )
    for x=1 to lenb(aBytes)
        hexStr= hex(ascb(midb( (aBytes),x,1)))
        if len(hexStr)=1 then hexStr="0" & hexStr
        sha1HashString=sha1HashString & hexStr
    next
end function