Well just wondering why this isn't working. I mean, i think the parameters are outta whack or something, cause nothing is even being passed when i call the function. It may also be the incorrect use of the string builder too.
And yea, the key is correct. Copied it like 5 times over and over from the presented key in steampwd.
Code:
Imports System.Runtime.InteropServices
Imports System.Text
Module SteamDecrypt
<DllImport("Steam.dll", CallingConvention:=CallingConvention.Cdecl)> _
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)
Dim encpwd As String = "76487-OEM-0052133-178111555899e-b7b1-4c80-a9a9-11c9e14e01261227403925"
'string encpwd =
Dim decryptedDataSize As Integer = 0
Dim pwd As New StringBuilder
pwd.Length = encpwd.Length / 2
If SteamDecryptDataForThisMachine(encpwd, encpwd.Length, pwd, pwd.Capacity , _
decryptedDataSize) = 0 Then
Console.WriteLine(Constants.vbLf & " Password: " & pwd.ToString())
Else
Console.WriteLine("Error decrypting the Steam Password.")
End If
Console.ReadLine()
End Sub
End Module