关于生成随机数的问题

[useresu]

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

如何实现？

[useresu]

也可以生成一个随机字符串

[wangxuelid]

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;

[wangxuelid]

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;