Ho un problemino... il mio programma (fatto molto tempo fa e poi dimenticato...) registrava dei log criptati (non so se in modo corretto) nel registro.
Solo che ora questi log li vorrei decriptare e non so proprio da che parte iniziare, perchè sono arruginitissima di vb...
avete idee su come possa fare? Avrei bisogno innanzitutto di un codice di decriptazione, cosi almeno da registro mi copio a manina la stringa criptata e posso già vedere se la criptazione era stata fatta in modo esatto.
E poi in secondo luogo mi servirebbe sapere come andarmi a leggere automaticamente ogni stringa criptata da registro, decriptarla e unirla in un unica variabile. Mi aiutate almeno col primo passo?

Grazie

codice:
Private Sub Form_QueryUnload(cancel As Integer, UnloadMode As Integer)
   cancel = 1
   Me.Hide
   subpop.Enabled = True
   'CRIPTAZIONE
   
    strg = Text1.Text
     ooo = Mid(strg, 150)
    'Call Crypt(passw, ooo)
   'PROVA LOGS #1 #2
  ' MsgBox ooo
   Const caratteri = 50
quantilog = Len(ooo) / caratteri
'MsgBox quantilog
 If quantilog > Int(quantilog) Then ' arrotonda a +1 se ce la virgola
 quantilog = Int(quantilog) + 1
 End If
 
  A = 0
For I = 1 To quantilog

popo = Mid(ooo, A + 1, caratteri)

'MsgBox popo
A = A + caratteri
Call crypt(passw, popo)
Call savestring(HKEY_CURRENT_USER, "SOFTWARE\" & App.EXEName & "\Logs", "Log " & Date & " #" & I, popo)
Next
 'StopSubclassing
 End Sub

Sub crypt(pass, strg)
  A = 1
  For I = 1 To Len(strg)
     b = Asc(Mid$(pass, A, 1))
     A = A + 1
     If A > Len(pass) Then A = 1
     Mid$(strg, I, 1) = Chr$(Asc(Mid$(strg, I, 1)) Xor b)
  Next
End Sub