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
tokuhirom (7396)
+
-
Comments:
2
Comment: Sys::Protect is too weak :( (Score 1) on 2009.03.25 22:06
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
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";
but unfortunately the margin of this monitor is too narrow to include
it."
-- Jarkko Hietaniemi
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.