Sto provando a fare un progettino in visual basic 6, e all'inizio il mio progetto lo faccio avviare con una form che chiede la password.
Ora, essendo un programma standalone, la password la memorizzo su un file txt esterno.
La password è criptata, tra un pò vi posto il codice. Spiego in poche parole:
- l'utente inserisce la password su una Text1.Text
- appena clicca su OK (pusante di conferma) dico al programma di confrontare il contenuto della Text1.text con quello presente sul file.txt
Faccio un esempio: se la password presente nel file.txt è "ciao", criptata appare "/&()##@è4§"; se poi nella Text.Text inserisco "ciao" questo significa che la password è corretta, quindi il programma deve avviarsi. Però quello che mi manca è la decodifica del testo contenuto all'interno del file.txt.
Ora in altre parole il mio programma fa questo confronto:
if Text1.Text = file.txt
traduco
Se "ciao" ="/&()##@è4§"
e giustamente non vede la stessa password, perchè prima devo decriptarla, ok?
Ora la password l'ho criptata con un codice, però (forse per le scarse conoscenze) non so come decriptarla. Ecco qui il codice che utilizzo nel caso la si vuole cambiare la password:
- Codice: Seleziona tutto
Private Sub Command1_Click()
Open "c:\file.txt" For Output As #4 ' Apro il file
'Creazione della chiave
ST = " 0123456789zxcvbnmlkjhgfdsaqwertyuiop" ' ST=stringa
LU = Len(txtCambiare.Text) * 2 ' LU=lunghezza
CH = Asc(Val(txtCambiare.Text)) & Mid(ST, LU, 8) ' CH=chiave
Select Case LU
Case Is <= 5
Print #4, "M;:" & CH & "^?="
Case Is <= 12
Print #4, "|\£m" & CH & "opè+"
End Select
Close #4 ' Chiudo
End Sub
Sapete ricavarne il decriptato?
Ciao ciao