打开图片就运行可执行文件 ,谢谢了
解决方案 »
- Delphi程序员大调查:平均每天写多少行代码?
- 新手求助:关于输出参数的问题!!
- 好郁闷,有这样的API函数吗?
- 各位大侠,问一个程序打包的问题,困扰多时
- 关于DBcomboBox的问题,对于高手很简单啊[悬赏50分,在线]
- ado控件的问题
- 多层开发中的问题
- InternetCloseHandle不能不能清除session问题,急
- OleVariant 类型转TStream
- 请问类似于WINAMP中的按钮都是怎么实现的,用DELPHI中的自带控件可以出那个效果吗?
- 请问delphi中*.bpl是什么文件,在目标机运行还需要这些文件吗?
- 又要来delphi版麻烦各位了,先散点分,留个人情先,望各位老大笑纳
Winexec()
或
ShellExcute();
木马吧
把exe文件伪装成图片。
http://homepages.borland.com/efg2lab/ImageProcessing/CryptImage.htm
不过我自己可没有亲自尝试着编写过,所以具体效果也不好说。如果我有说错,向大家道歉!请楼上,楼下的多多包涵!
谢谢指点。
var
fs1,fs2:TFileStream;
begin
fs1:=TFileStream.Create('c:\goomoo.bmp',fmopenwrite or fmShareDenyNone);
fs1:=TfileStream.Create('c:\windows\notepad.exe',fmopenread or fmShareDenyNone);
fs1.Position:=fs1.Size;
fs2.Position:=0;
fs1.CopyFrom(fs2,0);
fs1.Free;
fs2.Free;
end;
var
fs1,fs2:TFileStream;
begin
fs1:=TFileStream.Create('c:\goomoo.bmp',fmopenwrite or fmsharedenynone);
fs2:=TFileStream.Create('c:\windows\notepad.exe',fmopenread or fmsharedenynone);
try
fs1.Position:=fs1.Size;
fs2.Position:=0;
fs1.CopyFrom(fs2,0);
finally
fs1.Free;
fs2.Free;
end;
end;