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
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