| |
| |
| |
|
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
Comments:
<0> /?
<0> eval: $/
<1> f00li5h:
<2> eval: join(', ',keys %P5EvalBot::)
<1> Elly_Laptop: setuid, UCHAR_MAX, irc_chanpart_state, fopen, CHILD_MAX, SIGQUIT, tzset, SIG_IGN, USHRT_MAX, sigprocmask, start_state, CLK_TCK, strtoul, SEEK_SET, F_SETLKW, poe_kernel, F_UNLCK, S_IXOTH,
<3> remainder ona valut?
<3> are you serious?
<2> yeah
<2> on a vault?
<2> a whatnow?
<2> eval: ref $kernel
<1> Elly_Laptop:
<4> my $blabla =39.2
<2> eval: ref $P5EvalBot::poe_kernel
<1> Elly_Laptop: POE::Kernel
<2> yeah
<2> there's the one
<5> evak: $/
<2> then we went spelunking in that
<5> eval: $/
<1> r3nd3r:
<4> if ($babla has a remainder) {then
<4> how do i do this?
<2> Jack-Ho: you mean...if $blabla isn't an integer?
<2> eval: 39.2 % 1
<1> Elly_Laptop: 0
<0> Jack-Ho: don't you just want if ( $foo % 3 == 2 )
<5> f00li5h, how come that works for u ?
<4> hehehe, not funny
<4> Elly_Laptop, yea
<0> eval: 5 % 2
<1> f00li5h: 1
<0> eval: 5.4 % 2
<1> f00li5h: 1
<4> but i have only one
<2> ooh
<2> another fun one was
<4> only $blalba
<2> close()ing the cloned IRC descriptor
<5> eval: $/
<1> r3nd3r:
<2> and then using the freed filehandle to write to a file
<5> eval: 1+2
<1> r3nd3r: 3
<2> so we could write inside his chroot
<5> eval: $0
<1> r3nd3r: ./evalbot.pl
<0> r3nd3r: why the $/'ing?
<2> what's so interesting about $/? it's \n
<0> Elly_Laptop: write a script, to download a root kit!
<2> eval: asc $/
<1> Elly_Laptop: Error: Can't call method "asc" without a package or object reference at (eval 130) line 2.
<5> nothing just trying
<2> f00li5h: the script is limited to one open file descriptor
<2> oops
<2> eval: ord $/
<1> Elly_Laptop: 10
<2> f00li5h: and it doesn't have IO::Socket::INET
<0> Elly_Laptop: hrm.
<2> eval: IO::Socket::INET->new('localhost:113');
<1> Elly_Laptop: Error: Can't locate object method "new" via package "IO::Socket::INET" (perhaps you forgot to load "IO::Socket::INET"?) at (eval 130) line 2.
<4> i guss no one will help me?
<4> :)
<0> Jack-Ho: you just want'ed mod, didn't you?
<2> Jack-Ho: I don't understand what exactly you want
<2> if you want to check if a number is not an integer, do if (int($n) != $n)
<4> oh
<4> ok
<0> eval: length( 344)
<1> f00li5h: 3
<2> f00li5h: it's pretty well locked down
<2> ooh, yeah
<0> eval: (int) "577"
<1> String found where operator expected at (eval 130) line 2, near ") "577"" (Missing operator before "577"?) f00li5h: Error: syntax error at (eval 130) line 2, near ") "577""
<2> the third one
<2> was some hackery with the BEGIN block
<0> right. so that doesn't happen
<2> to evade the close()
<2> but he put the close() inside the BEGIN after that :(
<4> Use of uninitialized value in print whats that mean?
<0> Jack-Ho: you're print'ing undef
<2> perhaps you want
<2> eval: int(577)
<1> Elly_Laptop: 577
<0> eval: printf("%X", 1.22);
<1> f00li5h: 1 1
<0> eval: printf("%X", 19.22);
<1> f00li5h: 13 1
<0> ... and realises `nowhere'
<2> the bot still has an interesting symbol table
<2> to wit
<2> eval: join(', ',keys %P5EvalBot::poe_kernel)
<1> Elly_Laptop:
<2> eval: join(', ',keys %$P5EvalBot::poe_kernel)
<1> Elly_Laptop: POE::Session=ARRAY(0x966001c), POE::Session=ARRAY(0x8aaa54c), POE::Session=ARRAY(0x9506de0), POE::Kernel=ARRAY(0x8317848), POE::Session=ARRAY(0x8ab4b54), POE::Session=ARRAY(0x950aee0), P
<2> unfortunately, those are cloned, so messing with them doesn't help
<2> we tried also to modify the local session copy and make it think we had ops so we could execute eval() later in that command
<2> but that doesn't work either :(
<4> why $bin = $bin, 1; aint working? :\
<2> what?
<2> what's that supposed to do?
<0> ignore the 1
<4> to set $bin to $bin and 1
<2> what kind of and?
<4> i mean, lets say bin = 3
<2> binary-and?
<4> so it will be 31
<2> oh
<2> you mean concat
<2> then you want $bin .= '1'
<4> let me try
<2> have you ever read the perlop page?
<2> perldoc perlop
<1> perlop - Perl operators and precedence. To access this perldoc please type, at a command line, 'perldoc perlop'. You may also find it at http://perldoc.perl.org/perlop.html
<4> i`m reading the begine perl
<6> Oh this might work if I wish realy, really hard.
<4> yeah!
<4> thanks :P
<2> BinGOs: ?
<6> I was being facetious.
<7> Someone at 80.219.251.130 pasted "Chain INPUT (policy DROP) targ" (53 lines, 3.2K) at http://sial.org/pbot/17963
<8> hmm, ipchains are rather old now
<3> "Someone" :)
<2> merlyn, we're on to you
<8> someone who uses multicast it appears
<2> integral: bootperl?
<8> Elly_Laptop: s/?/is crap?/
<2> where is it?
<8> try my svn
<2> which is...
<8> no, wrong, my *old* svn
<8> http://integral.ig3.net/svn/mirror/kernel/trunk/bootperl/ is bootperl. http://integral.ig3.net/svn/mirror/sine3/trunk/muperl/ is my cool script to compile a microperl
<0> what is bootperl?
<8> perl running in supervisor mode on Intel
<0> Ooh
<0> i don't know what that means
<9> Sounds official!
<2> perl
<2> booting on the bare metal
<2> no OS
<9> Tastes metallic!
<8> well, it does have an OS, I just cruelly lobotomised it
<2> integral: what do you do at cambridge? student?
<8> I'm a maths undergrad
<0> that's what it sounded like
<0> integral: so what is the OS that this perl is not running on?
<8> f00li5h: one I wrote years ago for fun. its syscall code is really broke
<0> oooh, this sounds like magic
<5> perldoc perlfile
Return to
#perl
or
Go to some related
logs:
#ldap
compile pygaim
#css
naughty neibors
#linux
#openzaurus
gparted loadlin
gnome_clockapplet problem
how to use kmemleak patch
qemu hardisk linux options kernel
|
|