Crittografare cartella sotto vista con questo tools x Xp..

[Dj Huzi]

ciao.. io sto usando questo comodissimo file, il quale , inserendo una password mi rende la cartella protetta.. cliccandoci sopra mi reindirizza al pannello di controllo.. è di una comodità estrema :P

sapete se esiste qualcosa di simile x Vista? grazie!

ecco aprendo il file col blocco note cosa c'è scritto:

'Crittografazione cartella

Pfad = Inputbox("Inserire percorso cartella da

nascondere/visualizzare ?")

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-A2

DD-08002B30309D}") Then

'Esiste, chiedi password

Pass = Inputbox("Introdurre password :")

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

apici

If Pass <> "AZZ" 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

[Dj Huzi]

up

[Dj Huzi]

up

[Dj Huzi]

oppala..

[Dj Huzi]

bon nessuno ne sa qualcosa?