1 Attachment(s)
VB-6 Simple Method to Encrypt / Decrypt Text.
How to encrypt and decrypt text. This is a very simple method of encryption and you may want to use a different one for bigger projects. You change the values for your own encryption types and keys. Hope you guys like my first tutorial. Constructive criticism is always nice, as well on errors in my code.
GUI:
2 Text Boxes
2 Command Buttons
That's it.
Code for Declarations:
Code:
dim a as string
dim b as string
dim c as string
Code for Command1 :
Code:
Private Sub Command1_Click()
a = "a"
b = "b"
c = "c"
Text2.Text = Text1.Text
Text2.Text = Replace(Text2, a, "1")
Text2.Text = Replace(Text2, b, "2")
Text2.Text = Replace(Text2, c, "3")
End Sub
Code for Command2 :
Code:
Private Sub Command1_Click()
a = "1"
b = "2"
c = "3"
Text2.Text = Text1.Text
Text2.Text = Replace(Text2, a, "a")
Text2.Text = Replace(Text2, b, "b")
Text2.Text = Replace(Text2, c, "c")
End Sub
Notice the difference from Command1 and Command2. In Command1 a = "a" and text2.text = Replace(text2, a, "1"). In Command2 it's a = "1" and text2.text = Replace(text2, a, "a").
Re: VB-6 Simple Method to Encrypt / Encrypt Text.
Could you please include your source code in a zip file. Many members, myself included, can not open .rar files.
Thanks.
Re: VB-6 Simple Method to Encrypt / Encrypt Text.
::EDIT::
It is now in .zip instead of .rar .
Re: VB-6 Simple Method to Encrypt / Decrypt Text.
This is exactly the same as the one by SilverMagics (youtube member)
and i mean EXACTLY the same...
Re: VB-6 Simple Method to Encrypt / Decrypt Text.
Very simple.. Too simple, lmao. Make a version for all letters? (ill prob do it myself..)