PDA

Visualizza versione completa : Password per cartelle


RobyBlues
19-04-2004, 10.20.08
Salve a tutti!
Io possiedo windows98se e ho un problema:
ho visto che ci sono molti programmi che permettono di proteggere un file con una password (es. word office), ma esiste la maniera di mettere un password per l'accesso di una cartella intera???
IO non intendo nasconderal la cartella (esempio e programmi del tipo Hide Folders) ma solo impedirne l'accesso.
Grazie.

P8257 WebMaster
21-04-2004, 09.33.06
In questo momento non mi vengono in mente nomi di software in grado di associare un accesso con dati sensibili ad una cartella, ma esistono comunque ..

Ciò che volevo dirti è che nel file system utilizzato (e nell'architettura) dal sistema che possiedi è impossibile impedire un accesso alle cartelle e alle risorse del disco. Solo il file system NTFS è in grado di essere configurato per un accesso "selettivo" ai dati.

Bye :cool:

cippico
22-04-2004, 07.54.43
...lo avevo provato e funzionava benissimo...non mi serve...pero´ l´ho tenuto...non si sa mai...facci sapere se ti soddisfa...leggi bene le istruzioni...sembra complicato ma non lo e´ affatto...

Nascondere cartella con file .VBS :

Pfad = Inputbox("c:/cartella")

If Pfad = "" Then
Wscript.Quit
End if

Set fso = CreateObject("Scripting.FileSystemObject")

'Verifica se il percorso esiste

if fso.folderexists(Pfad) Then

'Concatena il nome inserito con la chiave

VerPfad = Pfad & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"

'Verifica se esiste una cartella crittografata

ElseIf fso.folderexists(Pfad&".{21EC2020-3AEA-1069-A2DD-08002B30309D}") Then

'Esiste, chiedi password

Pass = Inputbox("Introdurre password :")

'Verifica se la password e' "pippo".
'Inserite qualuqnue valore al posto di pippo fra gli apici

If Pass <> "pippo" Then
MsgBox("Password errata!")
Wscript.Quit
End if
VerPfad = Pfad

'Concatena il nome inserito con la chiave

Pfad = Pfad & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
Else

'La cartella non esiste, uscita

MsgBox("La cartella non esiste !")
Wscript.Quit
end if

'Crittografazione cartella
'Sintassi " Movefolder " : objet.movefolder von_Pfad nach_Pfad.

fso.Movefolder Pfad, VerPfad


info varie


a questo punto il file va salvato come nomefile.vbs
facendo doppio click su questo file si apre una finestra che chiede
il percorso della cartella da nascondere
una volta criptata la cartella windows ( qualsiasi versione ) la
riconoscerà come un collegamento al pannello di controllo quindi
se si cerca di aprirla verrà visualizzato il pannello di controll.
per far tornare in chiaro la cartella basta rilanciare il file
indicare il percorso della carella ed inserire la password
(potete cambiarla sostituendo pippo con quello che volete ) che
lasciando così il codice è pippo
Osservazione :
se la cartella che si vuole criptare è sempre la stessa e non
si vuol perdere tempo a scrivere ogni volta il percorso è possibile
inserirlo nella prima riga di comando Pfad="percorso" invece
di Pfad=Inputbox

Cose da NON fare con questo script :
nascondere le cartelle del sistema operativo
( windows desktop programmi ecc... )
mettere lo script nella cartella che si intende nascondere

non è mai successo niente ma se ce ne fosse il bisogno
è possibile far tornare in chiaro la cartella da dos rinominandola
la cartella apparirà come nomecartella.{21E (la parentesi graffa
in ASCII è alt+123 se per caso il nome della cartella è più
lungo di 8 caratteri sarà necessario introdurre il simbolo
tilde ~ ( con la combinazione alt+126 ) col comando :
ren nomecartella.{21E nomecartella .

ciaooo