Visual Basic 6 - CRIPTARE

Guarda che anche la funzione che usi per criptare e' sbagliata, in particolare la linea

CHIAVE = ...

Semmai qualcosa del genere ...

Option Explicit

Private Const Chiave As String = "!àéèìòù°+*]-.,;QWERTYUIOPASDFGHJKLZXCVBNM:_£$%&/()=?123456789qwertyuiopasdfghjklzxcvbnm<>{}"

Private Function Cripta(ByVal Testo As String) As String
    Dim ix As Long
    For ix = 1 To Len(Testo)
        Cripta = Cripta & Mid$(Chiave, Asc(Mid$(Testo, ix, 1)) - 31, 1)
    Next ix
End Function

Private Function DeCripta(ByVal Testo As String) As String
    Dim ix As Long
    For ix = 1 To Len(Testo)
        DeCripta = DeCripta & Chr$(InStr(Chiave, Mid$(Testo, ix, 1)) + 31)
    Next ix
End Function

Private Sub Form_Click()
    Dim TC As String
    Dim TD As String
    
    TC = Cripta("Essere o non essere")
    Print TC
    
    TD = DeCripta(TC)
    Print TD
End Sub

GRAZIE INFINITE!!!!!!!!!!!!!!!!!!!!!!!!!!

Dimenticavo,sai di quanti bit é la codifice e come si misurano???

Non capisco cosa vuoi sapere ...

NN ci sono le codifiche a 128 bit,quelle a 64 bit o mi sbaglio io???
P.S.Il codice nn funge xkè nn mi srive niente con la funz Print e ho provatgo anche com un msgBox ma nn funge

Postato originariamente da gius:

NN ci sono le codifiche a 128 bit,quelle a 64 bit o mi sbaglio io???

Il semplice algoritmo che ho usato nel programmino che ti ho mostrato e' del tipo "a sostituzione" e quindi non esiste una vera e proproa chiave formata a n bit ...


P.S.Il codice nn funge xkè nn mi srive niente con la funz Print e ho provatgo anche com un msgBox ma nn funge

Magari e' meglio che ti spieghi piu' chiaramente ... di quale codice parli ?

Se parli di quello che ti ho mostrato, fammi vedere come hai provato ...

Lascia perdere la cosa dei bit cmq ho usato il codice da te postato con nennuna modifica