Encriptar base datos

[neno35]

Hola a todos.

Estoy trabajando en una aplicacion para una intranet de una empresa, en la cual, cada empleado dispone de un usuario y una clave para conectarse. En funcion de los permisos, se le da acceso a unos sitios o se les restringe a otros.

Mi problema es que las claves estan almacenadas en una base de datos, y como algunos empleados son unos "listillos", quieren encontrar las claves de los demas compañeros.

Codificarlas mediante asteriscos es una tonteria, porque todos sabemos que hay infinidad de utilidades para ver lo que se "oculta" bajo los asteriscos.

Habia pensado en encriptar la clave, de forma que se almacene de forma encriptada. Creo q con una encriptacion sencilla como sumar una constante al valor ascii del caracter seria suficiente.

Alguien tiene alguna idea de como materializar esta idea con ASP?. Y bueno, no digo nada si ya escribis el codigo!!!.

Saludos a todos.

[Gurrutello]

hola
normalmente en una intranet, ya sea trabajo, banco, inmobiliaria ...
prohiben el acceso a internet a los demas usuarios al igual que desabilitaria los discos a:\\

simplemente por seguridad.
En ese caso tu sabes de intranets u ordenadores, quizas el manazas que lo utiliza NO.

Para codificarlas u utilizar una calve solo podra ser descifrada si ofreces la opcion de mostrarla en pantalla.
si no fuera asi seria " casi "imposible que la obtuvieran"

si estas utilizando asp, tu intranet se supone que esta entera en asp, no en pascal c+ visualbasic etc..
al ser asp solo se mostrará en pantalla el html que generes, `por lo que nunca se mostrará clave.

saludos

[Mickel]

la funcion mas sencilla para encriptar que se me ocurre:

Código PHP:

  function Crypt(stexto,inumero)
ilen=len(stexto)
scad=""
for i=1 to ilen
     schr=mid(sTexto,i,1)
     ichr=chr(schr)
     ichr=ichr+inumero
     do while ichr>255
           ichr=ichr-255
     loop
     do while ichr<0
           ichr=ichr+255
     loop
     scad=scad & asc(ichr)
next
crypt=scad
end function 
   

y la usarias asi:
crypt(clave,numero de dni o algo asi del usuario)
para encriptar
y
crypt(clave,0-numero de dni o algo asi del usuario)
para desencriptar

no estoy muy seguro de la sintaxis porque ahora estoy trabajando en VB mas que en ASP pero algo asi ha de ser...

[neno35]

Gracias Mickel por tu codigo, algo asi he hecho, pero para añadirle un punto mas de seguridad, me he currado un par de arrays donde almaceno caracteres, minusculas, mayusculas y numeros, ordenados de una forma totalmente al azar y de ahi voy sacando el caracter que le corresponde.

Por cierto Gurrutello, como bien dices, la clave no se muestra en ningun momento en pantalla, pero como dije en el primer mensaje, se almacena en una base de datos. A todos los que utilizamos ordenadores, ya sea por ocio o desde el punto de vista profesional, alguna vez nos ha picado el "gusanillo" de averiguar cosas q no deberiamos... y creeme, en esta empresa hay gente de esa. Como es una intranet, pero trabajando en local, pueden "husmear" y dar con la base de datos en cuestion.

En fin, reiterar mi agradecimiento a los dos.

Saludos.

[Mickel]

hombre, pues de nada, mas bien disculpame si es que el codigo te ha dado algun error.

Solo por curiosidad... podrias poner aqui el codigo de encriptacion que usaste?

[neno35]

Nada de disculpas Mickel. Cuando puse el mensaje, pense en hacerlo... no tengo ningun inconveniente en ponerlo, ahi va:

<%

'Array que contiene los caracteresa utilizar
letrasoriginal=array ("a","b","c","d","e","f","g","h","i","j","k","l"," m","n","o","p","q","r","s","t","u","v","w","x","y" ,"z","1","2","3","4","5","6","7","8","9","0","A"," B","C","D","E","F","G","H","I","J","K","L","M","N" ,"O","P","Q","R","S","T","U","V","W","X","Y","Z"," *",".","=","?","+",")","(","/","&","%","$"," ")

' Array que contiene los mismos caracteres que antes, pero organizados de una manera totalmente al azar
letrasencriptadas=array (".","=","?","+",")","q","E","K","p","&","r","s "," ","y","5","U","z","1","n","i","$","B","x","2","w", "3","v","4","I","R","W","/","D","F","j","c","*","Y","Q","S","0","A","a","(", "%","N","8","9","C","u","7","G","t","H","o","J","m ","L","e","O","d","M","l","P","k","T","h","V","g", "X","b","f","Z","6")


Nombre="Prueba Codificacion"
Nombreencriptado=""

lon=1

Do while lon < len(nombre)+1

for i=0 to ubound(letrasoriginal)
if mid(nombre,lon,1)=letrasoriginal(i) then
nombreencriptado=nombreencriptado&letrasencriptada s(i)
end if

next
lon=lon+1


LOOP

lon=1

Do while lon < len(nombreencriptado)+1

for i=0 to ubound(letrasencriptadas)
if mid(nombreencriptado,lon,1)=letrasencriptadas(i) then
nombreencriptado2=nombreencriptado2&letrasoriginal (i)
end if

next
lon=lon+1


LOOP



Response.Write "Cadena Original: " &nombre
Response.Write "<p> </p>"
Response.Write "Cadena Encriptada: " &nombreencriptado
Response.Write "<p> </p>"
Response.Write "Cadena DesEncriptada: " &nombreencriptado2


%>

Saludos