by Nimisha (1 Submission)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 5th October 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is a password program. You can save your differnet username,password in this program. this will save all this in random file so nobody
API Declarations
Dim i As Integer
__________________
Private Type password
id As Integer
website As String * 50
username As String * 15
password As String * 15
End Type
Dim nimi As password
VBcoders
If (i < 3) Then
If Text2.Text = "nimjeet" Then
Form1.Hide
Form2.Show
Else
MsgBox ("Invalid Password")
Text2.Text = ""
End If
i = i + 1
Else
End
End If
End Sub
Private Sub Command2_Click()
End
End Sub
________________
If Text1.Text <> "" Then
Get #1, Val(Text8), nimi
If nimi.id = 0 Then
nimi.id = Val(Text8.Text)
nimi.website = Text1.Text
nimi.username = Text2.Text
nimi.password = Text3.Text
Put #1, nimi.id, nimi
MsgBox (nimi.id & " added to the record")
Else
MsgBox ("already exists")
End If
Else
MsgBox ("you have to enter website name")
End If
End Sub
Private Sub Command2_Click()
Dim no As Integer
Dim name As String
Dim password As String
On Error Resume Next
no = Val(InputBox("enter number"))
Get #1, no, nimi
If nimi.id <> 0 Then
Text9.Text = Str$(nimi.id)
Text4.Text = nimi.website
Text5.Text = nimi.username
Text6.Text = nimi.password
name = InputBox("please enter username")
nimi.username = name
Text5.Text = nimi.username
password = InputBox("please enter password")
nimi.password = password
Text6.Text = nimi.password
Put #1, nimi.id, nimi
Else
MsgBox ("not exists")
End If
End Sub
Private Sub Command3_Click()
Dim blank As password
Dim r As Integer
Get #1, Val(Text10.Text), nimi
If nimi.id <> 0 Then
Text10.Text = Str$(nimi.id)
Text7.Text = nimi.website
Text11.Text = nimi.username
Text12.Text = nimi.password
r = MsgBox("do u want to delete this website", vbOKCancel)
If r = vbOK Then
Put #1, nimi.id, blank
MsgBox (nimi.id & " ," & nimi.website & "erased")
Else
Text10.Text = ""
Text7.Text = ""
Text11.Text = ""
Text12.Text = ""
End If
Else
MsgBox ("record does not exist")
End If
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Dim r As Integer
r = InputBox("please enter the number")
Get #1, r, nimi
If nimi.id <> 0 Then
Text13.Text = Str$(nimi.id)
Text14.Text = nimi.website
Text15.Text = nimi.username
Text16.Text = nimi.password
Else
MsgBox ("record does not exixt")
End If
End Sub
Private Sub Form_Load()
Dim recordlength As Long
Dim filename As String
recordlength = LenB(nimi)
dlgopen.ShowOpen
filename = dlgopen.filename
If dlgopen.FileTitle <> "" Then
Open filename For Random Access Read Write As #1 Len = recordlength
Else: MsgBox ("you must enter a file name")
End If
End Sub
Private Sub SSTab1_doubleClick()
End Sub
No comments have been posted about This is a password program. You can save your differnet username,password in this program. this wil. Why not be the first to post a comment about This is a password program. You can save your differnet username,password in this program. this wil.
