Se puede encriptar en MD5 o en DES.
Encriptación de un string
Con MD5
public function (password as string) as string
Dim Encriptado as string
Encriptado=crypt.md5(password)
return Encriptado
end
Dim Encriptado as string
Encriptado=crypt.md5(password)
return Encriptado
end
Encriptación con DES
public function (password as string) as string
Dim Encriptado as string
Encriptado=crypt.des(password)
return Encriptado
end
Dim Encriptado as string
Encriptado=crypt.des(password)
return Encriptado
end
Comprobar clave
Como hemos visto podemos encriptar una clave y guardarla en algún texto o tabla, pero antes o despues el usuario llegará a un sitio donde le pedirán una clave. El usuario escribirá el password y habrá que compararlo con el que tenemos guardado y encriptado.
Eso es lo que hace check
public function ComprobarPassword(password as string) as boolean
Dim ClaveEncriptada as string, Iguales as boolean
'Obtener Clave encriptada y dejarla en el string ClaveEncriptada
...
...
Iguales=crypt.check(password,ClaveEncriptada) '----> Comprobar password y clave encriptada
return Iguales
end
Dim ClaveEncriptada as string, Iguales as boolean
'Obtener Clave encriptada y dejarla en el string ClaveEncriptada
...
...
Iguales=crypt.check(password,ClaveEncriptada) '----> Comprobar password y clave encriptada
return Iguales
end
Si son iguales valdrá true, si no lo son valdrá false.
No tenemos que preocuparnos por el tipo de encriptación que hubiera. Check ve la clave encriptada y averigua el método de encriptación que tiene. Luego encrilpta password con esa mismo método y compara con clave encriptada. Si son iguales devuelve TRUE. Si son distintos devuelve FALSE.
return