我使用你的MD5Crack想破戒一个11位的数字密码,比如说是手机号,我选最长11最短11,
但是他是从00000000000开始的,我有什么办法能直接从13000000000开始,
我想到了修改你的软件的md5prcess01.md5p进程文件然后再载入,
可是看不懂如何修改,能指教一下吗?

 你可以使用模板字典插件 [1][3]9[0-9]

 哪里找模板字典
使用0-9.a-z破解要多长时间

 为什么保持进度后,重新读取时密文切变了而且该不过来

 描述下具体过程呢

 md5crack 
            v3.4的那个软件密文怎么写，有什么格式，
比如：取回Q密码，应怎么填写；再如：使用某种软件时怎么填写？
谢谢！望老师给予指教！

 md5crack 只能破解 md5 算法加密的密码

 阿呆，你的网页做得太丑啦。哈哈程序做得好！
你不会处理图片就用样式表，背景色来修饰嘛。
字体难看，不要用什么华丽的字体啦。

 .....
我只想做得朴素点，
以前放了几张图片，为了速度，都删了。
字体当时没留意，后来才发现在没有装 Office 的机子上很多显示不了

 <%
Private Const BITS_TO_A_BYTE = 8
Private 
            Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
            


            
Private m_lOnBits(30)
Private m_l2Power(30)

Private 
            Function LShift(lValue, iShiftBits)
If iShiftBits = 0 
            Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 
            Then
If lValue And 1 Then
LShift = 
            &H80000000
Else
LShift = 0
End If
Exit 
            Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 
            Then
Err.Raise 6
End If

            
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = 
            ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * 
            m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = 
            ((lValue And m_lOnBits(31 - iShiftBits)) * 
            m_l2Power(iShiftBits))
End If
End Function

            
Private Function RShift(lValue, iShiftBits)
If iShiftBits = 0 
            Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 
            Then
If lValue And &H80000000 Then
RShift = 
            1
Else
RShift = 0
End If
Exit Function
ElseIf 
            iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End 
            If

RShift = (lValue And &H7FFFFFFE) \ 
            m_l2Power(iShiftBits)

            
If (lValue And &H80000000) Then
RShift = (RShift Or 
            (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End 
            Function

            
Private Function RotateLeft(lValue, iShiftBits)
RotateLeft = 
            LShift(lValue, iShiftBits) Or RShift(lValue, (32 - 
            iShiftBits))
End Function

            
Private Function AddUnsigned(lX, lY)
Dim lX4
Dim lY4
Dim 
            lX8
Dim lY8
Dim lResult

lX8 = lX And 
            &H80000000
lY8 = lY And &H80000000
lX4 = lX And 
            &H40000000
lY4 = lY And &H40000000

lResult = (lX 
            And &H3FFFFFFF) + (lY And &H3FFFFFFF)

If lX4 And lY4 
            Then
lResult = lResult Xor &H80000000 Xor lX8 Xor 
            lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 
            Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor 
            lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor 
            lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End 
            If

AddUnsigned = lResult
End Function

            
Private Function fj47_F(x, y, z)
fj47_F = (x And y) Or ((Not 
            x) And z)
End Function

            
Private Function fj47_G(x, y, z)
fj47_G = (x And z) Or (y And 
            (Not z))
End Function

            
Private Function fj47_H(x, y, z)
fj47_H = (x Xor y Xor 
            z)
End Function

            
Private Function fj47_I(x, y, z)
fj47_I = (y Xor (x Or (Not 
            z)))
End Function

            
Private Sub fj47_FF(a, b, c, d, x, s, ac)
a = AddUnsigned(a, 
            AddUnsigned(AddUnsigned(fj47_F(b, c, d), x), ac))
a = 
            RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub

            
Private Sub fj47_GG(a, b, c, d, x, s, ac)
a = AddUnsigned(a, 
            AddUnsigned(AddUnsigned(fj47_G(b, c, d), x), ac))
a = 
            RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub

            
Private Sub fj47_HH(a, b, c, d, x, s, ac)
a = AddUnsigned(a, 
            AddUnsigned(AddUnsigned(fj47_H(b, c, d), x), ac))
a = 
            RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub

            
Private Sub fj47_II(a, b, c, d, x, s, ac)
a = AddUnsigned(a, 
            AddUnsigned(AddUnsigned(fj47_I(b, c, d), x), ac))
a = 
            RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub

            
Private Function ConvertToWordArray(sMessage)
Dim 
            lMessageLength
Dim lNumberOfWords
Dim lWordArray()
Dim 
            lBytePosition
Dim lByteCount
Dim lWordCount

Const 
            MODULUS_BITS = 512
Const CONGRUENT_BITS = 
            448

lMessageLength = Len(sMessage)

lNumberOfWords = 
            (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ 
            BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * 
            (MODULUS_BITS \ BITS_TO_A_WORD)
ReDim lWordArray(lNumberOfWords - 
            1)

lBytePosition = 0
lByteCount = 0
Do Until lByteCount 
            >= lMessageLength
lWordCount = lByteCount \ 
            BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) 
            * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) 
            Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), 
            lBytePosition)
lByteCount = lByteCount + 1
Loop

            
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = 
            (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

            
lWordArray(lWordCount) = lWordArray(lWordCount) Or 
            LShift(&H80, lBytePosition)

            
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 
            3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 
            29)

ConvertToWordArray = lWordArray
End Function

            
Private Function WordToHex(lValue)
Dim lByte
Dim 
            lCount

For lCount = 0 To 3
lByte = RShift(lValue, lCount * 
            BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
WordToHex = 
            WordToHex & Right("0" & Hex(lByte), 2)
Next
End 
            Function

            
Public Function fj47(sMessage)
m_lOnBits(0) = 
            CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = 
            CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = 
            CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = 
            CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = 
            CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = 
            CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = 
            CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = 
            CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = 
            CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = 
            CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = 
            CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = 
            CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = 
            CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = 
            CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) 
            = CLng(536870911)
m_lOnBits(29) = 
            CLng(1073741823)
m_lOnBits(30) = 
            CLng(2147483647)

m_l2Power(0) = CLng(1)
m_l2Power(1) = 
            CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = 
            CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = 
            CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = 
            CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = 
            CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = 
            CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = 
            CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = 
            CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = 
            CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = 
            CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = 
            CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = 
            CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = 
            CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = 
            CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) 
            = CLng(536870912)
m_l2Power(30) = CLng(1073741824)

            

Dim x
Dim k
Dim AA
Dim BB
Dim CC
Dim DD
Dim 
            a
Dim b
Dim c
Dim d

Const S11 = 7
Const S12 = 
            12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 
            = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const 
            S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 
            6
Const S42 = 10
Const S43 = 15
Const S44 = 21

            
x = ConvertToWordArray(sMessage)

a = &H67452301
b = 
            &HEFCDAB89
c = &H98BADCFE
d = &H10325476

            
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = 
            c
DD = d

fj47_FF a, b, c, d, x(k + 0), S11, 
            &HD76AA478
fj47_FF d, a, b, c, x(k + 1), S12, 
            &HE8C7B756
fj47_FF c, d, a, b, x(k + 2), S13, 
            &H242070DB
fj47_FF b, c, d, a, x(k + 3), S14, 
            &HC1BDCEEE
fj47_FF a, b, c, d, x(k + 4), S11, 
            &HF57C0FAF
fj47_FF d, a, b, c, x(k + 5), S12, 
            &H4787C62A
fj47_FF c, d, a, b, x(k + 6), S13, 
            &HA8304613
fj47_FF b, c, d, a, x(k + 7), S14, 
            &HFD469501
fj47_FF a, b, c, d, x(k + 8), S11, 
            &H698098D8
fj47_FF d, a, b, c, x(k + 9), S12, 
            &H8B44F7AF
fj47_FF c, d, a, b, x(k + 10), S13, 
            &HFFFF5BB1
fj47_FF b, c, d, a, x(k + 11), S14, 
            &H895CD7BE
fj47_FF a, b, c, d, x(k + 12), S11, 
            &H6B901122
fj47_FF d, a, b, c, x(k + 13), S12, 
            &HFD987193
fj47_FF c, d, a, b, x(k + 14), S13, 
            &HA679438E
fj47_FF b, c, d, a, x(k + 15), S14, 
            &H49B40821

fj47_GG a, b, c, d, x(k + 1), S21, 
            &HF61E2562
fj47_GG d, a, b, c, x(k + 6), S22, 
            &HC040B340
fj47_GG c, d, a, b, x(k + 11), S23, 
            &H265E5A51
fj47_GG b, c, d, a, x(k + 0), S24, 
            &HE9B6C7AA
fj47_GG a, b, c, d, x(k + 5), S21, 
            &HD62F105D
fj47_GG d, a, b, c, x(k + 10), S22, 
            &H2441453
fj47_GG c, d, a, b, x(k + 15), S23, 
            &HD8A1E681
fj47_GG b, c, d, a, x(k + 4), S24, 
            &HE7D3FBC8
fj47_GG a, b, c, d, x(k + 9), S21, 
            &H21E1CDE6
fj47_GG d, a, b, c, x(k + 14), S22, 
            &HC33707D6
fj47_GG c, d, a, b, x(k + 3), S23, 
            &HF4D50D87
fj47_GG b, c, d, a, x(k + 8), S24, 
            &H455A14ED
fj47_GG a, b, c, d, x(k + 13), S21, 
            &HA9E3E905
fj47_GG d, a, b, c, x(k + 2), S22, 
            &HFCEFA3F8
fj47_GG c, d, a, b, x(k + 7), S23, 
            &H676F02D9
fj47_GG b, c, d, a, x(k + 12), S24, 
            &H8D2A4C8A

fj47_HH a, b, c, d, x(k + 5), S31, 
            &HFFFA3942
fj47_HH d, a, b, c, x(k + 8), S32, 
            &H8771F681
fj47_HH c, d, a, b, x(k + 11), S33, 
            &H6D9D6122
fj47_HH b, c, d, a, x(k + 14), S34, 
            &HFDE5380C
fj47_HH a, b, c, d, x(k + 1), S31, 
            &HA4BEEA44
fj47_HH d, a, b, c, x(k + 4), S32, 
            &H4BDECFA9
fj47_HH c, d, a, b, x(k + 7), S33, 
            &HF6BB4B60
fj47_HH b, c, d, a, x(k + 10), S34, 
            &HBEBFBC70
fj47_HH a, b, c, d, x(k + 13), S31, 
            &H289B7EC6
fj47_HH d, a, b, c, x(k + 0), S32, 
            &HEAA127FA
fj47_HH c, d, a, b, x(k + 3), S33, 
            &HD4EF3085
fj47_HH b, c, d, a, x(k + 6), S34, 
            &H4881D05
fj47_HH a, b, c, d, x(k + 9), S31, 
            &HD9D4D039
fj47_HH d, a, b, c, x(k + 12), S32, 
            &HE6DB99E5
fj47_HH c, d, a, b, x(k + 15), S33, 
            &H1FA27CF8
fj47_HH b, c, d, a, x(k + 2), S34, 
            &HC4AC5665

fj47_II a, b, c, d, x(k + 0), S41, 
            &HF4292244
fj47_II d, a, b, c, x(k + 7), S42, 
            &H432AFF97
fj47_II c, d, a, b, x(k + 14), S43, 
            &HAB9423A7
fj47_II b, c, d, a, x(k + 5), S44, 
            &HFC93A039
fj47_II a, b, c, d, x(k + 12), S41, 
            &H655B59C3
fj47_II d, a, b, c, x(k + 3), S42, 
            &H8F0CCC92
fj47_II c, d, a, b, x(k + 10), S43, 
            &HFFEFF47D
fj47_II b, c, d, a, x(k + 1), S44, 
            &H85845DD1
fj47_II a, b, c, d, x(k + 8), S41, 
            &H6FA87E4F
fj47_II d, a, b, c, x(k + 15), S42, 
            &HFE2CE6E0
fj47_II c, d, a, b, x(k + 6), S43, 
            &HA3014314
fj47_II b, c, d, a, x(k + 13), S44, 
            &H4E0811A1
fj47_II a, b, c, d, x(k + 4), S41, 
            &HF7537E82
fj47_II d, a, b, c, x(k + 11), S42, 
            &HBD3AF235
fj47_II c, d, a, b, x(k + 2), S43, 
            &H2AD7D2BB
fj47_II b, c, d, a, x(k + 9), S44, 
            &HEB86D391

a = AddUnsigned(a, AA)
b = AddUnsigned(b, 
            BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, 
            DD)
Next

fj47 = LCase(WordToHex(a) & WordToHex(b) 
            & WordToHex(c) & WordToHex(d))
fj47 = 
            StrToHex(fj47)
End Function

            
Public Function SplitString(strContent)

            
Dim length,strTemp,i
length = Len(strContent)
for i = 1 to 
            length/2
strTemp = strTemp & Mid(strContent,i*2-1,2) & 
            ","
next
SplitString = strTemp

            
End Function

            
Public Function StrToHex(strContent)

            
Dim StringTemp,bytTemp,i
StringTemp = 
            Split(SplitString(strContent),",")
For i = 0 To 
            UBound(StringTemp)-1
bytTemp = StringTemp(i) 
bytTemp = 
            Asc(bytTemp)
bytTemp = Hex(bytTemp)
StrToHex = StrToHex & 
            bytTemp
Next

            
End Function
%>
这是什么算法，能告诉我一下吗

 从 FF, GG, HH, II 这一系列变换来看是 MD5

 你的这MD5Crack系列确实作的不错，能不能在加点功能，
数据库的用户名，邮箱，密码．地址等等都得一一对应，要不一个一个再弄非常麻烦！
麻烦了

 这种功能可以用别的文本分析工具来完成

 1、我的密码如下123ÿ，“ÿ”是按住alt键不放并连续按255后得到的，无法破解了，如何解决？
2、得到如下密码a20c5bfcdebadf04
f72b581ec9653013
e1023fd65232cdcd
55b5b9d0edab6bee
分别是管理员和版主、富翁的，发现用普通电脑破解太慢，
全选数字、大小写字母及字符一天大概只能算6位数，如果密码是8位以上基本无法破解了。
请问有没有可能将所有组合算出来，直接采取查找的方式？
互联网上有没有提供超级计算服务的？也放用超级计算机可以很快算出吧？
谢谢赐教！

 1. 可以使用自定义字符来破解
2. 网上有一些提供在线破解 MD5 密码的网站，比如 
www.tmto.org 等。不过他们存储的也就是一些常用的字串，
要存储所有的组合在空间上是一个天文数字。