Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hàm] Encrypt/Decrypt - Mã hóa và Giải mã dữ liệu
#1
Hôm trước đọc được bài viết của bạn vba bàn về Mã hóa và Giải mã dữ liệu nhưng chưa hoàn chỉnh lắm. Hôm nay xin giới thiệu với các bạn hai hàm này có nâng cao hơn chút. Chỉ khi nhập đúng mật khẩu theo chủ ý của người sử dụng thì khi đó Mã hóa và Giải mã mới thành công. Mời các bạn tham khảo hai hàm này

Mã PHP:
Option Explicit

'Set to True to make the password case-sensitive
Const CASE_SENSITIVE_PASSWORD = False

'
Encrypt text
Function EncryptText(strText As StringByVal strPwd As String)
    
Dim i As IntegerAs Integer
    Dim strBuff 
As String

    
If Not CASE_SENSITIVE_PASSWORD Then
    
'Convert password to upper case
    '
if not case-sensitive
        strPwd 
UCase$(strPwd)
    
End If

    
'Encrypt string
    If Len(strPwd) Then
        For i = 1 To Len(strText)
            c = Asc(Mid$(strText, i, 1))
            c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
            strBuff = strBuff & Chr$(c And &HFF)
        Next i
    Else
        strBuff = strText
    End If
    EncryptText = strBuff
End Function

'
Decrypt text encrypted with EncryptText
Function DecryptText(strText As StringByVal strPwd As String)
    
Dim i As IntegerAs Integer
    Dim strBuff 
As String
    
If Not CASE_SENSITIVE_PASSWORD Then
    
'Convert password to upper case
    '
if not case-sensitive
        strPwd 
UCase$(strPwd)
    
End If
    
'Decrypt string
    If Len(strPwd) Then
        For i = 1 To Len(strText)
            c = Asc(Mid$(strText, i, 1))
            c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
            strBuff = strBuff & Chr$(c And &HFF)
        Next i
    Else
        strBuff = strText
    End If
    DecryptText = strBuff
End Function 

Chúc các bạn vui
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn changkhoonline77 , anhemnhangu , Minh Tiên
#2
Cách sử dụng như thế nào vậy Xuân Thanh
Có phải là Call EncryptText và Call DecryptText không?
Password mình đặt ở chỗ nào vậy!
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#3
Bạn xem câu:
Function EncryptText(strText As String, ByVal strPwd As String)
- strText: Là chuỗi cần mã hóa.
- strPwd: Là Pass.
Nếu trên Form login để gọi thực hiện mã hóa bạn dùng: Call EncryptText(me.txtUser.Value, me.txtPass.Value)
- txtUser: Là textbox nhập mã đăng nhập.
- txtPass: Là textbox nhập mật khẩu đăng nhập.
Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,688 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,489 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  Giải thích ý nghĩ của đoạn code feeling 3 193 06-10-16, 10:18 AM
Bài mới nhất: vulhu06
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 42 17,028 12-06-16, 12:28 PM
Bài mới nhất: lehongduc
  [Thủ Thuật] Liên kết dữ liệu giữa subform và mainform tvn_hut 10 797 21-05-16, 11:08 PM
Bài mới nhất: tvn_hut

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ