Пример Хеширования

[gs.Soroka]

Здравствуйте.
Вот задали мне задачу на хеширование.
Есть ли оно в алгоритме Бойера - Мура???(прога рабочая!).
Если нет,то подскажите какую нибудь задачку попроще пожалуйста.
Вот алгоритм:
const
Nmax = 5;
type

TBMTable = array[0..255] of integer;







function BMSearch( var str, substr : String ) : Integer;
var
Pos, lp, i: Integer;
BMT : TBMTable;
begin

if ( Length(str) = 0 ) then begin ShowMessage('Wrong string '); BMSearch := -1; exit; end;
if ( Length(substr) = 0 ) then begin ShowMessage('Wrong substring '); BMSearch := -1; exit; end;
lp := Length(substr);

for i := 0 to 255 do
BMT[i] := lp;
for i := lp downto 1 do begin
if BMT[Byte(substr[i])] = lp then
BMT[Byte(substr[i])] := lp - i;
end;

Pos := lp;
while Pos < Length(str)+1 do
if substr[lp] <> str[Pos] then begin
Pos := Pos + BMT[Byte(str[Pos])];
end
else for i := lp - 1 downto 1 do begin
if substr[i] <> str[Pos - lp + i ] then
begin
Pos := Pos + 1;
break;
end
else if i = 1 then
begin
Result := Pos - lp + 1;
Exit;
end;
end;
Result := -1;
end;




procedure TForm2.Button1Click(Sender: TObject);
var
str: String; {текст}
substr: String; {слово}

Result: integer;

begin
str:=Edit1.Text;
substr:=Edit2.Text;


Result:=BMSearch(str,substr);
if Result=-1 then
begin
ShowMessage('Подстрока не найдена.');
end;
if Result<>-1 then
begin
ShowMessage('Подстрока найдена в позиции: '+IntToStr(Result));
end;
end;

end.