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

bibisin · 发表于 2009-6-7 22:59

谢谢LZ分享

ldy · 发表于 2009-6-8 02:04

原帖由 彭希仁 于 2009-6-7 17:26 发表
可识别字符仅中文就有上万个，按常用汉字5000 个计算用5个汉字做密钥就是 5000^5 依然是个天文数字，
大约3000000......00后面共17个0 ，如果密钥再长一点......用某个图片的二进制做密钥.....

简单的异或加密破解，破解一位和一百位密码是一样的容易的，本质上不存在差别，只要一位一位的来破解就成了。
，当然这种破解方式只对文本有效，因为文本有规率

用一个最简单的例子来证明 , 彭兄的那篇文章的理论依据不成立。
尽管我没看懂文章中所提到的xor加密，是不是我的这种加密。

一个以加密的文字它二进制数组就是两个字节，为便于表达用一组括号代表一个字节。
这个加密的文字是(0)(0)，两个字节都是0，这说明原文和密钥是同一个字，有效字符10000多个，你选择那一个呢？
如果这个（0）（0）是密文的头两个字节,逐位破解的的第一步就走不下去。

再用一个简单而实际例子来证明逐位破解的不成立.
简单起见原文和密钥都限定在26个字母大小写+10个数字之间
这个就是加密后的密文 XRZgqV，而密钥长度不用你去计算了，就是两个字符，而且都是数字
当你把00-99 100个密钥都穷举一便之后，去掉那些有乱码的，还有49个. 根本无法确定那一个是原来的文字，只有加密的人才知道。
当一种破解方法得到多种结果的时候，这能叫破解吗？

Sub 穷举破解()
Dim b1() As Byte, b2() As Byte, s As String
For k = 0 To 99
b1 = "XRZgqV" ' 这个是密文
b2 = Format(k, "00")
lenKey = UBound(b2) + 1
For i = 0 To UBound(b1)
J = i Mod lenKey
b1(i) = b1(i) Xor b2(J)
Next
s = b1
Debug.Print s, k, b2 '有可能的原文及密钥
Next
End Sub

也许我的理解有偏差，欢迎继续讨论。

彭希仁 · 发表于 2009-6-8 11:21

穷举破解属下下策.

最简单的破解方式,就是猜测里面的一小部分原文,比如常用的单词,常用的一句话,再移位异或就会出密钥.

以上方法绝属猜测,因为本来近来比较忙没有空去玩它.

wangyong0528 · 发表于 2009-6-8 11:58

娜就是说一旦忘记密码
就没有办法再读取数据了，这样有点弊端吧

opel-wong · 发表于 2009-6-8 12:44

路过，支持一下．

ldy · 发表于 2009-6-8 12:54

穷举破解属下下策. 但是最准确的方法，用穷举法都不能确定的加密，其他方法一样确定不了

summerye123 · 发表于 2009-6-8 13:15

学习下,
虽然目前不懂,很多问题理解不了,继续学习.
加密和解密很快就对我有用了, 需好好学习一下.
对excel宏怎样加密,使得普通的破解无效呢?

彭希仁 · 发表于 2009-6-8 17:55

原帖由 ldy 于 2009-6-8 12:54 发表
穷举破解属下下策. 但是最准确的方法，用穷举法都不能确定的加密，其他方法一样确定不了

很早之前我有和LDY版主一样的想法,觉得异或加密就很难破解了,但思来想去发现很多不足.因为网上太多的破解程序见附件.

以下是我很早之前写的字附串加密程序.做了双异或加密,安全性会更高一些,不过在高手面前还是和没有加一样.
Function jami2(xx, yy) As String '存在一定错误机率的加密
Dim datx() As Byte, datx1() As Byte
Dim daty() As Byte
Dim x As String, y As String, h As Long
x = xx
y = yy
datx = x
daty = y
j = 0
For i = 0 To UBound(datx) - 1 Step 2
      If datx(i) = 255 And datx(i + 1) = 255 Then
         datx(i) = 0: datx(i + 1) = 0
      End If
Next i
datx1 = datx
For i = 0 To UBound(datx)
      If j > UBound(daty) Then j = 0
      datx(i) = datx(i) Xor daty(j)
      j = j + 1
Next i
For i = UBound(datx) - 1 To 2 Step -2
      h = datx(i)
      h = Abs(h - datx1(i))
      datx(i - 2) = datx(i - 2) Xor h
Next i
For i = 0 To UBound(datx) - 1 Step 2
      If datx(i) = 0 And datx(i + 1) = 0 Then
         datx(i) = 255: datx(i + 1) = 255
      End If
Next i
jami2 = datx
End Function

deweyfbi · 发表于 2009-6-8 18:52

嗯嗯，不错，学习了

jymao · 发表于 2009-6-8 19:33

不错,学习了.

		自动登录	找回密码
密码			免费注册

[分享] 简单而强悍的文件加密工具

回复 33楼彭希仁的帖子

[分享] 简单而强悍的文件加密工具

回复 33楼 彭希仁 的帖子

回复 33楼彭希仁的帖子