inmate
25.06.2009, 18:52
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
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