Hash в Delphi

[bilibian]

Привет!

Чтобы сделать генерацию чисел достаточно использовать random и задать параметры диапазона, а как быть если нужно что то вроде этого? xDeqzK9DFB4FMCE7. Разумеется каждый раз уникальное.

[BDA]

Составлять, например, строку нужной длины из случайно выбранных букв из заданного алфавита.

[bilibian]

Сообщение от BDA

Составлять, например, строку нужной длины из случайно выбранных букв из заданного алфавита.

Что то вроде этого?

function abc:string;
var arrabc:array [0..3] of string;
begin
for i:=0 to length(arrabc)-1 do
begin
 arrabc[i]:='A';
 arrabc[i]:='B';
 arrabc[i]:='C';
end;
result:=arrabc[random(3)]+arrabc[random(3)]+arrabc[random(3)];
end; 

showmessage(abc);

Я рассчитывал, что в дельфи есть готовое решение.

[Serge_Bliznykov]

BDA, вполне себе приемлимое решение (особенно относительно упоминанания "random" для чисел ), только реальная уникальность при таком подходе не гарантируется.

bilibian, может быть, достаточно получать GUID (и, если надо, то брать хэш уже от него?)?

[Serge_Bliznykov]

Сообщение от bilibian

Что то вроде этого?

угу. почти. я бы такой вариант предложил:

function abc(N: integer):string;
const sAlpha = 'ABCDEFGHabcde';
var i, len:integer;
begin
  len := Length(sAlpha);
  result := '';
  for i:=1 to N do
    result := result + sAlpha[ random(len)+1 ];
end;

  Randomize;
  showmessage(abc(7));  {получить случайную строки длиной 7 символов}

Сообщение от bilibian

Я рассчитывал, что в дельфи есть готовое решение.

зачем. В том и прелесть, что Вы можете написать то, что Вам нужно и так, как Вам нужно!


p.s. всё таки подозреваю, что Вам совсем не случайная строка нужна!
Иначе, почему речь в заголовке темы идёт насчёт Hash ?!

[BDA]

Serge_Bliznykov, именно из-за упоминания random не стал писать про неполную уникальность

[Кольша]

md5 можете попробовать на крайняк.

[bilibian]

Serge_Bliznykov, Ваш вариант мне понравился, более компактен. Спасибо.

[Stilet]

А я бы GUID получал. Надежнее.

[Arigato]

Время в миллисекундах + рандом (строка из 16 случайных ASCII-символов) и md5 от того, что получилось. Вероятность неуникальности близка к абсолютному нулю.