Binary God V4.0 — File Browser
BinaryGodV4.0v4.0 / BinaryGodV4.0v4.0 / binarygodv4.0.mrc
binarygodv4.0.mrc — 8.22 KB — Download this file
;#############################
;# Binary God V4.0 #
;# Made by DeathfireD 4/7/04 #
;############################
menu {
.Binary keys:/bincript4
-
}
dialog bincript4 {
title "Binary God Encryption"
size -1 -1 98 55
option dbu
box "Binary God Setup - mIRC Integrated", 2, 0 0 98 55
text "key 1", 3, 5 10 24 8
edit , 4, 31 10 62 10, autohs
edit , 5, 31 20 62 10, autohs
text "key 2", 6, 5 20 24 8
button "Cancel", 31, 35 40 28 10, flat cancel
button "OK", 30, 5 40 28 10, default flat ok
check "Defaults keys.", 7, 5 30 87 10, left
}
alias bincript4 { dialog -md bincript4 bincript4 }
on *:dialog:bincript4:sclick:7:{
;echo -a Did: $did
if ($did == 7) { set %bincrypt 2
set %bindecrypt 10
;echo -a Encryption Defaults: Yes
}
else {
set %bincrypt 2
set %bindecrypt 10
;echo -a Encryption Defaults: No
}
}
on *:dialog:bincript4:edit:*:{
if $did == 4 { set %bincrypt $did(4) }
if $did == 5 { set %bindecrypt $did(5) }
}
on *:dialog:bincript4:init:0:{ did -a bincript4 4 %bincrypt | did -a bincript4 5 %bindecrypt }
dialog amigos {
title "t h a n k z .::"
size -1 -1 143 69
option dbu
list 1, 1 0 44 67, size
text "name", 2, 46 3 22 7
text "help", 3, 46 15 27 7
edit "", 4, 76 1 66 10, multi read autohs
edit "", 5, 76 13 66 31, multi autovs read
button "[ok]", 11, 123 57 18 10, ok
}
dialog autor {
title "a u t h o r s .::"
size -1 -1 305 220
text "nick",3,82 12 40 14
combo 1,125 8 100 100, drop
text "name",4,5 45 45 14, center
text "",7,70 45 200 14
text "Servers",5,5 75 45 14, center
text "",10,70 75 200 14
text "chans",6,5 105 45 14, center
text "",13,70 105 230 14
text "Aim",127,5 135 45 14, center
text "",16,70 135 200 14
text "email",8,5 165 45 14, center
text "",19,70 165 200 14
button "[close]",121, 140 190 40 25, ok center
box "", 123, 0 30 55 155
box "", 111, 0 30 305 35
box "", 112, 0 60 305 35
box "", 113, 0 90 305 35
box "", 114, 0 120 305 35
box "", 115, 0 150 305 35
}
on *:dialog:amigos:init:0:{
did -a amigos 1 Koga
did -a amigos 1 mIRC
did -a amigos 1 Kitty-Kat
did -a amigos 1 Blowfish
did -a amigos 1 Tidy-Trax
did -a amigos 1 Wolfie
did -a amigos 1 you
did -a amigos 1 you
did -a amigos 1 you
did -a amigos 1 you
did -z amigos 1
}
on *:dialog:amigos:sclick:1: {
if ($did(1).sel == 1) { namedid | did -a amigos 4 Koga | did -a amigos 5 Tester }
if ($did(1).sel == 2) { namedid | did -a amigos 4 mIRC MessageBoard | did -a amigos 5 Thanks for helping with scripting }
if ($did(1).sel == 3) { namedid | did -a amigos 4 Kitty-Kat | did -a amigos 5 Tester }
if ($did(1).sel == 4) { namedid | did -a amigos 4 Blowfish | did -a amigos 5 Thanks for dialog for keys }
if ($did(1).sel == 5) { namedid | did -a amigos 4 Tidy-Trax | did -a amigos 5 Thanks for the help with "-" before "%val" and other bugs }
if ($did(1).sel == 6) { namedid | did -a amigos 4 Wolfie | did -a amigos 5 Thanks alot for the on text help. No more bugs yay. }
if ($did(1).sel == 7) { namedid | did -a amigos 4 you | did -a amigos 5 you can help }
if ($did(1).sel == 8) { namedid | did -a amigos 4 you | did -a amigos 5 you can help }
if ($did(1).sel == 9) { namedid | did -a amigos 4 you | did -a amigos 5 you can help }
if ($did(1).sel == 10) { namedid | did -a amigos 4 you | did -a amigos 5 you can help }
}
alias namedid { did -r amigos 4 | did -r amigos 5 }
alias thankz { dialog -md amigos amigos }
alias namedidz { did -r autor 7 | did -r autor 10 | did -r autor 13 | did -r autor 16 | did -r autor 19 }
alias autor { dialog -md autor autor }
on *:dialog:autor:init:0: {
did -a autor 1 DeathfireD
}
on *:dialog:autor:sclick:1: {
if ($did(1).sel == 1) { namedidz | did -a autor 7 Dan | did -a autor 10 Otaku-chat.com | did -a autor 13 @#Scripting | did -a autor 16 DeathfireD2 | did -a autor 19 DJOrdway@adelphia.net }
}
dialog Bingotinfo {
title "Binary God V4.0"
size -1 -1 146 124
option dbu
box "Info", 1, 1 3 145 105
edit "Binary God was made for people that wish to talk in there chat without anyone knowing what there saying. ::This Update::, I fixed the bug that would not let you see numbers that you typed in first. Much thanks to Wolfie. ==Next update== Im planing on making some kinda of auto update that will search for an update on my site then download it. I will also be working on adding in mime to make the Encryption better. Please feel free to send me feedback or help me out. Im alwase looking for more help. Thanks", 2, 3 10 141 95, read multi
button "Exit", 3, 4 110 63 9, flat, ok
button "E-mail Feedback", 4, 73 110 66 9, flat
}
alias Bingotinfo { dialog -md Bingotinfo Bingotinfo }
on *:dialog:Bingotinfo:sclick:*:{
if $did == 4 { run mailto:DJOrdway@adelphia.net?subject=Binary God v4.0 input }
}
;[binclock]
alias bc.start {
.timerbc -m 0 100 bc.drawtime
window -pk0od +ft @BinaryClock -1 -1 260 104
}
alias bc.drawtime {
if ($window(@BinaryClock) == $null) {
.timerbc off
halt
}
drawrect -nf @BinaryClock 0 1 1 1 180 200
set %bc.tfmt 243434444
set %bc.i 1
while (%bc.i <= $len(%bc.tfmt)) {
set %bc.z $mid(%bc.tfmt, %bc.i, 1)
while (%bc.z) {
bc.bit $bc.getbit(%bc.i, %bc.z) %bc.i %bc.z
dec %bc.z
}
inc %bc.i
}
bc.drawblobs
; Update the display
drawdot @BinaryClock
;drawtext @BinaryClock 4 Arial 10 10 65 $time - $gettok($calc($ticks / 1000),2,$asc(.))
unset %bc.*
}
alias bc.bit {
set %bc.active 2
if ($1 == 1) set %bc.active 4
set %bc.dist 0
if ($2 > 2) inc %bc.dist 20
if ($2 > 4) inc %bc.dist 20
if ($2 > 6) inc %bc.dist 20
inc %bc.dist $calc(($2 * 20) - 10)
set %bc.top $calc(70 - ($3 * 15))
drawrect -nf @BinaryClock %bc.active 1 %bc.dist %bc.top 10 10
}
alias bc.drawblobs {
drawrect -nf @BinaryClock 2 1 52 20 5 5
drawrect -nf @BinaryClock 2 1 52 45 5 5
drawrect -nf @BinaryClock 2 1 112 20 5 5
drawrect -nf @BinaryClock 2 1 112 45 5 5
drawrect -nf @BinaryClock 2 1 172 20 5 5
drawrect -nf @BinaryClock 2 1 172 45 5 5
}
alias bc.getbit {
if ($1 <= 6) {
set %bc.time $left($time,2) $+ $mid($time,4,2) $+ $right($time,2)
set %bc.val $mid($revstr($base($mid(%bc.time,$1,1),10,2)), $2, 1)
}
else {
set %bc.time $gettok($calc($ticks / 1000),2,$asc(.))
set %bc.val $mid($revstr($base($mid(%bc.time,$calc($1 - 6),1),10,2)), $2, 1)
}
if (%bc.val == $null) set %bc.val 0
return %bc.val
}
;reverse a string. used to reverse the bits into an easier order to 'use' them
alias revstr {
set %bc.str $len($1)
set %bc.ret
while (%bc.str) {
set %bc.ret %bc.ret $+ $mid($1, %bc.str,1)
dec %bc.str
}
return %bc.ret
}
alias bin.decode {
var %temp = $1-
var %output
while (%temp) {
var %char = $chr($base($left(%temp,8),%bincrypt,%bindecrypt))
%output = %output $+ $iif(%char == $chr(32),$chr(1),%char)
%temp = $right(%temp,-8)
}
return $replace(%output,$chr(1),$chr(32))
}
alias bin.encode {
var %output
var %temp = $1-
while (%temp) {
%output = %output $+ $base($asc($left(%temp,1)),%bindecrypt,%bincrypt,8)
%temp = $right(%temp,-1)
}
return %output
}
menu channel {
-
binary
.Binary God Keys:/bincript4
.Say Something in Binary:.msg # - $bin.encode($$input(Enter your text.,e)) | echo -a < $+ $me $+ @binon> $!
.Binary Clock: bc.start
..&info
...&thankz: thankz
...&author: autor
...&info: Bingotinfo
..-
..&unload:unload -rs binarygodv4.0.mrc
}
menu Status {
-
Binary
.Binary God Keys:/bincript4
.Binary Clock: bc.start
..&info
...&thankz: thankz
...&author: autor
...&info: Bingotinfo
..-
..&unload:unload -rs binarygodv4.0.mrc
}
on *:INPUT:#:{
if (- != $1 || $regex($2-,/\D+/)) { return }
echo -a $+(<,$me,@binon>) $bin.decode($2-)
.msg # $1- | halt
}
on $*^:text:/^-\s\d+$/:#:{
echo -mbflirt # $+(<,$nick,@binon>) $bin.decode($2-)
haltdef
}
on 1:LOAD:/echo 12Binary God V4.0 Script By DeathfireD Loaded! | /bincript4
on 1:UNLOAD:/echo 4Binary God V4.0 Script By DeathfireD Unloaded!