I don't use ROT-13, so I don't know if numbers are included so you may have to tweak this:
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 ;WIN.Debug(answer) CLIP.Set(answer) ;CLIP.SetPaste QUIT Ted > Hello, > > is anywhere a code snippet available for scramble/unscramble a > clipboard entry with ROT-13? > > -- > Best regards, Thomas Attention: PowerPro's Web site has moved: http://www.ppro.org Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/power-pro/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
