|WinRAR暗码破解

标签：暗码,字符,穷举,代码,函数,都是,我的,速度,路径,字母,如许,紧张,这段,干系,题目,思路,如今,时候,我就,文档
关键字：

正文：
WinRAR暗码破解WinRAR是年夜家常用的压缩东西，它的加密效用更是受到年夜家的青睐；如今我就来年夜略的教教年夜家破解加密的压缩文档(rar，zip)恩，先把代码给年夜家把(这是经我探讨几天的结果，盼望能对年夜家有所救助)代码如下'本段程序由方窗原创，仅供进修参考，如果转帖请注明作者…'方窗主页：
'方窗QQ：
353237850'年夜家没干系也实行着本身做做，或点窜本代码。
'年夜家注意路径这个代码中输入的路径不能含有空格(包括名字)否者会找不到路径。
'为了办理速度题目，采取了分段破译，具体请年夜家本身领会啦(精粹哦！~)'-title是我做的题目，在输出输入框中你会发觉它。
title=WinRaR破译(如今只做了破译数字)'-下面是我调用的阐明set WshShell=CreateObject(WScript.Shell)set fso=CreateObject(scripting.filesystemobject)'-下面是我用于输入信息的模式，同时在输入完后会履行背面的函数举动Function input()rar_path=InputBox(请输要解密的rar或zip入路径&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&比方：
C：
jiemi.rar或C：
jiemi.zip,title)If rar_path=Then Exit Function End If If fso.fileExists(rar_path)Then num1=InputBox(暗码长度最小值&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&比方：
0″,title)If rar_path=Then Exit Function End If num2=InputBox(暗码长度最年夜值&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&注意：
比暗码最小值要年夜,title)If rar_path=Then Exit Function End If If num2 num1 Then speed=InputBox(请选择解密的速度(发起选3)&Chr(13)&Chr(10)&暗码范畴短则发起选选小于3(默觉得3)&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&1：
一倍速度&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&2：
二倍速度&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&3：
三倍速度&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&4：
四倍速度&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&5：
五倍速度,title)code num1,num2,rar_path,speed'紧张函数调用Else msg2=MsgBox(请注意最年夜值要年夜于最小值&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&是否从头输入,1,title)If msg2=1 Then input()End If End If Else msg1=MsgBox(您输入的路径不精确&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&是否从头输入,1,title)If msg1=1 Then input()End If End If End Function'-这是个用于跟尾的函数，讲主题与输入框挂钩，在input()函数中你能发觉它，这个选择句函数负担的丢用最紧张的函数布局import(形参…)Function code(num1,num2,rar_path,speed)Select Case speed Case1″import 1,num1,num2,rar_path Case2″import 2,num1,num2,rar_path Case3″import 3,num1,num2,rar_path Case4″import 4,num1,num2,rar_path Case5″import 5,num1,num2,rar_path End Select End Function'-扫数的关键都是为了调用下部函数做的铺垫，你能发觉我利用For轮回来定义我的数组，同时对每个数组也履行响应的举动(很便利，发起年夜家学会)Function import(number,num1,num2,rar_path)On Error Resume Next Dim cipher(100),count(100),Result(100)pathname=fso.getbasename(rar_path)winrar=C：
PROGRA~1WinRARWinRAR.exeFor i=1 To number If i=1 Then count(i)=num1 Else count(i)=(Int(num2*(i-1)/number)+1)End If Next For counter=num1 To Int(num2/number)For j=1 To number cipher(j)=Array(coun t(j))Result(j)=WshShell.Run(winrar&e-inul-p&cipher(j)(0)&&rar_path&&pathname&,1,true)if Result(j)=0 Then MsgBox★暗码破解告成★&Chr(13)&Chr(10)&&Chr(13)&Chr(10)&暗码：
&cipher(j)(0),title wscript.quit end If count(j)=count(j)+1 Next Next End Function'-这里的细节也不多说了，紧张还是时候题目，年夜家应该都是妙手，一目明白，下面的便是兑现集体挂钩后的丢用函数了…input()代码结束下面我们评论辩论下关于破译WinRAR的特点：
我先声明下，WinRAR可以说如今还异国人能够秒破，至于传闻如美国谍报机构，结束了对RAR文件的秒破，另有在台湾一论坛上看到，有人提到RAR文件被人秒破过，我不太相信，我觉得美国谍报局如许的机构，有年夜略可以秒破，但应该是建立在已经经过议定非老例伎俩，跑出一份对应表，只做查问暗码才有年夜略做到。
无法秒破也就意味着要耗费年夜量的时候去破译一个加密的压缩文档(破译一个10多位的暗码数字和字母配合的年夜撮要几年)如今年夜家广泛的技巧都是穷举破解(暴力破解)至于我的这段小代码也属于穷举法，我这里因为时候干系就没做字母穷举破解了(如今这段代码只兑现了数字穷举)，不过我这里也给年夜家供给下思路。
一.至于字母的穷举年夜多的破译器用的都是字典爆破法：
便是事先将一些年夜略性较年夜的一些字符写入一些文档里，破译时再到这些特定的文档里去扫描字符(字符为一行一行的)，将这些字符一一的去实行(所谓暴力)。
这里我可以介绍年夜家一款软件RAR Password Recovery，这个软件很好的用到了字典爆破的方法破译字母，特别是在这个软件的文件夹下另有个已经做好的字典english，年夜家没干系尝尝。
二.这里我也说说我的思路：
年夜家完全可以利用ASCII字符集，这可是一个特别充裕的字符资源，不但能办理字母，乃至是标记。
下面我就和年夜家说说把。
以上的代码用到了几个紧张的轮回来办理纷乱的举动，同样字符也可以用到如许的轮回；chr(),asc()；年夜家应该不陌生把，这些可以兑现字符与数字的转换，下面你只要做的便是，将这些数字段处理好就行了。
比方：
Dim MyChar MyChar=Chr(65)'返回A。
MyChar=Chr(97)'返回a。
MyChar=Chr(62)'返回。
MyChar=Chr(37)'返回%。
年夜家只必要将这些键控代码用轮回来把握就行了，如果第一位轮回完了异国结束暗码破译，就在整个轮回体的前方直连接接一个字符(年夜家最好是把这个字符也做个内轮回)，再次进行年夜的轮回，就如许依次下去，终会把暗码破译出来，只是时候的题目了。
*这里提醒年夜家，我不会帮年夜家做这段破译字符的代码，思路已经给年夜家了，紧张是靠年夜家本身结束，目标也只有一个，提高峻众的编程本领，这对你我都有好处。
如果实在要问，我报告年夜家，本来集体的思路已经融入到了以上提供给年夜家的源码里，只要年夜家稍微点窜是能够做出完满的破译东西的，如果年夜家有什么更好的方法或发起，欢迎与我评论辩论，这里也感谢年夜家的赞成。



相关资讯：



相关文章：

|Protel DXP2004简体中文破解版

|winrar3.8的注册码

window7盗版|·Window MEdia Player 11破解--在盗版XP

磁盘加密王|用WinRAR破解磁盘加密王

|Windows Media Player11正版验证破解(绝对可以)

|[2009-4-4]最新绿色破解软件-联合下载

windowsxp 密码破解|Windows xp暗码破解

右键添加winrar|如何用WinRAR添加暗码?

|求好用的winrar暗码破解器

|WINRAR注册码-全版本通用

版权声明：
本站文章部分转载自其他媒体，转载目的在于传播更多信息，丰富网络文化，此类稿件不代表本网观点。如本站链接内容可能涉嫌侵犯别人合法权益，应该及时提醒本站，本站将会尽快移除该文章内容或链接。
联系请使用下面邮箱：