codificar codigo interno

[zerofive]

hay algun algoritmo o programa que codifique el codigo interior de algun programa.busque y no encontre

[Red Mx]

hay algun algoritmo o programa que codifique el codigo interior de algun programa.busque y no encontre

no me digas eso por favor mejor di que te dio barra buscar jajaja xD

bueno para eso existen algunos programas que evitan la ingeneria inversa busca asi seguro u que encuentras algo.

[NYlOn]

Lo que podes hacer es abrir el archivo de forma binaria y obtener su codigo. Una vez echo esto encriptas el codigo y lo volcas como un archivo nuevo.
Tenes que tener en cuenta que el archivo va a quedar inutilizable. Para volverlo a su estado original tenes que hacer lo mismo pero descifrando el codigo.

Saludos.-

[zerofive]

grax, me sirvio mucho
arme un codigo mas o menos asi:
ahh
introduzcan:
3 TextBox´s y uno más llamado Text7
y 2 Menus ,uno llamado mnuEncryptFiles y el otro
por defecto

Private Sub mnuEncryptFiles_Click()

''On Error GoTo error:
Open Text7.Text For Binary As #1 ''Abre el textbox que indica la ruta
j = Space(LOF(1))
Get #1, , j
Close #1
Text$ = j
Text1.Text = Text$ 'Muestra el codigo interior
EncryptHex Text$, 2 'Lo cifra
Open Text7.Text For Binary Access Write As #2
Put #2, , Text2.Text 'Pone el resultado cifrado
Close #1 '
''error:
''MsgBox "Error", vbCritical, "Error:"
End Sub

ese es el menu de cifrar
ahora....
el se descifrar

Private Sub mnudesenfile_Click() ''Lo mismo que cifrado pero descifrado
Open Text7.Text For Binary Access Read As #3
j = Space(LOF(3))
Get #3, , j
Close #1
Text$ = j
Text2.Text = Text$
DecryptHex Text$, 2
Open Text7.Text For Binary Access Write As #4
Put #4, , Text3.Text
Close #1
End Sub

el modulo

Sub EncryptHex(Text$, TextXor As Integer)
Dim I As Integer
Dim cifrado As String
Dim Codigo As String
For I = 1 To Len(Text$)
cifrado = Hex(Asc(Mid(Text, I, 1)) Xor TextXor)
Codigo = Codigo & cifrado
Next
Text$ = Codigo
Form1.Text2.Text = Text$
End Sub


Sub DecryptHex(Text$, TextXor As Integer)
Dim I As Integer
Dim descifrado As String
Dim Codigo As String
For I = 1 To Len(Text) Step 2
descifrado = Chr(Val("&h" & Mid(Text, I, 2)) Xor TextXor)
Codigo = Codigo & descifrado
Next
Text$ = Codigo
Form1.Text3.Text = Text$
End Sub

ahora despues de hacerle una hojeada al codigo
el fichero me lo encrypta y no lo reconoce
pero cuando pongo descifrar me lo sigue sin reconocer
lo peor es que no  manda error
alguien me puede decir que es