Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Karben Selim Mejia
  Where is Karben Selim Mejia?
 San Pedro Sula
 Honduras
 Karben Selim Mejia
 To: miro mati
  Where is miro mati?
 Kezmarok
 Slovakia
 miro mati
 Tags
Subject: RE: Is there possibility to encrypt field?
Thread ID: 33944 Message ID: 33982 # Views: 2 # Ratings: 0
Version: Visual FoxPro 5 Category: Security and Application Protection
Date: Friday, December 05, 2003 4:29:01 PM         
   


> > > Hi, does anybody know how to encrypt field? I once used chrtran. Is there something else like in php password()?
> > >
> > > thaks
> > >
> > > miromati
> >
> > A pretty advanced encrypting algorithm is used in Mz's article: "Obfuscator: Encrypt Your Source Codes". Check the article section.
> > --
> > Eric den Doop
> > www.foxite.com - The Home Of The Visual FoxPro Experts
>
> Where can I find it? IN some mag?
>
> miromati

have a look at this code for encription an decription

FUNCTION Encriptar
lparameter cTexto, cClave   && where cTexto is the actual string you want to encript and cClave is some kind of keycode to encript
	i = 0
	c = 0
    cBuffer = ""

   If !empty(cClave) Then
       For i = 1 To Len(cTexto)
           c = Asc(substr(cTexto, i, 1))
           c = c + Asc(substr(cClave, (i % Len(cClave)) + 1, 1))
           cBuffer = cBuffer + Chr(bitand(c, 255))
       Next
   Else
       cBuffer = cTexto
   EndIf
   RETURN cBuffer
ENDFUNC


FUNCTION Desencriptar(cTexto, cClave)
   i = 0
   c = 0
   cBuffer = ""

   If !empty(cClave) Then
       For i = 1 To Len(alltrim(cTexto))
           c = Asc(substr(cTexto, i, 1))
           c = c - Asc(substr(cClave, (i % Len(cClave)) + 1, 1))
           cBuffer = cBuffer + Chr(bitand(c, 255))
       Next
   Else
       cBuffer = cTexto
   EndIf
   
   Return cBuffer
ENDFUNC


Karben Selim Mejia

For _N=1974 to OnlyGodKnows

Honduras, Central America
The very centre of the world

ENTIRE THREAD

Is there possibility to encrypt field? Posted by miro mati @ 12/5/2003 10:29:48 AM
RE: Is there possibility to encrypt field? Posted by Eric den Doop @ 12/5/2003 2:07:24 PM
RE: Is there possibility to encrypt field? Posted by miro mati @ 12/5/2003 3:27:42 PM
RE: Is there possibility to encrypt field? Posted by Eric den Doop @ 12/5/2003 3:58:22 PM
RE: Is there possibility to encrypt field? Posted by Karben Selim Mejia @ 12/5/2003 4:29:01 PM
RE: Is there possibility to encrypt field? Posted by Foxhound @ 12/7/2003 7:36:06 PM
RE: Is there possibility to encrypt field? Posted by Mz @ 12/8/2003 7:46:50 AM