如何随机生成6位密码,但不能有重复

Question

如何随机生成6位密码,但不能有重复??

Answer 1

function GetRandomPassword(ALen: Integer): string; //你把6传进去就好了
var
  str: string;
begin
  Randomize;
  //string with all possible chars
  str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
  Result := '';
  repeat
    Result := Result + str[Random(Length(str)) + 1];
  until (Length(Result) = ALen)
end;

Answer 2

用密码做主键？？？？？？？？？？？倒............
如果你真想这样的话，就用Random吧，然后建一个新的数据库或文件，记录已经存在的密码，查询原数据库也可以！

Answer 3

to: ljmanage(过客) good再放一天,看还有没有其它的方法,明天结帐

Answer 4

seclect * from user where psw=:psw;
psw:=random();
if recordcount=0 then 
insert...
else
continue;

Answer 5

最为简单的办法
uses ComObj;procedure TForm1.Button1Click(Sender: TObject);
var
 s :string;
begin
 s:=CreateClassID;
 s:=Copy(s,2,6);
 showmessage(s);
end;