Avete mai pensato ad un metodo sicuro per salvaguardare i file da occhi indiscreti? ahahahah….. ok, questa parte la tralasciamo….
Eccovi due script vbs che servono a rendere illegibili i file di testo.
Il primo script (CODIFICA) serve a criptare il file che verrà salvato in “C:\Codificato” dove vi verrà chiesta una chiave numerica di cifratura e successivamente il livello di cifratura che in default è impostato a 500 ma che si può cambiare a piacere con un valore compreso tra 1 e 500!
Il secondo script è l’esatto opposto del primo, quindi serve a decriptare il file richiedendovi la passkey e il livello di criptaggio e se tutto coincide col file criptato automaticamente il file verrà decrittato e salvato in “C:\Decodificato“.
Quindi per accedere ai files basta andare in Risorse del computer e poi in Disco locale C (Start – Risorse del computer – Disco locale “C”)
Da premettere che quando si aprono gli script vi verrà richiesta la directory (percorso di destinazione) del file, quindi a questo punto ricorriamo al DOS.
Dobbiamo aprire il Prompt dei comandi (Start – Tutti i programmi – Accessori – Prompt dei comandi) ora trasciniamo il file che ci interessa criptare all’interno del prompt (la schermata nera) così si vede la directory… faccio un esempio:
Microsoft Windows XP [Versione 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:Documents and Settingsx>”C:Documents and SettingsxDesktopEsempio.txt”
Una volta fatto ciò dobbiamo premere il tasto destro del mouse poi click su seleziona tutto e di nuovo premiamo il destro e poi si deve copiare (ctrl+c), a questo punto apriamo il blocco note ed incolliamo (Ctrl+v) e ci appare la directory (vedi esempio sopra).
Una volta aperto lo script dobbiamo solo copiare la directory del file (senza le virgolette “”) es.:
C:\Documents and Settings\nomeutente\Desktop\Esempio.txt
Successivamente apriamo il secondo script “Decodifica” ed inseriamo la nuova directory del file criptato che stavolta è in C:\Codificato.txt (per opera del primo script, quindi bisogna inserire…. C:\Codificato.txt e premere ok)!
Eccovi gli script.vbs

CODIFICA

set fs = CreateObject(“Scripting.FileSystemObject”)
name = InputBox(“Quale file vuoi codificare? (inserisci la directory)”)
if not fs.FileExists(name) then
MsgBox name & ” Non hai fatto niente!”
WScript.Quit
end if
key = InputBox(“Dita la chiave di cifratura”,,”12345″)
if not isNumeric(key) then
MsgBox “La chiave deve essere in formato numerico”
WScript.Quit
end if
key = Fix(key)
sec = InputBox(“Stabilisci il grado di cifratura”,,”500″)
if not isNumeric(sec) then
MsgBox “Deve essere un numero!”
WScript.Quit
end if
sec = Abs(Fix(sec))
rnd -1
randomize key
set readIt = fs.OpenTextFile(name, 1,,-2)
set writeIt = fs.CreateTextFile(“C:Codificato.txt”, true)
do until readIt.atEndOfStream
writeIt.write Encrypt(readIt.Read(1))
loop
readIt.close
writeIt.close
MsgBox “Si trova in C:Codificato.TXT” & vbCr & _
“La tua chiave è “”” & key & “””, il livello di codifica è “”” & sec & “”””
function Encrypt(char)
code = asc(char)
randomnr = Fix(rnd*sec)+1
code = code + randomnr
do while code>255
code=code-256
loop
Encrypt = Chr(code)
end function

DECODIFICA

set fs = CreateObject(“Scripting.FileSystemObject”)
name = InputBox(“Inserisci la directory del file da decrittare?”)
if not fs.FileExists(name) then
MsgBox name & ” Non esiste”
WScript.Quit
end if
key = InputBox(“Digita la chiave di cifratura!”,,”12345″)
if not isNumeric(key) then
MsgBox “La chiave deve essere in formato numerico!”
WScript.Quit
end if
key = Fix(key)
sec = InputBox(“Stabilisci il livello dicifratura!”,,”500″)
if not isNumeric(sec) then
MsgBox “Immetti un numero!”
WScript.Quit
end if
sec = Abs(Fix(sec))
rnd -1
randomize key
set readIt = fs.OpenTextFile(name, 1,,-2)
set writeIt = fs.CreateTextFile(“C:Decodificato.txt”, true)
do until readIt.atEndOfStream
writeIt.write Decrypt(readIt.Read(1))
loop
readIt.close
writeIt.close
MsgBox “Il file si trova in C:Decodificato.TXT”
function Decrypt(char)
code = asc(char)
randomnr = Fix(rnd*sec)+1
code = code – randomnr
do while code<0
code=code+256
loop
Decrypt = Chr(code)
end function
Bene…. tanto per chiarire tutto quanto…. tutta questa roba scritta sopra serve per scambiare file tramite msn ed essere sicuri che vengano letti solo dalla persona a noi interessata, la quale senza lo script Decodifica, la chiave e il livello di cifratura aprendo il file non capirà niente leggendo solo simboli “senza senso!”
Ovviamente si possono cifrare tutti i tipi di file, solo che al momento del salvataggio automatico da script gli viene data l’estensione .txt (file di testo), per cui al momento del decrittaggio basta cambiare l’estensione al file decrittato e tutto tornerà come prima! 😉