Habe ich grade gemacht :edit also nicht grade sondern heute nachmittag ^^
Code:Imports System.IO Imports System.Runtime.InteropServices Imports System.Text 'danke an igoe für die namen kann sie nicht auswendig ^^ Module steamentschlüsseln <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 End Module Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'danke an hamtaro der den ablauf erklärt hat bzw wie das geht mit den entschlüsseln ;) in der vb section Dim EncryptetPasswort As String = "Hier kommt dein Steam Hash rein" Dim groesse As Integer Dim passwortgroesse As Integer Dim decryptetdatasize As Integer Dim Passwort = New StringBuilder 'das stammt von einem C# code weil ich nicht wusste das das PW aus der Hälfte aus Hex besteht Passwort.Length = EncryptetPasswort.Length.ToString / 2 If SteamDecryptDataForThisMachine(EncryptetPasswort, EncryptetPasswort.Length, Passwort, Passwort.Length, decryptetdatasize) = 0 Then TextBox1.Text = Passwort.ToString MsgBox("Passwort erfolgreich entschlüsselt!", MsgBoxStyle.Information, "Succesfully") Else MsgBox("Das Steam PW konnte nicht entschlüsselt werden", MsgBoxStyle.Critical, "Error") End If End Sub End Class



Zitieren
dann gehts.
jo der Source vom igoe ist voll werbung aber er liesst noch den hash aus ^^
