Un
algoritmo di cifratura è una procedura (una sequenza di istruzioni di codice sorgente) che realizza la "conversione" di un testo "in chiaro" (cioè leggibile) in un testo "cifrato" (ovvero codificato, protetto ed incomprensibile). Gli algoritmi di cifratura possono essere
simmetrici, che permettono cioè anche la procedura inversa per ottenere il testo in chiaro partendo da quello cifrato, oppure
asimmetrici, ovvero che non consentono il ritorno al testo originale. Nel primo caso, è possibile conforntare la password inserita dall'utente decodificando quella cifrata che è stata archiviata. Nel secondo, essendo un procedimento "ad una via" è necessario cifrare anche la password in chiaro inserita dall'utente e confrontare i due valori codificati: se corrispondono significa che la password originale è la stessa.
Ci sono una quantità di tecniche e di modi per realizzarle. Ma nel tuo caso, vista l'inesperienza, puoi appoggiarti ad una libreria che fa il lavoro per te, come ad esempio
che è gratuita e liberamente utilizzabile.
Se vuoi delle alternative, puoi cercare su Google: "symmetric encryption vb6" oppure "asymmetric encryption vb6".
Per
scrivere e leggere la password cifrata su
file di testo, puoi usare questo codice:
LEGGEREPrivate Sub Leggi_Click()
Dim pwd As String
Open "c:\password.txt" For Input As #1
Input #1, pwd
Text1.Text = pwd
Close #1
End Sub
SCRIVEREPrivate Sub Scrivi_Click()
Dim intMsg As String
Dim pwd As String
Open "c:\password.txt" For Output As #1
intMsg = MsgBox("File password.txt aperto.")
pwd = InputBox("Inserisci la tua password:")
Print #1, pwd
intMsg = MsgBox("Sto scrivendo '" & pwd & "' su password.txt")
Close #1
intMsg = MsgBox("File password.txt chiuso.")
End Sub