8 Antworten in diesem Thema

[SAR]

Moin,

ich würde gerne wissen, wie man File (insbesondere Executables) pumpen kann.

Das Einzige, was ich entdecken konnte, ist ein Video von irgendeinem Kiddy, der Code dafür steht unten.
Leider ist die .exe danach nicht mehr lauffähig.

Dim targetFileSize As Integer = rnd.Next(100, 1024) * 2048 'rnd entspricht der Random-Klasse'
Dim targetFile As IO.FileStream = IO.File.OpenWrite(targetPath)
Dim curFileSize As Integer = targetFile.Seek(0, IO.SeekOrigin.End)

While curFileSize < targetFileSize
   targetFile.WriteByte(1)
   curFileSize += 1
End While

targetFile.Close()

Mfg.
SAR

Bearbeitet von SAR, 19 April 2013 - 23:46 Uhr.

[PaulaAbdul]

durch trashcode zb.

https://www.toolbase...r-by-horstewald

[SAR]

Aber dadurch muss es ja ne .NET-Sprache sein.
Was ist, wenn es keine ist?


Mfg.
SAR

[PaulaAbdul]

bist ja nicht gezwungen den junkcoder von oben zu nehmen. kannste ja auch manuell machen oder du suchst dir halt ein anderes trashcode tool.

[SAR]

Ich meine, die Datei die gepumped werden soll, muss mit .NET kompiliert sein.


Mfg.
SAR

[PaulaAbdul]

sonst schnapp dir doch einfach mal den pumper hier aus der toolbase und decompile ihn
Ich empfehle Reflector zum decompilen.

mfg

[SAR]

Es ist genau der gleiche Code.


Mfg.
SAR

[BlackCock]

Ich nehme meine Aktivitäten zurück.
Es interessiert eh Keinen was geschrieben wird.

Bearbeitet von BlackHook, 17 July 2013 - 18:44 Uhr.

[SAR]

Seh ich mir gleich mal an. .png' class='bbc_emoticon' alt='^^' />


Edit: Jap, der funzt. Ich schreibs mir grad noch für meine Bedürfnisse um.
Aber es steigert auch die Erkennungsrate (von 4/45 auf 5/45) und das von einer Datei, die eh clean ist.

Edit²: Warum ist das eig. ne Funktion?

Edit³: Für die, die es interessiert -> Hier meine Endlösung:

Private Sub _Pump_File(ByVal targetPath As String)
   Try
      Dim originalFileSize As Integer = New IO.FileInfo(targetPath).Length
      Dim targetFileSize As Integer = originalFileSize * rnd.Next(1, 10)

      Dim buffer As Byte() = New Byte(((targetFileSize) + 1) - 1) {}
      Dim targetFile As IO.FileStream = New IO.FileStream(targetPath, FileMode.Append)
      targetFile.Seek(0, SeekOrigin.End)


      For i As Integer = 0 To buffer.Length - 1
         targetFile.WriteByte(buffer(i))
      Next

      targetFile.Close()

      Catch
      End Try
End Sub

Mfg.
SAR

Bearbeitet von SAR, 20 April 2013 - 22:13 Uhr.