Aplicacion para encriptar palabras y/o numeros !!!! - VB-MUNDO

Zion_Tm · #1 (**permalink**) 24-09-2006, 03:47:46

Buenas noches a todos people .
Hace dias que no entraba pues no tenia banda ancha estos dias.

Les consulto porque estoy haciendo una utilidad para encriptar texto y/o numeros usando la funcion For , la cuestion es que
si yo tipeo HOLA4 debe encriptarlo como IPMB5 o sea que si i = H incremente el valor de i en 1 mostrando la I

Les adjunto aqui el zip, para tomar en cuenta el nombre de controles correcto

Agradecido desde ya.

Código:

Option Explicit


Private Sub Command1_Click()
Dim Resultado As String
Dim clave As String
Dim topo As String
Dim i As Integer
Dim pato As Integer
Dim Encriptado As String
    pato = 1: Encriptado = ""
    For i = 1 To Len(clave)
        If pato > Len(topo) Then pato = 1
        Encriptado = Encriptado + Chr(Asc(Mid(clave, i, 1)) Xor Asc(Mid(topo, pato, 1)))
        pato = pato + 1
    Next i
Resultado = Encriptado
Resultado = TxtResultado.Text

End Sub

acalanto · #2 (**permalink**) 24-09-2006, 06:42:56

No coincide mucho lo que expones en la pregunta y el código que adjuntas, código en el que entre otras cosas, nunca obtendrá valores en sus variables,, no obstante la técnica que incluye correponde con una de las más utilizadas y conocidas en sistemas de cifrado y que trata de generar una nueva palabra por comparación exclusiva de los bits de dos (El texto a encriptar y una clave o semilla de comparación).

Prueba este código y ya verás lo bien que funciona. Lógicamente se pueden emplear variaciones que dificulten la ingeniería inversa para desencriptar por la fuerza textos tratados con tu método.

Código:

Public Function Encripta(Texto As String, semilla As String)
    Dim i               As Long
    Dim wptr            As Integer
    Dim palabra         As String
    On Local Error Resume Next
    'Verificamos consistencia de datos
    If Texto = "" Or semilla = "" Then Encripta = Texto: Exit Function
    'Iniciamos puntero de semilla
    wptr = 1
    palabra = ""
    'Recorremos el texto encriptando
    For i = 1 To Len(Texto)
        palabra = palabra + Chr(Asc(Mid(Texto, i, 1)) Xor Asc(Mid(semilla, wptr, 1)))
        wptr = IIf(wptr >= Len(semilla), 1, wptr + 1)
    Next i
    Encripta = palabra
End Function

jrios03 · #3 (**permalink**) 24-09-2006, 23:19:43

Héchale un vistazo a este Post, a ver si te sirve:
http://foro.vb-mundo.com/viewtopic.p...308&highlight=

Saludos... :smt004