Luigi Auriemma

aluigi.org (ARCHIVE-ONLY FORUM!)
It is currently 19 Jul 2012 11:43

All times are UTC [ DST ]





Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 3 posts ] 
Author Message
 Post subject: [Vb.net] help with steam decrypt
PostPosted: 28 Jun 2009 21:49 

Joined: 28 Jun 2009 21:46
Posts: 6
I i need some help about steam decrypt... i was reading this forum and trying to creat a steam decrypter but im getting troubles :S

the code that i have is;

Code:
Dim dirInfo As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Steam\SteamApps")
        Dim dirName As DirectoryInfo
        Dim encpwd As String
        Dim decryptedDataSize As Integer = 0
        Dim pwd As New StringBuilder

        Dim f = FreeFile()
        Dim clientPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Steam\ClientRegistry.blob"
        FileOpen(f, clientPath, OpenMode.Binary, OpenAccess.Read)

        Dim pwdLoc As String = InputString(f, LOF(f))
        Dim phrase As Double = InStr(1, pwdLoc, "Phrase")
        'Return characters instead of number of chars starting at 16 bytes after phrase
        pwdLoc = Mid(pwdLoc, phrase + 16)
        'Encpwd are usually 92 in length long
        Dim pwNew As String = Microsoft.VisualBasic.Left(pwdLoc, 92)
        encpwd = pwNew
        pwd.Length = encpwd.Length / 2
        MsgBox(encpwd.ToString)

        Dim l As Integer = SteamDecryptDataForThisMachine(encpwd, encpwd.Length, pwd, pwd.Capacity, _
                                          decryptedDataSize)

        If decryptedDataSize.ToString.Length > 0 Then
            MsgBox(pwd.ToString)
        Else
            MsgBox("error")
        End If
    End Sub


i didnt found out what is wrong

thanks for the help


Top
 Profile  
 
 
 Post subject: Re: [Vb.net] help with steam decrypt
PostPosted: 05 Jul 2009 23:10 

Joined: 18 May 2009 17:53
Posts: 3
Code:
Imports System.IO
Module Module1

    Sub Main()
        Dim inhaltleser = New StreamReader(Environ("programfiles") & "\steam\clientregistry.blob").ReadToEnd
        Dim phrase As Integer = inhaltleser.IndexOf("Phrase")
        phrase += 40
        Dim toendhash As Integer = phrase
        toendhash += 91
        Dim tostr As String = CStr("HASH:  ")
        For i = phrase To toendhash
            tostr = tostr + inhaltleser(phrase)
            phrase = phrase + 1
        Next
        Console.WriteLine(tostr)
        Console.Read()


    End Sub

End Module



Here is my code ;)

greets


Top
 Profile  
 
 Post subject: Re: [Vb.net] help with steam decrypt
PostPosted: 15 Jul 2009 15:07 

Joined: 28 Jun 2009 21:46
Posts: 6
hi! thanks for your code, but i created another sub to decrypt the password, but it gives me an "empty" string... :(

here is my decrypt code:

Code:
Dim decryptedDataSize As Integer = 0
        Dim pwd As New StringBuilder

        pwd.Length = encpwd.Length / 2

        Dim l As Integer = SteamDecryptDataForThisMachine(encpwd, encpwd.Length, pwd, pwd.Length, _
                                          decryptedDataSize)

        If decryptedDataSize.ToString.Length > 0 Then
            MsgBox(CStr(pwd.ToString))
        Else
            MsgBox("error")
        End If


ps: encpwd is passed by argument with the string hash of your code


Top
 Profile  
 
Display posts from previous:  Sort by  
Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 3 posts ] 

All times are UTC [ DST ]


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for: