<%
Function sha1(instr)
  Dim asc, enc, bytes, outstr, pos
  'Borrow some objects from .NET (supported from 1.1 onwards)
  Set asc = Server.CreateObject("System.Text.UTF8Encoding")
  Set enc = Server.CreateObject( _
      "System.Security.Cryptography.SHA1CryptoServiceProvider")
 
  'Convert the string to a byte array and hash it
  bytes = asc.GetBytes_4(instr)
  bytes = enc.ComputeHash_2((bytes))
 
  outstr = ""
 
  'Convert the byte array to a hex string
  For pos = 1 To Lenb(bytes)
    outstr = outstr & LCase(Right("0" & Hex(Ascb(Midb(bytes, pos, 1))), 2))
  Next
  sha1 = outstr
  Set enc = Nothing
  Set asc = Nothing
End Function
%>