--encryption button:
on mouseUp
--transform password to a number
repeat for each char theChar in field "password"
put chartonum(theChar) after password
end repeat
--set the random generator to it (only first 4 to 5 chars matter)
set the randomSeed to password
--translate each char to a number
repeat for each char theChar in field "input"
--field "randomNumber" is a previously set number
put ( random(field "RandomNumber") + chartonum(theChar)) & return after theEncoded
end repeat
--output
put theEncoded into field "encrypted"
end mouseUp
--decryption:
on mouseUp
repeat for each char theChar in field "password"
put chartonum(theChar) after password
end repeat
set the randomSeed to password
repeat for each line theLine in field "encrypted"
put numtochar(theLine - random(field "RandomNumber")) after theDecoded
end repeat
put theDecoded into field "decrypted"
end mouseUp
On Sonntag, Apr 6, 2003, at 03:29 Europe/Zurich, Monte Goulding wrote:
Hi RichardSo with that out of the way, we're back to the original question: for what uses would a hard-to-break but not military-grade encryption be acceptable?
I faintly remember that the password protection is 128 bit encryption so I
assume it's equivalent to SSL in it's strength. I think this is the reason
the US Government won't let MC/Rev be exported to some countries. I guess
the critical thing is that you make it difficult for someone to work out the
passkey. Once that's public then you offer no protection at all.
By the way I think Rev does this for their order form so that's one use.
Regards
Monte
_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution