FoxPro/Visual FoxPro - encriptamiento de palabras

   
Vista:

encriptamiento de palabras

Publicado por cristina morel cristyzavala255@gmail.com (1 intervención) el 27/10/2015 23:32:36
como puedo programar un botón para que me encripte palabras en visual foxpro
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

encriptamiento de palabras

Publicado por Juan Manuel (1 intervención) el 30/10/2015 14:34:10
podrias utilizar este codigo
1
2
3
4
5
6
7
8
9
10
palabra= Thisform.txt_palabra.Value  && esta es la palabra
palabra=Alltrim(palabra)
con=""
For i=1 To Len(palabra) Do
cad=Substr(palabra,i,1) && tomas una sola letra por vez
cad=Asc(cad) && cambias la letra por su valor ascii (número)
cad=cad+87 && le sumas un número cualquiera, para encriptar
cad=Chr(cad) && vuelves a convertir a letra ( te puede dar ~æ¢, etc)
con=con+cad && esta variable es la encriptada
Next i
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
Imágen de perfil de Abel

encriptamiento de palabras

Publicado por Abel (23 intervenciones) el 02/11/2015 15:18:52
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
*** Similar al ejemplo indicado por Juan Manuél te muestro el siguiente código.
*** El siguiente código complica un poco más el encriptamiento.
*** toma letra a letra y toma además el tamaño de la cadena pasada por valor.
*** Pasas por valor el texto a convertir y True o False ya séa que quieras encriptar o desencriptar.
 
Para m.valor2conv, m.traducir
 
&&	* TRADUCIR: Será .F. (clave ilegible) o .T. (entender clave).
 
m.valor2conv = Allt(m.valor2conv)
Store Len(valor2conv) To m.cantCar
If Empty(valor2conv)
	Return ''
Endif
 
Store 0 To m.x
Store '' To m.valorTrans
For x = 1 To Len(m.valor2conv)
	If traducir
		&& 	* Entender el código.
		valorTrans =  valorTrans + Chr(Asc(Subs(valor2conv,x,1)) - (x*cantCar))
	Else
		&&	* Transformar en ilegible.
		valorTrans =  valorTrans + Chr(Asc(Subs(valor2conv,x,1)) + (x*cantCar))
	Endif
	cantCar = cantCar - 1
Next
Retu valorTrans
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