當前位置：首頁 » 網站代碼 » 爆破密碼代碼

爆破密碼代碼

發布時間: 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;
}

閱讀全文

爆破密碼代碼

與爆破密碼代碼相關的閱讀推薦