// Rot13 macro by HWC Maenygh // usage: "rot13 [text]" "rot13" { set _numletters 0 set _input @text set _output "" set _alp "abcdefghijklmnopqrstuvwxyz" set _rot "nopqrstuvwxyzabcdefghijklm" label check_input if _numletters < @text.num_letters set _alp_compare 0 label loop_compare if _alp_compare > 25 set _output + _input.letter[_numletters] else if _input.letter[_numletters] == _alp.letter[_alp_compare] set _output + _rot.letter[_alp_compare] else set _alp_compare + 1 goto loop_compare end if end if set _numletters + 1 goto check_input end if _output "\r" } // *********************************************************************** // Okay, here's the mother of all ROT-macro's for you macro-freaks out there; // My "ROT-ALL" macro. Don't even ask why.. :-D // // This one encrypts/decrypts all ROT keys (1 to 25). // Note: This won't help you with any neat little IC scrolls you might have. // Those use random encryption. Macro for that coming "soon" // // Usage: /rotall [text] // // for instance: // // /rotall rgm wkoxiqr xoonc dy qod k vspo pkcd. // // In the left CL-screen (and textlog obviously) the output will look like // this: // // ¥ Rot 1 ( 25 ); shn xlpyjrs yppod ez rpe l wtqp qlde. // ¥ Rot 2 ( 24 ); tio ymqzkst zqqpe fa sqf m xurq rmef. // ¥ Rot 3 ( 23 ); ujp znraltu arrqf gb trg n yvsr snfg. // ¥ Rot 4 ( 22 ); vkq aosbmuv bssrg hc ush o zwts togh. // ¥ Rot 5 ( 21 ); wlr bptcnvw cttsh id vti p axut uphi. // ¥ Rot 6 ( 20 ); xms cqudowx duuti je wuj q byvu vqij. // ¥ Rot 7 ( 19 ); ynt drvepxy evvuj kf xvk r czwv wrjk. // ¥ Rot 8 ( 18 ); zou eswfqyz fwwvk lg ywl s daxw xskl. // ¥ Rot 9 ( 17 ); apv ftxgrza gxxwl mh zxm t ebyx ytlm. // ¥ Rot 10 ( 16 ); bqw guyhsab hyyxm ni ayn u fczy zumn. // ¥ Rot 11 ( 15 ); crx hvzitbc izzyn oj bzo v gdaz avno. // ¥ Rot 12 ( 14 ); dsy iwajucd jaazo pk cap w heba bwop. // ¥ Rot 13 ( 13 ); etz jxbkvde kbbap ql dbq x ifcb cxpq. // ¥ Rot 14 ( 12 ); fua kyclwef lccbq rm ecr y jgdc dyqr. // ¥ Rot 15 ( 11 ); gvb lzdmxfg mddcr sn fds z khed ezrs. // ¥ Rot 16 ( 10 ); hwc maenygh needs to get a life fast. // ¥ Rot 17 .... etc... // // As you can see, the input was a rot10-encrypted one, which was decrypted // with rot16. // // Have fun! // // HWC Maenygh // // ------ // // Rot-All, the most idiotic macro ever written. // by HWC Maenygh, maenygh@puddleby.org // Usage: "/rotall [text]" "/rotall" { set rot_key 1 set rot_list "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz" set rot_input @text set rot_input_length rot_input.num_letters label rot_loop set rot_output "" set rot_list_letter 0 set rot_input_letter 0 // here we go if rot_input_length > 0 label decrypt_a_letter if rot_input_letter < rot_input_length set rot_list_letter 0 label match_letter if rot_input.letter[rot_input_letter] == rot_list.letter[rot_list_letter] set rot_list_letter + rot_key set rot_output + rot_list.letter[rot_list_letter] set rot_input_letter + 1 goto decrypt_a_letter else if rot_list_letter < 25 set rot_list_letter + 1 goto match_letter else set rot_output + rot_input.letter[rot_input_letter] set rot_input_letter + 1 goto decrypt_a_letter end if end if else set derot_key 26 set derot_key - rot_key message "¥ Rot" rot_key "(" derot_key "); " rot_output if rot_key < 25 set rot_key + 1 goto rot_loop end if end if else message "¥ We need some input to DO something." end if }