Rutina de encriptar

On Tue, 18 Apr 2006 17:31:00 -0500, "jose Mtz"
wrote:

Hola:
Alguien tendra alguna rutina para encriptar y desencrptar una cadena...y
como crear un numero verificador

Una solucion es usar las clases de Craig Boyd [MVP] para VFP:
http://www.sweetpotatosoftware.com/...d024b.aspx



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net

Hola jose
Lo del numero verificador no lo entendi pero tal vez te sirva esta rutina
de encriptado:

Procedure encripta
Public clave
vClave="ESPERANZA"
cod=""
test = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ 1234567890"
testcod="¢Ð÷žæ®òÔÜ»·~ð¯Êõ׃þÞŸ¶ÎÄî¥ßÕã€ø£Øª±²§©"
nom=""
nom = trim(vClave)
For i=1 to len(nom)
cnom=substr(nom,i,1)
for i2= 1 to len(test)
ctest=substr(test,i2,1)
if cnom=ctest
ctestcod=substr(testcod,i2,1)
cod=cod+ctestcod
endif
endfor
Endfor

?cod
clave=Trim(cod)

Procedure desencripta
test = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ 1234567890"
testcod="¢Ð÷žæ®òÔÜ»·~ð¯Êõ׃þÞŸ¶ÎÄî¥ßÕã€ø£Øª±²§©"
nom = ""
cod = ""
cod = clave
for i =1 to len(cod)
ccod=substr(cod,i,1)
for i2=1 to len(testcod)
ctestcod=substr(testcod,i2,1)
if ctestcod=ccod
cnom=substr(test,i2,1)
nom=nom+cnom
endif
endfor
endfor

?nom


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

On Wed, 19 Apr 2006 07:18:48 -0700, "Otto Pérez"
wrote:

Hola jose
Lo del numero verificador no lo entendi pero tal vez te sirva esta rutina
de encriptado:

Procedure encripta
Public clave
vClave="ESPERANZA"
cod=""
test = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ 1234567890"
testcod="¢Ð÷žæ®òÔÜ»·~ð¯Êõ׃þޟ¶ÎÄî¥ßÕã€ø£Øª±²§©"
nom=""
nom = trim(vClave)
For i=1 to len(nom)
cnom=substr(nom,i,1)
for i2= 1 to len(test)
ctest=substr(test,i2,1)
if cnom=ctest
ctestcod=substr(testcod,i2,1)
cod=cod+ctestcod
endif
endfor
Endfor

?cod
clave=Trim(cod)

Otto:

Eso no es encriptado sino una simple tergiversación de caracteres.
Puede que sea suficiente en muchos casos pero no es criptografía y no
es aceptado por entidades financieras, gubernamentales y por cualquier
aplicación que requiera seguridad seria.

Para algo serio debes usar criptografía profesional (como los
algoritmos TripleDES o AES). Ver el ejemplo indicado en este hilo.




Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net

Bajé la el archivo "vfpencryption.fll" de la página que señaló Alex. Pero al
llamar con SET LIBRARY me tira el error que la Librería no es válida. Porque
puede ser. Estoy Usando VFP8 SP1 en español. Gracias. Javier



"Alex Feldstein" escribió en el mensaje
news:

On Tue, 18 Apr 2006 17:31:00 -0500, "jose Mtz"
wrote:

Hola:
Alguien tendra alguna rutina para encriptar y desencrptar una
cadena...y
como crear un numero verificador

Una solucion es usar las clases de Craig Boyd [MVP] para VFP:
http://www.sweetpotatosoftware.com/...d024b.aspx



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net