[VB.NET] SteamDecrypt

[inmate]

Habe ich grade gemacht :edit also nicht grade sondern heute nachmittag ^^

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