Luigi Auriemma

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

All times are UTC [ DST ]





Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 11 posts ] 
Author Message
 Post subject: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 30 Apr 2009 21:13 

Joined: 30 Apr 2009 21:06
Posts: 22
Hi ,

i just found this website on google searching a way to decrypt steam password on vb6
i read some password on c++ but i'am using vb6

i have a question can :
"can Steam Password Decrypter be done using visual basic 6 with no third party" ?

Thanks


Top
 Profile  
 
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 30 Apr 2009 23:36 

Joined: 13 Aug 2007 21:44
Posts: 4068
Location: http://aluigi.org
if with "no third party" you mean a stand-alone decrypter like my steampwd (so without depending by steam.dll) yes you can but obviously you need to port the AES_PHM algorithm to VB (and if you don't have skill in C, VB and a bit of knowledge about OpenSSL you can't).

while if you are searching a solution based on steam.dll search SteamDecryptDataForThisMachine vb on google


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 01 May 2009 16:52 

Joined: 30 Apr 2009 21:06
Posts: 22
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


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 01 May 2009 17:02 

Joined: 13 Aug 2007 21:44
Posts: 4068
Location: http://aluigi.org
from here (but I'm not a VB coder) the code seems correct since you get the steampath and then concatenate a backslash and steam.dll.
another alternative is changing the current folder using SetCurrentDirectory(GetSteamDLL) and then loading "steam.dll" as usual with LoadLibrary("steam.dll").

if this still doesn't work I suggest you to verify where can be the problem using Procmon with the filter "Path" "contains" "steam.dll"


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 01 May 2009 17:28 

Joined: 30 Apr 2009 21:06
Posts: 22
i see the problem i have is on this line

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


i tried this

Code:
......
......
lb = LoadLibrary(GetSteamDLL)
pa = GetProcAddress(lb, "SteamDecryptDataForThisMachine")

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



dont work cause i'am declaring pa as long..
i fi change it to array the GetProcAddress will not work also

dunno if you understand my situation

Thanks


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 02 May 2009 02:42 

Joined: 16 Jan 2009 22:16
Posts: 19
Its possible to do in VB6, it took me a while but i finally got it to work last month. The problem is to do this you require cdecl which vb6 doesn't support by default.


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 02 May 2009 12:12 

Joined: 30 Apr 2009 21:06
Posts: 22
xenocide0999 wrote:
Its possible to do in VB6, it took me a while but i finally got it to work last month. The problem is to do this you require cdecl which vb6 doesn't support by default.


Hi can you help me
do you have a sample how to i dunno about cdecl

Thanks m8


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 03 May 2009 16:02 

Joined: 30 Apr 2009 21:06
Posts: 22
anyone can help ?

Thanks


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 03 May 2009 17:17 

Joined: 13 Aug 2007 21:44
Posts: 4068
Location: http://aluigi.org
have you already tried this?
http://www.planet-source-code.com/vb/sc ... deId=49776
or
http://www.planet-source-code.com/vb/sc ... 8&lngWId=1


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 03 May 2009 23:50 

Joined: 30 Apr 2009 21:06
Posts: 22
yep i did search on it found them 2 days ago
but i dunno dont work for me
i really appreciate your help aluigi but you dont code on vb6
hope someone who code on vb6 can help me out

Thanks


Top
 Profile  
 
 Post subject: Re: Steam Password Decrypter on vb6 is it possible ?
PostPosted: 20 Sep 2009 07:50 

Joined: 20 Sep 2009 07:48
Posts: 1
This code gives me "BAD DLL CALLING CONVENTION" error.
Have they changed the function in a new patch ? Cause it would really make me happy if I can get it to work on VB.


Top
 Profile  
 
Display posts from previous:  Sort by  
Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 11 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: