An implementation of the SHA-1 hash algorithm. First version, might still contain bugs. Function HexDefaultSHA1(Message() As Byte) As String Returns the SHA-1 hash of Message using the default key as a string of hexadecimal numbers. Function HexSHA1(Message() As Byte, ByVal Key1 As Long, ByVal Key2 As Long, ByVal Key3 As Long, ByVal Key4 As Long) As String Returns the SHA-1 hash of Message using the key specified by Key1 ... Key4 as a string of hexadecimal numbers. Sub DefaultSHA1(Message() As Byte, H1 As Long, H2 As Long, H3 As Long, H4 As Long, H5 As Long) Returns the SHA-1 hash of Message using the default key in H1 ... H5. Sub SHA1(Message() As Byte, ByVal Key1 As Long, ByVal Key2 As Long, ByVal Key3 As Long, ByVal Key4 As Long, H1 As Long, H2 As Long, H3 As Long, H4 As Lon