开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 系统/网络安全 > 扫描程序 > 查看源码
Unit1.pas
资源名称：201042215392514.rar　[点击查看]
上传用户：hc3721
上传日期：2021-06-05
资源大小：197k
文件大小：3k
源码类别：

扫描程序

开发平台：

Delphi

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, ADODB, StdCtrls, ExtCtrls, ScktComp, ComCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     ClientSocket1: TClientSocket;
  12.     Timer1: TTimer;
  13.     Memo1: TMemo;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     Label2: TLabel;
  17.     Edit2: TEdit;
  18.     Label3: TLabel;
  19.     Edit3: TEdit;
  20.     Button1: TButton;
  21.     ProgressBar1: TProgressBar;
  22.     Label4: TLabel;
  23.     Edit4: TEdit;
  24.     Label5: TLabel;
  25.     Button2: TButton;
  26.     Button3: TButton;
  27.     procedure Button1Click(Sender: TObject);
  28.     procedure Timer1Timer(Sender: TObject);
  29.     procedure ClientSocket1Connect(Sender: TObject;
  30.       Socket: TCustomWinSocket);
  31.     procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
  32.       ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  33.     procedure Button2Click(Sender: TObject);
  34.     procedure Button3Click(Sender: TObject);
  35.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  36.       Shift: TShiftState);
  37.     procedure FormCreate(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   Form1: TForm1;
  46.   i:Integer;
  48. implementation
  50. {$R *.dfm}
  52. procedure TForm1.Button1Click(Sender: TObject);
  53. begin
  54. i:=StrToInt(Edit2.Text);
  55. Timer1.Interval:=StrToInt(Edit4.Text);//自行填写扫描时间间隔
  56. Timer1.Enabled:=True;
  57. ProgressBar1.Min:=StrToInt(Edit2.Text); //设置进度条最小值
  58. ProgressBar1.Max:=StrToInt(Edit3.Text)-StrToInt(Edit2.Text);//进度条最大值
  59. end;
  61. procedure TForm1.Timer1Timer(Sender: TObject);
  62. begin
  63.  if i=StrToInt(Edit3.Text)  then  //当值为最大时，算出计时时间
  64.  Timer1.Enabled:=False
  65.  else
  66.  ClientSocket1.Port:=i;  //控件的端口
  67.  ClientSocket1.Address:=Edit1.Text; //控件连接的IP地址
  68.  ClientSocket1.Open; //连接IP，执行控件
  69.  i:=i+1; //变量自加一，便于扫描下一个端口
  70.  ProgressBar1.StepBy(1);  //进度条加1
  71. end;
  73. //端口扫描连接
  74. procedure TForm1.ClientSocket1Connect(Sender: TObject;
  75.   Socket: TCustomWinSocket);
  76. begin
  77. Memo1.Lines.Add('扫描到端口：'+inttostr(i-1)); //连接成功后输出端口
  78. ClientSocket1.Close;
  80. end;
  82. procedure TForm1.ClientSocket1Error(Sender: TObject;
  83.   Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  84.   var ErrorCode: Integer);
  85. begin
  86. ErrorCode:=0;  //容错代码
  87. end;
  89. procedure TForm1.Button2Click(Sender: TObject);
  90. begin
  91.  ClientSocket1.Active:=False;
  92.  Timer1.Enabled:=False;
  93.   ProgressBar1.Max:=0;
  94. end;
  96. procedure TForm1.Button3Click(Sender: TObject);
  97. begin
  98. Close;
  99. end;
  101. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  102.   Shift: TShiftState);
  103. begin
  104.   if Key = 27 then
  105.     Close;
  106. end;
  108. procedure TForm1.FormCreate(Sender: TObject);
  109. begin
  110. Form1.KeyPreview:=True;
  111. end;
  113. end.