-1

我有一个前段时间使用cryptainer创建的重要加密文件，但忘记了密码。我知道我使用了哪些单词和数字，但不确定它们的输入顺序，例如：

[我的出生年份][我女朋友的名字][我知道的十位数字][我的电话号码][我的门牌号码][我女儿的名字][我女儿的出生日期]

显然这是一个非常复杂的密码，但想知道是否有任何程序可以通过以所有可能的方式交换它们来为我列出一个列表，但不一定总是使用所有这些，因为它可能没有我的门牌号码在我的密码中, 可能只是

[我知道的十位数][我的电话号码][我女朋友的名字]

依此类推，所以我的密码长度可能在 6 到 50 个字符之间。

我知道我忘记它是愚蠢的，但是当一些新鲜事物出现在你的脑海中时，它似乎很容易记住，但我已经有一段时间没有使用它了。

我得到了一个网站链接，该链接显示了一种可以用伪代码完成的方法，但就像我说的那样，我不是程序员，也不知道从哪里开始。

这是给我的链接http://permute.tchs.info/

我真的对网络上的某些密码破解者以及如何使用我自己的数字和单词集感到困惑。任何人都知道任何程序可以仅使用我的数字和单词集生成所有可能的密码，因为我真的很感激。

因为这会生成一个很长的所有可能密码列表，所以最好有一个程序用我的 cryptainter 文件检查它们，但我不确定是否有这样的程序。

4

1 回答 1

0

您可以使用Hananel Hazan 网站上的此 AutoITscript 实现， 您可以对其进行修改以满足您的条款。

dim $one, $two, $three, $four, $five, $six, $seven, $eight, $pw, $pp, $count, $truecryptPath, $containerPath
$truecryptPath = “C:\PROGRA~1\TrueCrypt\TrueCrypt.exe /q background /s “
$containerPath = “d:\cscs2.tre”
dim $numberOfCharacters = 92
dim $Array[$numberOfCharacters+1]
$Array[0]=”a”
$Array[1]=”b”
$Array[2]=”c”
$Array[3]=”d”
$Array[4]=”e”
$Array[5]=”f”
$Array[6]=”g”
$Array[7]=”h”
$Array[8]=”i”
$Array[9]=”j”
$Array[10]=”k”
$Array[11]=”l”
$Array[12]=”m”
$Array[13]=”n”
$Array[14]=”o”
$Array[15]=”p”
$Array[16]=”q”
$Array[17]=”r”
$Array[18]=”s”
$Array[19]=”t”
$Array[20]=”u”
$Array[21]=”v”
$Array[22]=”w”
$Array[23]=”x”
$Array[24]=”y”
$Array[25]=”z”
$Array[26]=”A”
$Array[27]=”B”
$Array[28]=”C”
$Array[29]=”D”
$Array[30]=”E”
$Array[31]=”F”
$Array[32]=”G”
$Array[33]=”H”
$Array[34]=”I”
$Array[35]=”J”
$Array[36]=”K”
$Array[37]=”L”
$Array[38]=”M”
$Array[39]=”N”
$Array[40]=”O”
$Array[41]=”P”
$Array[42]=”Q”
$Array[43]=”R”
$Array[44]=”S”
$Array[45]=”T”
$Array[46]=”U”
$Array[47]=”V”
$Array[48]=”W”
$Array[49]=”X”
$Array[50]=”Y”
$Array[51]=”Z”
$Array[52]=”!”
$Array[53]=”@”
$Array[54]=”#”
$Array[55]=”$”
$Array[56]=”%”
$Array[57]=”^”
$Array[58]=”&”
$Array[59]=”*”
$Array[60]=”(“
$Array[61]=”)”
$Array[62]=”_”
$Array[63]=”+”
$Array[64]=”~”
$Array[65]=”`”
$Array[66]=”1″
$Array[67]=”2″
$Array[68]=”3″
$Array[69]=”4″
$Array[70]=”5″
$Array[71]=”6″
$Array[72]=”7″
$Array[73]=”8″
$Array[74]=”9″
$Array[75]=”0″
$Array[76]=”-”
$Array[77]=”=”
$Array[78]=”["
$Array[79]=”]”
$Array[80]=”\”
$Array[81]=”{“
$Array[82]=”}”
$Array[83]=”|”
$Array[84]=”;”
$Array[85]=”:”
$Array[86]=”‘”
$Array[87]=”"”"
$Array[88]=”,”
$Array[89]=”.”
$Array[90]=”/”
$Array[91]=”?”

$count = 0
for $two = 0 to $numberOfCharacters
for $one = 0 to $numberOfCharacters
$pw = $Array[$one]
$pw &= $Array[$two]
$count = $count+1
$pp  = Run(@COMSPEC & ” /c ” & $truecryptPath & ” /p “& $pw & ” /e /m ro /m rm /v ” &$containerPath )
ProcessSetPriority($pp, 0)

if $count>25 then
While ProcessExists($pp)>0
Wend
EndIf

Next
Next

While ProcessExists($pp)>0
Wend

$count = 0
for $three = 0 to $numberOfCharacters
for $two = 0 to $numberOfCharacters
for $one = 0 to $numberOfCharacters
$pw = $Array[$one]
$pw &= $Array[$two]
$pw &= $Array[$three]
$count = $count+1
$pp  = Run(@COMSPEC & ” /c ” & $truecryptPath & ” /p “& $pw & ” /e /m ro /m rm /v ” &$containerPath )
ProcessSetPriority($pp, 0)

if $count>25 then
While ProcessExists($pp)>0
$count = 0
Wend
EndIf

Next
Next
Next

While ProcessExists($pp)>0
Wend

$count = 0
for $four = 0 to $numberOfCharacters
for $three = 0 to $numberOfCharacters
for $two = 0 to $numberOfCharacters
for $one = 0 to $numberOfCharacters
$pw = $Array[$one]
$pw &= $Array[$two]
$pw &= $Array[$three]
$pw &= $Array[$four]
$count = $count+1
$pp  = Run(@COMSPEC & ” /c ” & $truecryptPath & ” /p “& $pw & ” /e /m ro /m rm /v ” &$containerPath )
ProcessSetPriority($pp, 0)

if $count>25 then
While ProcessExists($pp)>0
$count = 0
Wend
EndIf

Next
Next
Next
Next

While ProcessExists($pp)>0
Wend

$count = 0
for $five = 0 to $numberOfCharacters
for $four = 0 to $numberOfCharacters
for $three = 0 to $numberOfCharacters
for $two = 0 to $numberOfCharacters
for $one = 0 to $numberOfCharacters
$pw = $Array[$one]
$pw &= $Array[$two]
$pw &= $Array[$three]
$pw &= $Array[$four]
$pw &= $Array[$five]
$count = $count+1
$pp  = Run(@COMSPEC & ” /c ” & $truecryptPath & ” /p “& $pw & ” /e /m ro /m rm /v ” &$containerPath )
ProcessSetPriority($pp, 0)

if $count>25 then
While ProcessExists($pp)>0
Wend
$count = 0
EndIf

Next
Next
Next
Next
Next

While ProcessExists($pp)>0
Wend

$count = 0
FOR $six = 0 to $numberOfCharacters
for $five = 0 to $numberOfCharacters
for $four = 0 to $numberOfCharacters
for $three = 0 to $numberOfCharacters
for $two = 0 to $numberOfCharacters
for $one = 0 to $numberOfCharacters
$pw = $Array[$one]
$pw &= $Array[$two]
$pw &= $Array[$three]
$pw &= $Array[$four]
$pw &= $Array[$five]
$pw &= $Array[$six]
$count = $count+1
$pp  = Run(@COMSPEC & ” /c ” & $truecryptPath & ” /p “& $pw & ” /e /m ro /m rm /v ” &$containerPath )
ProcessSetPriority($pp, 0)

if $count>25 then
While ProcessExists($pp)>0
Wend
$count = 0
EndIf

Next
Next
Next
Next
Next
Next

While ProcessExists($pp)>0
Wend

$count = 0
for $seven = 0 to $numberOfCharacters
FOR $six = 0 to $numberOfCharacters
for $five = 0 to $numberOfCharacters
for $four = 0 to $numberOfCharacters
for $three = 0 to $numberOfCharacters
for $two = 0 to $numberOfCharacters
for $one = 0 to $numberOfCharacters
$pw = $Array[$one]
$pw &= $Array[$two]
$pw &= $Array[$three]
$pw &= $Array[$four]
$pw &= $Array[$five]
$pw &= $Array[$six]
$pw &= $Array[$seven]
$count = $count+1
$pp  = Run(@COMSPEC & ” /c ” & $truecryptPath & ” /p “& $pw & ” /e /m ro /m rm /v ” &$containerPath )
ProcessSetPriority($pp, 0)

if $count>25 then
While ProcessExists($pp)>0
Wend
$count = 0
EndIf

Next
Next
Next
Next
Next
Next
Next

While ProcessExists($pp)>0
Wend

for $eight = 0 to $numberOfCharacters
for $seven = 0 to $numberOfCharacters
FOR $six = 0 to $numberOfCharacters
for $five = 0 to $numberOfCharacters
for $four = 0 to $numberOfCharacters
for $three = 0 to $numberOfCharacters
for $two = 0 to $numberOfCharacters
for $one = 0 to $numberOfCharacters
$pw = $Array[$one]
$pw &= $Array[$two]
$pw &= $Array[$three]
$pw &= $Array[$four]
$pw &= $Array[$five]
$pw &= $Array[$six]
$pw &= $Array[$seven]
$pw &= $Array[$eight]
$count = $count+1
$pp  = Run(@COMSPEC & ” /c ” & $truecryptPath & ” /p “& $pw & ” /e /m ro /m rm /v ” &$containerPath )
ProcessSetPriority($pp, 0)

if $count>25 then
While ProcessExists($pp)>0
Wend
$count = 0
EndIf

Next
Next
Next
Next
Next
Next
Next
Next
于 2013-06-27T14:26:15.237 回答