PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : frage zu steam auslesen



inmate
19.05.2009, 18:07
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:

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

Hamtaro
19.05.2009, 18:21
Suchende ist ein Integer, den schreibst du mit Write in deine Datei, der Integer hat den Wert 90... Lern die Basics!
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

inmate
20.05.2009, 14:53
bin ja dabei und weil ich sie noch nicht alle kann stelle dich die frage hier ;)