Ergebnis 1 bis 3 von 3
  1. #1
    Eigener Benutzertitel Avatar von inmate
    Registriert seit
    23.12.2008
    Beiträge
    1.767

    Standard frage zu steam auslesen

    Hallo


    also ich habe mir vorgenommen dieses projekt ohne hilfe zu schaffen aber es will nicht gehen ^^
    ich möchte nur den hash auslesen mein code bisher:
    Code:
    Imports System.IO
    Imports System.Runtime.InteropServices
    
    Module steamdecrypt
        <DllImport("Steam.dll", CallingConvention:=CallingConvention.Cdecl)> _
       Public Function SteamDecryptDataForThisMachine(ByVal decryptpass As String)
        End Function
    End Module
    Public Class form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                Dim gethash = New StreamReader("C:\programme\steam\clientregistry.blob").ReadToEnd
                Dim start As Integer = gethash.ToString.IndexOf("Phrase", 1)
    
                Dim suchanfang As Integer = start + 42
                Dim suchende As Integer = suchende + 90
                Dim addieren As Integer = suchende + start
                Dim convv As String = CStr(addieren)
                For i = suchanfang To suchende
                    convv = suchanfang + suchende
                Next
                Dim textschreiber = New StreamWriter("C:\Steam-hash.txt")
                textschreiber.WriteLine("**Steam-hash**")
                textschreiber.Write(suchende)
                textschreiber.Close()
    
                MsgBox("Daten erfolgreich ausgelesen!", MsgBoxStyle.Information, "Succesfull")
            Catch
                MsgBox("Daten konnten nicht ausgelesen werden!", MsgBoxStyle.Critical, "Error")
            End Try
        End Sub
    End Class

    doch in der .txt datei steht nur ne 90 ?!

    fande ich schon sehr komisch ^^


    hoffe ihr könnt mir helfen

    mfG

  2. #2
    is a Grammar Nazi Avatar von Hamtaro
    Registriert seit
    05.06.2007
    Beiträge
    431

    Standard

    Suchende ist ein Integer, den schreibst du mit Write in deine Datei, der Integer hat den Wert 90... Lern die Basics!
    Code:
                 Dim suchanfang As Integer = start + 42             Dim suchende As Integer = suchende + 90             Dim addieren As Integer = suchende + start             Dim convv As String = CStr(addieren)             For i = suchanfang To suchende                 convv = suchanfang + suchende             Next
    und was der Kram zu bedeuten hat weiß ich auch nicht
    Sunshine, hurricane
    All the highs & lows

  3. #3
    Eigener Benutzertitel Avatar von inmate
    Registriert seit
    23.12.2008
    Beiträge
    1.767

    Standard

    bin ja dabei und weil ich sie noch nicht alle kann stelle dich die frage hier


    iPott <3

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •