Sha1 function

From StealthBot Wiki
Jump to: navigation, search

The Sha1() function is available to StealthBot through the Script Support Class. This function returns a SHA-1 hash of the provided string.


The Sha1 function was added to StealthBot for version 2.7.


'// SHA1
'// Returns the result of a standard Sha-1 hash
Public Function Sha1(ByRef Data As String, Optional ByVal inHex As Boolean = False) As String

    Dim a As Long
    Dim B As Long
    Dim c As Long
    Dim d As Long
    Dim e As Long

    Call modSHA1.DefaultSHA1(StrConv(Data, vbFromUnicode), a, B, c, d, e)

    If inHex Then
        Sha1 = LCase(Hex(a) & Hex(B) & Hex(c) & Hex(d) & Hex(e))
        Sha1 = LongToStr(a) & LongToStr(B) & LongToStr(c) & LongToStr(d) & LongToStr(e)
    End If

End Function


Returns a standard SHA-1 hash of the specified value.


strHash = SHA1(Value, [InHex])


  • Data is the value to hash.
  • inHex is an optional Boolean. If True is passed, the result will be a hexadecimal-representation of the hash 40 digits long. If False is passed (default), the result will be a 20-character string (may contain null characters).


Returns a 20-character string value which is a SHA-1 hash of the specified string. If inHex was True, returns a 40-digit hexadecimal representation of the hash.


See also