Just a simple codded messages to annoy your friends who don't have the script loaded.
Type /et MESSAGE HERE
and your friend(s) will be echo'd the decoded message.
Please comment, constructively criticize
alias et { set %text $1- | set %type $rand(1,2)
if (%type == 1) { msg $active θ $+ $encode(%text,um,1) }
if (%type == 2) { msg $active Ω $+ $encode(%text,u,1) }
else { HALT }
}
on *:TEXT:*:*:{ if ($left($1-,1) == θ) { set %dtext $right($1-,-1) | echo -a 4,0Secret Message from7,0 $nick $+ : $decode(%dtext,um,1) }
if ($left($1-,1) == Ω) { set %dtext $right($1-,-1) | echo -a 4,0Secret Message from7,0 $nick $+ : $decode(%dtext,u,1) }
else { HALT }
}
this isn't encryption, it's encoding. it's also quite easily identifiable - anyone with a little bit of mIRC know-how will be able to decode it. but, like the other similar snippet from a couple of weeks ago, this is made just for fun and doesn't warrant such scrutiny. still, it is a little misleading to those that might be scrounging around hawkee.com for actual mIRC driven encryption.
mIRC doesn't actually support encryption natively, except of course for client<->server encryption in 3rd party form (SSL). there is also an mIRC DLL that provides client<->client encryption (Blowfish) drifting around mIRC circles.
just another way to do it
dont need to set Global vars,
alias et {
var %type = $r(1,2), %y = $encode($$1,u)
if (%type == 1) { msg $active θ $+ %y }
else { msg $active Ω $+ %y }
}
on *:TEXT:*:*:{
if ($left($strip($1),1) == θ) || ($left($strip($1),1) == Ω) {
echo -a 4,0Secret Message from7,0 $nick $+ : $decode($remove($strip($1-),θ,Ω))
}
}