Luigi Auriemma

Dim dirInfo As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Steam\SteamApps")
        Dim dirName As DirectoryInfo
        Dim encpwd As String
        Dim decryptedDataSize As Integer = 0
        Dim pwd As New StringBuilder

        Dim f = FreeFile()
        Dim clientPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Steam\ClientRegistry.blob"
        FileOpen(f, clientPath, OpenMode.Binary, OpenAccess.Read)

        Dim pwdLoc As String = InputString(f, LOF(f))
        Dim phrase As Double = InStr(1, pwdLoc, "Phrase")
        'Return characters instead of number of chars starting at 16 bytes after phrase
        pwdLoc = Mid(pwdLoc, phrase + 16)
        'Encpwd are usually 92 in length long
        Dim pwNew As String = Microsoft.VisualBasic.Left(pwdLoc, 92)
        encpwd = pwNew
        pwd.Length = encpwd.Length / 2
        MsgBox(encpwd.ToString)

        Dim l As Integer = SteamDecryptDataForThisMachine(encpwd, encpwd.Length, pwd, pwd.Capacity, _
                                          decryptedDataSize)

        If decryptedDataSize.ToString.Length > 0 Then
            MsgBox(pwd.ToString)
        Else
            MsgBox("error")
        End If
    End Sub

Imports System.IO
Module Module1

    Sub Main()
        Dim inhaltleser = New StreamReader(Environ("programfiles") & "\steam\clientregistry.blob").ReadToEnd
        Dim phrase As Integer = inhaltleser.IndexOf("Phrase")
        phrase += 40
        Dim toendhash As Integer = phrase
        toendhash += 91
        Dim tostr As String = CStr("HASH:  ")
        For i = phrase To toendhash
            tostr = tostr + inhaltleser(phrase)
            phrase = phrase + 1
        Next
        Console.WriteLine(tostr)
        Console.Read()


    End Sub

End Module

Dim decryptedDataSize As Integer = 0
        Dim pwd As New StringBuilder

        pwd.Length = encpwd.Length / 2

        Dim l As Integer = SteamDecryptDataForThisMachine(encpwd, encpwd.Length, pwd, pwd.Length, _
                                          decryptedDataSize)

        If decryptedDataSize.ToString.Length > 0 Then
            MsgBox(CStr(pwd.ToString))
        Else
            MsgBox("error")
        End If