额，有没有解密MD5的函数，我是用附件中的md5.au3加密的-已解决问题区-AUTOIT CN

kn007 发表于 2009-9-7 15:07:27

额，有没有解密MD5的函数，我是用附件中的md5.au3加密的

或者有什么加解密的函数？可以不要MD5的

afan 发表于 2009-9-7 15:16:33

本帖最后由 afan 于 2009-9-7 15:17 编辑

md5没试过，我用RC4加解密~
#Include <String.au3>
_StringEncrypt($i_Encrypt, $s_EncryptText, $s_EncryptPassword[, $i_EncryptLevel = 1])

这个函数需要Ansi编译才行

afan 发表于 2009-9-7 15:21:19

还有个不需要编译就OK的，如需要我再找找

kn007 发表于 2009-9-7 15:21:29

额，我来试试先，先不结贴，谢谢你

llztt 发表于 2009-9-7 15:30:02

MD5没有反解，只有穷尽枚举破解，所以现在有些网站收集了无数个MD5值，以便去查
_StringEncrypt.au3原来的自带的，只能ANSI编译才行，后来坛子里有文仁兄修改了这个文件，支持UNICODE编译了，可以搜搜，呵呵

afan 发表于 2009-9-7 15:33:33

ok，找着了~Func _StringEncryptW($i_Encrypt, $s_EncryptText, $s_EncryptPassword, $i_EncryptLevel = 1)
If $i_Encrypt <> 0 And $i_Encrypt <> 1 Then
SetError(1)
Return ''
ElseIf $s_EncryptText = '' Or $s_EncryptPassword = '' Then
SetError(1)
Return ''
Else
If Number($i_EncryptLevel) <= 0 Or Int($i_EncryptLevel) <> $i_EncryptLevel Then $i_EncryptLevel = 1
Local $v_EncryptModified, $i_EncryptCountH, $i_EncryptCountG, $v_EncryptSwap, $av_EncryptBox
Local $i_EncryptCountA, $i_EncryptCountB, $i_EncryptCountC, $i_EncryptCountD, $i_EncryptCountE
Local $v_EncryptCipher, $v_EncryptCipherBy
If $i_Encrypt = 1 Then
For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
$i_EncryptCountG = ''
$i_EncryptCountH = ''
$v_EncryptModified = ''
For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
$i_EncryptCountH = 1
Else
$i_EncryptCountH += 1
EndIf
$v_EncryptModified = $v_EncryptModified & ChrW(BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountG, 1)), AscW(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
Next
$s_EncryptText = $v_EncryptModified
$i_EncryptCountA = ''
$i_EncryptCountB = 0
$i_EncryptCountC = ''
$i_EncryptCountD = ''
$i_EncryptCountE = ''
$v_EncryptCipherBy = ''
$v_EncryptCipher = ''
$v_EncryptSwap = ''
$av_EncryptBox = ''
Local $av_EncryptBox
For $i_EncryptCountA = 0 To 255
$av_EncryptBox[$i_EncryptCountA] = AscW(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
$av_EncryptBox[$i_EncryptCountA] = $i_EncryptCountA
Next
For $i_EncryptCountA = 0 To 255
$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA] + $av_EncryptBox[$i_EncryptCountA]), 256)
$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA]
$av_EncryptBox[$i_EncryptCountA] = $av_EncryptBox[$i_EncryptCountB]
$av_EncryptBox[$i_EncryptCountB] = $v_EncryptSwap
Next
For $i_EncryptCountA = 1 To StringLen($s_EncryptText)
$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC]), 256)
$i_EncryptCountE = $av_EncryptBox + $av_EncryptBox[$i_EncryptCountD]), 256)]
$v_EncryptCipherBy = BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountA, 1)), $i_EncryptCountE)
$v_EncryptCipher &= Hex($v_EncryptCipherBy, 2)
Next
$s_EncryptText = $v_EncryptCipher
Next
Else
For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
$i_EncryptCountB = 0
$i_EncryptCountC = ''
$i_EncryptCountD = ''
$i_EncryptCountE = ''
$v_EncryptCipherBy = ''
$v_EncryptCipher = ''
$v_EncryptSwap = ''
$av_EncryptBox = ''
Local $av_EncryptBox
For $i_EncryptCountA = 0 To 255
$av_EncryptBox[$i_EncryptCountA] = AscW(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
$av_EncryptBox[$i_EncryptCountA] = $i_EncryptCountA
Next
For $i_EncryptCountA = 0 To 255
$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA] + $av_EncryptBox[$i_EncryptCountA]), 256)
$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA]
$av_EncryptBox[$i_EncryptCountA] = $av_EncryptBox[$i_EncryptCountB]
$av_EncryptBox[$i_EncryptCountB] = $v_EncryptSwap
Next
For $i_EncryptCountA = 1 To StringLen($s_EncryptText) Step 2
$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC]), 256)
$i_EncryptCountE = $av_EncryptBox + $av_EncryptBox[$i_EncryptCountD]), 256)]
$v_EncryptCipherBy = BitXOR(Dec(StringMid($s_EncryptText, $i_EncryptCountA, 2)), $i_EncryptCountE)
$v_EncryptCipher = $v_EncryptCipher & ChrW($v_EncryptCipherBy)
Next
$s_EncryptText = $v_EncryptCipher
$i_EncryptCountG = ''
$i_EncryptCountH = ''
$v_EncryptModified = ''
For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
$i_EncryptCountH = 1
Else
$i_EncryptCountH += 1
EndIf
$v_EncryptModified &= ChrW(BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountG, 1)), AscW(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
Next
$s_EncryptText = $v_EncryptModified
Next
EndIf
Return $s_EncryptText
EndIf
EndFunc ;==>_StringEncryptW

kn007 发表于 2009-9-7 15:35:10

#Include <String.au3>

$1 = _StringEncrypt (1,"123","abc")

MsgBox(0, "1",$1)

总是返回空白字符串且 @error = 1

kn007 发表于 2009-9-7 15:35:40

正在调试 _StringEncryptW

kn007 发表于 2009-9-7 15:38:02

可以了，不过这也太长了吧，这字符

afan 发表于 2009-9-7 15:39:34

9# kn007

呵呵，长是长了点，include 之~

kn007 发表于 2009-9-7 15:40:36

不是，我是说加密后的字符长
如：
123456789012345678901234567890 =

653276D5F27537DDF649C56384D5167C4402917F8F38EEF2BEBDDDD83C888D80A80B929862867C42F6A95BAE241A4F5675A83EA3C632109B76F32C58

kn007 发表于 2009-9-7 15:40:56

要是跟MD5一样是16或32位，就好了

afan 发表于 2009-9-7 15:42:18

好像只有这个办法，我觉得已经够好了~ 毕竟有时候只需要加密部分内容~ 呵呵

pusofalse 发表于 2009-9-7 16:27:58

MD5是不可逆的。。。
加密解密的方法如山之多，最简单的“凯撒移位”，还有频率加密法，稍微复杂的维热纳尔方阵。。。
方法数不胜数，想怎么加密就怎么加密。不一定非要拘于现有的加密函数。

afan 发表于 2009-9-7 16:41:19

MD5是不可逆的。。。
加密解密的方法如山之多，最简单的“凯撒移位”，还有频率加密法，稍微复杂的维热纳尔方阵。。。
方法数不胜数，想怎么加密就怎么加密。不一定非要拘于现有的加密函数。
pusofalse 发表于 2009-9-7 16:27 http://www.autoitx.com/images/common/back.gif

谢谢大虾指点，认识了几个新名词~

页: [1] 2 3

AUTOIT CN's Archiver

额，有没有解密MD5的函数，我是用附件中的md5.au3加密的