::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: This BitchX addon was created by Hackronym just to fuck around. No real important reason 
: Basically what this addon does is add an encryption thinggie.				    
:
: Here's an example of what it does :
: 
: Those who !!DO NOT!! have the addon and/or who !!DO NOT!! have it enabled will see
: This : amvg vg t adga
:
: Those who !!DO!! have the addon and who !!DO!! have it enabled will see
: This : this is a test
::
:: dvst8er crypt addon ::
:: Questions or comments or bugs or whatever, email me @ ::
::
:: root@nark.net or dvst8r@dvst8er.com ::
:: irc.pdq.net   irc.nark.net	irc.2600.net
:: nick    : Hackronym or CyberFlog
:: channel : #Linux, #Thinktank, #Nark, #2600ca, #BitchX
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::
## Shoutoutz 2 |jago| , SirgRiM , }{, synacore ::
:: 4 encouraging me to do this sheeet... and the rest of the ::
:: #Linux, #thinktank, #rooted, etc crew ... and whoever else i forgot ...
::
::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

##################################################################################

## clear screen

^clear

^eval echo $G
^eval echo $G

alias rotmode {
  if ([$rotset]==[on]) {
    echo rot mode is currently $cparse("%Cenabled") ...
    }
   if ([$rotset]==[off]) {
    echo rot mode is currently $cparse("%Cdisabled") ...
}}


## addon logo & version

@ addon.name = [$annoy(rot-)]
@ addon.version = [\{3.5\}]

^eval echo $G
^eval echo $G $cparse("%Gyou are using $addon.name$addon.version")

## version thinggie

alias addon {@ function_return = [$addon.name$addon.version]}
alias opersystem {@ function_return = [$0\($1\)]}
alias clientver if (![$0]) {
        @ function_return = [$before(- $J)\($after(- $J)\)]
}{
        @ function_return = [$before(- $J)\($after(- $J) + $0\)]
}

^eval set format_version $format_version + $addon()

############################################


## Encryption algorythm thinggie...

@ rot[IN] =  [{#*ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!.?,:'/;\[\](){}}]
@ rot[OUT] = [{#*TKLEDZSMVXBCHWRUYOGAPINJQFtkledzsmvxbchwruyogapinjqf6985730421?,!.;'\:/(/)[]{}}]

## encryption rewtine 

alias do_rot if ([$0]) {
        @ str.in = [$1-]
        @ str.out = []
        if ([$0]==[IN]) {
                fec ($str.in) x {
                        if ([$x]==[ ]) {@ str.out = [$str.out]##[ ]}
                        @ str.out = [$str.out]##[$mid($index($x $rot[IN]) 1 $rot[OUT])
                }
                @ function_return = [$str.out]
        }{
   fec ($str.in) x {
                        if ([$x]==[ ]) {@ str.out = [$str.out]##[ ]}
                        @ str.out = [$str.out]##[$mid($index($x $rot[OUT]) 1 $rot[IN])
                }
                @ function_return = [$str.out]
        }
}


## Rot alias

alias rot if ([$0]) {
  if ([$rotset]==[on]) {
        @ var1 = [$do_rot(IN $0-)]
	echo $cparse("%C(%C%B$C/$N%B%C)%C") $var1
        sendline $cparse("%Y(%Y%Bcrypt%B%Y)%Y") $var1
}}

@cryptc = [$cparse("%Y(%Y%B*crypt%B%Y*)*%Y")]

^on ^send_public "% *(*crypt*)*" {
  if ([$rotset]==[on]) {  
      @ txt = strip(^_^B\(\) $2-)
        echo $cparse("%Y[%Y%Rsent%R%Y]%Y")\[$cparse("%G$N%G")] $cparse("%C$do_rot(OUT $txt)")
}}

^on ^public "% % *(*crypt*)*" {
  if ([$rotset]==[on]) {
        @ var2 = [$do_rot(OUT $3-)
	@ var1 = [$do_rot(IN $3-)
        @ cnick = [$0]
	echo $cparse("%C(%C%B$C/$cnick%B%C)%C") $do_rot(OUT $var1)
	echo $cparse("%Y[%Y%Greceived%G%Y]%Y")\[$cparse("%R$cnick%R")] $cparse("%C$var2")
}}


^on ^public_other "% % *(*crypt*)*" {
  if ([$rotset]==[on]) {
        @ var3 = [$do_rot(OUT $3-)
	@ var4 = [$do_rot(IN $3-)
        @ cnick = [$0]
	echo $1/$cnick $do_rot(OUT $var4)
        echo $cparse("%Y[%Y%Greceived%G%Y]%Y")\[$cparse("%R$cnick/$1%R")] $cparse("%C$var3")
}}

##############
##	    ##
## Rot Help ##
##	    ##
##############

alias rothelp {
	echo $G
	echo $G $cparse("%B.... %Y[%Y%Rsent%R%Y]%Y%C are the messages that you send (duhhhh)")
	echo $G $cparse("%B.... %Y[%Y%Greceived%G%Y]%Y%C are the messages sent by others")
	echo $G $cparse("%B.... %Y(%Y%Bcrypt%B%Y)%Y%C is what other people will see")
	echo $G $cparse("%B.... e-mail me @ %Cdvst8er@dvst8er.com")
	echo $G $cparse("%B....")
	echo $G $cparse("%B.... %R'/rothelp' %R%B to see this help")
	echo $G $cparse("%B.... %R'/rot text' %R%B sends encrypted text to channel")
	echo $G $cparse("%B.... %R'/rotconfig' %R%B to configure this addon")
	echo $G $cparse("%B.... %R'/rotmode' %R%B to see if rot mode is on or off")
	echo $G $cparse("%B....")
	echo $G $cparse("%B.... %R'/roton' %R%B to automatically send encrypted text")
	echo $G $cparse("%B.... %R'/rotoff' %R%B to turn off 'roton' mode...heh")
	echo $G $cparse("%B.... When roton mode is set, all the text you type will be encrypted")
	echo $G $cparse("%B....")
}

^eval echo $G
^eval echo $G $cparse("%B.... This addon is simple to use... type %R'/rot text' %R%B in the channel")
^eval echo $G $cparse("%B.... to send encrypted text. Only 'rot' users will be able to see the text")
^eval echo $G $cparse("%B.... %Y[%Y%Rsent%R%Y]%Y%C are the messages that you send (duhhhh)")
^eval echo $G $cparse("%B.... %Y[%Y%Greceived%G%Y]%Y%C are the messages sent by others")
^eval echo $G $cparse("%B.... %Y(%Y%Bcrypt%B%Y)%Y%C is what other people will see")
^eval echo $G $cparse("%B.... e-mail me @ %Cdvst8er@dvst8er.com.com")
^eval echo $G
^eval echo $G $cparse("%B.... Type %R'/rothelp' %R%B for help with this addon")

## configuration thinggie

alias fucker if (tolower($0) == [on]) {@ function_return = [Y|n]}{@ function_return = [y|N]}
alias suckit if (([$0] && isnum($0)) || (tolower($0) == [on])) {@ function_return = [on]}{@ function_return = [off]}


alias roton {
echo $G $cparse("%CNow all the text you type will be encrypted. type %R'/rotoff' %R%C to turn this feature off")
	^on ^input "*" {
	@ var1 = [$do_rot(IN $0-)]
if (([$[1]0]!=[/])&&([$0]!=[])) {
echo $cparse("%C(%C%B$C/$N%B%C)%C") $var1
send $cparse("%Y(%Y%Bcrypt%B%Y)%Y") $var1;type ^U}{
if ([$0]==[/me]) {//me $var1;type ^U}{SENDLINE $*}
}
}}

alias rotoff {
echo $G $cparse("%CNow you must type %R'/rot text' %R%C to send encrypted text. %R'/rothelp' %R%C for help")
^on -input "*"
}


######## mail crap

on ^mail "*" {
	echo $G
         echo $G *** $cparse("%B%FYou have $0 new e-mails${[$0] > 1 ? [s] : []}, $1 total")
	echo $G      
}

on flood ^'\\[X W NickServ ChanServ\\] *'


#######################################################
##### I PLANNED ON MAKING A /ROTSAVE OPTION A WHILE BACK
###### BUT I NEVER GOT TO IT. THEN MY BOY "kefx" REMINDED ME
#### AND HERE IT IS #### NOW YOU DONT HAVE 2 TYPE 'y' ######
### EACH TIME YOU LOAD THIS ..... ENJOY !!!!! #############
#######################################################


alias rotset {
   if ([$0]) {
   @rotset=[$0]
   echo $G rot mode has been turned $cparse("%c$rotset")
}}


## Load the saved settings

@ rotcrypt = [~]
 
if (fexist($rotcrypt/.rotsave) == 1) {^load $rotcrypt/.rotsave}

if (fexist($rotcrypt/.rotsave) != 1) {
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $G $cparse("%YTHIS ADDON IS NOT YET CONFIGURED")
	echo $G
	echo $G $cparse("%CPlease type /rotconfig to configure this addon")
	rotconfig	
}

alias rotconfig {
	echo $G
	echo $G $cparse("%CCONFIGURING SCRIPT.......")
	echo $G
	echo $G $cparse("%GTurn rot mode on/off:")
        echo $G $cparse("%GRot mode :")$[-4]suckit($rotset)
        input_char "\($cparse("%RCurrent:")$[-4]{rotset}\) $cparse("%CTurn Rot Mode on ? [$fucker($suckit($rotconfig))]:") " {
	if ([$0]==[y]) rotset on 
	if ([$0]==[n]) rotset off
	rotsave
	}
}

alias rotsave {
	echo $G
	echo $G $cparse("%R*** Saved%R %G$rotset%G %Rto%R %G$rotcrypt/.rotsave%G %R***%R")
	^local cfile;^save
	@ unlink($rotcrypt/.rotsave)
	@ cfile = open($rotcrypt/.rotsave W T)
	@ write($cfile @ rotset = [$rotset])
	@ close($cfile)
}


^eval echo
^eval echo
do rotmode
^eval echo