Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сетевые папки


ATLANTIDO ©   (2002-05-19 13:35:00) 

Админю сеть в комп. клубе. Ресурс с фильмами расшарен только чтение, а на остальное мы используем пароль.
Надо написать утилиту для работы с фильмами (обновление, удаление старых). Вот пример кода:

if RenameFile("\\f\U-571.avi","\\f\old_U-571.avi") then
showmessage("ok")
else
showmessage("no")

Понятно, что выводится сообщение "no".
Где указать пароль для полного доступа ?


ATLANTIDO   (2002-06-08 00:50:00) [1]

А если сеть мониторить, что там входит и выходит ?


cypher   (2002-06-08 00:25:00) [2]

Конечно есть! кто-то ее написал... но вот только где их взять?!


ATLANTIDO   (2002-06-07 23:40:00) [3]

А исходники есть к проге ?


cypher   (2002-06-07 01:07:00) [4]

Сам программу подбора паролей я не писал, но вот есть программа, LAN guard network scaner (www.gfi.com) вот она-то доставила мне массу приятных моментов =)))
Она не изпользует обычный перебор, че-то хитрое делает, но пароль показывает моментально (да и вообще очень грамотная прога, столько всего умеет, а как- не понятно). Перебором он ломает (даже не перебором а со словарем) пароли к NT


ATLANTIDO   (2002-06-06 23:28:00) [5]


> cypher © (20.05.02 00:55)
> Подключи сетвой диск, а потом ренэйм там... имхо - менее
> болезненный вариант... а вообще, пароль на 9x к расшареным
> ресурсам подбирается за 3 секунды (программ таких море)

Это конечно интересно, и я уже разобрался. Добавляю сетевой диск, а дальше как с обычными файлами работаю. По поводу подбора пароля не понял ? Прочитал Ваше сообщение, попробовал методом "брутфорс", т.е. перебераю все возможные пароли по буковкам и ... много времени занимает этот перебор. Может мат. модель другую использовать ?
Делаю так:

var i : array [1..6] of integer;
for i[1]:=33 to 127 do
for i[2]:=33 to 127 do
for i[3]:=33 to 127 do
for i[4]:=33 to 127 do
for i[5]:=33 to 127 do
for i[6]:=33 to 127 do
connect(chr(i[1])+chr(i[2])+chr(i[3])+chr(i[4])+chr(i[5])+chr(i[6])+);

connect - процедура добавления сет. диска.
удачной попытки так и не дождался :(
P.S.: я на ресурс, который добавляю, поставил шестизначный пароль.


cypher   (2002-05-20 00:55:00) [6]

Подключи сетвой диск, а потом ренэйм там... имхо - менее болезненный вариант... а вообще, пароль на 9x к расшареным ресурсам подбирается за 3 секунды (программ таких море)


ATLANTIDO   (2002-05-19 13:44:00) [7]

может компонент есть для єтого ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо