哪位能给出一个破解密码的算法，a到z，1到0，~)的组合算法？用来破解弱口令！！！ ( 积分: 100 )

哪位能给出一个破解密码的算法，a到z，1到0，~)的组合算法？用来破解弱口令！！！

网上很多密码字典生成器，还需要自己做？

var
Pass:array [1..255] of char; //定义该字符串为了存放所有的ASCII吗字符
Passwordchar; //该定义暂时无用,有些API函数参数需要PCHAR类型的字符串
p:string; //用与存放密码串的变量
PassString:array [1..8] of char; //用于存放组成密码串的单个字符的字符数组
s,i,m1,m2,m3,m4,m5,m6,m7,m8:integer;
begin
s:=1;
for i:=1 to 255 do //假设你所需的字符的ASCII吗从1开始
begin
pass=chr(s); //将整型变量S转换成ASCII吗放入字符数组
end; //以上把所需的字符放入数组,这样做是因为当你对所需要的字符有选择时用.
//否则完全不必这么做,只要按顺序循环下去就可以了.
for s:=1 to 8 do //s用来控制密码位数
begin //下面的程序段,你只要模拟做一遍应该会明白的.
case s do
1:begin
for m1:=1 to 255 do
begin
PassString[1]:=Pass[m1];
p:=PassString[1];
{破解代码}
end;
end;
2:begin
for m1:=1 to 255 do
begin
PassString[1]:=Pass[m1];
for m2:=1 to 255 do
begin
PassString[2]:=Pass[m2];
P:=PassString[1]+PassString[2];
{破解代码}
end;
end;
end; //以下类推
3;begin

end;
4:begin

end;
5:begin

end;
6:begin

end;
7:begin

end;
8:begin

end;
end;
end;
end;

接受答案了.