HTTPS的POST登錄數(shù)據(jù)包方式

2012/4/13 16:54:25  出處：本站原創(chuàng)   人氣：3273次    字號(hào)：小  中  大

[原理分析]

要驗(yàn)證一個(gè)帳號(hào)是否合法,那么用登錄方式來(lái)驗(yàn)證就OK了.如果能登錄成功就表示帳號(hào)合法,失敗就表示無(wú)效帳號(hào).

[技術(shù)分析]

當(dāng)前有幾千個(gè)帳號(hào)需要處理,對(duì)方的登錄網(wǎng)站沒(méi)有驗(yàn)證碼,所以比較好做.但要考慮一個(gè)問(wèn)題,同一個(gè)IP登錄多次，那么對(duì)方網(wǎng)站會(huì)暫時(shí)封鎖你的IP.

還有一個(gè)問(wèn)題對(duì)方的網(wǎng)站是HTTPS方式的,所以又需要一點(diǎn)技巧.

[技術(shù)透露]

1>我選擇用DELPHI來(lái)開(kāi)發(fā),應(yīng)為DELPHI有IDHTTP控件和SSL控件

2>使用HTTP Analyzer工具分析登錄數(shù)據(jù)包并找到POST登錄數(shù)據(jù)包

[開(kāi)發(fā)片段記錄](méi)

1> DELPHI控件: TiDHTTP控件 TIdSSLIOHandlerSocketOpenSSL控件

2> libeay32.dll 和 ssleay32.dll文件

3> 使用 sslvSSLv3

[POST代碼片段]

procedure TForm1.ButtonPostClick(Sender: TObject);

var

str_Cookie : string ;

stream_HttpResponse : TStringStream ;

stream_PostData : TStringStream ;

begin

stream_HttpResponse := TStringStream.Create() ;

stream_PostData := TStringStream.Create('');

// 我們需要POST的登錄數(shù)據(jù)包,用HTTP Analyzer工具分析

stream_PostData.WriteString('XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX');

// 設(shè)置超時(shí)

IdHTTP1.ReadTimeout := 10000 ;

// 使用POST原理機(jī)制

try

IdHTTP1.Post('https://secure.xxxxxxxxxxx.com/m=weblogin/login.xxx',

stream_PostData,

stream_HttpResponse) ;

except

on ERROR : Exception do

begin

if ERROR is EIdHTTPProtocolException then

begin

ShowMessage((ERROR as EIdHTTPProtocolException).ToString);

end;

end;

end;

// 斷開(kāi)鏈接

IdHTTP1.Disconnect ;

// 保存POST請(qǐng)求之后的反饋信息

stream_HttpResponse.SaveToFile(ExtractFilePath(Application.ExeName)+'rp.txt') ;

// 釋放資源

stream_HttpResponse.Free() ;

stream_PostData.Free() ;

end;