Dvst8er.bx version 3.5 - BitchX module to encrypt IRC conversations.
32eb36236930a4cb5a0b01471a782bb081d0f137ff2cc078e7b1b3e956ba7426
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: 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 @ ::
::
:: alex@nark.net or dvst8er@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