Threaded Mode | Linear Mode

FreckleS · 01-05-2010, 10:36 PM

SMF 1.1 + uses a SHA1 hash on the lowercase concatenated username and password. Example.

Code:

' SMF Password Encrypter

' www.ProjectGhostt.com

Imports System.Text

Imports System.Security.Cryptography

Module SHA1

    Sub Main()

        Console.Title = "SMF Password Encrypter - www.ProjectGhostt.com"

        Console.WriteLine("Username: ")

        Dim username, password As String

        username = Console.ReadLine

        Console.WriteLine("Password: ")

        password = Console.ReadLine

        Console.WriteLine("SMF Password: {0}", GetSHA1Hash(LCase(username & password)))

        Console.ReadLine()

    End Sub

    Function GetSHA1Hash(ByVal ValueToHash As String) As String

        Dim sha1 As New SHA1CryptoServiceProvider

        Dim bytesToHash() As Byte = Encoding.ASCII.GetBytes(ValueToHash)

        bytesToHash = sha1.ComputeHash(bytesToHash)

        Dim Result As String = ""

        For Each b As Byte In bytesToHash

            Result += b.ToString("x2")

        Next

        Return Result

    End Function

End Module

***drdebcol*** · 01-05-2010, 10:49 PM

Good tool i can say. I can see that you used "Imports System.Security.Cryptography" which is good.
Overall, very interesting !