当前位置：首页 » 网站代码 » 爆破密码代码

爆破密码代码

发布时间: 2021-03-14 01:55:14

㈠破解wifi密码的编程语言代码怎么写

需要哪些密码可以自己现在网上找一些字典来跑，建议顺序是常用弱专口令 => 字典面 => 随机密码（属到了随机密码这儿，意义也不大了）。这儿给出一个常见弱口令的下载连接。反正我只用这个弱口令破解过一个WIFI。这儿为了加快文件生成速度，我开启了多线程。个人实际感受，如果只是几千到几万个的话，其实多线程不多线程，并没有多大区别，真正的区别在于后面尝试连接的时候。

㈡怎么编写爆破程序得到密码由于我不懂，叙述问题有点多，希望大神们多多包涵。。

哈哈，你这就是一个一个去试的话，跟破解算法什么的都没有任何关系，关键就是怎么输入密码的问题了。这就得看需要输入密码的软件是什么样的了，是不是提供自动密码输入接口，还是只能在屏幕上点击鼠标键盘手动输入。如果提供了自动密码输入接口，那就调用这个接口，一个一个去试呗，错了它会返回错误信息，比如连接数据库时调用数据库的用户名密码接口。如果只能在屏幕上手工输入，那就写个脚本模拟鼠标键盘事件，一个一个去试，很难判断是不是成功，你必须知道成功之后屏幕是什么样子，然后才能进行判断。

㈢ excel密码破解代码谁知道破解的代码啊

EXCEL密码破解

1\打开文件
2\工具---宏----录制新宏---输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具---宏----宏,选aa,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6\关闭编辑窗口
7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!
内容如下：
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'mmy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub

㈣求一个易语言暴力破解qq密码的源码

没有暴力破解的源码，、
破解一个应用不是那么容易的，
最多你可以跟侵入目标机子，然后找到注册表，文件
查找QQ登陆的文件，用算法计算出密码，
不是你想的，直接一个炸弹就能破解的，
希望能帮到你，点赞哦
id：易行善意

㈤如何用C语言编写暴力破解压缩文件解压密码的程序

由于有一个重要的Rar文件，极需解开，首先试用了ARPC，但是解压的速度极慢，每秒只有30个左右，所以断了穷举破解的念头，却仍不死心，因为我从不崇尚穷举破解的方法，除非每秒可以跑几千万次的，我或许可以一试，所以决定研究一下Winrar3.x密码算法，以期是否可以破解该密码。查看了网络上的资料，包括看雪FAQ里的回答，都声称只能用穷举法破解，起先并不理解，但通过研究，我理解了看雪前辈们在FAQ里所说的原因，不禁让我佩服

Winrar加密思路的成熟。虽然研究的结果没有什么新意，但我还是决定把我的研究结果与大家一起分享，为那些仍然以为winrar密码可以象破解注册码一样的，通过修改winrar弹出框之类的更改文件流程指向可以达到跳过密码检验的朋友，做一个简要的说明。

一、Rar文件生成的流程。
Winrar加密文件时，总的分两个步骤：
1：先把源文件压缩，压成一段数据段。
2：再将压缩完的数据段加密。
对于同一个源文件来说，不进行加密，压缩完，其rar文件中的数据段是一模一样的。但是如果对同一个源文件来说，即使使用同一个密码，加密完rar文件中的数据段是不一样的，这是由于加密的密钥是依赖于一个Salt(8个字节的密钥，用来加密时使用，存放在rar文件头中里）
所以要解密rar加密文件关键在于数据解密这一步，那我们接下来研究一下如何加密的。
二、加密“压缩完的数据段”的流程
1、获取密钥：
将明文的密码与Salt一起，通过HASH算法，生成两个16字节的密钥。（一个是KEY(AES算法的参数)，一个是initVector）
2、以Key和initVector来加密压缩数据：
这里，是一个循环加密的结构，每16字节作为一个块，进行加密（这可能正是为什么加密完的文件长度总为16倍数的原因）。加密采用AES算法（RAR采用的是AES的rijndael的标准应用）。这里注意：AES加密前，有一个异或运算，是先将每16字节块与上一个16字节块加密结果进行异或，然后再进行AES算法的。我用一个简单的示意代码看说明：
;===============================================
packblock[0]=packblock[i]^initVector
encryptBlock[0]=AES(packblock[0]) ；（KEY为AES的密钥）
for i=1to 块数量-1
packblock[i]=packblock[i]^encryptBlock[i-1]
encryptBlock[i]=AES(packblock[i])；（KEY为AES的密钥）
next
;packblock[i]表示压缩完的每16字节数据
;encryptBlock[i]表示加密完的每16字节数据
;===============================================
三、解密的过程
由于AES算法是对称的，所以解密的过程，是加密过程的逆运算。但解密时AES算法过程与加密所用的不一样（是因为解密过程中由KEY生成的子密钥表不一样）。仍然需要我们将密码输入，与salt一起生成两个16字节密钥，KEY和initVector。

;===============================================
packblock[0]=AES1(encryptBlock[0]) ；（KEY为AES的密钥）
packblock[0]=packblock[i]^initVector
for i=1to 块数量-1
packblock[i]=AES1(encryptBlock[i]) ；（KEY为AES的密钥）
packblock[i]=packblock[i]^encryptBlock[i-1]

next
;===============================================
那判断密码是否正确的在什么地方呢？
解密的过程是解密后的数据块进行解压缩，然后解成源文件，对该文件进行CRC校验，存在RAR文件中的源文件CRC校验码比较，相同则密码正确，不相同则密码错误。

四、无法秒破的原因
从上面，我们了解了RAR文件的整体思路。地球人都知道，解密时，肯定有个步骤是来判断密码的正确与否。而且，依据以往的经验，我们也许可以将某些判断的点移动，那样可以缩减破解的流程思路。那RAR的这一步在哪里？它把校验放在了最后的一步。如果要秒破，我们该怎么做泥？至少我认为目前是不可能的。
我们从解密过程逆反过来看看：
1、CRC检验这一块修改跳转？根本毫无意义，因为它已经是最后一步了。你可以修改RAR文件头的CRC值，你可以将它改得和你用任意密码解压出来的文件CRC值一样，但你的文件根本就不是原来的文件了。可能已经完全面目全非了。所以，对这一过程不可行。CRC校验本身是不可逆的
2、那么把判断提前到压缩完的数据？
解压的时候，有没有什么来判断压缩数据是否正确？压缩完的数据，有没有固定的特征，是否可以做为解压的判断，在这一步里，我们也无法找到有效的可用的固定特征。因为这一步涉及到RAR的压缩算法。即使一个源文件，即使你的文件前一部分是完全相同的，只对后面的部分进行改过，那么压缩完，数据也是完全一样的。因为压缩完的数据首先是一个压缩表，后面是编码。文件不一样，扫描完的压缩表也不一样，编码又是依赖于压缩表，所以，这里头找不到压缩完的数据有任何的固定特征可以用来判断的。
不管压缩数据是什么样的，Winrar都一如既往地进行解压，没有进行压缩数据是否有效的判断。
3、那假如我们破解了AES了泥？
由于AES只依赖于KEY，如果AES算法被破解了，我们知道了KEY，我们可以解出压缩完的数据，但是这里有一个问题，还有一个initVector密钥，用来第一个16字节块的异或，你没有initVector参数，你第一个16字节块的数据便无法解得出来。
4、那就只能从第一步Hash的算法入手
即使你能破解hash，但hash后的结果泥？没有结果，你怎么返推密码。

所以综上，我发现rar的加密是由hash和AES两种算法互相牵制，而两种算法当前都无法破解，至少目前还没有办法秒破，也理解了看雪高手讲的道理。
五、对穷举提高算法效率的一些设想。
我用汇编写完了RAR穷举解密的算法模块，但是如何提高效率，优化穷举的速度泥？我有如下的想法：
1、从压缩数据里找寻特征，省掉解压缩、CRC检验代码和生成initVector生成代码。目前，通过多次实验，我找到的一个特征（不知道这个是否正确），即解密完的最后一个16字节块的最后一个字节必须为0。因为经过多次的试验，我发现有加密的数据段长度都会比未加密前的数据长，那么，最后一个

16个字节的数据块解密完，多出的部分就都为0，但多出几个字节泥？多次实验，长度不一，我试想着从加密数据段最后一个16个字节块着手，只解这一块，看是否一个字节为0，这样，只解密16个字节的数据，来大大提高效率？如果能进行到这一步了，再通过解全部数据，进行CRC校验的判断。
2、如果第一个特征不成立的话，针对特定格式的压缩文件，比如doc、jpg等，部分数据固定，压缩完的数据是否存在相互牵制的数据？从而把判断提前，这一步，我不知道如何找到压缩完的数据是否存在相互牵制的数据。

㈥用按键精灵破解一款软件密码（6位纯数字）

按键精灵穷举输出6位纯数字密码

代码如下:

arr="0123456789"
Forj=1To10Step1
a=Mid(arr,j,1)
Fork=1To10Step1
b=Mid(arr,k,1)
Forl=1To10Step1
c=Mid(arr,l,1)
Foru=1To10Step1
d=Mid(arr,u,1)
Fori=1To10Step1
e=Mid(arr,i,1)
Foro=1To10Step1
f=Mid(arr,o,1)
TracePrinta&b&c&d&e&f
//此处改成SayStringa&b&c&d&e&f可输入生成的字符串
Next
Next
Next
Next
Next
Next

㈦网页登录窗口暴力破解求代码帐号已知，密码6位纯数字，无验证码求vbs代码暴力破解

这个难度太大了，这里只提供思路。

VBS+DOM实现IE自动化操作

DOM介绍
常用对象
document对象：文档中所有对象
Body对象：文档中body部分的对象
查找对象常用的方法：
getElementbyid() 返回对象拥有指定id的第一个对象 html标记的id属性
getElementsbyName() 返回带有指定名称的对象的集合 name属性
getElementsbyTagName() 返回带有指定标签名的对象的集合 html标记
也可以用集合来查找对象
如options代表下拉框元素的集合
elements代表表单中所有的元素
如访问某个下拉框的选项
set sel=ie.document.getelementbyid("**").options
for each opt in sel
if opt.text="*" then
opt.selected=true
end if
next

有的下拉框每个选项是有optionid的，可以这样访问
ie.document.getelementbyid("**").selected=true

一个例子，访问某网页，检查密码为空的提示是否正确
DIM URL=""
set ie=createobject("internetexplorer.application")
ie.visiable=true
ie.navigate URL
wscript.sleep 2000
ie.document.getelementsbytagname("input")(1).value="usename"
ie.document.getelementsbytagname("input")(2).value=""
ie.document.getelementsbytagname("button")(0).click
wscript.sleep 2000
if ie.document.getelementsbytagname("input")(2).value="" then
msgbox “空”
else
msgbox “非空”
end if

㈧如何记录ssh爆破密码

乌龙寺技术站，里面有ssh自动化爆破软件

㈨求C++密码破译源代码我自己编的破解一位的密码，不知道怎么破解2-8位的密码，破解纯数字的

#include<iostream.h>
#include<string.h>
void main()
{
char s1[10],s2[10]="00";
int len,i;
cout<<"输入密码:";
cin>>s1;
while(strcmp(s1,s2))
{
len=strlen(s2);
for(i=0;i<len;i++)if(s2[i]!='9')break;
if(i==len)
{
for(i=0;i<=len;i++)s2[i]='0';
s2[i]='\0';
}
else
{
s2[len-1]++;
for(i=len-1;s2[i]=='9'+1;i--)
{
s2[i]='0';
s2[i-1]++;
}
}
}
cout<<s2<<endl;
}

阅读全文

爆破密码代码

与爆破密码代码相关的阅读推荐