Cách Mã Hóa Và Giải Mã Code VBA (2 người xem)

[Kiều Mạnh]

Có một Bạn cho mình một file Excel .... mình coi code thấy họ mã hóa không hiểu được.... vậy mình muốn hỏi sử dụng công cụ nào mà mã hóa code ra như vậy.. hay đó là một ngôn ngữ lập trình mới vv ...
Rất mong các thành cùng tham gia nghiên cứu và viên Trợ Giúp
xin cảm ơn

Mình mới sửa lại bài viết tiếng Anh ...tiếng viết nhảy lung tung do mình để Anh Google Auto Dich nên mới vậy
Xin lỗi rất nhiều

 

[Let'GâuGâu]

Mình ban be mot nguoi cung cấp cho one file Excel .... mình coi in which thì thấy mã be mã hóa .... vậy mình muốn hỏi sử dụng công cụ nào to mã hóa such ... that là hay ngôn ngữ mới vv ...
nhiều mộng members of mình giúp đỡ
xin cảm ơn

Sub qwertyuiopsdfwy (qwertyuiopsdyt, qwertyuiopsdts, qwertyuiopsdyq, qwertyuiopsdyu, qwertyuiopsdye, qwertyuiopsdyr): qwertyuiopsdre Dim As Integer: Dim qwertyuiopsdyy As Integer Dim qwertyuiopsdyi: qwertyuiopsdyy = qwertyuiopsdfgpy: qwertyuiopsdyi = qwertyuiopsdfgeu: Sheets (qwertyuiopsdyt) .Visible = qwertyuiopsdfgew: Đặt qwertyuiopsdey = Sheets (qwertyuiopsdyt): Sheets (qwertyuiopsdyt) .Copy: Với ActiveSheet: Rows (qwertyuiopsdfgsu) .Insert: qwertyuiopsdre = .Cells (Rows.Count, qwertyuiopsdfgis ). End (xlUp) .RowIf qwertyuiopsdye = qwertyuiopsdyr Thenqwertyuiopsdyu = qwertyuiopsdfgsi & Format (qwertyuiopsdye, qwertyuiopsdfgoe): End Nếu: Với Range (qwertyuiopsdfgso): .Value = qwertyuiopsdyq: .HorizontalAlignment = xlCenter: .Font.Size = qwertyuiopsdfgpp: End With: Với Range (qwertyuiopsdfgsp): .Value = Replace (Replace (qwertyuiopsdyu, qwertyuiopsdfgss, Format (qwertyuiopsdye, qwertyuiopsdfgoe)), qwertyuiopsdfgsd, Format (qwertyuiopsdyr, qwertyuiopsdfgoe)): .HorizontalAlignment = xlCenter: .Font.Italic = qwertyuiopsdfgew: End Nếu qwertyuiopsdre> qwertyuiopsdfgtr + qwertyuiopsdyi ThenRange (qwertyuiopsdfgp & qwertyuiopsdre + qwertyuiopsdfgeu) .Value = .Range (qwertyuiopsdfgp & qwertyuiopsdfgtr + qwertyuiopsdyi) .Value: Range (qwertyuiopsdfgp & qwertyuiopsdre + qwertyuiopsdfgtr) .Value = qwertyuiopsdfgod & qwertyuiopsdye: Range (qwertyuiopsdfge & qwertyuiopsdre + qwertyuiopsdfgeu). Value = .Range (qwertyuiopsdfgp & qwertyuiopsdfgtr + qwertyuiopsdyi) .Value: Range (qwertyuiopsdfge & qwertyuiopsdre + qwertyuiopsdfgtr) .Value = qwertyuiopsdfgpe & Format (DateAdd (qwertyuiopsdfgou, qwertyuiopsdfgwt, qwertyuiopsdyr), qwertyuiopsdfgsf) Range (qwertyuiopsdfgto & qwertyuiopsdfgtr + qwertyuiopsdyi & qwertyuiopsdfgsg & qwertyuiopsdre) .AdvancedFilter Action: = xlFilterCopy, CriteriaRange: = Range (qwertyuiopsdfgp & qwertyuiopsdre + qwertyuiopsdfgeu & qwertyuiopsdfgee & qwertyuiopsdfge & qwertyuiopsdre + qwertyuiopsdfgtr), CopyToRange: = Range (qwertyuiopsdfgto & qwertyuiopsdre + qwertyuiopsdyy), Unique: = qwertyuiopsdfgg: Range (qwertyuiopsdfgto & qwertyuiopsdre + qwertyuiopsdyy - qwertyuiopsdfgwt) .Select: Range (Selection, Selection.End (xlUp)) Chọn: Range (Selection, Selection.End (xlUp)) SelectSelection.EntireRow.Delete Shift: = xlUp: qwertyuiopsdre = .Cells .. ( Rows.Count, qwertyuiopsdfgeu) .End (xlUp) .Row: Range (qwertyuiopsdfgrs & qwertyuiopsdfgeu + qwertyuiopsdyi) .Formula = qwertyuiopsdfgdq & qwertyuiopsdfgtr + qwertyuiopsdyi & qwertyuiopsdfgdw & qwertyuiopsdre & qwertyuiopsdfgde: Range (qwertyuiopsdfgsr) = qwertyuiopsdfgwtIf qwertyuiopsdre> qwertyuiopsdfgis ThenRange (qwertyuiopsdfgdr) = qwertyuiopsdfgeu: Nếu qwertyuiopsdre> qwertyuiopsdfgpy Sau đó, Range (qwertyuiopsdfgdt) .AutoFill Range (qwertyuiopsdfgdy & qwertyuiopsdre) End If: End Nếu: .name = qwertyuiopsdts: End With: ActiveWindow.FreezePanes = qwertyuiopsdfgg: End Sub

làm sao chạy nó vậy bạn, nhấn "run macro" nó ra một cái cửa sổ macro ko có module nào trong đó hết?

 

[Kiều Mạnh]

làm sao chạy nó vậy bạn, nhấn "run macro" nó ra một cái cửa sổ macro ko có module nào trong đó hết?

đó là một Function....

 

[Let'GâuGâu]

đó là một Function....

sao thấy trong code nó là một sub?
cú pháp nó như thế nào?
có thấy nó hoạt động thì mã hóa mới có ý nghĩa chứ? nếu ko chú nào lừa mình viết tầm bậy tầm bạ vào đó thì sao?............hihihihihi

 

[giaiphap]

đó là một Function....

Vậy sử dụng như thế nào đây, các tham số sử dụng ra sao.

 

[Kiều Mạnh]

Vậy mình úp File gốc lên ta cùng nhau nghiên cứu quậy chơi nha.

 

[Let'GâuGâu]

Vậy mình úp File gốc lên ta cùng nhau nghiên cứu quậy chơi nha.

kỳ công....................

 

[Kiều Mạnh]

kỳ công....................

thấy nó cung hay hay .........nghiên cứu thôi mà..........

 

[ndu96081631]

Mình ban be mot nguoi cung cấp cho one file Excel .... mình coi in which thì thấy mã be mã hóa .... vậy mình muốn hỏi sử dụng công cụ nào to mã hóa such ... that là hay ngôn ngữ mới vv ...
nhiều mộng members of mình giúp đỡ
xin cảm ơn

Chưa nói đến code, chỉ đọc nguyên văn câu hỏi trên cũng chả hiểu chú nói gì
???!!!
Cứ như là tiếng Miên trộn với tiếng Anh

 

[Kiều Mạnh]

[QUOTE = ndu96081631; 669,113] Chưa nói đến ma, chỉ đọc nguyên văn câu hỏi trên mà chả hiểu chú nói gì
??? !!!
Cứ như tiếng Miên trộn cho tiếng Anh [/QUOTE]

Không biết mạng hôm nay nó sao ấy Em viết tiếng Việt nó cứ nhảy ra tiếng Anh ...
Ý Em muốn hỏi dùng công cụ nào mà mã hóa code ra như vậy..... hay đó là ngôn ngữ lập trình mới gì .........

 

[quocphuoc88]

[QUOTE = ndu96081631; 669,113] Chưa nói đến ma, chỉ đọc nguyên văn câu hỏi trên mà chả hiểu chú nói gì
??? !!!
Cứ như tiếng Miên trộn cho tiếng Anh

Mình nhớ có 1 lần vọc có 1 cái tool cài vào excel. Nó mã hoá ra như vậy nhưng nó đòi bản quyền nên gỡ ra mất tiêu.

hình như tool này

http://www.datasafexl.com/protect-vba-code

 

[Kiều Mạnh]

Mình nhớ có 1 lần vọc có 1 cái tool cài vào excel. Nó mã hoá ra như vậy nhưng nó đòi bản quyền nên gỡ ra mất tiêu.

hình như tool này

Mới tải cái Add-ins đó về coi mà không biết xài .... Bạn chỉ cho xài với....

 

[Let'GâuGâu]

Mới tải cái Add-ins đó về coi mà không biết xài .... Bạn chỉ cho xài với....

trong lúc tìm theo đường link của bạn QuocPhuoc, tôi thấy link này
bạn thử xem (thấy miễn phí), tôi thấy mấy cái .exe này ít khi dám chơi lắm.....hiihihihi
http://download.com.vn/download/protect-vba-code/26152

 

[Kiều Mạnh]

trong lúc tìm theo đường link của bạn QuocPhuoc, tôi thấy link này
bạn thử xem (thấy miễn phí), tôi thấy mấy cái .exe này ít khi dám chơi lắm.....hiihihihi
http://download.com.vn/download/protect-vba-code/26152

Nói vậy tui cũng sợ..... mai mốt đi mình mua thêm một ổ cứng di động khoãng 1000g về lưu dữ liệu xong mới quậy được.....

 

[doveandrose]

trong lúc tìm theo đường link của bạn QuocPhuoc, tôi thấy link này
bạn thử xem (thấy miễn phí), tôi thấy mấy cái .exe này ít khi dám chơi lắm.....hiihihihi
http://download.com.vn/download/protect-vba-code/26152

 

[quocphuoc88]

Mới tải cái Add-ins đó về coi mà không biết xài .... Bạn chỉ cho xài với....

Mình nhớ là cài vào. Chọn file cần mã hoá, mình nhớ nó có thể:
- xoá hết comment trong code
- chỉnh code ra dạng tùm lum gì đó cho rối mắt khỏi đọc
- có 1 vài chức năng giống Lockxls nữa thì phải
Mình nhác cài vào rồi vọc ( vì hết ham máy vụ này ) nên có gì bạn vọc nhé !

 

[Let'GâuGâu]

ủa tôi đọc kỹ lại thấy nó có khai báo mà???

Public Const qwertyuiopsdfgwf = "Percent": Public Const qwertyuiopsdfgwg = "#,##0": Public Const qwertyuiopsdfgeq = "OrderTime": Public Const qwertyuiopsdfgew = True: Public Const qwertyuiopsdfgee = ":": Public Const qwertyuiopsdfger = "B7": Public Const qwertyuiopsdfget = 8: Public Const qwertyuiopsdfgey = "B9": Public Const qwertyuiopsdfgeu = 2: Public Const qwertyuiopsdfgei = 9
Public Const qwertyuiopsdfgeo = "B8:B9"
Public Const qwertyuiopsdfgep = "B8:B"
Public Const qwertyuiopsdfges = "8:"
Public Const qwertyuiopsdfged = "9:"

 

[doveandrose]

ủa tôi đọc kỹ lại thấy nó có khai báo mà???

Public Const qwertyuiopsdfgwf = "Percent": Public Const qwertyuiopsdfgwg = "#,##0": Public Const qwertyuiopsdfgeq = "OrderTime": Public Const qwertyuiopsdfgew = True: Public Const qwertyuiopsdfgee = ":": Public Const qwertyuiopsdfger = "B7": Public Const qwertyuiopsdfget = 8: Public Const qwertyuiopsdfgey = "B9": Public Const qwertyuiopsdfgeu = 2: Public Const qwertyuiopsdfgei = 9
Public Const qwertyuiopsdfgeo = "B8:B9"
Public Const qwertyuiopsdfgep = "B8:B"
Public Const qwertyuiopsdfges = "8:"
Public Const qwertyuiopsdfged = "9:"

có khai báo biến thì vẫn có nguy cơ bị Doveandrose đọc hiểu code rồi anh ơi . như vậy chưa an toàn
anh phải nghĩ cách gì đó mã hóa mà toàn bộ project VBA chỉ gồm 2 từ
"Kiều" và "Mạnh" ví dụ

Kiều Mạnh Mạnh
Mạnh Kiều Kiều Mạnh Kiều
Kiều Kiều Kiều Mạnh Mạnh ........
vậy mới an toàn

 

[Kiều Mạnh]

có khai báo biến thì vẫn có nguy cơ bị Doveandrose đọc hiểu code rồi anh ơi . như vậy chưa an toàn
anh phải nghĩ cách gì đó mã hóa mà toàn bộ project VBA chỉ gồm 2 từ
"Kiều" và "Mạnh" ví dụ

Kiều Mạnh Mạnh
Mạnh Kiều Kiều Mạnh Kiều
Kiều Kiều Kiều Mạnh Mạnh ........
vậy mới an toàn

Từ từ đi khui ra hết............File này mình nghĩ là của một thành viên GPE ....cao thủ hay sao ấy....đang nấp sau bui cây....chưa lộ diện thôi...

 

[Cá ngừ F1]

Vậy mình úp File gốc lên ta cùng nhau nghiên cứu quậy chơi nha.

Anh Mạnh bật mí mật khẩu unprotect mấy sheet trong file với ạh?