[VB6] Richiesta password (e sua memorizzazione)

[Magicolotto]

Ciao ragazzi.... ho un problemino come al solito
ho creato l'accesso al programma tramite password, pero essa di deve inserire ogni qualvolta si apre il programma..... la mia domanda è
esiste un modo che essa venga cercata solo la prima volta?
esempio si apre il programma , si inserisce la passord ..e finisce li, non inserirla ogni volta

grazie

il problema della non visualizzazione del forum dell'altro post era dovuta al mio NORTON

[oregon]

Dovresti salvare su disco (nel registro o in un file) l'informazione che la password e' stata inserita.

Ma che senso ha implementare una password in un programma se poi non si usa?

Se la password non viene richiesta piu' e accede una persona che non ha diritto, a cosa e' servito scrivere il codice della password??

[Magicolotto]

Se la password non viene richiesta piu' e accede una persona che non ha diritto, a cosa e' servito scrivere il codice della password??

la password : ho fatto modoche essa venga ricavata tramite Windows Product ID....
quindi essa sara differente da pc a pc
di conseguenza il programma scricabile gratuitamete avra' una password determinata a quel pc.... che io decidero a quale utente del sito dovro' dare

salvarla in un file o nel registro non so proprio come iniziare a fare....

come si fa'?

grazie

[MdE2005]

In che senso da "Windows Product Id" ?
Cmq puoi creare un file con questa procedura:

Private Sub Command1_Click()

Dim NomeFile As String
Dim Pwd As String

Open NomeFile For Output As #1
Print #1, Pwd
Close #1

End Sub

dove NomeFile è la variabile in cui inserire il percorso del file
Pwd è la variabile in cui memorizzare la password
Ti conviene salvare il file con un nome apparentemente corretto, magari con un'estensione tipo *.sys nelle cartelle di sistema..altrimenti sarà troppo riconoscibile. Inoltre sarebbe meglio che la pwd fosse criptata prima di salvarla nel file..ciao

[Magicolotto]

cosi:

Dim c:\Programmi\password.txt As String
Dim Pwd As String

Open password.txt For Output As #1
Print #1, Pwd
Close #1

[Magicolotto]

In che senso da "Windows Product Id" ?

del tipo cosi

48753-897-8745982-45698

ora che ci siamo

questo si potrebbe tramutare in codice senza trattini?

[XWolverineX]

Bhe si... per togliere i trattini fai

dim Codice as string

Codice = Replace("48753-897-8745982-45698","-","")

codice sarà una variabile col codice senza trattini.
Ho notato che quando ho ftto il windows update in Visual Basic mi ha installato il controllo Windows Genuine...
magari è possibile usarlo per questo scopo.

[MdE2005]

Attenzione a come usi l'indirizzo..così ti da errore: devi inserire l'indirizzo completo del file, es. "c:\windows\system\file.sys"

Se ho ben capito però ogni computer ha una propria pwd..quindi è come se non ci fosse!!!! Spiega meglio perchè mi interessa..

Per la seconda domanda io ti rispondo, anche se non so se il moderatore ti inviterà ad aprire una nuova discussione per il regolare ed efficiente svolgimento del forum:

Dim pwd as String

pwd = "123-456-1212-12"

For k = 1 To Len(pwd)
carattere = Mid(pwd, k, 1)
If carattere = "-" Then
Mid(pwd, k) = " "
End If
Next k

msgbox pwd

In questa maniera ti rimangono però spazi bianchi al posto dei trattini, non so se ti può andare bene..

[Magicolotto]

Dim pwd as String

pwd = "123-456-1212-12"

For k = 1 To Len(pwd)
carattere = Mid(pwd, k, 1)
If carattere = "-" Then
Mid(pwd, k) = " "
End If
Next k

msgbox pwd

provo e ti diro'
per gli spazi bianchi ci penso io ..... li elimino almeno ci provo


si il codice ide univoco per ogni pc, per cambiarlo devi formattare, viene ricavato dentro i file di rregistro

con una operazione matematica lo cambio...cosi otterrro' la password

[MdE2005]

Bravo..se poi non riesci chiedi pure ma è più ISTRUTTIVO e UTILE provare da soli..

Avevo intuito una cosa del genere per la pwd, ma così ogni computer potrà usare il tuo programma, in quanto la pwd viene elaborata estraendo il codice del prodotto..forse non ho ancora capito..