Randomize побайтно

@J_Shpr · Регистрация: 14.04.2016

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, разобраться! Нужно сгенерировать 128битное число (16 символов), все работает, но мне сказали что это слишком просто, мол хоть так оно и является 128битным, но на самом деле из 255 символов я задействовала только 26 (большие буквы английского алфавита). Стоит задание сделать генерацию ПОБАЙТНО, что и загнало меня в тупик.

Delphi

procedure TForm1.Button2Click(Sender: TObject);
const
  a = 16; //кол-во символов
  var
    i: Integer; //для цикла
begin
 Randomize;
  Memo1.Lines.Clear;
  for i := 1 to a do
      Memo1.Text := Memo1.Text + Chr(Ord('A') + Random(Ord('Z') - Ord('A')+1));
end;

@mss · 17.05.2016, 20:46

Delphi

uses SysUtils;
..
var
  GUID: TGUID;
..
CreateGUID(GUID);
with GUID do
Memo1.TEXT := Format('%0.8X%0.4X%0.4X%0.2X%0.2X%0.2X%0.2X%0.2X%0.2X%0.2X%0.2X',
       [D1, D2, D3, D4[0], D4[1], D4[2], D4[3], D4[4], D4[5], D4[6], D4[7]]);

	17.05.2016, 20:46