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
