DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Encrypting a .txt file through VB6

•

Join Date: Dec 2008

Posts: 1

Reputation: Ian90 is an unknown quantity at this point

Solved Threads: 0

Ian90

Offline

Newbie Poster

Encrypting a .txt file through VB6

Dec 8th, 2008

Hello,

I have a fairly basic knowlegde of Visual basic,
I am trying to create a form to create a username and password which is then saved in a .txt file, the problem being that anyone can read it.
Is there any way that it can be simply encrypted before being saved into the .txt file. i ahve created a module for the creation of a username and password. the Creation works and is saved correctly, i just don't undersand the correct code for it to be encrypted before it is saved
Here is the code so far:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Public Sub CreateUser()
On Error GoTo A
Dim User, Pass As String
User = FrmLogin.txtUsernameCreate.Text
Pass = FrmLogin.txtPasswordCreate.Text
Open App.Path & "/Users/" & User & ".txt" For Output As #1
Print #1, User
Print #1, Pass
Close #1
MsgBox "Your Account Has Heen Created Successfully", vbInformation, "Congratulations"
FrmLogin.txtUsernameCreate.Text = ""
FrmLogin.txtPasswordCreate.Text = ""
Exit Sub
A:
MsgBox " Account Cannot Be Created", vbCritical, "Error"
End Sub
 
Public Sub ChangeASC()
 
Dim ASC As String
 
ASC = FrmLogin.txtPasswordCreate.Text
For k = 1 To Len(ASC)
ASC(k) = ASC(k) + (2)
 
Output = App.Path & "/Users/" & User & ".txt"
 
End Sub
Public Sub CreateUser()
On Error GoTo A
Dim User, Pass As String
User = FrmLogin.txtUsernameCreate.Text
Pass = FrmLogin.txtPasswordCreate.Text
Open App.Path & "/Users/" & User & ".txt" For Output As #1
Print #1, User
Print #1, Pass
Close #1
MsgBox "Your Account Has Heen Created Successfully", vbInformation, "Congratulations"
FrmLogin.txtUsernameCreate.Text = ""
FrmLogin.txtPasswordCreate.Text = ""
Exit Sub
A:
MsgBox " Account Cannot Be Created", vbCritical, "Error"
End Sub

Public Sub ChangeASC()

Dim ASC As String

ASC = FrmLogin.txtPasswordCreate.Text
For k = 1 To Len(ASC)
ASC(k) = ASC(k) + (2)

Output = App.Path & "/Users/" & User & ".txt"

End Sub

Thanks in advance!

Ian.

•

Join Date: Oct 2008

Posts: 1,908

Reputation: ddanbe has much to be proud of

Solved Threads: 273

ddanbe

Offline

Posting Virtuoso

Re: Encrypting a .txt file through VB6

Dec 10th, 2008

You can encrypt any way you like, just as you did is fine.
It might give trouble if the ascii code is 254 or 255.
Find out some information about an XOR function

Today is a gift, that's why it is called "The Present".
Make love, no war. Cave ab homine unius libri.
Danny

•

Join Date: May 2008

Posts: 19

Reputation: andy_aphale is an unknown quantity at this point

Solved Threads: 1

andy_aphale andy_aphale is offline

Offline

Newbie Poster

Re: Encrypting a .txt file through VB6

Dec 11th, 2008

i thing this proj will help you. you have to only save that encrypted text into txt file actualy i have my project which encrypt the whole txt file and then user can also decrypt the whole file again.

below i am giving you my starting work of encryption proj as an example.

Attached Files