Register to post in forums, or Log in to your existing account
 

Play RetroMUD
Post new topic  Reply to topic     Home » Forums » Finished MUD Scripts
NiteTrip
Novice


Joined: 21 May 2002
Posts: 40
Location: Canada

PostPosted: Sun May 26, 2002 7:55 am   

Encryption Version 2
 
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
Reply with quote
NiteTrip
Novice


Joined: 21 May 2002
Posts: 40
Location: Canada

PostPosted: Sun May 26, 2002 7:59 am   
 
i am such a noob, use addfriend <friend's name> to add a friend :)
Reply with quote
marilyn
Newbie


Joined: 01 Jun 2002
Posts: 9
Location: USA

PostPosted: Sat Jun 01, 2002 10:47 pm   
 
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.
Reply with quote
Skrud
Newbie


Joined: 01 Jun 2002
Posts: 6
Location: USA

PostPosted: Sat Jun 01, 2002 10:57 pm   
 
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.
Reply with quote
NiteTrip
Novice


Joined: 21 May 2002
Posts: 40
Location: Canada

PostPosted: Mon Jun 03, 2002 5:54 pm   
 
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.
Reply with quote
Display posts from previous:   
Post new topic   Reply to topic     Home » Forums » Finished MUD Scripts All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

© 2009 Zugg Software. Hosted by Wolfpaw.net