• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Bộ sưu tập các thư viện hỗ trợ sẳn cho Visual Basic .NET và C#

Điều hành viên: tungcan5diop, QUANITGROBEST

Nội qui chuyên mục
1. Gửi bài viết tại đây, Tester sẽ chuyển vào trong nếu bài viết đạt yêu cầu.
2. Gửi bài theo mẫu qui định: viewtopic.php?f=2&t=5
[ten][/ten]
[loai][/loai]
[ngonngu][/ngonngu]
[tacgia][/tacgia]
[chucnang][/chucnang]
[end][/end]
Hình đại diện của người dùng
hoangthu1974
Guru
Guru
Bài viết: 812
Ngày tham gia: T.Năm 09/03/2006 9:30 am
Đến từ: Hà Nội --> Tp. Hồ Chí Minh
Been thanked: 13 time
Liên hệ:

Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Gửi bàigửi bởi hoangthu1974 » T.Năm 13/08/2009 10:20 am

Tên chương trình: Tạo Captcha - Tạo chuỗi ngẫu nhiên - Mã hóa chuỗi
Phiên bản: 1.0
Tác giả: Nguyễn Hoàng Thư
Chức năng: Tạo captcha ngẫu nhiên, tạo chuỗi ngẫu nhiên, mã hóa chuỗi dữ liệu


Thấy mọi người hô hào nhiều quá nên cũng đóng góp phần cùng mình (tự viết lên). Chương trình tạo ra module captcha.dll. Các bạn có thể sử dụng cho nhiều mục đích như:
  • Mã hóa chuỗi ký tự để sử dụng cho mật khẩu, username, v.v...
  • Tạo chuỗi ngẫu nhiên
  • Tạo captcha để chống botnet.
Chương trình phát triển trên VS2008 với .NET Framework 2.0.

Hình giới thiệu:
captcha.jpg

Code mẫu:
Yêu cầu 1 PictureBox tên pbxCaptcha, 1 Button tên btnShow

Mã: Chọn hết

  1. Imports Captcha.CaptchaDotNet2
  2. Imports Captcha.CaptchaDotNet2.Security.Cryptography
  3.  
  4. Public Class FormTestCaptcha
  5.     Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
  6.         Dim s As String = RandomText.Generate()
  7.         Dim ens As String = Encryptor.Encrypt(s, "srgerg$%^bg", Convert.FromBase64String("srfjuoxp"))
  8.         ens = ens.Replace(" ", "+")
  9.         Try
  10.             s = Encryptor.Decrypt(ens, "srgerg$%^bg", Convert.FromBase64String("srfjuoxp"))
  11.         Catch ex As Exception
  12.  
  13.         End Try
  14.         Dim w As Integer = 240 'Chiều rộng của captcha
  15.         Dim h As Integer = 120 'Chiều cao của captcha
  16.         Dim bc As Color = Color.FromName("[Control]") 'Màu sắc của captcha
  17.         Dim ci As CaptchaImage = New CaptchaImage(s, bc, w, h)
  18.         pbxCaptcha.Image = ci.Image
  19.     End Sub
  20. End Class
Tập tin đính kèm
Captcha.zip
(86.21 KiB) Đã tải 1166 lần



Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Gửi bàigửi bởi clarkkent » T.Năm 13/08/2009 10:50 am

[tested=]Đã test, cũng đẹp :D -> cho vào mục Control[/tested]
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Hình đại diện của người dùng
hoangthu1974
Guru
Guru
Bài viết: 812
Ngày tham gia: T.Năm 09/03/2006 9:30 am
Đến từ: Hà Nội --> Tp. Hồ Chí Minh
Been thanked: 13 time
Liên hệ:

Re: Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Gửi bàigửi bởi hoangthu1974 » T.Năm 13/08/2009 12:51 pm

Phải công nhận là bài mình viết bài nào cũng chuẩn. Không ai chê được. >:) >:) >:)

Mình thấy mình giỏi quá. :)) :)) :)) :)) :))

DungCoi
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 77
Ngày tham gia: T.Tư 26/03/2008 9:24 pm
Been thanked: 2 time

Re: Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Gửi bàigửi bởi DungCoi » T.Năm 13/08/2009 12:54 pm

hoangthu1974 đã viết:Phải công nhận là bài mình viết bài nào cũng chuẩn. Không ai chê được. >:) >:) >:)

Mình thấy mình giỏi quá. :)) :)) :)) :)) :))

Em chỉ thấy vụ chữ "cong quẹo" trình độ à >:) , có phải anh dùng font không đó :P
~vb

Hình đại diện của người dùng
hoangthu1974
Guru
Guru
Bài viết: 812
Ngày tham gia: T.Năm 09/03/2006 9:30 am
Đến từ: Hà Nội --> Tp. Hồ Chí Minh
Been thanked: 13 time
Liên hệ:

Re: Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Gửi bàigửi bởi hoangthu1974 » T.Năm 13/08/2009 12:58 pm

DungCoi đã viết:Em chỉ thấy vụ chữ "cong quẹo" trình độ à >:) , có phải anh dùng font không đó :P

Font Time New Roman 100%, không tin mở code ra là thấy.

DungCoi
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 77
Ngày tham gia: T.Tư 26/03/2008 9:24 pm
Been thanked: 2 time

Re: Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Gửi bàigửi bởi DungCoi » T.Năm 13/08/2009 8:27 pm

hoangthu1974 đã viết:
DungCoi đã viết:Em chỉ thấy vụ chữ "cong quẹo" trình độ à >:) , có phải anh dùng font không đó :P

Font Time New Roman 100%, không tin mở code ra là thấy.

:-$ hơ hờ . Anh Pro quá :-O
~vb

Hình đại diện của người dùng
Kỳ Nam
Guru
Guru
Bài viết: 510
Ngày tham gia: CN 12/08/2007 8:47 pm
Đến từ: Qui Nhơn
Been thanked: 1 time
Liên hệ:

Re: Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Gửi bàigửi bởi Kỳ Nam » T.Năm 03/09/2009 9:09 am

thấy có vẻ đơn giản , anh làm thêm mấy gạch trắng ngang dọc nữa thử

Hình đại diện của người dùng
hoangthu1974
Guru
Guru
Bài viết: 812
Ngày tham gia: T.Năm 09/03/2006 9:30 am
Đến từ: Hà Nội --> Tp. Hồ Chí Minh
Been thanked: 13 time
Liên hệ:

Re: Tạo Captcha - chuỗi ngẫu nhiên - mã hóa chuỗi

Gửi bàigửi bởi hoangthu1974 » T.Năm 03/09/2009 10:51 am

Kỳ Nam đã viết:thấy có vẻ đơn giản , anh làm thêm mấy gạch trắng ngang dọc nữa thử

Thực ra cái này là khiến cho chương trình không đọc được, để người đọc được. Thêm gạch nữa rối mắt lắm. Anh đã thêm rồi, sau lại bỏ nó đi.


Quay về “[.NET] Module, Class, UserControl, DLL”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách