14836
Progress Journals & Experimental Routines / Re: ADARQ's journal
« on: April 18, 2012, 06:22:23 am »
hey rix, fuck the fuck off. thanks.
Today I got the movie-script parser working.. The next step, is to "find names" within each movie script, and replace them with a special tag that I can use to substitute IRC nicknames with, for example:
14:49 < warm-n9> the last step would be to try and extract names
14:49 < warm-n9> and replace them with <name>
14:49 < warm-n9> which is kind of difficult
14:49 < warm-n9> for example
14:49 < warm-n9> COLE: Sup
14:49 < warm-n9> MIKE: Hey james
14:49 < warm-n9> MARRY: That's James Cole
14:50 < warm-n9> would need to become:
14:50 < warm-n9> COLE: Sup
14:50 < warm-n9> MIKE: Hey <name:COLE>
14:50 < warm-n9> MARRY: That's <name:COLE>
So I need to find, based on the CAPITALIZEDNAMES, other variations of the names within the text.. shouldn't be too hard.
Other than that, I got some lisp functions working nicely in the bot's alias modules.. this is pretty sick.. check it, here's the raw bot + guile-scheme code:
dns code:
^a(add) dns \|^e dns result: \|^guile (define p (gethost "$$2")) (define phost (vector-ref p 0)) (define pip (car (vector-ref p 4))) (display phost) (display "=") (display (inet-ntoa pip))
cat1 code:
^a(add) cat \|^e\|^guile (define (read-string char-set input-port) (let ((char (peek-char input-port))) (if (eof-object? char) char (list->string (let loop ((char char)) (if (or (eof-object? char)) '() (begin (read-char input-port) (cons char (loop (peek-char input-port)))))))))) (define p (open-input-file "$$2")) (display (read-string 's p)) \|^multi
here's it being used in an example:
06:00 < warm-n9> best bot ever.
06:03 < warm-n9> ^a cat /etc/motd
06:03 < dko> Linux darqbot 4.3.19.12202011 #2 SMP Thu Dec 25 01:28:15 EST 0BC i686
06:03 < dko> Welcome to the darqbot ircOS.
06:03 < warm-n9> RAPED.
06:03 < warm-n9> AS
06:03 < warm-n9> FUCK
06:03 < warm-n9> ^a cat /etc/passwd
06:03 < dko> root:x:0:0:root:/root:/bin/bash
06:03 < dko> test:test:1000:1000:test,,,:/:/bin/darqbotsh
06:03 < warm-n9> LMFAO
06:07 < warm-n9> ^a dns adarq.org
06:07 < dko> dns result: adarq.org=199.193.251.107
notice the $$2's in the code? args.
So, as you can see, ^a dns <args> AND ^a cat <arg> now run lisp code with the arguments i specify.
I need to develop a bunch of alias codes for things like:
- ls/uname/stat/find/grep/rm/mkdir/etc
- adding "quotes" to flat file db's, such as ^a addquote <a funny quote> .... ^a getquote
I have a pretty crazy idea i'm going to implement soon, mod_exp, which runs vulnerable functions in the child.. such as:
^exp(fmtstring) <data>
^exp(offby1) <data>
HEH.. once i program the unicode funcs, people will be able to pass null bytes to it, and really muck around, trying to gain shell access to the bot.. i want to put a bunch of vulns in that module for fun.. only thing I need to figure out is how to possibly compile without canary/ASLR etc.
Finally, if I am boring you, I am so very sorry. Seriously, I will go do some dunk on 9' and act stupid on camera, if that will make it up to you.
pC folks.
Today I got the movie-script parser working.. The next step, is to "find names" within each movie script, and replace them with a special tag that I can use to substitute IRC nicknames with, for example:
14:49 < warm-n9> the last step would be to try and extract names
14:49 < warm-n9> and replace them with <name>
14:49 < warm-n9> which is kind of difficult
14:49 < warm-n9> for example
14:49 < warm-n9> COLE: Sup
14:49 < warm-n9> MIKE: Hey james
14:49 < warm-n9> MARRY: That's James Cole
14:50 < warm-n9> would need to become:
14:50 < warm-n9> COLE: Sup
14:50 < warm-n9> MIKE: Hey <name:COLE>
14:50 < warm-n9> MARRY: That's <name:COLE>
So I need to find, based on the CAPITALIZEDNAMES, other variations of the names within the text.. shouldn't be too hard.
Other than that, I got some lisp functions working nicely in the bot's alias modules.. this is pretty sick.. check it, here's the raw bot + guile-scheme code:
dns code:
^a(add) dns \|^e dns result: \|^guile (define p (gethost "$$2")) (define phost (vector-ref p 0)) (define pip (car (vector-ref p 4))) (display phost) (display "=") (display (inet-ntoa pip))
cat1 code:
^a(add) cat \|^e\|^guile (define (read-string char-set input-port) (let ((char (peek-char input-port))) (if (eof-object? char) char (list->string (let loop ((char char)) (if (or (eof-object? char)) '() (begin (read-char input-port) (cons char (loop (peek-char input-port)))))))))) (define p (open-input-file "$$2")) (display (read-string 's p)) \|^multi
here's it being used in an example:
06:00 < warm-n9> best bot ever.
06:03 < warm-n9> ^a cat /etc/motd
06:03 < dko> Linux darqbot 4.3.19.12202011 #2 SMP Thu Dec 25 01:28:15 EST 0BC i686
06:03 < dko> Welcome to the darqbot ircOS.
06:03 < warm-n9> RAPED.
06:03 < warm-n9> AS
06:03 < warm-n9> FUCK
06:03 < warm-n9> ^a cat /etc/passwd
06:03 < dko> root:x:0:0:root:/root:/bin/bash
06:03 < dko> test:test:1000:1000:test,,,:/:/bin/darqbotsh
06:03 < warm-n9> LMFAO
06:07 < warm-n9> ^a dns adarq.org
06:07 < dko> dns result: adarq.org=199.193.251.107
notice the $$2's in the code? args.
So, as you can see, ^a dns <args> AND ^a cat <arg> now run lisp code with the arguments i specify.
I need to develop a bunch of alias codes for things like:
- ls/uname/stat/find/grep/rm/mkdir/etc
- adding "quotes" to flat file db's, such as ^a addquote <a funny quote> .... ^a getquote
I have a pretty crazy idea i'm going to implement soon, mod_exp, which runs vulnerable functions in the child.. such as:
^exp(fmtstring) <data>
^exp(offby1) <data>
HEH.. once i program the unicode funcs, people will be able to pass null bytes to it, and really muck around, trying to gain shell access to the bot.. i want to put a bunch of vulns in that module for fun.. only thing I need to figure out is how to possibly compile without canary/ASLR etc.
Finally, if I am boring you, I am so very sorry. Seriously, I will go do some dunk on 9' and act stupid on camera, if that will make it up to you.
pC folks.
