Hola, tengo esta funcion para encriptar, me gustaria saber que piensan acerca de ella y que cosas le agregarían y modificarian, etc. No es muy profesional lo que hice, pero bueno, soy un novato en esto de ASP y si lo soy en ASP, imaginense si no lo sere en el tema de encriptacion. Por eso pido su ayuda para ver que piensan y me lo comenten. Saludos.
function encrypt_this(cadena)
Dim Len_cadena
Dim fst_number()
Dim snd_number()
Dim fst_help_arr()
Dim snd_help_arr()
Dim trd_help_arr()
Len_cadena = CInt(Len(cadena))
Redim fst_number(Len_cadena)
Redim snd_number(Len_cadena)
Redim fst_help_arr(Len_cadena)
Redim snd_help_arr(Len_cadena)
Redim trd_help_arr(Len_cadena)
For i=0 to Len_cadena - 1
trd_help_arr(i) = CInt(i/4)
snd_help_arr(i) = i*4
fst_help_arr(i) = trd_help_arr(i) + snd_help_arr(i)
next
a = 0
For i=0 To Len_cadena - 1
a = a + 1
if a > 3 then
a = 1
end if
fst_number(i)=Right(Asc(Mid(cadena, ((i) Mod (Len_cadena))+1, 1))+fst_help_arr(i), a)
snd_number(i)=Right(Asc(Mid(StrReverse(cadena), ((i) Mod (Len_cadena))+1, 1))+fst_help_arr(i), a)
Next
For i=0 to Ubound(fst_number)
vEncripted = vEncripted & fst_number(i) & snd_number(i)
next
encrypt_this = vEncripted
end function
