FoxPro/Visual FoxPro - Ayudita

   
Vista:

Ayudita

Publicado por Eladio (29 intervenciones) el 19/09/2007 13:56:11
Me puedan pasar el codigo fuente para encriptar password, o alguna otra forma de hacerlo
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayudita

Publicado por Oscar Ramirez (78 intervenciones) el 19/09/2007 16:35:46
Este codigo te servira para encriptar los pasword

If Empty(This.Value)
messagebox('Este campo es requerido',64,'Advertencia')
Else
T=0
L= len(allt(clavew))
for i =1 to L
T = T + asc (substr(clavew,i,1))
endfor
select usuarios
go top
locate for clave = T
if found ()
messagebox('la clave ya existe',16,'Advertencia')
clavew=''
thisform.refresh
else
thisform.text3.visible=.t.
thisform.label3.visible=.t.
endif
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar