首页 > Windows开发 > 详细

Delphi中密码字符校验(不允许中文等一些特殊字符)

时间:2021-05-20 22:16:16      阅读:38      评论:0      收藏:0      [点我收藏+]

----------------

--一个简单的密码非法字符校验,存在非法字符,就返回false;

CheckPassWord(‘hhhhhh哈哈’);//有中文,返回False

-------------------

function CheckPassWord(PassWord: string): boolean; //不允许(汉字和空格,双引号等)
var
wStr:WideString;
wChar:WideChar;
i:Integer;
vValue:Integer;
begin
Result:=False;
if PassWord=‘‘ then
Exit;
wStr:=PassWord;
for i:=1 to Length(wStr) do
begin
wChar:=wStr[i];
vValue:=Ord(wChar);
if vValue>126 then //127是个三角形算非法字符,汉字属于非法字符
Exit
else
begin
if vValue >32 then
begin
if vValue in [34,39,94,96] then// ("34),(‘39),(^94),(`96)
Exit;
end
else //0到32也认为是非字符 ; 32是空格
Exit;
end;
end;
Result:=True;
end;

Delphi中密码字符校验(不允许中文等一些特殊字符)

原文:https://www.cnblogs.com/dmqhjp/p/14790021.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!