Thread: SMF Password Encryption

The password encryption for SMF 1.1 + is to get a SHA1 Hash on the username and password concatenated as lowercase.

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

Did you tried RC4 ?
Dont heared about SMF yet :O

This is an old thread. Please check the date before posting...

/closed