program HappyDays;

uses windows,sysutils;

var
Years,Months,Days : word;
f :textfile;
Tmp :string;

begin
Years:=1900;
AssignFile(f,'dictonary.txt');
Rewrite(f);

while Years<2050 do begin
inc(Years);
for Months:=1 to 12 do begin
for Days:=1 to 31 do begin
tmp:=IntToStr(years)+IntToStr(Months)+IntToStr(days);
WriteLn(f,tmp);
end;
end;
end;

CloseFile(f);
end.

    @echo off
    title make brut-dictionary of nambers yourself !!!
rem Путь к вашему брут-словарю:
    set path="C:\mybase.txt"
rem Думаю тут всё ясно!
    set first=22222
    set last=33333
    set /a j=(last-first)/100
    set /a i=j+first
    set k=0
    echo %first% > %path%
    echo %k%%%
    :sas
        set /a first+=1
        echo %first%>>%path%
        if %first% geq %i% (cls&set /a i+=j&set /a k+=1&echo  %k%%%)
        if %first% lss %last% goto sas
    cls
    echo dictionaty has been written !!!
    pause
    exit