Đá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] Tính ngày đầu và kết thúc của một tháng HoangManh 15 851 25-04-17, 10:03 PM
Bài mới nhất: maidinhdan
  [Lỗi] Form lọc dữ liệu ngày tháng năm tuanh 8 447 19-04-17, 06:05 PM
Bài mới nhất: huan.backan83
  [Help] Add Ngày tháng lên textbox HoangManh 4 216 16-03-17, 03:03 PM
Bài mới nhất: trangdv.pchg
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 735 13-02-17, 10:34 PM
Bài mới nhất: ongke0711
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 5 401 12-12-16, 04:25 PM
Bài mới nhất: ongke0711

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ơ