[Giúp đỡ] Mã hóa và Giải mã tiếng Việt Unicode

Chia sẻ bởi:hands

★★★★★

‹ Vba ẩn file trong foder? Unicode tiếng Việt trong VBA Excel ›

Quảng cáo

Ngồi lang thang kiếm được Code mã hóa và giải mã này, tuy nhiên nó không thể giải mã được tiếng việt Unicode. Nhờ các cao nhân sửa giúp với ạ
Kết quả thực hiện không như mong muốn
[ATTACH type="full" alt="Capture (1).jpg"]1996
Hóng các cao nhân giúp đỡ để có thể mã hóa và giải mã được với Unicode tiếng Việt

bữa nay rảnh rỗi sinh nông nỗi . ngồi nghịch cái này . hí hí

Mình đã trả lời trực tiếp cho bạn từ mấy hôm rồi mà không thấy đọc!

[h=2]Các hàm chuối với Unicode thì dùng ascW, chrW, bỏ một số đoạn thừa...[/h][COLOR=#000000]Function Encrypt(txt As String, pw As String) As String
Dim pwcounter As String
Dim X As Integer
Dim letter As String
Dim ascletter As Integer
Dim pwletter As String
Dim ascpw As Integer
Dim letterpw As Integer
Dim outletter As Integer
Dim lett As String
Dim txt2 As String
pwcounter = 1
For X = 1 To Len(txt)
DoEvents
letter = VBA.Mid(txt, X, 1)
ascletter = AscW(letter)
pwletter = VBA.Mid(pw, pwcounter, 1)
pwcounter = pwcounter + 1
If pwcounter > Len(pw) Then pwcounter = 1
ascpw = AscW(pwletter)
letterpw = ascletter + ascpw
'If letterpw > 255 Then
' outletter = letterpw - 255
' lett = ChrW(outletter)
'Else
lett = ChrW(letterpw)
'End If
txt2 = txt2 + lett
Next X
Encrypt = txt2
End Function
Function Decrypt(txt As String, pw As String) As String
Dim pwcounter As Integer
Dim X As Integer
Dim curletter As String
Dim ascletter As Integer
Dim pwletter As String
Dim ascpw As Integer
Dim combined As Integer
Dim outletter As Integer
Dim outlett As String
Dim txt2 As String
pwcounter = 1
For X = 1 To Len(txt)
DoEvents
curletter = VBA.Mid(txt, X, 1)
ascletter = AscW(curletter)
pwletter = VBA.Mid(pw, pwcounter, 1)
pwcounter = pwcounter + 1
If pwcounter > Len(pw) Then pwcounter = 1
ascpw = AscW(pwletter)
combined = ascletter - ascpw
'If combined < 1 Then
' outletter = combined + 255
' outlett = ChrW(outletter)
'Else
outlett = ChrW(combined)
'End If
txt2 = txt2 + outlett
Next X
Decrypt = txt2
End Function

www.giaiphapexcel.com/diendan/threads/gi%C3%BAp-%C4%91%E1%BB%A1-m%C3%A3-h%C3%B3a-v%C3%A0-gi%E1%BA%A3i-m%C3%A3-ti%E1%BA%BFng-vi%E1%BB%87t-unicode.107786/#post-671989