Leggere il testo tramite script vbs
Avete mai pensato ad un metodo sicuro per salvaguardare i file da occhi indiscreti? Se la risposta è SI, l’argomento di oggi fa al caso NOSTRO!
Eccovi due script vbs che servono a rendere illeggibili i file di testo.
Il primo script (CODIFICA) serve a criptare il file che verrà salvato in “D: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 “D:Decodificato”.
Quindi per accedere ai files basta andare in Risorse del computer e poi in Disco locale D (Start – Risorse del computer – Disco locale “D”)
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 [Versione x.x.xxx]
(C) Copyright xxxx-xxxx Mxxxxxxxx C.
D:Esempio.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 SettingsxDesktopEsempio.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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
set fs = CreateObject("Scripting.FileSystemObject") name = InputBox("Quale file vuoi codificare? (inserisci la directory, es.: D:File.txt)") if not fs.FileExists(name) then MsgBox name & " Operazione ANNULLATA!" 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 grado di cifratura da 1 a 500",,"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("D:Codificato.txt", true) do until readIt.atEndOfStream writeIt.write Encrypt(readIt.Read(1)) loop readIt.close writeIt.close MsgBox "Si trova in D: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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
set fs = CreateObject("Scripting.FileSystemObject") name = InputBox("Inserisci la directory del file da decrittare, es.: D:Codificato.txt") if not fs.FileExists(name) then MsgBox name & " Operazione annullata o file inesistente!" 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("D:Decodificato.txt", true) do until readIt.atEndOfStream writeIt.write Decrypt(readIt.Read(1)) loop readIt.close writeIt.close MsgBox "Il file si trova in D: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 |
Facciamo il punto della situazione…..
Tutta questa roba scritta sopra serve per scambiare file tramite msn per esempio 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 incomprensibili “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!
Articoli Correlati
