Code Snippets

Visual Basic Source Code

You're Browsing As A Guest! Register Now...
Become a VB Expert! Join 357,970 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,554 people online right now.Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

Submitted By: iwantthependrive

Actions:

Rating:

Views: 983

Last Modified: August 30, 2009

Instructions: make 2 command buttons and a text box.

'THIS ENCODES THE LETTER
Private Sub Command1_Click()
Dim pa As Long, a As String, b As Long, i As Long, c As String, num As Long
If Text1.Text = "" Then
MsgBox "There is Nothing To Encrypt"
Else
pa = InputBox("Enter passkey (only between 1 and 128")
a = Text1.Text
Text1.Text = ""
b = Len(a)
For i = 1 To b
c = Mid(a, i, 1)
num = Asc(c)
num = num + pa
If num > 256 Then
MsgBox "Lower Passkey!"
End If
Text1.Text = Text1.Text + Chr(num)
Next i
MsgBox "Your Passkey is " & pa, vbInformation
End If
End Sub
'THIS DECODES THE LETTER
Private Sub Command2_Click()
Dim pa As Long, a As String, b As Long, i As Long, c As String, num As Long, cl as string
If Text1.Text = "" Then
MsgBox "There is Nothing To Decrypt"
Else
pa = InputBox("Enter Your Passkey")
a = Text1.Text
Text1.Text = ""
b = Len(a)
For i = 1 To b
c = Mid(a, i, 1)
num = Asc(c)
num = num - pa
If pa > 128 Then
MsgBox "Passkey should be between 1 and 128!"
End If
cl = Chr(num)
Text1.Text = Text1.Text + cl
Next i
End If
End Sub

Comments
firebolt 2009-04-28 08:30:08
If you say make 2 command buttons, wouldnt you want the second to be command2.
iwantthependrive 2009-05-02 10:19:04
i am sorry. i have corrected it.
hbhargava 2009-08-28 13:49:13
in vb 2008 it tells me that cl is not declared, and same with qwe
iwantthependrive 2009-08-30 10:03:33
i have modified it. it should work now.
borninlyoko 2009-12-05 14:12:22
I'm getting an error, line 3 character 8. It says it expected end of statement