备案控制台
探索云世界
开发者社区 安全 文章 正文

[Delphi]木马文件传输代码

2006-08-09 934
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： 服务器端: 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. 
文章标签：
安全
风月无边
目录
相关文章
橘子的分享
|
6月前
|
Web App开发
软件 | IDM网页嗅探器
我们在网页上面看到很多视频，想下载下来，但是苦于找不到下载的地方或者下载需要付费订阅等，那么有这么一个软件，国外的，可以支持正版，也可以用这个版本。
橘子的分享
81 0
软件 | IDM网页嗅探器
潇湘信安
|
7月前
|
开发框架 安全 .NET
冰蝎WebShell免杀工具（支持4.0.6）
冰蝎WebShell免杀工具（支持4.0.6）
潇湘信安
266 0
技术小能手
|
安全 程序员
易语言开发的软件都会被360提示为木马吗？你怎么看？
技术小能手
2740 0
z奶油面包
|
C# Windows
exe文件，后门免杀的制作学习笔记
版权声明：转载请注明出处:http://blog.csdn.net/dajitui2024 https://blog.csdn.net/dajitui2024/article/details/79396307 引用原文！！ 注：本文技术非原创，转载请直接对原文转载，请不要对本文打赏等，本文为学习笔记，禁止由本文产生任何盈利行为。
z奶油面包
1471 0
技术小阿哥
|
监控 安全 测试技术
木马技术补充：木马加壳
技术小阿哥
1911 0
像教授
|
安全 网络协议 数据安全/隐私保护
加固基于Windows平台的WEB服务器
像教授
1655 0
技术小大人
键盘记录器源代码
技术小大人
982 0
技术小胖子
|
安全 API 网络安全
VC++动态链接库(DLL)编程（六）――DLL木马
技术小胖子
1399 0
玄学酱
|
监控 测试技术
如何利用sdclt.exe绕过UAC？
本文讲的是如何利用sdclt.exe绕过UAC？，Matt Nelson‏ @enigma0x3在最近的文章中公开了一个绕过Win10 UAC的技巧，通过修改HKCU下的注册表键值实现对UAC的绕过
玄学酱
2017 0
沉默术士
|
JavaScript 前端开发 安全
揭秘用“世界上最好的编程语言”制作的敲诈者木马
沉默术士
1655 0

热门文章

最新文章

  • 1
    疑犯追踪第一季/全集Person Of Interest迅雷下载
  • 2
    【直播系列之一】1篇文章看懂峰值带宽、流量、转码、连麦、截图五大直播计费方式
  • 3
    理解事务的4种隔离级别
  • 4
    阿里云网站域名备案流程全过程讲解(图文)
  • 5
    在服务器的raid1中安装windows server系统（踩坑记录）
  • 6
    如何用Vue实现简易的富文本编辑器，并支持Markdown语法
  • 7
    怎么才能快速提高小程序留存率！
  • 8
    程序员请放下浮躁的心
  • 9
    如何解决域中普通用户只限于10台客户机加入域的数量问题
  • 10
    博客园模板 样式优化
  • 1
    未来技术纵横谈：区块链、物联网与虚拟现实的融合与创新
    72
  • 2
    软件体系结构 - 缓存技术（9）缓存穿透
    63
  • 3
    提升Android应用性能的实用技巧
    61
  • 4
    工具变量法(两阶段最小二乘法2SLS)线性模型分析人均食品消费时间序列数据和回归诊断（下）
    70
  • 5
    软件体系结构 - 缓存技术（8）缓存雪崩
    65
  • 6
    软件体系结构 - 缓存技术（7）Redis持久化方法
    69
  • 7
    Python用KShape对时间序列进行聚类和肘方法确定最优聚类数k可视化
    64
  • 8
    软件体系结构 - 缓存技术（6）淘汰策略
    70
  • 9
    基于R语言股票市场收益的统计可视化分析
    83
  • 10
    软件体系结构 - 数据分片（2）一致性哈希分片
    74

    • 相关电子书

    更多
  • 15分钟打造你自己的小程序更新版
  • 低代码开发师（初级）实战教程
  • 阿里巴巴DevOps 最佳实践手册
    • 下一篇
    部署LAMP环境（Alibaba Cloud Linux 3）