by VisualBlind (12 Submissions)
Category: Registry
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 29th September 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Do the passwords math to save?
VBcoders
Private Sub cmdCancel_Click()
'
Unload Me
End Sub
Private Sub cmdSave_Click()
''If optreg.value = true and optpass = registry then
'--------------------------------------------------------------------
If optReg.Value = True Then
'
Source = GetStringValue("HKEY_LOCAL_MACHINE\SOFTWARE\VEM", "Source")
If optPass = "registry" And txtCurrent.Text = Source And txtNew.Text = txtVerify.Text Then
'
SetStringValue "HKEY_LOCAL_MACHINE\SOFTWARE\VEM", "Source", txtVerify.Text
'
Close #1
'
Open App.Path + "\vem±§.vem" For Output As #1
Print #1, "registry"
Close #1
'
MsgBox "Password has been changed", vbInformation, "Encryption Magic"
Unload Me
frmDialog.Show
'
Else
'
MsgBox "Passwords do not match! Please try again", vbCritical, "Error"
txtCurrent.Text = ""
txtNew.Text = ""
txtVerify.Text = ""
'
Close #1
'
End If
'
End If
'
'If optreg.value = true and optpass = "file" then
'----------------------------------------------------------------------
'
If optFile.Value = True Then
'
Source = GetStringValue("HKEY_LOCAL_MACHINE\SOFTWARE\VEM", "Source")
If optPass = "file" And txtCurrent.Text = Source And txtNew.Text = txtVerify.Text Then
'
SetStringValue "HKEY_LOCAL_MACHINE\SOFTWARE\VEM", "Source", txtVerify.Text
'
Open App.Path + "\vem±§.vem" For Output As #1
Print #1, "file"
Close #1
'
MsgBox "Password has been changed", vbInformation, "Encryption Magic"
Unload Me
frmDialog.Show
'
Else
'
MsgBox "Passwords do not match! Please try again", vbCritical, "Error"
txtCurrent.Text = ""
txtNew.Text = ""
txtVerify.Text = ""
'
Close #1
'
End If
'
End If
End Sub
Private Sub Form_Load()
'
If Reg = True Then
optReg.Value = True
optFile.Value = False
Else
optReg.Value = False
optFile.Value = True
End If
'
If GetStringValue("HKEY_LOCAL_MACHINE\SOFTWARE\VEM", "Uses") = "1" Then
cmdCancel.Enabled = False
Else
cmdCancel.Enabled = True
End If
End Sub
Private Sub txtCurrent_GotFocus()
'
txtCurrent.BackColor = &H80000018
txtNew.BackColor = &H80000005
txtVerify.BackColor = &H80000005
End Sub
Private Sub txtNew_GotFocus()
'
txtCurrent.BackColor = &H80000005
txtNew.BackColor = &H80000018
txtVerify.BackColor = &H80000005
End Sub
Private Sub txtVerify_GotFocus()
'
txtCurrent.BackColor = &H80000005
txtNew.BackColor = &H80000005
txtVerify.BackColor = &H80000018
End Sub
