Ver Mensaje Individual
  #5 (permalink)  
Antiguo 20/03/2011, 16:23
Avatar de Gakex
Gakex
 
Fecha de Ingreso: enero-2009
Mensajes: 137
Antigüedad: 16 años, 3 meses
Puntos: 4
Respuesta: Llevar función de VB6 a PHP

si claro mira

Cita:
se redimenciona UserKeyASCIIS ( ) con la cantidad de lugares en n ya que en el siclo for se va a combertir cada una de los caracteres en la variable UserKey en un valor ascii con
Asc(Mid$(UserKey, i, 1)) y este va a ir a su correspondiente posicion ( i ) en el arreglo UserKeyASCIIS(N) que por cierto un valor ascii es un valor numerico seguramente ...
tenemos que UserKeyASCIIS es un arreglo y asi lo vamos a llamar apartir de ahora, seguramente ya sabes que es un arreglo asi que tenlo en mente.

entramos a un ciclo for i de 1 hasta n, donde n es igual al numero de letras ó caracteres que hay en la palabra que se va a encriptar, llamemosla clave ok?.

regresando al arreglo antes del ciclo for se redimenciono justamente "al numero de letras que hay en la clave" ( a esto vamos a llamarlo Len(clave) que de hecho asi se saca el valor), porque?

para almacenar el valor ascii de cada letra ó caracter que aparecen en la clave, con la posicion correspondiente del arreglo y para eso es la i del for.

ahora como obtener el valor ascci de cada letra pues con el siclo for podemos sacar un numero del 1 hasta Len(clave) y analizando lo siguiente:

Asc(Mid$(UserKey, i, 1))

tenemos primero de afuera hacia adentro Asc() que nos regresa el valor ascii de una letra ó numero, despues tenemos mid( , , ) nota que tiene 3 parametros, bueno mid (,,) nos regresa un fragmento de una cadena de texto, el primer parametro es la cadena de texto, despues el numero de la posicion donde empesara el fragmento y por ultimo la cantidad de caracteres que queremos de regreso apartir de parametro anterior.

veamos la palabra AIRONMAN como quedaria:

Código:
indice for        1         2           3            4           5            6          7          8
Clave             A          I           R            O          N            M          A          N
ARREGLO          65        73         82         79           78           77        65        78