恭喜,该密文ca94aa55199b6b4a96f0b2611f71aa38已被SOMD5解密~!
明文:kunal123
此明文由VHg4nmKH40Q提交
。。。
恩,这是一款有扩展的加密,其实swoole解密很简单,要解密它,就先了解一下它是怎么工作的。
它的执行步骤是:①加密时获取PHP整个文件的代码 → ②对代码进行加密 → ③通过扩展对代码进行解密 → ④对解密代码进行opcode处理 → ⑤执行PHP代码。
所以解密就需要对他的扩展dll(windows下用)或so(Linux下用)文件分析。现在说说怎么解密它,解密方式有二种:
方法A:针对PHP执行的时候进行破解
方法B:针对PHP解密的时候进行破解
先说说方法A,“针对PHP执行的时候进行破解”,也就是在上面的第⑤个步骤才开始处理,但是此时,PHP代码是经过opcode处理过的,而且破解方法较烦琐,需要处理很多语法,所破解出来的代码,和文件的原代码也有所不一样(可能有10%的地方不同,不过这个不同,也有很多人喜欢,因为它会把原代码中复杂的语法破解成很多条简单的语法),既然是破解,就要100%一样,所以这个方法我个人认为并不是好方法。
所以用方法B:“针对PHP解密的时候进行破解”,也就是在上面的第③个步骤就进行处理,此时解密出来的和用户原代码完全一样,具体破解方法是不会公布的了,人家是一款商业软件。有兴趣的可以自己去学习分析,不过可以提一下,关键点在于从它的扩展文件(dll或so)分析出它的加密函数和加密密码,然后用这个对密文进行解密(解密前要排除掉前面的一些特征代码)。
我就用我自己的加密的excel文件叫大家怎么破解清除excel密码,首先打开有自己加密的excel文档,如下图:
excel2010和以前的版本有所不同,功能更人性化,更智能化。首先我们要做的是,加载宏文件,excel为宏设置默认是关闭的,我们要启用宏,就必须开启宏;“文件”下的子菜单”选项“
如下图所示:
点击“选项”选择子菜单下“信任中心”“宏设置”在宏设置下。选择“启用所以宏”然后点击“确定”
如下图所示:
点击“视图”在右下面我们会看“宏”打开宏,如下图所示:
现在我们就开始录制新宏,宏名:随便填,我这么久填密码,保存在:选择当前工作薄,说明可以不填。
如下图所示:
我们在宏工作薄中,把一下宏程序写进去。
Option Explicit
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 passwordsConst DBLSPACE As String = vbNewLine vbNewLineConst 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 VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " _"workbook structure or windows." DBLSPACE _"Proceeding to unprotect sheets." AUTHORS VERSIONConst 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 VERSIONConst 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 VERSIONConst 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 VERSIONConst MSGONLYONE As String = "Only structure / windows " _"protected with the password that was just found." _ALLCLEAR AUTHORS VERSION REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With 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 ThenPWord1 = 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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR AUTHORS VERSION REPBACK, vbInformation, HEADEREnd Sub
点击菜单栏上的工具“宏”选AllInternalPasswords,执行,确定两次; 耐心等一会,再点击两次确定,
在此打开自己加密的excel,看看,密码是不是没有了。
黑软乐园(不推荐去访问)
黑客工具任你下载
如
中
国
黑
客
联
盟
(推荐)
密码在线破解(下载地址:)
说明:QQ在线解密工具。可以同时解密多个用户号码(相对所需要的时间可能会长些),如果你不小心丢失了QQ密码不防试试,注意要在线使用本软件,请勿用于非法破取别人的QQ密码,否则后果自负!
3个天后.我们整理.附带字典给大家,如果你有绝对时间上网10000号的密码也可以解....
本软件属于穷举
Kender
新建一个文件夹,然后在文件里创建一个文本文件,然后拷贝加密软件到这个文件夹里,运行加密软件,把密码设置为“1”,然后生成了加密后的文件夹,用winrar打开这个文件夹,把里面的“desktop.ini”删除掉,然后关闭winrar,把“Thumbs.db....“文件夹改名,把后面的数字全部去掉,只剩下“Thumbs.db”,然后双击就会发现可以打开该文件夹了,找到类似“117789687”这样的文件,用winrar压缩,生成压缩文件,下面就是密码文件替换了,双击压缩文件进行解压缩,解压缩路径输入那个忘记了密码的文件夹的路径
,然后就会提示是否替换
“117789687”文件,选择是,OK,密码文件替换成功。运行加密软件进行解密,输入密码“1”,解密成功。
用在线工具对文字加密解密,步骤如下:
1、打开在线工具官方网站。
2、点击菜单栏的“文字加密解密”。
3、最后我们在这里就可以使用在线工具的文字加密解密了。
加密技术是最常用的安全保密手段,利用技术手段把重要的数据变为乱码(加密)传送,到达目的地后再用相同或不同的手段还原(解密)。