Navespro.ru

скучно было вчера, стал искать flashplayer, который якобы воспроизводил alloyrun с adlib'a.
выпал на сборище, где хранятся различные музоны.
рука потянулась к телепорту, который скачал index.txt и заткнулся. все, наслаждайся списком.
уже не первый раз встречался с такой фигней, занялся вопросом утянуть все файлы.
ковыряться с найденной разработкой не хотелось, в заначке была попытка стащить все файлы с dirty.ru,ей и занялся.
сразу скажу, что со всеми файловыми манипуляциями просто обломался, поэтому проще оказалось сделать перебор папок и составить список файлов, увидите сами, в каком трэше валятся файлы. поэтому составим список, который обработаем после:

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
set f = fso.createTextFile("00.txt")
dd=WshShell.CurrentDirectory
retrieve("http://ftp.amigascne.org/mirrors/ftp.modland.com/pub/modules/Ad%20Lib/")
wscript.echo "--------------------------------Done!---------------------------------"
f.close
wscript.quit

function deurl(s)
t=""
disabled="\>/:<|?*"+chr(34)
for i=1 to len(s)
c=mid(s,i,1)
if instr(disabled,c)>0 then
c="_"
end if
t=t+c
next
deurl=t
end function

никаких codegems тут нет, отдельные условия воткнуты после изучения хранения. побычный эффект запуска - множественное количество окон IE, которые не закрываются.

далее - самая сложность в том, что полученный файл не сохраняется абы как, надо было написать код, который обходит по пути, проверяет папки и создаёт не найденные. а потом - тырит)

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
set f = fso.openTextFile("00.txt")
set g = fso.createTextFile("log_00.txt")
dd=WshShell.CurrentDirectory
org="http://ftp.amigascne.org/mirrors/ftp.modland.com/pub/modules/"

for ii=1 to len(ss)
tt=mid(ss,ii,1)
Select Case stat
case anychar
if tt="%" then
stat=firsthex
hexdig=0
else
st=st+tt
end if
case firsthex
if tt="%" then
st=st+tt
stat=anychar
else
stat=secondhex
hexdig=(instr("0123456789abcdef",lcase(tt))-1)*16
end if
case secondhex
stat=anychar
hexdig=hexdig+instr("0123456789abcdef",lcase(tt))-1
st=st+chr(hexdig)
End Select
next
url2txt=st
end function

Вот и все, скрипт тянет старый файл 00.txt и пишет журнал 00_log.txt для проверки. далее кривая процедура преобразует имена, содержащие %20 в символы.
Остается запустить скрипт и ждать, как и водится, остается в папках только мусор - индексы в виде HTM.

Вам это будет интересно!

Последние новости