Crypto

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 succesivamente 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 x.x.xxxx]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Documents and Settings\x>"C:\Documents and Settings\x\Desktop\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 Settings\x\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 e leggerà 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 (testo), per cui al momento del decrittaggio basta cambiare l'estensione al file decrittato e tutto tornerà come prima! ;-)
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento