perl -e'$|=1;$e=shift;$c=10**$e;$d=int rand$c;
$c=0;while($c!=$d){printf"%0${e}d%s",$c,"\b"x$e;$c++}
print"$d $c\n"' 10
[download]

Update: (2008-09-12) In haste I forgot about the following in the description: "...then scrolls the display (sequentially or randomly), until the first digit (left most) matches the first digit of C. Then scrolls the remaining digits until second digit matches the second digit of C; and so on until the randomly selected code is completely matched." My solution does not accomplish this, but acts as a simple odometer instead. :(