Success - Found here
http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000299
FUNCTION RC4
LPARAMETERS cTexte, cClef
LOCAL I, J, K, nLongClef, nInt, cResult
LOCAL ARRAY aInt(256)
FOR I = 1 TO 256
aInt(I) = I-1
ENDFOR
J = 0
M.nLongClef = LEN(M.cClef)
FOR I = 1 TO 256
J = BITAND(J + aInt(I) + ASC(SUBSTR(M.cClef, MOD(I-1,M.nLongClef)+1, 1)),
255)
M.nInt = aInt(I)
aInt(I) = aInt(J+1)
aInt(J+1) = M.nInt
ENDFOR
I = 1
J = 0
M.cResult = ''
FOR K = 1 TO LEN(M.cTexte)
I = BITAND(I, 255) + 1
J = BITAND(J + aInt(I), 255)
M.nInt = aInt(I)
aInt(I) = aInt(J+1)
aInt(J+1) = M.nInt
M.cResult = M.cResult + CHR(BITXOR(ASC(SUBSTR(M.cTexte, K, 1)), ;
aInt(BITAND(aInt(I) + M.nInt, 255)+1)))
ENDFOR
RETURN M.cResult
-----Original Message-----
From: ProfoxTech [mailto:[email protected]] On Behalf Of Alan Bourke
Sent: 19 November 2014 09:59
To: [email protected]
Subject: Re: VFPENCRYPTION
On Wed, 19 Nov 2014, at 08:45 AM, Allen wrote:
> If you say that then you would need to stop VFP as it is also based on
> the same c runtimes.
Hmmm - there is a version of the FLL that uses MSVCR71.DLL, you're right.
However the other considerations still apply - there's no source for it, Craig
Boyd (may the gods bless him and keep his hair luxuriant) appears to be
otherwise engaged and to be honest including it in a commercial application
deployed on thousands of sites raises licencing questions too.
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
