Delphi GetRandomPassword 生成随机密码


本文整理自网络,侵删。

 
function GetRandomPassword(ALen: Integer): string;
var
str: string;
begin
Randomize;
str := 'ABCDEF0123456789';
Result := '';
repeat
    Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = ALen);
end;

相关阅读 >>

Delphi 获取指定进程中的~内存数据

Delphi10.3 构造生成输出json数据

Delphi image1 图像旋转90

Delphi selectdirectory 选择文件夹

Delphi使用spcomm串口通信 串口号大于10出错的解决办法

Delphi getwindowhandle

Delphi二值图像膨胀算法

Delphi 如何在richedit控件里加入链接

Delphi xe7中使用json

Delphi 权限控制(Delphi tactionlist方案)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...