Ergebnis 1 bis 5 von 5
  1. #1
    Eigener Benutzertitel Avatar von inmate
    Registriert seit
    23.12.2008
    Beiträge
    1.767

    Standard [VB.NET] SteamDecrypt

    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
    Geändert von inmate (25.06.2009 um 18:56 Uhr)


    iPott <3

  2. #2
    Bad Times Virus Avatar von LeadOr
    Registriert seit
    27.07.2008
    Beiträge
    566

    Standard

    Es wurde versucht, eine Datei mit einem falschen Format zu laden. (Ausnahme von HRESULT: 0x8007000B)

    hm bekomm ich als fehlermeldung hat wer ne idee? steam dll liegt im ordner :|

  3. #3
    Eigener Benutzertitel Avatar von inmate
    Registriert seit
    23.12.2008
    Beiträge
    1.767

    Standard

    Dann versuch mal die steam.dll in den system32 ordner zu packen dann gehts.
    habe ich vergessen zu sagen sry.


    mfG


    iPott <3

  4. #4
    Good Time W32.FunLove Avatar von Planxty
    Registriert seit
    22.01.2008
    Beiträge
    988

    Standard

    danke fürs hier posten
    Zitat Zitat von igor
    Edit: Ganz vergessen zu sagen, das einziegste was ihr noch machen müsst ist beim Start des
    Programmes die Steam.dll in den Windows/system32/ Ordner zu packen, und beim Beenden zu löschen.
    sieht nett aus und kürzer + wenioger werbung als bei dem vom igor^^

  5. #5
    Eigener Benutzertitel Avatar von inmate
    Registriert seit
    23.12.2008
    Beiträge
    1.767

    Standard

    Gerne jo der Source vom igoe ist voll werbung aber er liesst noch den hash aus ^^


    iPott <3

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •