木马文件传输代码大全介绍
服务器端:
unitServerFrm;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,StdCtrls,ExtCtrls,WinSock;typeTfrmMain=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;varfrmMain:TfrmMain;constBlockLen=1024*4;implementation{$R*.dfm}proceduretfrmmain.RecvFile(FileName:String);varFtrans:fileofByte;Recelen:Integer;Blockbuf:array[0..BlockLen-1]ofByte;RecvSocket:TSocket;ra:Sockaddr_in;ra_len:integer;beginra_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)dobeginBlockWrite(Ftrans,Blockbuf[0],BlockLen);application.ProcessMessages;recelen:=recv(recvsocket,Blockbuf,Blocklen,0);ifstoptransthenbeginCloseFile(Ftrans);CloseSocket(RecvSocket);InTrans:=False;MessageBox(Handle,'停止传输!','提示',MB_OK);EXIT;END;END;//关闭文件,接收的SOCKETCloseFile(Ftrans);Closesocket(recvsocket);InTrans:=False;if(Recelen=SOCKET_ERROR)thenmessagebox(handle,'传输异常终止!','提示',MB_OK)ELSEMESSAGEBOX(HANDLE,'客户端已经关闭连接1,文件可能已经传送完毕了!','提示',MB_OK);end;procedureTfrmMain.FormCreate(Sender:TObject);varaWSAData:TWSAData;beginifWSAStartup($0101,aWSAData)<>0thenraiseException.Create('不能启动WinSock动态链接库');messageBox(Handle,aWSAdata.szDescription,'WinSock动态链接库版本',mb_ok);end;procedureTfrmMain.btnExitClick(Sender:TObject);beginClose;end;procedureTfrmMain.FormClose(Sender:TObject;varAction:TCloseAction);beginifInTransthenifMessageBox(handle,'正在接收文件,停止吗？','提示',MB_YESNO)=IDNOthenabort;IFSERVER<>INVALID_SOCKETTHENCLOSESOCKET(SERVER);//释放winsock动态链接库所创建的资源ifWSACleanup<>0thenmessagebox(handle,'清除Winsock动态链接库错误！','提示',MB_OK)ELSEmessagebox(handle,'清除Winsock动态链接库成功！','提示',MB_OK);end;procedureTfrmMain.btnListenClick(Sender:TObject);varca:SOCKADDR_IN;begin//创建服务器端SOCKETServer:=Socket(PF_INET,SOCK_STREAM,IPPROTO_IP);IFserver=invalid_socketthenbeginstabar.SimpleText:='创建接收SOCKET错误1';exit;end;//绑定服务器端SOCKETca.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_errorthenbeginstabar.SimpleText:='绑定socket错误,请更改接收端口';closeSocket(server);exit;endelsestabar.SimpleText:='绑定接收端socket成功!';//开始监听listen(server,5);btnlisten.Enabled:=False;btnstop.Enabled:=true;end;procedureTfrmMain.btnReceiveClick(Sender:TObject);beginif(server=INVALID_SOCKET)THENBEGINMESSAGEBOX(HANDLE,'还没有进行监听,请先进行监听!','提示',MB_OK);EXIT;END;IFSaveDialog.ExecuteTHENRECVFILE(SaveDialog.FileName);end;procedureTfrmMain.btnStopClick(Sender:TObject);beginSTOPTRANS:=TRUE;IFSERVER<>INVALID_SOCKETTHENcLOSESOCKET(SERVER);//此处需要说明server:=INVALID_SOCKET;bTNSTOP.Enabled:=fALSE;BTNlISTEN.Enabled:=TRUE;end;end.本文地址：http://www.45fan.com/dnjc/67260.html