find_pattern.pl

#!/usr/bin/perl

use strict;
use warnings;

my $reasm = join("", reverse($ARGV[0] =~ m/../g));

print "Searching for: " . $reasm . "\n";

my $i = 0;

my $dec_start = 286331153;
my $dec_end = 4294967295;

my $count = $dec_start + 5000/8;

my $string = "";
for ($i = $dec_start; $i <= $count; $i++)
{
	$string = $string . sprintf("%x",$i);
}

print "Offset at: " . index($string, $reasm) . "\n";