Zugg Software :: View topic

Novice Joined: 21 May 2002 Posts: 40 Location: Canada

Here it is, new alias, addfriend so it only decrypts from friends still use code to turn it on and codeoff to turn it off. I add the friendlist and more channels

#alias encrypt {#var encrypted " ";#var alphabet "1234567890 '?qwertyuiopasdfghjklzxcvbnm,.!@#%^&*()";#var enkey ")(*&^%#@!.mnbvcxzlkjh,gfdsapoiuytrewq'? 0987654321";#var final " ";#var phrase {%lower( @phrase)};#var plen {%len( @phrase)};#var enlen @plen;#var words %numwords( @phrase);#while ( @words > 0) {#var backwards {%word( @phrase, @words)};#var final {@final @backwards};#add words -1};#var final {%trimleft( @final)};#while (@enlen > 0) {#var findit {%copy( @final, (@plen -(@enlen-1)), 1)};#var enpos {%pos( @findit, @alphabet)};#var encrypted {@encrypted%copy( @enkey, @enpos, 1)};#add enlen -1};#var phrase @encrypted} encryption
#alias say {#var phrase {%0};encrypt;~say @phrase} Encryption
#alias decrypt {#var decrypted " ";#var alphabet "1234567890 '?qwertyuiopasdfghjklzxcvbnm,.!@#%^&*()";#var enkey ")(*&^%#@!.mnbvcxzlkjh,gfdsapoiuytrewq'? 0987654321";#var final " ";#var phrase {%lower( @phrase)};#var plen {%len( @phrase)};#var enlen @plen;#while (@enlen > 0) {#var findit {%copy( @phrase, (@plen -(@enlen-1)), 1)};#var enpos {%pos( @findit, @enkey)};#var decrypted {@decrypted%copy( @alphabet, @enpos, 1)};#add enlen -1};#var words %numwords( @decrypted);#while ( @words > 0) {#var forward {%word( @decrypted, @words)};#var final {@final @forward};#add words -1};#var decrypted {%trimleft( @final)};} Encryption
#alias tell {#var phrase {%-2};encrypt;~tell %1 @phrase} Encryption
#alias t {#var phrase {%-2};encrypt;~tell %1 @phrase} Encryption
#alias {code} {#CLA encryption 1}
#alias {codeoff} {#CLA encryption 0}
#alias addfriend {#var friendlist {@friendlist|%lower(%1)}}
#alias yell {#var phrase {%0};encrypt;~yell @phrase} Encryption
#alias gos {#var phrase {%0};encrypt;~gos @phrase} Encryption

#trigger {You tell %w '(*)'} {#var phrase {%1};decrypt;#sa decrypted- @decrypted } encryption
#trigger {You say, '(*)'} {#var phrase {%1};decrypt;#sa decrypted- @decrypted} encryption
#trigger {(%w) tells you '(*)'} {#if %ismember(%lower(%1),@friendlist) {#var phrase {%2};decrypt;#sa decrypted- @decrypted}} encryption
#trigger {(%w) says, '(*)'} {#if %ismember(%lower(%1),@friendlist) {#var phrase {%2};decrypt;#sa decrypted- @decrypted}} encryption
#trigger {(%w) says, '(*)'} {#if %ismember(%lower(%1),@friendlist) {#var phrase {%2};decrypt;#sa decrypted- @decrypted}} encryption
#trigger {You yell '(*)'} {#var phrase {%1};decrypt;#sa decrypted- @decrypted} encryption
#trigger {(%w) yells '(*)'} {#if %ismember(%lower(%1),@friendlist) {#var phrase {%2};decrypt;#sa decrypted- @decrypted}} encryption
#trigger {~[Gossip~] (%w): (*)} {#if %ismember(%lower(%1),@friendlist) {#var phrase {%2};decrypt;#sa decrypted- @decrypted}} encryption

Novice Joined: 21 May 2002 Posts: 40 Location: Canada

i am such a noob, use addfriend <friend's name> to add a friend :)

Newbie Joined: 01 Jun 2002 Posts: 9 Location: USA

quote:

i am such a noob, use addfriend <friend's name> to add a friend :)

Blonde moment. What is the purpose of this script?

Mari
Jade is more than stone, more than color. It is beauty made tangible.

Newbie Joined: 01 Jun 2002 Posts: 6 Location: USA

I'll answer this! Most mud, mushes, etc, are *very* heavily logged. At least the ones in my experience have been. All channels, all emote, tells or telepaths, everything. Now if you have something that you don't really want potential rebroadcast, this is a makeshift way of getting around that. I *am* into crypto, just a bit, and I don't think this would be very tough to "break", but most mud admins aren't going to go through the trouble. They'll just tell you to knock it off or punish you. ;) Best thing to do really, is to use a IM, such as zchat or (what I use) Trillian.

Although, from what I understand zchat is PGP enabled (Goooo Zugg! *cheers*), I haven't really gotten it to work, but then, I've put *very* little effort into it. Just basically noticed it was there. ;) My mud chatting isn't that important to me, but could be if I was developing something.

Novice Joined: 21 May 2002 Posts: 40 Location: Canada

it is not that hard to break, no, however i did throw in a little loop, and if an admin cam here htey could easily break it... just for fun really not to cheat a mud, but clans could have thier own languages by changing the key, and it will broadcast on public channels as well as private.