有谁能解开，想学习原码

prcstone

VBA.part1.rar (2 MB, 下载次数: 30)

2024-12-6 12:52 上传

点击文件名下载附件

VBA.part2.rar (2 MB, 下载次数: 30)

2024-12-6 12:52 上传

点击文件名下载附件

VBA.part3.rar (2 MB, 下载次数: 27)

2024-12-6 12:52 上传

点击文件名下载附件

VBA.part4.rar (307.48 KB, 下载次数: 25)

2024-12-6 12:52 上传

点击文件名下载附件

工程不可查看，这个JiaMi用以前的工具没法解开，有高手能解开吗？想学习它的思路和方法

Enocheasty

这个不太好吧！？？你要是知道原作者可以去问问他要要源码。或者你说他的VBA实现了啥功能，我们也可以尝试给你分析分析，公开破别人的东西。。。

prcstone

这个有难度的，常规的没法P

临沂-枸杞

1. '
   
2. '   Ahoy!
   
3. '
   
4. '   Please don't hack/crack this.
   
5. '   If you cannot afford a license, then please just use the free Home&Student edition which contains the same full functionality.
   
6. '   By offering a free version of ASAP Utilities we want to contribute to society.
   
7. '   Especially with providing it for free to students and charitable organizations, I hope to contribute to a brighter future.
   
8. '
   
9. '   Thank you for your understanding,
   
10. '
    
11. '   Have a magnificent day, stay safe, stay awesome and remember to love without limits!
    
12. '
    
13. '
    
14. '   Best regards,
    
15. '
    
16. '   Bastien Mensink (author of ASAP Utilities and working on it since 1999)
    
17. '   https://www.asap-utilities.com
    
18. '   https://www.asap-utilities.com/about-the-author.php

复制代码

下面都是混淆过的,很难看

1. Private Sub xlApp_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal llIlIlIlIIIIlIllIIIIIllIIIlllIIlIIIIIIII As Range, Cancel As Boolean)
   
2. 1 On Error GoTo lIIlllIIIIIlIlIIIllIIllIIIlllIIlIIIIIIII
   
3. Dim lIIlIllIlIlIlIlIlIIlIllIIIlllIIlIIIIIIII As Boolean, llIIIllIllIllIIlIIllIllIIIlllIIlIIIIIIII As Variant
   
4. 2 llIIIllIllIllIIlIIllIllIIIlllIIlIIIIIIII = lIllIIIIllIIllIIIlIIlllllIIIllIIlIIIIIII(llIlIIlIlIIIIllIIlIlIlIlIllIllllIIIIIIII)
   
5. 3 If llIIIllIllIllIIlIIllIllIIIlllIIlIIIIIIII = 0 Then
   
6. 4 lIIlIllIlIlIlIlIlIIlIllIIIlllIIlIIIIIIII = False
   
7. 5 ElseIf llIIIllIllIllIIlIIllIllIIIlllIIlIIIIIIII = 1 Then
   
8. 6 lIIlIllIlIlIlIlIlIIlIllIIIlllIIlIIIIIIII = True
   
9. 7 ElseIf llIIIllIllIllIIlIIllIllIIIlllIIlIIIIIIII = llIlIlIllIlIlIllIlllIllIIIIlllllIIIIIIII Then
   
10. 8 lIlIIllIIlIIIIIlIIllIllllIIIllIIlIIIIIII llIlIIlIlIIIIllIIlIlIlIlIllIllllIIIIIIII, 0
    
11. 9 lIIlIllIlIlIlIlIlIIlIllIIIlllIIlIIIIIIII = False
    
12. 10 ElseIf llIIIllIllIllIIlIIllIllIIIlllIIlIIIIIIII = lllIIIIIIIIllIllllIIllIlIllIllllIIIIIIII Then
    
13. 11 lIlIIllIIlIIIIIlIIllIllllIIIllIIlIIIIIII llIlIIlIlIIIIllIIlIlIlIlIllIllllIIIIIIII, 0
    
14. 12 lIIlIllIlIlIlIlIlIIlIllIIIlllIIlIIIIIIII = False
    
15. 13 Else
    
16. 14 lIlIIllIIlIIIIIlIIllIllllIIIllIIlIIIIIII llIlIIlIlIIIIllIIlIlIlIlIllIllllIIIIIIII, 0
    
17. 15 lIIlIllIlIlIlIlIlIIlIllIIIlllIIlIIIIIIII = False
    
18. 16 End If
    
19. 17 If lIIlIllIlIlIlIlIlIIlIllIIIlllIIlIIIIIIII Then
    
20. 18 If llIlIlIlIIIIlIllIIIIIllIIIlllIIlIIIIIIII.Cells(1).HasFormula Then
    
21. 19 Else
    
22. 20 If IsDate(llIlIlIlIIIIlIllIIIIIllIIIlllIIlIIIIIIII.Cells(1)) Then
    
23. lllIlIIlIIIlllIllIIIlllIIIlllIIlIIIIIIII:
    
24. 21 If Sh.ProtectContents = True Then
    

复制代码