por mas que se desencripte en cuanto se ejecute,
esto previene la detección de los antivirus,
pera cifrar cadenas de caracteres o numeros o lo que sea,
dentro del codigo,
te recomiendo algo como esto, que es lo que utilizo yo:
Public Function x(j)
On Error Resume Next
For r = 1 To Len(j)
x = x & Chr(Asc(Mid(j, r, 1)) - 56)
Next r
End Function
esto es algo bien simple, y es efectivo,
al ser una función se utiliza de la siguiente manera,
encualquier parte del code:
x("texto cifrado")
este texto cifrado,
no pude tener cualquier tipo de encriptacoón,
sino que a cada caracter se le deben sumar 56 posiciónes
en la tabla ascii.
para no complicarte la vida, y hacerte todo esto mas fácil,
hice un programa que lo que hace es sumar o restar 56 posiciónes en la tabla de numeros ascii.
este es el preograma:
http://rapidshare.com/files/8723817/ASCII.exelo unico que tienes que hacer es
escribir el texto, donde se indica y poner Encryptar,
una vez cifrado, donde pusiste ese texto,
aparecera el texto cifrado
si x ejemplo esto cifrado:
App.Path & "\" & App.EXEName & ".exe", "c:\newfile.exe"
teda como resultado esto:
qwepqjrpqiwhroqwhr
lo que se hace es:
FileCopy x("qwepqjrpqiwhroqwhr")
Bueno, espero que me allas entendido, y que esto te sirva,
cualquier duda pregunta
salu2