[delphi]生成随机字符(密码)函数

最新推荐文章于 2021-02-04 14:57:46 发布

原创最新推荐文章于 2021-02-04 14:57:46 发布 · 3.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #随机 #随机字符串

delphi实例专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个用于生成包含大写、小写、数字的随机字符串的函数，详细阐述了其实现过程及应用。

最近在做一个小软件，需要随机生成一些密码之类的，于是乎就整了这么一个函数，用于随机生成一定长度的大/小写字母和0-9的数字。

function GetRandStr(len : Integer; lowercase : Boolean = True; 
num : Boolean = True; uppercase : Boolean = False) : string;
const
  upperStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  lowerStr = 'abcdefghijklmnopqrstuvwxyz';
  numStr = '0123456789';
var
  sourceStr : string;
  i : Integer;
begin
  sourceStr := '';
  Result := '';
  if uppercase = True then
    sourceStr := sourceStr + upperStr;
  if lowercase = True then
    sourceStr := sourceStr + lowerStr;
  if num = True then
    sourceStr := sourceStr + numStr;
  if (sourceStr = '') or (len<1) then
    exit;

  Randomize;
  for i:=1 to len do
  begin
    Result := Result + sourceStr[Random(Length(sourceStr)-1)+1];
  end;
end;