如何随机生成验证码?(主要代码)
来源:互联网 发布:长虹网络电视怎么搜台 编辑:程序博客网 时间:2024/06/16 09:32
procedure PwdImg(img:Timage);
var
pwdimgstr : string;
procedure Tlogin.PwdImg(img:Timage);
var
I,j,k: Integer;
vPoint: TPoint;
vLeft: Integer;
arrStr:array [1..36]of string ;
begin
pwdimgstr:='';
arrStr[1]:='0'; arrStr[2]:='1'; arrStr[3]:='2'; arrStr[4]:='3';
arrStr[5]:='4'; arrStr[6]:='5'; arrStr[7]:='6'; arrStr[8]:='7';
arrStr[9]:='8'; arrStr[10]:='9'; arrStr[11]:='A'; arrStr[12]:='B';
arrStr[13]:='C'; arrStr[14]:='D'; arrStr[15]:='E'; arrStr[16]:='F';
arrStr[17]:='G'; arrStr[18]:='H'; arrStr[19]:='I'; arrStr[20]:='J';
arrStr[21]:='K'; arrStr[22]:='L'; arrStr[23]:='M'; arrStr[24]:='N';
arrStr[25]:='O'; arrStr[26]:='P'; arrStr[27]:='Q'; arrStr[28]:='R';
arrStr[29]:='S'; arrStr[30]:='T'; arrStr[31]:='U'; arrStr[32]:='V';
arrStr[33]:='W'; arrStr[34]:='X'; arrStr[35]:='Y'; arrStr[36]:='Z';
for j:=1 to 4 do
begin
Randomize;
k:=strtoint(Format('%.1d',[Random(36)]));
pwdimgstr:=pwdimgstr+trim(arrStr[k])
end;
vLeft:=10;
img.picture:=nil;
for I:= 1 to Length(pwdimgstr) do
begin
with Img do
begin
Canvas.Font.Size := Random(10)+ 9;
Canvas.Font.Color := RGB(Random(256) and $C0,
Random(256) and $C0,Random(256) and $C0);
if Random(2)=1 then
Canvas.Font.Style := [fsBold]
else Canvas.Font.Style := [];
begin
Canvas.Font.Name := Screen.Fonts[10];
vPoint.X := Random(4)+ vLeft;
vPoint.Y := Random(5);
Canvas.TextOut(vPoint.X,vPoint.Y,pwdimgstr[I]);
vLeft := vPoint.X + Canvas.TextWidth(pwdimgstr[I]);
end;
end;
end;
end;
- 如何随机生成验证码?(主要代码)
- C#中随机验证码生成代码
- 使用java代码生成随机验证码
- Java代码随机生成图片验证码
- 如何利用python生成随机验证码?
- Java如何随机生成图片验证码
- 生成随机验证码
- 随机生成验证码
- 生成随机验证码
- 随机生成验证码
- 生成随机验证码
- 生成随机验证码
- 生成随机验证码
- 生成随机验证码
- 随机生成验证码
- 随机生成验证码
- 随机生成验证码
- 随机生成验证码
- 文件流与存储流练习
- C# 接口
- WSDL2java 使用
- 唉 无聊什么都不好玩
- 众里寻她千百度,wordperss 热键
- 如何随机生成验证码?(主要代码)
- 访问限定符 public, protected, protected internal, private
- tuxedo管理命令之tmadmin
- C#控件命名规范
- J2EE的核心技术之JDBC简介篇
- 信号量机制
- [转载]设计模式--策略模式(Strategy)
- .Net(C#)中,对象的相等比较问题
- 编写可移植性c程序的要点