关于生成随机数的问题

Question

DES的CFB模式实现中，要求实现一个64bit的随机向量，即一个随机数，如何实现？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i,ii,iii:integer;
  result,str: string;
begin
iii:=0;
result:= '';
randomize;
for i:=1 to 2 do
 Begin
     repeat
       ii:=random(64);
        if (ii>10 )and (iii<65 )then
          Begin
              iii:=iii+1;
              result:=result+' '+inttostr(ii)
          End;
     until  iii>63 ;
       memo1.Lines.Add(result);
       iii:=iii*0;
 End;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i,ii,iii:integer;
  result,str: string;
begin
iii:=0;
result:= '';
randomize;
for i:=1 to 3 do
 Begin
     repeat
       ii:=random(64);
        if (ii>10 )and (iii<65 )then
          Begin
              iii:=iii+1;
              result:=result+' '+inttostr(ii);
          End;
     until  iii>63 ;
       memo1.Lines.Add(result);
       iii:=iii*0;
       result:='';//忘记清除上一次资料了，，，
 End;
end;