Hello world
Собсно не подскажите как можно заблокировать доступ к папке? Т.е. при попытке открытия/переименования или еще чего вывести например MessageBox.

| Сообщение посчитали полезным:

Используй Hide Folders XP 2, там можно и заблокировать и спрятать папку или файлы.

-----
Лень - это подсознательная мудрость

| Сообщение посчитали полезным:

А вообще подобного стаффа море- ищи в гугле.

-----
Лень - это подсознательная мудрость

| Сообщение посчитали полезным:

depler пишет:
Используй Hide Folders XP 2

Амиго. Я же не зря топик создавал в ветке программинга.

| Сообщение посчитали полезным:

дровину писать надо...

| Сообщение посчитали полезным:

А сплайсинг уже не рулит?

| Сообщение посчитали полезным:

Vitek
ну тада че те сказать? Пусть земля те будет пухом...

Если серьезно, то на уровне 3го кольца спрятать не сложно, надо перехватить ф-ю, вот тока не помню как называется.
Прицип, такой же как и в случае спрятать свой процесс перехватом ZwQuerySystemInformation

-----
Лень - это подсознательная мудрость

| Сообщение посчитали полезным:

Вспомнил:
ZwQueryDirectoryFile
Вызывается из ntdll.dll

-----
Лень - это подсознательная мудрость

| Сообщение посчитали полезным:

depler пишет:
ZwQueryDirectoryFile
Вызывается из ntdll.dll

Vitek почитай здесь http://www.wasm.ru/article.php?article=apihook_1 http://www.wasm.ru/article.php?article=apihook_1
P.S. смотри раздел ''Практическое применение''

-----
Что один человек сделал , другой всегда сломать может...

| Сообщение посчитали полезным:

Azur1d пишет:
А сплайсинг уже не рулит?
ога, а йа через ринг 0 файл прочитаю...

| Сообщение посчитали полезным:

sniperZ пишет:
ога, а йа через ринг 0 файл прочитаю...
ну это немногие могут. в 95% случаев сплайсинг поможет

| Сообщение посчитали полезным:

sniperZ
прочитаешь, даш сырец. а ещё запустишь на таче без одминских прав =)

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным:

I want to ask same question how to lock folder on CD using Delphi?

| Сообщение посчитали полезным:

CD-Lock secures your removable media by scrambling the filenames and encrypting all the files with Blowfish. Yet, just enter the password when the CD is inserted into any computer running Win2000 or XP and you can instantly use the files as you always have¹ - without the need to decrypt them first.
Take look at this.
www.cd-lock.com/

| Сообщение посчитали полезным:

bayan
what do you need - hide data, or hide file? if data - you must crypt data, then on fly decrypt this.

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным:

You found what I need exactly but how to do this ? on fly decrypt!!!!! using delphi

| Сообщение посчитали полезным:

For Vitek
File Folder Access Control DLL
FOBS based device driver designed primarily to hide or deny access to files, folders and registry keys on the Microsoft Windows family of operating systems (Windows NT-based systems, including Windows 2000 and Windows XP). It provides the ability to completely hide the presence of an application and discourage tampering. Allows you to create applications with desktop, CD or DVD piracy lock. All you require to do is write a program to start and stop the driver, a ready silent installer.
www.research-lab.com/filedevicedrivers.htm

| Сообщение посчитали полезным:

Azur1d пишет:
ну это немногие могут. в 95% случаев сплайсинг поможет
Гы-Гы. Берем какую-нибудь готовую тулзу типа RkUnhooker и сносим твои хуки к чертовой матери, пусть они хоть в р3 хоть в р0 стоят. После чего спокойно читаем твои файлы...

-----
PGP key <0x1B6A24550F33E44A>

| Сообщение посчитали полезным:

уж лучше комбинировать шифрование и руткит технологии. т.е. контролировать доступ к зашифрованным файлам, находящимся на криптодиске. расшифровку производить только после проверки прав доступа(дополнительный логин/пароль). например,можно написать свою прогу на базе сорцов трукрипта.
так надежнее будет. в этом случае(при грамотной реализации), снятие хуков ничего не даст.

-----
– Почему ты работаешь по ночам ? – Так удобнее... В одну смену с чертями...

| Сообщение посчитали полезным:

ntldr, слышал про такое понятие как целесообразность?
От профессионала ничего не спасет, а от ламера поможет самая простая защита.

| Сообщение посчитали полезным:

abatu
read articles about hooking apis from ring 3. write dll, that hook ZwCreateFile, ZwReadFile, etc. I have started writing my own tool mnth ago. but at current moment i haven't time. This tool will have many details. articles about hooks on english i've seen at http://codeproject.com http://codeproject.com

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным:

А описание ZwQueryDirectoryFile на русском никто не видел ?

| Сообщение посчитали полезным:

нет, но там параметров в ф-и будь здоров!
Читай помощь Microsoft

-----
Лень - это подсознательная мудрость

| Сообщение посчитали полезным:

ну чтож. пойду прикурю словариком MSDN

| Сообщение посчитали полезным:

Иди лучше на руткит.ком, слей хакер дефендер (он с исходниками) и кампелируй. Там как раз есть возможность скрывать файлы и как раз хукается эта функция.

-----
Security through obscurity is just an illusion

| Сообщение посчитали полезным:

i hope this code will help you somehow, it will hid the folder :
uses
ComObj;


procedure TForm1.Button1Click(Sender: TObject);
var
V:Variant;
F:Variant;
FolderPath: String;
begin
// Replace FolderPath with your folder's path
FolderPath := 'C:\Documents and Settings\Owner\Desktop\test folder';
case Button1.Tag of
0:
begin
V := CreateOleObject('Scripting.FileSystemObject');
F := V.GetFolder(FolderPath);
// -1 Makes it completly hidden from windoes explorer(works for me on xp)
F.Attributes := -1;
Button1.Tag := 1;
end;
1:
begin
V := CreateOleObject('Scripting.FileSystemObject');
F := V.GetFolder(FolderPath);
// This returns the folder to normal in windows explorer
F.Attributes := 0;
Button1.Tag := 0;
end;
end;
end;

| Сообщение посчитали полезным:

2 abatu explorer can see folders like this one, just config him to show hidden&system files&folders

| Сообщение посчитали полезным:

гы спрятал называется папку. так можно просто правой кнопкой щелкнуть и поставить атрибут скрытый

-----
Лень - это подсознательная мудрость

| Сообщение посчитали полезным:

Try this one i think it's what you need.
File and Folder security demo in Delphi
www.ciuly.com/delphi/win32api/security/folderGuardService/index.html

| Сообщение посчитали полезным:

abatu пишет:
V := CreateOleObject('Scripting.FileSystemObject');

Что за CreateOleObject ???

-----
Что один человек сделал , другой всегда сломать может...

| Сообщение посчитали полезным: