支持

开了眼界了

不错,支持!!

厉害
厉害

呵呵~ 有的时候就是要另辟蹊径，支持！！！

今天看到了楼主的文章感觉写的挺好，一直想加入论坛苦于没有别人引荐，就冒昧地给看雪大哥发了一封信，大哥就让我加入论坛了，我也可以对这样地好帖回复了。下面是我自己的一点体会，先声明我是一只菜菜鸟，希望得到兄弟们的指点。
下午分析了一下宏的东东，以前没有看过，现在对照这些宏在看楼主文章感觉非常好，谢谢了。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

看了下面兄弟的帖子，写的非常好，我也试验了一把，挺好的。
http://bbs.pediy.com//showthread.php?threadid=13791
我想看看他的宏是如何写的，可是需要输入密码，文中并没有给出工程密码，最后想到了Passware工具，拿来试了一下，果然得到如下信息：
Recovering password for the file:
C:\Downloads\jccjdkdz83\dkdz20-1400.XLT
Detected MS Excel 2000/97 document
Detected Visual Basic project

Workbook password: [VCRYXCDPSAOPWCW] (no brackets) <Copy>
Workbook sharing password: no password is set
Sheet 1 password: [BQZTYXPHKSWEJTQ] (no brackets) <Copy>
Sheet 2 password: [BQZTYXPHKSWEJTQ] (no brackets) <Copy>
Sheet 3 password: [DVPFRZCSYFPYZZR] (no brackets) <Copy>
Sheet 4 password: [VAUPUFXUVFHLVBX] (no brackets) <Copy>
File-Open password: no password is set
Creating backup copy:
C:\Downloads\jccjdkdz83\dkdz20-1400.bak

Updating security...
VBA Project password: [DE4] (no brackets) <Copy>
DE4为打开工程编辑宏的密码，试了一下可以使用，其他表的密码如上所示。
其实我是投机了一把，我是非常菜的一只鸟，曾经只是追出了机票打印一个小软件的注册码，其实一直想加入本论坛，尤其是《QQ 2005 贺岁版登录口令加密算法》完结篇一文给我非常大的触动，一直想给作者喝彩但是没有机会，希望看学大哥能给个机会，向高手们学习学习，有机会也可以发表一点自己的想法和体会。
下面是该软件的注册部分，希望大家共同学习。

Sub 宏4()
'
' 宏4 Macro
'
   If MsgBox("将要解除及格/优秀标准的限制。但这需要你提前输入注册号。" + Chr(10) + "真的要进行这项操作吗？" & vbLf & vbLf & 提示, vbYesNo + vbQuestion, 系统) = vbYes Then
   Application.Run "jqm"
   Range("L22").Select
   ActiveCell.FormulaR1C1 = "=RC[1]+R[-2]C[1]+R[-4]C[1]"
   If Sheets("司令部").Cells(22, 12) = 9999999999# Then
   MsgBox "注册成功，你可修正及格/优秀标准了。"
   Range("M20,L22,M22").Select
   Selection.ClearContents
   ActiveSheet.Unprotect ("6440292")
   Range("E4:E5").Select
   Selection.Locked = False
   Selection.FormulaHidden = False
   Selection.Interior.ColorIndex = xlNone
   Range("E5").Select
   ActiveCell.FormulaR1C1 = "60"
   Range("E4").Select
   ActiveCell.FormulaR1C1 = "80"
   ActiveSheet.Protect Password:="6440292"
   Else
   MsgBox "注册码错误。如要使用此项功能，请短信联系陈具才13993204800，同时告知机器码和验证码。其他功能均可正常使用。"
   MsgBox "请先输入注册码，然后执行本命令"
   Range("M20,L22,M22").Select
   Selection.ClearContents
   End If
   End If
End Sub

好文章。支持！
本人也曾对VBA进行过学习和初步的研究。没想到在此又遇到了一知音！

真是开眼了。

这是明码比较，算法搞不清楚，要不是明码比较那就没办法了，

02以前的OFFICE可以改动个DLL文件跳转，就完全看到源代码。也有解除口令的工具

支持一下！

最初由 ywb 发布
02以前的OFFICE可以改动个DLL文件跳转，就完全看到源代码。也有解除口令的工具

工程锁定的也可以？？？能来点具体的？？谢谢！！！

[QUOTE]最初由 weiwei 发布
VBA Project password: [DE4] (no brackets) <Copy>

我用了下，DE4好像不对呀。我的是office2003
用你用的工具不用查看（未注册版只有用于2000以下）

我用的也是OFFICE2003，输入可以打开工程，注意使用大写。

开了眼界了

最初由 weiwei 发布
我用的也是OFFICE2003，输入可以打开工程，注意使用大写。

又试了试，还是不对显示“无效密码”
你能把你的那注册的Passware工具传我一下吗？