delphi 实现验证码功能

本人在用delphi做一个登录界面,想实现验证码的功能。但在百度上没找到源码。求源码连接地址或源码,谢谢。

很久之前做过一个,源码找不到了,可以提供一个思路:
1.将待生成验证码的字符分解,对每一个字符进行以下处理:
2.将当前字符使用随机颜色(白色除外)输出到一个大小固定的矩形图像中(使用textout函数)
3.将此图像进行随机角度(可以在一定范围内)旋转(可能会用到图像处理中的rotate函数)
4.将此图像复制且追加到目标图像中的尾部(可能用到copyrect函数),尽量避免尺寸定义过小带来的覆盖之前字符的问题,当然可以在小尺度上进行覆盖,这样验证效果更好些
5.在最终图像上,使用不同的线型画上几道线(直线、曲线、非连续线等可以随机搭配),以增加机器识别的难度,但不得太粗防止客户都无法识别。
6.将最终结果输出为图像即可。