(08-01-11, 10:12 PM)vba Đã viết: Em mong các bác cùng em tham gia nhiệt tình luồng này nhé, các bác có gì hay cùng post lên cho anh em cùng được mở rộng tầm mắt nhé

Public Function Mahoa(Data As String, Optional Depth As Integer) As String
Dim TempChar As String
Dim TempAsc As Integer
Dim NewData As String
Dim vChar As Integer
For vChar = 1 To Len(Data)
TempChar = Mid$(Data, vChar, 1)
TempAsc = Asc(TempChar)
If Depth = 0 Then Depth = 40
If Depth > 254 Then Depth = 254

TempAsc = TempAsc + Depth
If TempAsc > 255 Then TempAsc = TempAsc - 255
TempChar = Chr(TempAsc)
NewData = NewData & TempChar
Next vChar
Mahoa = NewData

Giải thích các đối số:
Data: Chuối ký tự cần mã hoá
Depth: Tuỳ chọn độ dài mã hoá là các số nguyên

VD1: Mahoa("vba",8)=> kết quả là ~ji
nhưng mahoa("vba",9) => kết quả lại là kj
Các bác tự nghiên cứu tiếp nhé.

Tất nhiên đã có mã hoá thì phải có giải mã. Em xin khất các bác hôm sau nhé

Chào bạn "VBA" !
Hàm Mã hóa và Giải mã của bạn rất hay.
Xong nếu đã Mã hóa theo cách này rồi thì có thể "giải mã được" bằng cách tra dần từ 1-255 vào hàm Giải mã ! Như thế tính bảo mật chưa OK lắm.
Bạn có cách nào mã hóa với bảo mật OK hơn, chia sẽ với diễn đàn nhé !
Cảm ơn bạn nhiều !

---

Chào bạn "VBA" !
Hàm Mã hóa và Giải mã của bạn rất hay.
Xong nếu đã Mã hóa theo code của bạn thì có thể "giải mã được" bằng cách tra dần từ 1-255 vào code Giải mã ! Như thế tính bảo mật chưa OK lắm.
Bạn hãy chia sẽ với diễn đàn cách điều chỉnh code Mã hóa để đảm bảo bảo mật OK hơn nhé !
Cảm ơn bạn nhiều !

Có file demo nữa thì hay quá

Hay quá bác VBA, mong được học nhiều hàm của bác nữa