--- In [email protected], [EMAIL PROTECTED] wrote: > Here's a ROT-13 code snippet from Ted that I pulled out of the archives > (1/13/05 - Re: ROT13 - Scramble/Unscramble the clipboard with ROT13). Might > be able to be adapted to work for the obfuscation purpose. > > LOCAL answer, s=CLIP.Get > LOCAL k,n=LENGTH(s) > LOCAL b="ABCDEFGHIJKLMNOPQRSTUVWXYZ" > LOCAL c="NOPQRSTUVWXYZABCDEFGHIJKLM" > > FOR(LOCAL i=1; i<=n; i=i+1) > k = INDEX(c,SELECT(s,i,i)) > IF(k!=0)DO > answer = answer++SELECT(b,k,k) > ELSE > answer = answer++SELECT(s,i,i) > ENDIF > ENDFOR
local a, t, s=CLIP.Get t=translate(s,"abcdefghijklmnopqrstuvwxyz";;+ ,"nopqrstuvwxyabcdefghijklmz") a=translate(t,"ABCDEFGHIJKLMNOPQRSTUVWXYZ";;+ ,"NOPQRSTUVWXYABCDEFGHIJKLMZ")
