• Home
 · 
• Registry
 · 
• Do the passwords math to save?

Do the passwords math to save?

Do the passwords math to save?

Rate Do the passwords math to save?

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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