ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E文精选 > Excel VBA > 简单而强悍的文件加密工具

简单而强悍的文件加密工具

作者:绿色风 分类: 时间:2022-08-17 浏览:207
楼主
ldy
真正的加密解密语句就这么简单,但确是非常强悍的
    如果密钥仅有两个字符,将会有42亿种可能,如果不知道密钥,暴力枚举是无法解密的。
    密钥的复杂度计算公式为 256的(密钥长度*2)的次方=   256^(密钥长度*2)

b1 和b2 都是二进制数组, keyStr 是密钥字符串
    b2 = keyStr'
    lenKey = UBound(b2) + 1
    For i = 0 To UBound(b1)
        J = i Mod lenKey
        b1(i) = b1(i) Xor b2(J)
    Next
千万别小看这几行代码,当密钥长度有5个字符时,暴力枚举解密的话,这辈子也别想做到。

要是冠希GG会这个,这个世界上就没有*艳*照*门*这回事了。

如果你想测试它的强度,附件里有一个加密的jpg文件,是一幅漂亮的风景画,你可以试一下.

具体代码看附件.

郑重提醒:使用时千万要记得自己的密钥(包括大小写以及标点符号),如果遗忘了谁也帮不了你!!!

文件加解密工具.rar


上面这个简单异或,可以通过同类型文件异或,很容易看到密钥。
修改了加密方法:隐藏文件类型,扩展密钥,简单的把文件前后对换,增加了破解难度
在此对彭希仁版主表示感谢


文件加解密工具2.rar


2楼
sky-trek


楼主的加密不错,可是我在测试word文档是发现一个问题,打开加了密码的word时候会出现文字转换窗口

一堆乱码,在最下面分页符会出现密码?不知道是什么原因

我测试时设置的密码为testtest.jpg
 
3楼
gvntw
刘兄:加密后打开乱码,是什么原因?
4楼
ldy
加密就是不让别人看的,解密后可以还原。
增加了新版本
5楼
红潮风
真是小而悍。厉害!
6楼
tongliaozyr
真是小而悍。厉害!
7楼
liujieming
无论如何也要顶一下喽,收了好好用。
8楼
BIN_YANG168
适用一下,速度很快,不错。
9楼
nfb
下来学习,谢楼主分享!
10楼
chende
顶了再收藏
11楼
waynexia
下了学习一下,多谢楼主!
12楼
TYCO1234
能加密文件夹就好了
13楼
zhui107
请教一下怎么加密啊?
14楼
shchy
虽然不用   但还是支持一下   支持文件夹的话就更好
15楼
2008FENG
收藏了,谢谢!
16楼
花园西街
恩,是很牛的
17楼
snowzxk
很好用,谢谢
18楼
davyyang
不错,小巧而强悍!
19楼
tangjunsxhz
好厉害!
20楼
大海情怀
好东西,谢谢楼主奉献
21楼
wnianzhong
试一下,哈哈.
22楼
wangqilong1980
无论如何也要顶一下喽,收了好好用。
23楼
一花一世界
请教一下,如果我想加密为只读,怎么用VB实现呢?这种加密应该在复制及修改文件属性的情况下都存在。
24楼
dodo2000
试用一下,真的不错!谢谢楼主。
25楼
7786910
下来学习,谢楼主分享!
26楼
young.zhang
再弄一个加密文件夹的吧。
27楼
刘志文
下来学习,谢谢楼主分享!
28楼
qyidao
谢谢强悍的楼主
29楼
ml6236
下来学习,谢楼主分享!
30楼
wangxiasy
下载试试
31楼
wangxiasy
图片我解密怎么看不了呢!
32楼
dwchung
非常不错!
33楼
hnnyfcykl
谢谢楼主分享!
34楼
跑跑
下了,看看
35楼
于晓庆
36楼
fgaq111
试了,果然好使。但是别人把我这个工具删除了,我加密的文件怎么办?
37楼
qinhuan66
下了学习一下,多谢楼主!
38楼
xy4310
出现乱码
39楼
haoc11
收藏学习谢谢
40楼
lzqlaj
测试了xls和图片,加密效果很好,那张美女图片解密不了,密码什么??
41楼
zjylsjwz
这个好啊,有时可派上大用场
42楼
ming668
代码短少,功能强悍!
43楼
renrg68
谢谢分享
44楼
qqq21q
怎么用密匙打开啊?
45楼
xinqing2019
考虑下,看看用不用。
46楼
stevehai
谢谢楼主分享!!!
47楼
强业
好东西,当然要支持啊!
48楼
双飞叶
收藏了,谢
49楼
bensonlei
不错多谢分享!
50楼
降龙

厉害,收藏了
51楼
白玮
有没有vba超强加密的?普通加密很容易就破解了
52楼
wsms
这个确实不错,就怕忘记密码就麻烦了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap