Programación General > Visual Basic 6.0 e inferiores

 encryptar codigo

(1/1)

andres69:
hola amigos

el siguiente codigo crea un archivo php con una linea de texto:


--- Código: Visual Basic ---Open App.Path & "archivosconfiguracion15.php" For Output As #1   Print #1, "hola"  
Lo que quiero es aumentarle mas linea para que esa line la que dice hola se muestre encriotada o mas bien dicho como encripto

para que cuando yo abra el archivo creado no vea eso texto??

GRACIAS DE ANTEMANO, ayudemne por favor

Nebire:
Si te basta con un cifrado simple, puedes usar el sistema ROT13...
ROT13, sólo oculta de ojos profanos a la programación, es un cifrado de sustitución sin seguridad, pero puede valerte según para lo que lo necesites. A cambio es bastante rápido.
ROT13 sólo trata los caracteres A-Z (del 65 al 90) , pero puedes modificarlo a ROT47, caracteres  desde admiración a tilde (33 a 126) fácilmente...
ROT13 es reversible, es decir ejecutado 1 vez cifra, el texto cifrado ejecutado de nuevo lo descifra.

Como quizás te resulte más útil ROT47, te pongo una posible implementación...

--- Código: Visual Basic ---  ' primero localiza la api Copymemory con el visor de APIs e introdúcela en tu código... Public Function Rot47(ByVal Texto As String) As String    Dim n() As Integer, max As Long, k As Long, t As Integer        If Texto <> "" Then        max = Len(Texto)        ReDim n(0 To max - 1)        Call CopyMemory(ByVal VarPtr(n(0)), ByVal StrPtr(Texto), max * 2) ' convertimos el texto en una matriz de enteros para trabajar más rápido con números              For k = 0 To max - 1            t = n(k)            If t > 32 And t < 127 Then           ' signo de amiración hasta la tilde                If t < 80 Then                    n(k) = t + 47                Else                    n(k) = t - 47                End If            End If        Next        Call CopyMemory(ByVal StrPtr(Texto), ByVal VarPtr(n(0)), max * 2)  '  pasamos la matriz de enteros a cadena...        Erase n    End If        Rot47 = TextoEnd Function  
ejemplo de uso:

--- Código: Visual Basic --- dim s as string s= "Hola"s= ROT47(s)msgbox s'resultado: w@=2 ' cifrando 2º ejemplos= "Lo que quiero es aumentarle mas linea para que esa line la que dice hola se muestre encriotada o mas bien dicho como encripto"s= ROT47(s)msgbox s'resultado: {@ BF6 BF:6C@ 6D 2F>6?E2C=6 >2D =:?62 A2C2 BF6 6D2 =:?6 =2 BF6 5:46 9@=2 D6 >F6DEC6 6?4C:@E252 @ >2D 3:6? 5:49@ 4@>@ 6?4C:AE@  descifrando 2º ejemplos= ROT47(s)msgbox s'resultado: Lo que quiero es aumentarle mas linea para que esa line la que dice hola se muestre encriotada o mas bien dicho como encripto  

andres69:
Nebire mi hermano te sacaste un 10 en ayudarme

de verdad!

MUCHISIMAS GRACIAS

Estare agradecido infinitamente

Nebire:
Un detalle...
...aunque es habitual que los profanos utilicen términos como encriptar indiscriminadamente y debamos hacernos cargo... sin embargo el que se pretenda programador no debería confundir términos y usar cifrar que es la palabra correcta en español, 'encriptar' es realmente una traducción literal del término inglés que se corresponde a cifrar. De hecho si lo buscas en el diccionario verás que no aparece y en todo caso significaría 'encerrar en una cripta'.

Navegación

[0] Índice de Mensajes