Code viết bằng tiếng Lào ? (1 người xem)

[Hoàng Nhật Phương]

Oanh Thơ có xem một tập tin của bạn huuthang_bd thì thấy code VBA đã được mã hóa để khó đọc:

https://www.giaiphapexcel.com/forum...ng-Việt-Có-Dấu-Cho-Office&p=741586#post741586

Oanh Thơ xin hỏi bạn huuthang_bd cùng các bạn khác.
Bạn huuthang_bd ơi, bạn đã dùng phần mềm tự bạn viết để mã hóa hay bạn dùng phần mềm khác?

Bạn có thể chia sẻ được không ạ? Tất nhiên nếu là phần mềm miễn phí.
Nếu bạn dùng phần mềm tải từ mạng về thì bạn có thể cho biết địa chỉ trang download hoặc trang không có code mã hóa nhưng nói về việc mã hoá này không?

Rất mong nhận được sự chỉ dẫn của bạn huuthang_bd và các bạn khác.
Cả code mã hoá và từ khóa để tìm trên web"

Không phải vì code của Oanh Thơ có giá trị hay độc đáo mà Oanh Thơ phải làm như vậy (Oanh Thơ không biết code ạ).
Oanh Thơ chỉ xin code mã hóa code vì Oanh Thơ muốn mã hóa các code trong tệp tin quan trọng có nhiều người dùng.Oanh Thơ không muốn giải mã code của người khác.

Trả lời Trả Lời Với Trích Dẫn​

 

[củ lạc]

ui sao loằng ngoằng vậy bạn,mình cứ nghĩ một phát là có "mỳ ăn liền" cơ.

 

[ChanhTQ@]

Bạn nên đọc lại trích đẫn bài trên: "Mất mã là gì"
& sau đó là đây:
http://tuanvietnam.net/2009-10-18-kham-pha-nhung-van-bai-cua-cac-thien-tai

 

[củ lạc]

Các bạn chỉ cho tôi cách vận hành code "TaoKhoa" ở bài 14 với.
Cảm ơn nhiều.

 

[củ lạc]

...
(2) Viết hay nhờ ai viết 1 macro để giải mã các chuỗi số đã được mã hóa trong macro

Bạn ơi, nếu có thể viết giúp tôi "1 macro để giải mã các chuỗi số đã được mã hóa trong macro" được không ?
Cảm ơn bạn.

 

[ChanhTQ@]

(*)Các bạn chỉ cho tôi cách vận hành code "TaoKhoa" ở bài 14 với.
(**)Bạn ơi, nếu có thể viết giúp tôi "1 macro để giải mã các chuỗi số đã được mã hóa trong macro" được không ?

(*) Bạn có thể thêm vô macro những dòng lệnh
MsgBox để xem các biến đã khai báo biến đổi như thế nào qua vòng lặp cũng như dòng lệnh.

(**) Trước tiên bạn nên dịch hay nhờ ai đó dịch sang tiếng Việt ngôn ngữ VBA của macro đó đi đã.

Ngày xuân còn dài mà, vội gì!

 

[SA_DQ]

Bạn ơi, nếu có thể viết giúp tôi "1 macro để giải mã các chuỗi số đã được mã hóa trong macro" được không ?

Trước tiên, ta nên thay 1 câu lệnh trong macro mã hóa các dòng lệnh như dưới đây:

Sub MaHoaMacro()
 Dim J As Long, Rws As Long, W As Integer, Tmp As Byte
 Dim Chu As String, KQ As String
 
 Sheets("Macro").Select
 Rws = [A999].End(xlUp).Row
 ReDim Arr(1 To Rws, 1 To 1) As String
 For J = 1 To Rws
    Chu = UCase$(Trim$(Cells(J, "A").Value))
    For W = 1 To Len(Chu)
        Tmp = Asc(Mid(Chu, W, 1))
        If Tmp > 99 Or Tmp = 32 Then
            KQ = KQ & Space(2)          '*'
        Else
            KQ = KQ & CStr(Tmp)
        End If
    Next W
    Arr(J, 1) = KQ:         KQ = ""
 Next J
 [i1].Resize(Rws).Value = Arr()
End Sub

Sau đó chạy lại nó trước khi chạy code này:

[B][SIZE=3]Sub GiaiMaMacro()[/SIZE][/B]
 Dim J As Long, Rws As Long, W As Integer, Tmp
 Dim ChuoiSo As String, KQ As String
 
 Sheets("Macro").Select
 Rws = [i999].End(xlUp).Row
 ReDim Arr(1 To Rws, 1 To 1) As String
 For J = 1 To Rws
    ChuoiSo = CStr(Cells(J, "I").Value)
    For W = 1 To Len(ChuoiSo) Step 2
        Tmp = Mid(ChuoiSo, W, 2)
        If Tmp = Space(2) Then
            KQ = KQ & Space(1)
        Else
            KQ = KQ & Chr(CInt(Tmp))
        End If
    Next W
    Arr(J, 1) = KQ:         KQ = ""
 Next J
 [aa1].Resize(Rws).Value = Arr()
[B][SIZE=3]End Sub[/SIZE][/B]

 

[SA_DQ]

1 tài liệu được khóa bỡi 2 ống khóa

[Thongbao]Ví dụ ta có đoạn văn bản tại ô [AL1] như sau: DUONG HUYNH THANH TRANG

Tại ô trống nào đó, như [AL3] ta nhập cú fáp hàm:

=MaHoa(AL1,"HaDong")

Ta sẽ thu được kết quả: R821UTV8E1VX7VM1VB75M1U

Nếu tại 1 ô trống khác dưới chúng, ta xài cú fáp =MaHoa(AL3,"1DiKhongVe")

Ta sẽ thu đạt kết quả vầy: 4VID768VPD8AG8YD8JGOYD7



Các bạn có thể tự chiêm nghiệm![/Thongbao]

 

[quykiemsau]

Với "tiến độ" này đến khi nào mới có thể mã hóa được toàn bộ code như ở bài1 mà chủ thớt đưa ra vậy các bạn

 

[ChanhTQ@]

Với "tiến độ" này đến khi nào mới có thể mã hóa được toàn bộ code như ở bài1 mà chủ thớt đưa ra vậy các bạn

(/ấn đề 2uan trọng ở đây là cách thức đi đến mục tiêu theo từng fương tiện ta có;

Còn muốn giải mã được Code tại #1 thì fải có trình độ VBA ngang với tác gia trở lên


Đó là cuộc đua của 2 fe: Mã hóa & giải mã từ gần 4.000 năm nay; & chắc chắn rằng cuộc đua càng ngày càng gây gắt 1 khi fương tiện các fe càng ngày càng mạnh hơn lên!

 

[giaiphap]

Tôi thấy cái Add-in này có chức năng mã hóa code như chủ thớt yêu cầu nè.
https://www.giaiphapexcel.com/forum...-VBA-(nhằm-tạo-sự-khó-đọc-cho-những-kẻ-tò-mò)

 

[củ lạc]

Em chay nó báo thế này anh ơi :