Código vb:
Ver originalDim UserKey As String
Dim UserKeyX As String
Dim Temp As Integer
Dim Times As Integer
Dim i As Integer
Dim J As Integer
Dim n As Integer
Dim rtn As String
Simple declaracion de variables
Clave que se va a usar para encriptar...
n variable del tipo INTERO, que guarda la cantidad de caracteres de la variable UserKey.. (que serian 7)
Redimensiona el array... Un array es una coleccion de datos del mismo tipo ...
Osea que el array va a tener de 1 a 7
Código vb:
Ver originalFor i = 1 To n
UserKeyASCIIS(i) = Asc(Mid$(UserKey, i, 1))
Next
Usa un FOR, para ir recorriendo caracter por caracter de la palabra "IRONMAN" y en el array va guardando el codigo ASCII de cada caracter en casa posicionb del array
Código vb:
Ver originalReDim TextASCIIS(Len(text)) As Integer
For i = 1 To Len(text)
TextASCIIS(i) = Asc(Mid$(text, i, 1))
Next
Similiar a todo lo anterior, pero lo que usa ahora es el "text" que se le envia por los parametros de la funcion
Código vb:
Ver originalIf Action = ENCRYPT Then
For i = 1 To Len(text)
J = IIf(J + 1 >= n, 1, J + 1)
Temp = TextASCIIS(i) + UserKeyASCIIS(J)
If Temp > 255 Then
Temp = Temp - 255
End If
rtn = rtn + Chr$(Temp)
Next
Verifica si hay que ENCRIPTAR...
SI J+1 >= n ENTONCES
J=1
SINO
J = J+1
FIN SI
A la variable temporal suma los valores ascii que previamente guardo en el array...
Pero suma segun la posicion de I y de J
Si Temp > 255 Significa que supero la cantidad maxima del codigo ascii
rtn, va acumulando el caracter segun el codigo ascii generado...
Código vb:
Ver originalElseIf Action = DECRYPT Then
For i = 1 To Len(text)
J = IIf(J + 1 >= n, 1, J + 1)
Temp = TextASCIIS(i) - UserKeyASCIIS(J)
If Temp < 0 Then
Temp = Temp + 255
End If
rtn = rtn + Chr$(Temp)
Next
End If
ED = rtn
Similar que el anterior, pero haciendo a la inversa, para volver los caracteres anteriores...
Es un metodo muy sensillo de encriptacion, nada fuera de lo comun que se puede pasar facilmente a cualquier lenguaje