[VISUAL BASIC] Creating A Captcha Validation

Điều cơ bản chúng ta sẽ làm là các bước sau:

1. Tạo ký tự ngẫu nhiên.
2. In chúng trong hộp ảnh.
3. Làm cho chúng bị trầy xước.

1.Tạo ký tự ngẫu nhiên

LƯU Ý: Đảm bảo bạn viết Lệnh "Ngẫu nhiên" trong sự kiện form_load.

dim hung1,hung2,hung3,hung4 as integer 

    hung1 = Int((91 - 65 + 1) * Rnd + 65)

    hung3 = Int((91 - 65 + 1) * Rnd + 65)

    hung2 = Int((123 - 97 + 1) * Rnd + 97)

    hung4 = Int((123 - 97 + 1) * Rnd + 97)

    gen1 = Chr(hung1) & Chr(hung2) & Chr(hung3) & Chr(hung4)

    generated1 = Chr$(hung1) & " " & Chr(hung2) & " " & Chr(hung3) & " " & Chr(hung4)

Giải thích: hung 1,2,3 và 4 là các biến lưu trữ mã ascii của ký tự được tạo ngẫu nhiên.
65 đến 91 là mã ascii của Capital A-Z
97 đến 123 là mã ascii của Chữ nhỏ (chữ thường) a-z
vì vậy, gen1 sẽ chứa BỐN chữ cái. Cái này chúng tôi đang sử dụng cho mục đích kiểm tra
generate1 là văn bản được hiển thị trong hộp hình ảnh...(nó được sử dụng vì các khoảng trắng trông rất đẹp)

2. In trong hộp ảnh

PictureBox1.print generated1

3. Làm cho chúng bị trầy xước (dùng đường kẻ)

For i = 1 To 60

X1 = (3000 * Rnd) + 1

X2 = (3000 * Rnd) + 1

x3 = (3000 * Rnd) + 1

x4 = (3000 * Rnd) + 1

Y1 = (3000 * Rnd) + 1

Y2 = (3000 * Rnd) + 1

y3 = (3000 * Rnd) + 1

y4 = (3000 * Rnd) + 1

z1 = (3000 * Rnd) + 1

z2 = (3000 * Rnd) + 1

z3 = (3000 * Rnd) + 1

z4 = (3000 * Rnd) + 1

a1 = (3000 * Rnd) + 1

a2 = (3000 * Rnd) + 1

a3 = (3000 * Rnd) + 1

a4 = (3000 * Rnd) + 1

b1 = (3000 * Rnd) + 1

b3 = (3000 * Rnd) + 1

b2 = (3000 * Rnd) + 1

b4 = (3000 * Rnd) + 1

PictureBox1.Line (X1, X2)-(x3, x4), vbWhite

PictureBox1.Line (Y1, Y2)-(y3, y4), vbWhite

PictureBox1.Line (z1, z2)-(z3, z4), vbWhite

PictureBox1.Line (a1, a2)-(a3, a4), vbWhite

PictureBox1.Line (b1, b2)-(b3, b4), vbWhite

Next i

Giải thích: Trong các biến a1234, b1234, z1234,x1234,y1234 chúng ta đang tạo một số từ 1 đến 3000 (Vì 3000x3000 là kích thước của hộp hình ảnh). Đây là những yêu cầu. tọa độ.

Bây giờ chúng ta chỉ cần in các dòng trong hộp ảnh có tọa độ này.

LƯU Ý: Để tăng cường độ của các đường, chỉ cần tăng giới hạn trên của vòng lặp.
Kết quả in ra sẽ là Bốn chữ có vài (hoặc nhiều) vết xước, khó đọc.

Bước cuối cùng. Thêm Vào form project

If Text1.Text = gen1 Then
MsgBox ("Chính xác")
///Bạn cũng có thể làm
///Form2.show(); hoặc đăng nhập sql blah blah blah 
///Khá nhiều lệnh gọi sau đây của bạn sau trường hợp nó đúng ...
Else
MsgBox ("sai")
///Đây là nơi bạn có thể đặt tôi.Đóng hoặc làm bất cứ điều gì nếu nó sai
End If

Như vậy đã xong, chúc các bạn thành công với tiện ích tạo capcha để tránh bị spam trong ứng dụng của các bạn nhé.

Chúc mọi người thành công.