Board logo

标题: 关于之前在html文件提取地址的问题 [打印本页]

作者: crenel     时间: 2007-4-17 04:31    标题: 关于之前在html文件提取地址的问题
两天前曾在这里向各位请教的提取问题已经解决,在这里再次感谢帮助偶过的人~~
鞠躬~
(旧帖连接:菜鸟求教各高手关于html里提取地址的p处理..)

之后我改写了代码 主要是生成地址list文件上
用了 逐字对比 和 变量扩展 两种方法
想起刚接触批处理时候对变量扩展的迷茫 以还是决定上传上来 也让还不了解的人多一个实例或参考都好...

至于做这个批处理的初衷 是因为在下载OllyDbg的Script时 发现网站上的链接很多是不规则的字符(例如空格和"." ) 这就造成下载软件不能正确辨认文件的扩展名,那下载下来之后可想而知...加上想起逐个改名字就不爽...所以就写了这批处理....

本来打算修改成可带参数的批处理或者更人性化一点...(例如直接输入html地址 就自动下载html到本地或直接抽取下载地址 然后调用下载软件下载) 但苦于下个星期就要考试(再不看书我就死定了...5555) 所以只好搁置...(或者哪位高手可以写一下呢?呵呵~~)

另外 有谁能告诉我...windows2003下的Dos怎么浏览web啊...realtek的8139/8110网卡...又找不到驱动...下载了wget 就说 No Packet Driver Found...唉...

好鸟 废话不说...上菜鸟...这次顺便把提取出来的OllyDbg Script地址list一并上传,如果有需要的朋友可以下载. 顺便一提...OllyDbg真的是不错的调试程序...


(ps. 这次拿了看雪学院的网页做测试对象...特此声明下...另:想要下载OllyDbg的朋友 这里也顺便提供下载地址鸟. >>下载OllyDbg<<)

代码:
GetA.cmd 采用逐字对比 :
@echo off&setlocal enabledelayedexpansion
set dfhtml=index.html
set dffilety=txt
set website=http://www.pediy.com/tools/Debuggers/ollydbg/
type nul>list.txt

for /f "delims=" %%a in ('findstr "href=" %dfhtml%') do (
set "str=%%a"
set "str=!str:href=★!"
set "str=!str:*★=!
if "!str:~-3,3!" == "%dffilety%" (call :prt "!str:~2!")
)

@cls.
@echo. ┏━━━━━━━━━━━━━━━━━━━━━━━━┓
@echo. ┃ ┃
@echo. ┃ Work finished...!! ┃
@echo. ┃ please Wait.... ┃
@echo. ┃ ┃
@echo. ┃ The Files will show U In 5's... ┃
@echo. ┃ ┃
@echo. ┃ Thank U for Ur time~ ┃
@echo. ┃ BoodBye...! ┃
@echo. ┗━━━━━━━━━━━━━━━━━━━━━━━━┛
@echo.
@echo.
@echo.
@ping -n 5 127.1>nul &notepad list.txt

goto :eof

:prt
setlocal
set "chr=%~1★"
set "chr=!chr:"=!"
set outp=%website%
set/a n=0

:chck
set "tp=!chr:~%n%,1!" &&set/a n+=1

if == goto op

set tm=!tp!
if "!tp!" == " " set tm=^%%20
if "!tp!" == "&" set tm=^%%26
if "!tp!" == "'" set tm=^%%27

:nx
set outp=!outp!!tm!
goto chck
:op
>>list.txt echo %outp: =%
echo %outp: =%
endlocal
goto :eof



GetB.cmd 采用 变量扩展 过滤:
@echo off&setlocal enabledelayedexpansion
set dfhtml=index.html
set dffilety=txt
set website=http://www.pediy.com/tools/Debuggers/ollydbg/
type nul>list_b.txt

for /f "delims=" %%a in ('findstr "href=" %dfhtml%') do (
set "str=%%a"
set "str=!str:href=★!"
set "str=!str:*★=!
if "!str:~-3,3!"=="%dffilety%" (call :rpt "!str:~2!")
)
@cls.
@echo. ┏━━━━━━━━━━━━━━━━━━━━━━━━┓
@echo. ┃ ┃
@echo. ┃ Work finished...!! ┃
@echo. ┃ please Wait... ┃
@echo. ┃ ┃
@echo. ┃ The Files will show U In 5's... ┃
@echo. ┃ ┃
@echo. ┃ Thank U for Ur time~ ┃
@echo. ┃ BoodBye...! ┃
@echo. ┗━━━━━━━━━━━━━━━━━━━━━━━━┛
@echo.
@echo.
@echo.
@ping -n 5 127.1>nul &notepad list_b.txt

goto :eof

:rpt
setlocal
set "chr=%~1"
set "chr=!chr:"=!"
set "chr=!chr:^"=!
set "chr=!chr: =%%20!"
set "chr=!chr:&=%%26!"
set "chr=!chr:'=%%27!"
set "chr=!chr:|=%%7C!"

>>list_b.txt echo.%website%!chr!
echo.%website%!chr!
endlocal
goto :eof



附件:代码下载及OllyDbg Script的下载地址

Last edited by crenel on 2007-4-16 at 03:33 PM ]