【VB】最简单之验证码生成算法

cyycoish

应同学装逼需求，特写简单装逼向验证码生成算法，高手喷口留情，有兴趣的朋友看过来：
进来身体有恙，夜不能寐（非想妹子也），无暇打理生存。不少未完成之贴，望站长海涵。

开门见码：

1. VERSION 5.00
   
2. Begin VB.Form Form1
   
3.    Caption         =   "Form1"
   
4.    ClientHeight    =   2940
   
5.    ClientLeft      =   60
   
6.    ClientTop       =   600
   
7.    ClientWidth     =   4680
   
8.    LinkTopic       =   "Form1"
   
9.    ScaleHeight     =   2940
   
10.    ScaleWidth      =   4680
    
11.    StartUpPosition =   3  'Windows Default
    
12.    Begin VB.CommandButton Command2
    
13.       Caption         =   "OK"
    
14.       Enabled         =   0   'False
    
15.       Height          =   855
    
16.       Left            =   2640
    
17.       TabIndex        =   3
    
18.       Top             =   840
    
19.       Width           =   975
    
20.    End
    
21.    Begin VB.TextBox Text1
    
22.       Height          =   285
    
23.       Left            =   120
    
24.       TabIndex        =   2
    
25.       Top             =   1200
    
26.       Width           =   2415
    
27.    End
    
28.    Begin VB.CommandButton Command1
    
29.       Caption         =   "Change"
    
30.       Height          =   855
    
31.       Left            =   2640
    
32.       TabIndex        =   1
    
33.       Top             =   0
    
34.       Width           =   975
    
35.    End
    
36.    Begin VB.PictureBox P
    
37.       BackColor       =   &H00FFFFFF&
    
38.       ForeColor       =   &H00000000&
    
39.       Height          =   855
    
40.       Left            =   0
    
41.       ScaleHeight     =   795
    
42.       ScaleWidth      =   2595
    
43.       TabIndex        =   0
    
44.       Top             =   0
    
45.       Width           =   2655
    
46.    End
    
47. End
    
48. Attribute VB_Name = "Form1"
    
49. Attribute VB_GlobalNameSpace = False
    
50. Attribute VB_Creatable = False
    
51. Attribute VB_PredeclaredId = True
    
52. Attribute VB_Exposed = False
    
53. Option Explicit '从这里算真正开始
    
54. 
    
55. Dim ans As Single
    
56. 
    
57. Private Sub Command1_Click()
    
58.     Randomize '初始化随机数生成器
    
59.     Command2.Enabled = True '免得不输就pass
    
60.     Dim a As Integer, b As Integer, c(3) As String, d As String
    
61.     'a放第一个数,b放第二个数,c放操作符,d保存操作符
    
62.     Dim i As Integer '计数器变量留着待用
    
63.    
    
64.     c(1) = "+"
    
65.     c(2) = "-"
    
66.     c(3) = "*"
    
67.    
    
68.     a = Int(Rnd * 10 + 1) '第一个随机数
    
69.     b = Int(Rnd * 10 + 1) '第二个随机数
    
70.    
    
71.    
    
72.     P.Cls '清屏
    
73.     '第一个数
    
74.     P.FontName = Screen.Fonts(Int(Rnd * 15) + 1) '字体名
    
75.     P.FontSize = Int(Rnd * 16) + 8 '字号
    
76.     P.FontBold = CBool(Int(Rnd + 1)) '是否粗体
    
77.     P.FontItalic = CBool(Int(Rnd + 1)) '是否斜体
    
78.     P.ForeColor = RGB(Int(Rnd * 254 + 1), Int(Rnd * 254 + 1), Int(Rnd * 254 + 1)) '随机颜色
    
79.     '定位
    
80.     P.CurrentX = Int(Rnd() * 10) + 10
    
81.     P.CurrentY = Int(Rnd() * 50) + 1
    
82.     P.Print CStr(a) '打印
    
83.    
    
84.     操作符
    
85.     P.FontName = Screen.Fonts(Int(Rnd * 15) + 1)
    
86.     P.FontSize = Int(Rnd * 16) + 8
    
87.     P.FontBold = CBool(Int(Rnd + 1))
    
88.     P.FontItalic = CBool(Int(Rnd + 1))
    
89.     P.ForeColor = RGB(Int(Rnd * 254 + 1), Int(Rnd * 254 + 1), Int(Rnd * 254 + 1))
    
90.     P.CurrentX = Int(Rnd() * 500) + 500
    
91.     P.CurrentY = Int(Rnd() * 50) + 1
    
92.     d = c(Int(Rnd * 3) + 1) '随机操作符
    
93.     P.Print d
    
94.    
    
95.     '第二个数字,原理同上,解释略
    
96.     P.FontName = Screen.Fonts(Int(Rnd * 15) + 1)
    
97.     P.FontSize = Int(Rnd * 16) + 8
    
98.     P.FontBold = CBool(Int(Rnd + 1))
    
99.     P.FontItalic = CBool(Int(Rnd + 1))
    
100.     P.ForeColor = RGB(Int(Rnd * 254 + 1), Int(Rnd * 254 + 1), Int(Rnd * 254 + 1))
     
101.     P.CurrentX = Int(Rnd() * 1000) + 1000
     
102.     P.CurrentY = Int(Rnd() * 50) + 1
     
103.     P.Print CStr(b)
     
104.    
     
105.     '瞎画一些线条
     
106.     For i = 1 To 7
     
107.         P.ForeColor = RGB(Int(Rnd * 254 + 1), Int(Rnd * 254 + 1), Int(Rnd * 254 + 1))
     
108.         P.Line (Rnd * P.ScaleWidth, Rnd * P.ScaleWidth)-(Rnd * P.ScaleWidth, Rnd * P.ScaleWidth)
     
109.     Next
     
110.     '瞎画一些点
     
111.     For i = 1 To 100
     
112.         P.ForeColor = RGB(Int(Rnd * 254 + 1), Int(Rnd * 254 + 1), Int(Rnd * 254 + 1))
     
113.         P.PSet (Rnd * P.ScaleWidth, Rnd * P.ScaleWidth)
     
114.     Next
     
115.    
     
116.     '判定运算,计算结果
     
117.     Select Case d
     
118.     Case "+"
     
119.         ans = a + b
     
120.     Case "-"
     
121.         ans = a - b
     
122.     Case "*"
     
123.         ans = a * b
     
124.     End Select
     
125. End Sub
     
126. 
     
127. Private Sub Command2_Click()
     
128.     If Val(Text1) = ans And Text1 <> "" Then
     
129.         MsgBox "Pass!", 48
     
130.     Else
     
131.         Call Command1_Click
     
132.         Text1 = ""
     
133.     End If
     
134. End Sub
     

复制代码

0xAA55

哈哈哈 改天我弄个更屌的。

wypabcd

很有收获，谢谢