AI 助理
备案控制台
开发者社区 安全 文章 正文

[Delphi]木马文件传输代码

2006-08-09 957
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： 服务器端: unit ServerFrm;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, StdCtrls, ExtCtrls,WinSock;type  TfrmMain = class(TForm)    Pan

服务器端:

unit ServerFrm;

 interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls,WinSock;

type
  TfrmMain  =   class (TForm)
    Panel1: TPanel;
    Label1: TLabel;
    edtPort: TEdit;
    Panel2: TPanel;
    stabar: TStatusBar;
    SaveDialog: TSaveDialog;
    btnListen: TButton;
    btnReceive: TButton;
    btnStop: TButton;
    btnExit: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnListenClick(Sender: TObject);
    procedure btnReceiveClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
    StopTrans:Boolean;   // 是否停止传送开关
    InTrans:Boolean;   // 表示正在接收文件
    Server:TSocket;   // 定义服务器端的socket句柄
     // 自定义过程接收文件
    procedure RecvFile(FileName:String);
  end;

var
  frmMain: TfrmMain;

 const
  BlockLen = 1024 * 4 ;

implementation

 {$R *.dfm}

procedure tfrmmain.RecvFile(FileName:String);
var
  Ftrans:file of Byte;
  Recelen:Integer;
  Blockbuf:array[ 0 ..BlockLen - 1 ] of Byte;
  RecvSocket:TSocket;
  ra:Sockaddr_in;
  ra_len:integer;
begin
  ra_len: = sizeof (ra);
  Recvsocket: = accept(server,@ra,@ra_len);
  assignFile(Ftrans,filename);
  rewrite(ftrans);
  stoptrans: = false ;
  intrans: = true ;
  recelen: = recv(recvsocket,Blockbuf,BlockLen, 0 );
   while  (recelen > 0 ) and (not StopTrans)  do
  begin
    BlockWrite(Ftrans,Blockbuf[ 0 ],BlockLen);
    application.ProcessMessages;
    recelen: = recv(recvsocket,Blockbuf,Blocklen, 0 );
     if  stoptrans then
    begin
      CloseFile(Ftrans);
      CloseSocket(RecvSocket);
      InTrans: = False;
      MessageBox(Handle, ' 停止传输! ' , ' 提示 ' ,MB_OK);
      EXIT;
    END;
  END;
   // 关闭文件,接收的SOCKET
  CloseFile(Ftrans);
  Closesocket(recvsocket);
  InTrans: = False;
   if  (Recelen = SOCKET_ERROR) then
    messagebox(handle, ' 传输异常终止! ' , ' 提示 ' ,MB_OK)
  ELSE
    MESSAGEBOX(HANDLE, ' 客户端已经关闭连接1,文件可能已经传送完毕了! ' , ' 提示 ' ,MB_OK);

end; 

procedure TfrmMain.FormCreate(Sender: TObject);
var
  aWSAData:TWSAData;
begin
   if  WSAStartup($ 0101 ,aWSAData) <> 0  then
    raise Exception.Create( ' 不能启动WinSock动态链接库 ' );
  messageBox(Handle,aWSAdata.szDescription , ' WinSock动态链接库版本 ' ,mb_ok);


end;

procedure TfrmMain.btnExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if  InTrans then
     if  MessageBox(handle, ' 正在接收文件,停止吗？ ' , ' 提示 ' ,MB_YESNO) = IDNO then
      abort;

  IF SERVER <> INVALID_SOCKET THEN
     CLOSESOCKET(SERVER);
     // 释放winsock动态链接库所创建的资源
   if  WSACleanup <> 0  then
    messagebox(handle, ' 清除Winsock动态链接库错误！ ' , ' 提示 ' ,MB_OK)
  ELSE
    messagebox(handle, ' 清除Winsock动态链接库成功！ ' , ' 提示 ' ,MB_OK);

end;

procedure TfrmMain.btnListenClick(Sender: TObject);
var
  ca:SOCKADDR_IN;
begin
   // 创建服务器端SOCKET
  Server: = Socket(PF_INET,SOCK_STREAM,IPPROTO_IP);
  IF server = invalid_socket then
  begin
    stabar.SimpleText : = ' 创建接收SOCKET错误1 ' ;
    exit;
  end;
   // 绑定服务器端SOCKET
  ca.sin_family : = PF_INET;
  CA.sin_port : = htons(strtoint(trim(edtPort.Text )));
  ca.sin_addr.S_addr : = INADDR_ANY;
   if  bind(server,ca, sizeof (ca)) = socket_error then
  begin
    stabar.SimpleText : = ' 绑定socket错误,请更改接收端口 ' ;
    closeSocket(server);
    exit;
  end
   else
    stabar.SimpleText : = ' 绑定接收端socket成功! ' ;

   // 开始监听
  listen(server, 5 );
  btnlisten.Enabled : = False;
  btnstop.Enabled : = true ;

end;

procedure TfrmMain.btnReceiveClick(Sender: TObject);
begin
   if  (server = INVALID_SOCKET) THEN
  BEGIN
    MESSAGEBOX(HANDLE, ' 还没有进行监听,请先进行监听! ' , ' 提示 ' ,MB_OK);
    EXIT;
  END;
  IF  SaveDialog.Execute THEN
    RECVFILE(SaveDialog.FileName );
    
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
begin
  STOPTRANS: = TRUE;
  IF SERVER <> INVALID_SOCKET THEN cLOSESOCKET(SERVER);
   // 此处需要说明
  server: = INVALID_SOCKET;
  bTNSTOP.Enabled : = fALSE;
  BTNlISTEN.Enabled : = TRUE;
end;

end.

 客户端:

 

unit ClientFrm;

 interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,WinSock;

type
  TfrmMain  =   class (TForm)
    opendfile: TOpenDialog;
    Label1: TLabel;
    edtIP: TEdit;
    Label2: TLabel;
    edtPort: TEdit;
    StatusBar: TStatusBar;
    btnConnect: TButton;
    btnSend: TButton;
    btnStop: TButton;
    btnExit: TButton;
    ProgressBar: TProgressBar;
    procedure FormCreate(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnConnectClick(Sender: TObject);
    procedure btnSendClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
   private
     { Private declarations }
      Client:TSocket;
   public
     { Public declarations }
    StopTrans:Boolean;   // 是否停止发送的开发
    InTrans:Boolean;    // 表示是否正在传送文件
    procedure TransFile(FileName:String);   // 传递文件的过程
  end;

   const  BlockLen = 1024 * 4 ;   // 每次发送的最大数据量

var
  frmMain: TfrmMain;

implementation

 {$R *.dfm}

procedure TfrmMain.TransFile(FileName:String);   // 传递文件的过程
var
  Ftrans:file of Byte;
  Flen:integer;
  BlockNum,RemainLen:integer;
  BlockBuf:array[ 0 ..BlockLen - 1 ] of Byte;
  i:integer;
  SendLen:Integer;
begin
  assignFile(Ftrans,filename);
  reset(Ftrans);
  Flen: = FileSize(Ftrans);
  BlockNum: = Flen div BlockLen;
  progressBar.Max : = 1 + BlockNum;
  RemainLen: = Flen mod BlockLen;
  StopTrans: = False;
  InTrans: = True;
  SendLen: = 1 ;
   for  i: = 0  to BlockNum - 1   do
  begin
     if  (StopTrans) or (SendLen <= 0 ) then Break;
    BlockRead(Ftrans,Blockbuf[ 0 ],BlockLen);
    SendLen: = Send(Client,Blockbuf,BlockLen, 0 );
    ProgressBar.Position : = i;
    Application.processMessages;
  end;
   if  StopTrans then
  begin
    CloseFile(Ftrans);
    InTrans: = False;
    StatusBar.SimpleText : = '' ;
    MessageBox(Handle, ' 停止传输! ' , ' 提示 ' ,mb_ok);
    progressbar.Position : = 0 ;
    exit;
  end;
   if  (SendLen <= 0 ) then
  begin
    CloseFile(Ftrans);
    InTrans: = False;
    StatusBar.SimpleText : = '' ;
    messagebox(handle, ' 传出异常终止! ' , ' 提示 ' ,MB_OK);
    progressBar.Position : = 0 ;
    exit;
  end;
   if  remainLen > 0  then
  begin
    BlockRead(Ftrans,BlockBuf[ 0 ],RemainLen);
    SendLen: = send(client,BlockBuf,Remainlen, 0 );
     if  (sendLen <= 0 ) then
    begin
      closeFile(Ftrans);
      InTrans: = False;
      StatusBar.SimpleText : = '' ;
      messagebox(handle, ' 传输异常终止! ' , ' 提示 ' ,mb_ok);
      progressBar.Position : = 0 ;
      exit;
    end;
  end;
  progressBar.Position : = ProgressBar.Max ;
  CloseFile(Ftrans);
  InTrans: = False;
  StatusBar.SimpleText : = '' ;
  messagebox(handle, ' 传输完成! ' , ' 提示 ' ,mb_ok);
  progressbar.Position : = 0 ;

end;


procedure TfrmMain.FormCreate(Sender: TObject);
var
  aWSAData:TWSAData;
begin
   if  WSAStartup($ 0101 ,aWSAData) <> 0  then
    raise Exception.Create( ' 不能启动WinSock动态链接库 ' );
  messageBox(Handle,aWSAdata.szDescription , ' WinSock动态链接库版本 ' ,mb_ok);


end;

procedure TfrmMain.btnExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if  InTrans then
     if  MessageBox(handle, ' 正在传输文件,停止吗？ ' , ' 提示 ' ,MB_YESNO) = IDNO then
      abort;
     // 释放winsock动态链接库所创建的资源
     if  WSACleanup <> 0  then
      messagebox(handle, ' 清除Winsock动态链接库错误！ ' , ' 提示 ' ,MB_OK)
    ELSE
      messagebox(handle, ' 清除Winsock动态链接库成功！ ' , ' 提示 ' ,MB_OK);
    CloseSocket(Client);
end;

procedure TfrmMain.btnConnectClick(Sender: TObject);
var
  ca:SOCKADDR_IN;
  hostaddr:u_long;
begin
  Client: = Socket(PF_INET,SOCK_STREAM,IPPROTO_IP);
  IF CLIENT = INVALID_SOCKET THEN
  BEGIN
    StatusBar.SimpleText : = ' 为连接远程服务器端创建COSKET错误! ' ;
    exit;
  end;
  ca.sin_family : = PF_INET;
  CA.sin_port : = HTONS(STRTOINT(TRIM(EDTpORT.Text )));
  HOSTADDR: = INET_ADDR(PCHAR(TRIM(EDTIP.Text )));
   // 判断IP是否合法
   if  (hostaddr =   - 1 ) then
  begin
    StatusBar.SimpleText : = ' 主机IP地址： ' + trim(edtip.Text ) + ' 错误 ' ;
    exit;
  end
   else
    ca.sin_addr.S_addr  : = hostaddr;
   // 连接服务器
   if  connect(Client,ca, sizeof (ca)) <> 0  then
  begin
    StatusBar.SimpleText : = ' 连接服务器端SOCKET错误! ' ;
    exit;
  end
   else
    StatusBar.SimpleText : = ' 连接远程SOCKET成功! ' ;

end;

procedure TfrmMain.btnSendClick(Sender: TObject);
begin
   if  (opendfile.Execute ) and (FileExists(opendfile.FileName )) then
    transFile(opendfile.FileName );
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
begin
  Stoptrans: = True;
end;

end. 
文章标签：
安全
风月无边
目录
相关文章
游客qeoynko2nmbgk
|
3月前
|
安全 Windows
MASM32编程通过WMI获取杀毒软件信息
MASM32编程通过WMI获取杀毒软件信息
游客qeoynko2nmbgk
29 0
GG2020gg
|
4月前
|
网络安全 数据安全/隐私保护 Python
Python 渗透测试：文件传输爆破（ 21端口 ）
Python 渗透测试：文件传输爆破（ 21端口 ）
GG2020gg
36 2
祈澈菇凉
|
移动开发
如何反编译H5界面的源代码（fiddler抓包）
如何反编译H5界面的源代码（fiddler抓包）
祈澈菇凉
170 0
潇湘信安
|
开发框架 安全 .NET
冰蝎WebShell免杀工具（支持4.0.6）
冰蝎WebShell免杀工具（支持4.0.6）
潇湘信安
631 0
乌鸦安全
|
安全 Windows
【工具分享】免杀360&火绒的shellcode加载器
【工具分享】免杀360&火绒的shellcode加载器
乌鸦安全
380 0
云语科技
|
Shell Windows 编译器
文件传输技术分享：Windows下编译FileZilla！
本文介绍了如何为FileZilla 3设置构建环境以及如何使用msys2在Windows下编译它，Msys2是一个cygwin环境。这些条件要求您运行64位Windows，对于完整的MSYS2系统和所有需要的依赖项，您将需要磁盘上的7GiB可用空间。
云语科技
1923 0
技术小能手
|
安全 程序员
易语言开发的软件都会被360提示为木马吗？你怎么看？
技术小能手
2790 0
z奶油面包
|
C# Windows
exe文件，后门免杀的制作学习笔记
版权声明：转载请注明出处:http://blog.csdn.net/dajitui2024 https://blog.csdn.net/dajitui2024/article/details/79396307 引用原文！！ 注：本文技术非原创，转载请直接对原文转载，请不要对本文打赏等，本文为学习笔记，禁止由本文产生任何盈利行为。
z奶油面包
1539 0
像教授
|
安全 网络协议 数据安全/隐私保护
加固基于Windows平台的WEB服务器
像教授
1692 0
余二五
|
监控 测试技术 Shell
《自写程序防止Linux FTP爆力破解》
余二五
1217 0