One can use IntegerDigits to get the digits separately:
a = Range[100000, 999999]; b = {2, 4, 5}; c = {5, 2, 1}; Select[a, IntegerDigits[#][[b]] === c &]
