返回顶部

收藏

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

更多

最近在做一个小软件,需要随机生成一些密码之类的,于是乎就整了这么一个函数,用于随机生成一定长度的大/小写字母和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;
//该片段来自于http://outofmemory.cn

标签:pascal,安全

收藏

0人收藏

支持

0

反对

0

»更多 您可能感兴趣的代码
  1. 2014-07-11 10:01:06熊猫烧香源码() by 好好学习啊
  2. 2014-07-04 09:33:10计算IMEI的校验位 by 凤歌
  3. 2014-07-22 10:43:53Base24 by 阮小七
  4. 2013-10-20 17:08:51C语言创建pascal三角图形 by owensh
  5. 2014-03-12 13:54:06C++ 打印Pascal 三角形 by 跳跳虎
  6. 2014-04-29 17:04:50C#验证给定的字符串形式的日期是否合法 by 格格巫2012
  7. 2014-05-14 10:29:21AS3 生成随机密码 by Hugh
  8. 2014-05-28 11:47:46C# base64加密解密用法 by Jlinhai
  9. 2014-06-14 11:37:30计算哈希值 by 牛哥
  10. 2014-06-22 17:31:35Base64经典加密算法在VB中的实现 by feng157aaa
  11. 2017-10-22 17:04:47python通过Tkinter显示网络图片 by 阮小七

发表评论