VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



  • Home
    •  · 
  • Encryption
    •  · 
  • This Is A Simple Encrypter Just Copy/Paste To your Form

This Is A Simple Encrypter Just Copy/Paste To your Form

by Othere The (1 Submission)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 27th November 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)

This Is A Simple Encrypter Just Copy/Paste To your Form

API Declarations


'Names: Text1 and Text2
'Add A Module
'Name: Any
'Add Two Command Buttons
'Names: Command1 And Command2
'Then Just Copy Past The Code Below

Rate This Is A Simple Encrypter Just Copy/Paste To your Form



''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
'If You Need Any Help With This Plz
''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
'Send Me A Message On AIM Names: Othere The
Private Sub Command1_Click()
Text2.Text = ""
Text2.Text = Text1.Text
code$ = Encrypt(Text2)
Text2.Text = (code$)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text1.Text = Text2.Text
dec$ = Decrypt(Text1.Text)
Text1.Text = (dec$)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 8
KeyAscii = 0
Else
Exit Sub
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 8
KeyAscii = 0
Else
Exit Sub
End If
End Sub
''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
'By: Othere The
'For The Module Copy Past This
Function Decrypt(Text As String)
Dim Current As Integer
Dim Line As Integer
Dim varChr As String
Dim Finish As String
Line = Len(Text)
Do While Current <= Line
DoEvents
Current = Current + 1
varChr = Mid(Text, Current, 4)
Select Case varChr
Case "0200"
varChr = "a"
Case "0100"
varChr = "b"
Case "0400"
varChr = "c"
Case "0300"
varChr = "d"
Case "0600"
varChr = "e"
Case "0500"
varChr = "f"
Case "0800"
varChr = "g"
Case "0700"
varChr = "h"
Case "0000"
varChr = "i"
Case "0900"
varChr = "j"
Case "2000"
varChr = "k"
Case "1000"
varChr = "l"
Case "4000"
varChr = "m"
Case "3000"
varChr = "n"
Case "5000"
varChr = "o"
Case "6000"
varChr = "p"
Case "8000"
varChr = "q"
Case "7000"
varChr = "r"
Case "9000"
varChr = "s"
Case "3100"
varChr = "t"
Case "0010"
varChr = "u"
Case "0020"
varChr = "v"
Case "0040"
varChr = "w"
Case "0030"
varChr = "x"
Case "0060"
varChr = "y"
Case "0050"
varChr = "z"
Case "0070"
varChr = "A"
Case "0090"
varChr = "B"
Case "0080"
varChr = "C"
Case "0001"
varChr = "D"
Case "0002"
varChr = "E"
Case "0003"
varChr = "F"
Case "0004"
varChr = "G"
Case "0006"
varChr = "H"
Case "0005"
varChr = "I"
Case "0008"
varChr = "J"
Case "0007"
varChr = "K"
Case "0009"
varChr = "L"
Case "1100"
varChr = "M"
Case "1200"
varChr = "N"
Case "1300"
varChr = "O"
Case "1500"
varChr = "P"
Case "1400"
varChr = "Q"
Case "1700"
varChr = "R"
Case "1600"
varChr = "S"
Case "1900"
varChr = "T"
Case "1800"
varChr = "U"
Case "1020"
varChr = "V"
Case "1010"
varChr = "W"
Case "1040"
varChr = "X"
Case "1030"
varChr = "Y"
Case "1050"
varChr = "Z"
Case "1060"
varChr = "`"
Case "1080"
varChr = "~"
Case "1070"
varChr = "1"
Case "1090"
varChr = "!"
Case "1001"
varChr = "2"
Case "1002"
varChr = "@"
Case "1004"
varChr = "3"
Case "1003"
varChr = "#"
Case "1005"
varChr = "4"
Case "1006"
varChr = "$"
Case "1007"
varChr = "5"
Case "1008"
varChr = "%"
Case "1009"
varChr = "^"
Case "2200"
varChr = "6"
Case "2100"
varChr = "7"
Case "2300"
varChr = "&"
Case "2500"
varChr = "8"
Case "2400"
varChr = "*"
Case "2700"
varChr = "9"
Case "2600"
varChr = "("
Case "2800"
varChr = ")"
Case "2900"
varChr = "0"
Case "3200"
varChr = " "
Case "3300"
varChr = "-"
Case "3400"
varChr = "_"
Case "3500"
varChr = "="
Case "3600"
varChr = "+"
Case "3700"
varChr = "["
Case "3800"
varChr = "{"
Case "3900"
varChr = "]"
Case "3010"
varChr = "}"
Case "3030"
varChr = "\"
Case "3020"
varChr = "|"
Case "3040"
varChr = ";"
Case "3050"
varChr = ":"
Case "3070"
varChr = "'"
Case "3060"
varChr = ","
Case "3090"
varChr = "<"
Case "3080"
varChr = "."
Case "3002"
varChr = ">"
Case "3001"
varChr = "/"
Case "3005"
varChr = "?"
Case "4000"
varChr = Chr(34)
End Select
Finish = Finish & varChr
Current = Current + 3
DoEvents
Loop
Decrypt = Finish
End Function

Function Encrypt(Text As String)
Dim Current As Integer
Dim Line As Integer
Dim varChr As String
Dim Finish As String
Line = Len(Text)
Do While Current <= Line
DoEvents
Current = Current + 1
varChr = Mid(Text, Current, 1)
Select Case varChr
Case "a"
varChr = "0200"
Case "b"
varChr = "0100"
Case "c"
varChr = "0400"
Case "d"
varChr = "0300"
Case "e"
varChr = "0600"
Case "f"
varChr = "0500"
Case "g"
varChr = "0800"
Case "h"
varChr = "0700"
Case "i"
varChr = "0000"
Case "j"
varChr = "0900"
Case "k"
varChr = "2000"
Case "l"
varChr = "1000"
Case "m"
varChr = "4000"
Case "n"
varChr = "3000"
Case "o"
varChr = "5000"
Case "p"
varChr = "6000"
Case "q"
varChr = "8000"
Case "r"
varChr = "7000"
Case "s"
varChr = "9000"
Case "t"
varChr = "3100"
Case "u"
varChr = "0010"
Case "v"
varChr = "0020"
Case "w"
varChr = "0040"
Case "x"
varChr = "0030"
Case "y"
varChr = "0060"
Case "z"
varChr = "0050"
Case "A"
varChr = "0070"
Case "B"
varChr = "0090"
Case "C"
varChr = "0080"
Case "D"
varChr = "0001"
Case "E"
varChr = "0002"
Case "F"
varChr = "0003"
Case "G"
varChr = "0004"
Case "H"
varChr = "0006"
Case "I"
varChr = "0005"
Case "J"
varChr = "0008"
Case "K"
varChr = "0007"
Case "L"
varChr = "0009"
Case "M"
varChr = "1100"
Case "N"
varChr = "1200"
Case "O"
varChr = "1300"
Case "P"
varChr = "1500"
Case "Q"
varChr = "1400"
Case "R"
varChr = "1700"
Case "S"
varChr = "1600"
Case "T"
varChr = "1900"
Case "U"
varChr = "1800"
Case "V"
varChr = "1020"
Case "W"
varChr = "1010"
Case "X"
varChr = "1040"
Case "Y"
varChr = "1030"
Case "Z"
varChr = "1050"
Case "`"
varChr = "1060"
Case "~"
varChr = "1080"
Case "1"
varChr = "1070"
Case "!"
varChr = "1090"
Case "2"
varChr = "1001"
Case "@"
varChr = "1002"
Case "3"
varChr = "1004"
Case "#"
varChr = "1003"
Case "4"
varChr = "1005"
Case "$"
varChr = "1006"
Case "5"
varChr = "1007"
Case "%"
varChr = "1008"
Case "^"
varChr = "1009"
Case "6"
varChr = "2200"
Case "7"
varChr = "2100"
Case "&"
varChr = "2300"
Case "8"
varChr = "2500"
Case "*"
varChr = "2400"
Case "9"
varChr = "2700"
Case "("
varChr = "2600"
Case ")"
varChr = "2800"
Case "0"
varChr = "2900"
Case " "
varChr = "3200"
Case "-"
varChr = "3300"
Case "_"
varChr = "3400"
Case "="
varChr = "3500"
Case "+"
varChr = "3600"
Case "["
varChr = "3700"
Case "{"
varChr = "3800"
Case "]"
varChr = "3900"
Case "}"
varChr = "3010"
Case "\"
varChr = "3030"
Case "|"
varChr = "3020"
Case ";"
varChr = "3040"
Case ":"
varChr = "3050"
Case "'"
varChr = "3070"
Case ","
varChr = "3060"
Case "<"
varChr = "3090"
Case "."
varChr = "3080"
Case ">"
varChr = "3002"
Case "/"
varChr = "3001"
Case "?"
varChr = "3005"
Case Chr(34)
varChr = 4000
End Select
Finish = Finish & varChr
DoEvents
Loop
Encrypt = Finish
End Function

Download this snippet    Add to My Saved Code

This Is A Simple Encrypter Just Copy/Paste To your Form Comments

No comments have been posted about This Is A Simple Encrypter Just Copy/Paste To your Form. Why not be the first to post a comment about This Is A Simple Encrypter Just Copy/Paste To your Form.

Post your comment

Subject:
Message:
0/1000 characters


Active Server Pages
Coding Standards
Complete Applications
Custom Controls/Forms/Menus
Data Structures
Databases/Data Access/DAO/ADO
DDE
Debugging and Error Handling
DirectX
Encryption
Files/File Controls/Input/Output
Games
Graphics
Internet/HTML
Jokes/Humor
Libraries
Math/Dates
Microsoft Office Apps/VBA
Miscellaneous
Object Oriented Programming (OOP)
OLE/COM/DCOM/Active-X
Registry
Sound/MP3
String Manipulation
VB function enhancement
Windows API Call/Explanation
Windows CE
Windows System Services

Difficulty

Beginner
Intermediate
Advanced
Unknown Difficulty