A=1 B=2 C=3

[dimava]

Hi, I'm makin this password program and I'm going to use the following encryption:



a = 1
b = 2
c = 3
d = 4
e = 5
f = 6
g = 7
h = 8
i = 9
j = 1
k = 2
etc...

Now I'm going to use that, or can PLEASE someone tell me how to make a password on a database.


thanks in advance!!!

[Wen Lie]

Password on Database

Well, assumming that you've already had your encryption formula...

Just make a field on your table. Let's call it "Pwd" field.

On your VB code, try this logic.

- Get an input from user (using textbox with * as its password character).
- Encrypt the input password.
- Save it to your "Pwd" field.

Easy right ???

And don't forget to decrypt the password when you want to use is as user authentication...

Regards,
Wen Lie

[kedaman]

For the Encryption part, there are two good samples at my homepage

But if you're learning and you are a beginner, it is okay to experiment with different methods. I don't think any of us started out using something like RC4.

[dimava]

Now lets say I make a database, is there a way to put a password on the database so that you need a password to open it.

Yes, I think you can encrypt it using a method of binary encryption.

[dimava]

do you know how?

[kedaman]

Dimiva this isn't that hard, have you downloaded my module?
1. Make a new exe project
2. add my module
3. paste the code in the form window
4. Add a textbox called text1 and a commandbutton called command 1

[dimava]

Ohhhhhh maybe that's why, I didn't download the module

[HAVocINCARNATE29]

try this too if you want.


make 4 textboxes and 2 command buttons


just paste in all this code



-------------

'This goes in declarations section
Dim Output

' end declarations


Public Function Crypt(Text As String) As String
Dim strTempChar As String
Dim strTempChar2
Dim Hash
Dim Base
Dim Base2
Dim VariableBase
Dim ASCIIbuffer
Dim Yanom

Dim x
Dim y
Dim z

On Error Resume Next

Base = Asc(Mid$(Text, 1, 1))
Base2 = Asc(Mid$(Text, 2, 1))

For i = 1 To Len(Text)


If i = 1 Then
VariableBase = Base
End If

If VariableBase = vbEmpty Then
VariableBase = Base
End If

'If (Asc(Mid$(Text, i, 1))) = 255 Then
'VariableBase = Asc(Mid$(Text, i, 1))
'strTempChar = Asc(Mid$(Text, i, 1))
'x = Chr(strTempChar)
'z = x + x
'GoTo 70
'End If

strTempChar2 = Asc(Mid$(Text, i, 1))
strTempChar = Asc(Mid$(Text, i, 1)) + VariableBase
VariableBase = strTempChar2


ASCIIbuffer = vbEmpty

If strTempChar > 255 Then
ASCIIbuffer = strTempChar - 255
strTempChar = 255
End If


y = vbEmpty

If ASCIIbuffer = vbEmpty Then
x = Chr(strTempChar)
End If

If ASCIIbuffer <> vbEmpty Then
x = Chr(strTempChar)
y = Chr(ASCIIbuffer)
End If

If y = vbEmpty Then
z = z + x
End If

If y <> vbEmpty Then
z = z + x + y
End If



70 Next i
Crypt = Text

Text = z

Output = Text
End Function

Private Sub Command1_Click()
Dim x
x = Text1.Text
Crypt (x)
Text2.Text = Output
End Sub

Public Function DeCrypt(Text As String) As String
Dim strTempChar As String
Dim strTempChar2
Dim Hash
Dim Base
Dim Base2
Dim VariableBase
Dim ASCIIbuffer

Dim x
Dim y
Dim z

On Error Resume Next


For i = 1 To Len(Text)

If Asc(Mid$(Text, i, 1)) = 255 Then
strTempChar = (Asc(Mid$(Text, i, 1)) + Asc(Mid$(Text, i + 1, 1)))
strTempChar2 = strTempChar / 2
x = Chr(strTempChar2)
z = z + x
i = i + 1
If i > (Len(Text)) Then
GoTo 80
End If
GoTo 70
End If

If i = 1 Then
strTempChar = Asc(Mid$(Text, i, 1)) / 2
x = Chr(strTempChar)
z = z + x
GoTo 70
End If

If Asc(Mid$(Text, i, 1)) <> 255 Then
Base = Asc(x)
strTempChar = Asc(Mid$(Text, i, 1)) - Base
x = Chr(strTempChar)
z = z + x
End If


70 Next i
80 DeCrypt = Text

Text = z

Output = Text
End Function

Private Sub Command2_Click()
Dim x
x = Text3.Text
DeCrypt (x)
Text4.Text = Output
End Sub

[dimava]

sorry kedamen, but it still doesn't work

[dimava]

WOW HAVocINCARNATE29, it works!!!!

I have 2 questions...


1. How do I decrypt it?
2. can you please give me the code just for the second version please!!!

[kedaman]

AAAaaaah! Great!

[dimava]

Wait a sec, Kedman,
I'm still interested in your encryption
can you please send me a vb project file?

[HAVocINCARNATE29]

to decrypt it put the weird text (cyphertext) in textbox3 and hit command2


this is all the code i have at the moment but you are welcome to use it.



i hope i helped. tell me if you need anything.
actually i just mostly finished an encryption program of mine and you can see it in afew minutes at:

http://members.theglobe.com/shotupdate/crypt.exe

its not done yet. just very beta-ish (like the splash screen)

[ckennedy]

Can someone help me please? Please?
I need some help. I am VERY new to VB 6.0. I am adding a GUI to an existing VBScript administration utility. Basically I just want to have users click a command button, have it open a Command Prompt and run an application by automatically entering something like "c q compname" where "compname" is a computer NetBIOS name and a variable that the user already entered. I have it programmed to open DOS shell, but send keys does not work, I don't think the DOS window is getting the Focus either, not sure if that matters. Please HELP!

[dimava]

Ohhhhh, I see how it works

[dimava]

Nice program!!!!!!!!!!!!

its like if you don't want someone seeing a file, you encrypt it




Very Cool!!!!!!!!

[ckennedy]

Anyone help me out?

[kedaman]

dimava, what didn't work? What errors did you get?

[dimava]

I think that you would get more responces if you posted a new thread

[ckennedy]

I have opened 2 new threads, no replies. If no one here can help me do they know of another site at least? Thanks!

[dimava]

Really? when did you post the treads, give it a few days

[Rodik]

You can use the /c with command.com (or cmd.com).

It works like this:

If you run
somevar = hello
Shell "command /c somecmd " & somevar

then vb would first open up a dos-box and run command which would run the following from the prompt:
C:\Windows> somecmd hello

and that should do it...

you can also create a batch file if you want to run several commands, then you just run
Shell = (path & ) "command.com /c myfile.bat"
where myfile.bat is where all the commands are..


simple!