COME 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.
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
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
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!
