Oppure

Loading
La Crittografia consente di rendere dati in chiaro, dati incomprensibili che devono essere decifrati. Inventarsi un metodo di crittografia Fai-Da-Te talvolta (sempre se l'algoritmo robusto) in grado quasi di non essere forzato. Spesso per gli algoritmi di crittografia si usa una chiave, che permette di criptare il messaggio. L'uso della chiave molto versatile, tranne se una chiave a pochi bit perch tramite tentativi vari si pu arrivare alla chiave. Faccio subito l'esempio che usa uno XOR per crittografare tra l'ASCII della lettera e la chiave:

CODICE:

Option Explicit
On Error Resume Next 'Se fa errore, non segnala

Dim a,b,title 'Variabili

title = "xOrCrYpT 0.2" 'titolo
a = InputBox("Lettera da criptare:",title) 'richiesta della lettera
b = InputBox("Chiave:",title) 'richiesta della chiave

MsgBox "Ecco la lettera criptata: " & encrypt(a,b),vbInformation,title
'visualizza la lettera criptata

Function encrypt(char,key)
'funzione di crittografia
    encrypt = Asc(CStr(char)) XOR CInt(key)
    'restituisce lo XOR fra il carattere e la chiave
End Function

Studiando l'algoritmo, si potrebbe arrivare a risultati migliori, aumentando la robustezza.
A cura di: Membro non piu' appartenente alla Community