Tùy chọn
Mỗi ngày một code VBA
- Mỗi ngày một code VBA
-
RE: Mỗi ngày một code VBA
Minh Tiên > 19-05-14, 11:30 AM
(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é
Chào bạn "VBA" !
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é
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 ! -
RE: Mỗi ngày một code VBA
DoquangLam > 19-05-14, 05:01 PM
Có file demo nữa thì hay quá
-
RE: Mỗi ngày một code VBA
Antonio Trần > 20-05-14, 04:46 PM
Hay quá bác VBA, mong được học nhiều hàm của bác nữa