CRIPTARE FILES TRAMITE VBS

Ti presento un metodo per criptare e decodificare files di testo.
Il primo script (CODIFICA) serve a criptare il file che verrà salvato in “D:\Codificato” dove ti 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 (DECODIFICA) è l’esatto opposto del primo, quindi serve a decriptare il file richiedendoti 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 / Disco locale D
(Start – Risorse del computer – Disco locale “D”)
Da premettere che quando si aprono gli script ti verrà richiesta la directory (percorso di destinazione) del file, quindi a questo punto ricorriamo al DOS.
Apri il Prompt dei comandi (Start – Tutti i programmi – Accessori – Prompt dei comandi) ora trascina il file che ti 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ò devi premere il tasto destro del mouse poi click su seleziona tutto e di nuovo click tasto destro e poi copia (ctrl+c), a questo punto apri il blocco note ed incollia (Ctrl+v) e ti appare la directory (vedi esempio sopra).
Una volta aperto lo script devi solo copiare la directory del file (senza le virgolette “”) es.:
C:Documents and SettingsxDesktopEsempio.txt
Successivamente apri il secondo script “Decodifica” ed inserisci la nuova directory del file criptato che stavolta si trova in C:\Codificato.txt (per opera del primo script, quindi bisogna inserire…. C:\Codificato.txt (premi ok)
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 |
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!