#!/usr/bin/perl -l
 
@_=((105)x2,(110)x1,(104)x1,
(97)x4);s/(..)/chr($1+$_[$i])
/eg,$i++for@$=qw(I 14000303 000106 1200100715
1500150417 000817151100130418
0813 0211001818 );print"@$."
[download]

Update: I forgot to print it out 500 times. *blush*

#!/usr/bin/perl -l
 
@_=((105)x2,(110)x1,(104)x1,
(97)x4);s/(..)/chr($1+$_[$i])/eg,$i
++for@$=qw(I 14000303 000106 1200100715 1500150417
 000817151100130418 0813 0211001818
);print"@$.$/"x(($=-=10)*10)
[download]