by Chaudhary Pradeep Kr. roy (1 Submission)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 29th November 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Use this code to encrypt and Decrypt. Since md5has is a one way encryption utility.. i developed this code. Using this code u can encrypt any
VBcoders
Dim icLen As Integer
Dim icNewText As String
sInchar = ""
icLen = Len(sInput)
For i = 1 To icLen
sInchar = Mid(sInput, i, 1)
Select Case Asc(sInchar)
Case 65 To 90
sInchar = Chr(Asc(sInchar) + 127)
Case 97 To 122
sInchar = Chr(Asc(sInchar) + 121)
Case 48 To 57
sInchar = Chr(Asc(sInchar) + 196)
Case 32
sInchar = Chr(32)
End Select
icNewText = icNewText + sInchar
Next
Encrypt = icNewText
End Function
Public Function Decrypt(ByVal sInput As String) As String
Dim icLen As Integer
Dim icNewText As String
sInchar = ""
icLen = Len(sInput)
For i = 1 To icLen
sInchar = Mid(sInput, i, 1)
Select Case Asc(sInchar)
Case 192 To 217
sInchar = Chr(Asc(sInchar) - 127)
Case 218 To 243
sInchar = Chr(Asc(sInchar) - 121)
Case 244 To 253
sInchar = Chr(Asc(sInchar) - 196)
Case 32
sInchar = Chr(32)
End Select
icNewText = icNewText + sInchar
Next
Decrypt = icNewText
End Function
Private Sub Command1_Click()
MsgBox Encrypt(Text1)
MsgBox Decrypt(Text1)
End Sub
No comments have been posted about Use this code to encrypt and Decrypt. Since md5has is a one way encryption utility.. i developed th. Why not be the first to post a comment about Use this code to encrypt and Decrypt. Since md5has is a one way encryption utility.. i developed th.
