Đánh giá chủ đề:
  • 4 Votes - 2.25 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Mỗi ngày một code VBA
#11
(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 !
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 Noname
#12
Có file demo nữa thì hay quá 024
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#13
Hay quá bác VBA, mong được học nhiều hàm của bác nữa
Chữ ký của Antonio Trần Xin chào, mình là Antonio Trần, Tham gia http://thuthuataccess.com/forum từ ngày 16-05 -14.
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
  [Help] Add Ngày tháng lên textbox HoangManh 4 87 16-03-17, 03:03 PM
Bài mới nhất: trangdv.pchg
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 5 223 12-12-16, 04:25 PM
Bài mới nhất: ongke0711
  [Hỏi] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 254 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  Giải thích ý nghĩ của đoạn code feeling 3 283 06-10-16, 10:18 AM
Bài mới nhất: vulhu06
  [Help] Truy vấn ngày phát sinh gần nhất trong access cuuvinh 4 309 21-09-16, 05:01 PM
Bài mới nhất: cuuvinh

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ơ