[Delphi]木马文件传输代码

最新推荐文章于 2021-08-06 09:02:29 发布
最新推荐文章于 2021-08-06 09:02:29 发布 · 89 阅读 · 0
文章标签：

#Delphi #Socket #Windows #.net

本文介绍了一个使用 WinSock 的应用程序实例，该程序包括客户端和服务端两部分，能够实现文件的双向传输。服务端负责监听并接收来自客户端的文件，而客户端则用于选择本地文件并发送到指定的服务端。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

服务器端:

unitServerFrm;

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;
procedureFormCreate(Sender:TObject);
procedurebtnExitClick(Sender:TObject);
procedureFormClose(Sender:TObject;varAction:TCloseAction);
procedurebtnListenClick(Sender:TObject);
procedurebtnReceiveClick(Sender:TObject);
procedurebtnStopClick(Sender:TObject);
private
...{Privatedeclarations}
public
...{Publicdeclarations}
StopTrans:Boolean;//是否停止传送开关
InTrans:Boolean;//表示正在接收文件
Server:TSocket;//定义服务器端的socket句柄
//自定义过程接收文件
procedureRecvFile(FileName:String);
end;

var
frmMain:TfrmMain;

const
BlockLen=1024*4;

implementation

...{$R*.dfm}

proceduretfrmmain.RecvFile(FileName:String);
var
Ftrans:fileofByte;
Recelen:Integer;
Blockbuf:array[0..BlockLen-1]ofByte;
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(notStopTrans)do
begin
BlockWrite(Ftrans,Blockbuf[0],BlockLen);
application.ProcessMessages;
recelen:=recv(recvsocket,Blockbuf,Blocklen,0);
ifstoptransthen
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;

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


end;

procedureTfrmMain.btnExitClick(Sender:TObject);
begin
Close;
end;

procedureTfrmMain.FormClose(Sender:TObject;varAction:TCloseAction);
begin
ifInTransthen
ifMessageBox(handle,'正在接收文件,停止吗？','提示',MB_YESNO)=IDNOthen
abort;

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

end;

procedureTfrmMain.btnListenClick(Sender:TObject);
var
ca:SOCKADDR_IN;
begin
//创建服务器端SOCKET
Server:=Socket(PF_INET,SOCK_STREAM,IPPROTO_IP);
IFserver=invalid_socketthen
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;
ifbind(server,ca,sizeof(ca))=socket_errorthen
begin
stabar.SimpleText:='绑定socket错误,请更改接收端口';
closeSocket(server);
exit;
end
else
stabar.SimpleText:='绑定接收端socket成功!';

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

end;

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

end;

procedureTfrmMain.btnStopClick(Sender:TObject);
begin
STOPTRANS:=TRUE;
IFSERVER<>INVALID_SOCKETTHENcLOSESOCKET(SERVER);
//此处需要说明
server:=INVALID_SOCKET;
bTNSTOP.Enabled:=fALSE;
BTNlISTEN.Enabled:=TRUE;
end;

end.

客户端:

unitClientFrm;

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;
procedureFormCreate(Sender:TObject);
procedurebtnExitClick(Sender:TObject);
procedureFormClose(Sender:TObject;varAction:TCloseAction);
procedurebtnConnectClick(Sender:TObject);
procedurebtnSendClick(Sender:TObject);
procedurebtnStopClick(Sender:TObject);
private
...{Privatedeclarations}
Client:TSocket;
public
...{Publicdeclarations}
StopTrans:Boolean;//是否停止发送的开发
InTrans:Boolean;//表示是否正在传送文件
procedureTransFile(FileName:String);//传递文件的过程
end;

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

var
frmMain:TfrmMain;

implementation

...{$R*.dfm}

procedureTfrmMain.TransFile(FileName:String);//传递文件的过程
var
Ftrans:fileofByte;
Flen:integer;
BlockNum,RemainLen:integer;
BlockBuf:array[0..BlockLen-1]ofByte;
i:integer;
SendLen:Integer;
begin
assignFile(Ftrans,filename);
reset(Ftrans);
Flen:=FileSize(Ftrans);
BlockNum:=FlendivBlockLen;
progressBar.Max:=1+BlockNum;
RemainLen:=FlenmodBlockLen;
StopTrans:=False;
InTrans:=True;
SendLen:=1;
fori:=0toBlockNum-1do
begin
if(StopTrans)or(SendLen<=0)thenBreak;
BlockRead(Ftrans,Blockbuf[0],BlockLen);
SendLen:=Send(Client,Blockbuf,BlockLen,0);
ProgressBar.Position:=i;
Application.processMessages;
end;
ifStopTransthen
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;
ifremainLen>0then
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;


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


end;

procedureTfrmMain.btnExitClick(Sender:TObject);
begin
Close;
end;

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

procedureTfrmMain.btnConnectClick(Sender:TObject);
var
ca:SOCKADDR_IN;
hostaddr:u_long;
begin
Client:=Socket(PF_INET,SOCK_STREAM,IPPROTO_IP);
IFCLIENT=INVALID_SOCKETTHEN
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;
//连接服务器
iteye_3224
关注
Delphi10.2 TCP发送文件Demo
12-09
采用Delphi的indy10编写 实现TCPclient发送文件到服务端 适合初学者学习
Delphi ServerSocket,ClientSocket示例
热门推荐
genispan的专栏
10-23 1万+
Delphi ServerSocket,ClientSocket示例2008-05-09 16:20Delphi TServerSocket,TClientSocket实现传送文件代码1.建立两个工程Server及Client，分别放TServerSocket及TClientSocket控件,Demo,Edit控件等。2.设置TServerSocket na
Delphi实例分析：远程传输数据和文件
weixin_33747129的博客
01-08 654
在Windows操作系统的平台上，WinSock是首选的网络编程接口，用于在网络上传输数据和交换信息，它构成了Windows操作系统进行网络编程的基础。对于编写网络应用程序来说，WinSock是一门非常重要的并且必须掌握的知识，虽然现在有很多的工具如FTP程序可以在网络上传输数据和文件,但是通过WinSock编程具有更大的灵活性,因为它不需要关心网络连接的细节问题。然而用WinSock编程却相当复...
delphi文件传送
beyondqd的专栏
11-07 848
客户端： unit   Unit1; interface uses   Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,   ScktComp,   StdCtrls,   ComCtrls,   GradProgress,   Menus;
Delphi P2P文件发送实例.rar
07-10
Delphi P2P文件发送实例，点对点传输文件，类似QQ聊天中的文件发送功能，模块代码，并不包括太多功能。初学INDY控件时写的，编译时需要引入RzTray.dcu文件。
使用Delphi打造木马
07-17
示例代码展示了如何在 Delphi 中实现基本的文件传输功能： - **WinSock 动态链接库的启动与释放**：通过 `WSAStartup` 和 `WSACleanup` 函数处理。 - **文件传输过程**：通过 `Send` 函数将文件数据分块发送给...
Delphi版miniRAT源代码修复与改进
综合上述信息，我们可以得出该文件是一个用Delphi语言编写的简易版远程访问木马（miniRAT）的源代码，此源代码可能已经过修正和改进，并以RAR格式压缩打包，文件来源于codefans.net网站。需要注意的是，尽管我们可以...
Delphi键盘全记录密码盗取发送程序源代码.rar
01-16
RAR是一种常见的文件压缩格式，通常用来打包多个文件或目录，便于存储和传输。 标签"Delphi键盘全记录密码盗取发送程序源代码.rar"再次确认了文件的主要内容，即与Delphi相关的、涉及密码盗取和记录的源代码。 ...
DELPHI葵花宝典7：深入TCP/IP、QQ协议与安全资料集
- QQ协议知识包括其登录、消息传输、文件传输、好友管理等各个环节的具体实现机制。 - 由于QQ协议的私密性，通常开发第三方QQ协议客户端需要进行逆向工程分析，这对于程序员的逆向工程技能是一大挑战。 3. **木马...
Delphi远程控制源码深入分析
根据提供的文件信息，本篇将详细说明与标题“远控代码Delphi”相关的知识点。 ### Delphi编程语言 Delphi是一种由Embarcadero Technologies开发的集成开发环境(IDE)，最初由Borland公司于1995年发布。Delphi使用...
Delphi点对点发送文件示例..rar
04-22
Delphi点对点发送文件示例..rar``
delphi 发文件到服务器,delphi 文件传输的代码
weixin_39934296的博客
08-06 919
unit U_Server;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent, IdTCPServer, Math;typeTfrm_Server = clas...
（死去活来）Delphi IdTCPClient IdTCPServer 点对点传送文件
的专栏
12-31 5553
Delphi     IdTCPClient 点对点传送文件 客户端向另一个客户端传送文件，不通过服务端中转 那一个很重要的点是，这个客户端也要放一个IdTCPServer，也就是说这个客户端既是客户端，当接收文件的时候也是服务端，必须相应其它客户 端对它的连接，这个时候客户端相当与服务端，好了，明白这个道理就好办了 A客户端（放一个IdTCPClient控件，发送
Delphi的Indy通信中发送流文件的注意事项
婷婷小屋
05-27 869
　客户端发送流到服务器端有几种方式，这里讨论两种：　　1.客户端连接到服务器后，发送一个流，服务器接收一个流。{*------------------------------------------------------------------------------　 客户端发送流,假定已经建立连接--------------------------------------------
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值