| He visto un par de rutinas para encriptar datos, y una tiene lo que a la otra le falta, asi que las uni, y ademas le agregue otra cosilla, y el resultado es una verdarera rutina de encriptacion. |
|
|
(Click para Ampliar)
|
Primero cada letra se cambia por un caracter ascii.
luego se le aplica un comando XOR con un numero "semilla" asi se obtienen diferentes patrones de encriptacion.
ultimo se añade un caracter comodin.
se puede llamar a la rutina de encriptar 2 o 3 veces para aumentar la complejidad, pero aumenta el tamaño de la cadema comprimida. |
en un form 2 botones y 2 textbox
Private Sub Command1_Click()
On Error Resume Next
Text2.Text = Cript(Text2.Text, 3)
End Sub
Private Sub Command2_Click()
Text2.Text = DesCript(Text2.Text, 3)
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Me.Caption = State
End Sub
Private Function Cript(txt, Optional semilla = 45) As String
On Error Resume Next
For i = 1 To Len(txt)
l = Mid(txt, i, 1)
l = 155 - Asc(l)
txt2 = txt2 + Chr(l)
Next
txt = txt2
For i = 1 To Len(txt)
l = Mid(txt, i, 1)
l = Asc(l) Xor semilla
Cript = Cript & l & Chr(164)
DoEvents
Next
End Function
Private Function DesCript(txt, Optional semilla = 45) As String
On Error Resume Next
For i = 1 To Len(txt)
l = Mid(txt, i, 1)
If l = Chr(164) Then
l = pal Xor semilla
c = semilla Xor pal
l = Chr(l)
DesCript = DesCript & l
pal = ""
Else
pal = pal & l
End If
DoEvents
Next
For i = 1 To Len(DesCript)
l = Mid(DesCript, i, 1)
l = 155 - Asc(l)
txt3 = txt3 + Chr(l)
Next
DesCript = txt3
End Function |
|
| |
| Terminos de Uso |
|
1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.
2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.
3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.
4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.
|
|
|
|
|
