by Cucum (1 Submission)
Category: Encryption
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 29th October 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Encrypt / Decrypt Your Password
' E-mail : [email protected]
' Language : VB5, VB6
' Example : Var = Encrypt( "InfoClip" )
: Msgbox Var & VbCr & Decrypt( Var )
Public Function Encrypt(ByVal icText As String) As String
Dim icLen As Integer
Dim icNewText As String
icChar = ""
icLen = Len(icText)
For i = 1 To icLen
icChar = Mid(icText, i, 1)
Select Case Asc(icChar)
Case 65 To 90 ' A - Z
icChar = Chr(Asc(icChar) + 127)
Case 97 To 122 ' a - z
icChar = Chr(Asc(icChar) + 121)
Case 48 To 57 ' 0 - 9
icChar = Chr(Asc(icChar) + 196)
Case 32
icChar = Chr(32) ' Space
End Select
icNewText = icNewText + icChar
Next
Encrypt = icNewText
End Function
Public Function Decrypt(ByVal icText As String) As String
Dim icLen As Integer
Dim icNewText As String
icChar = ""
icLen = Len(icText)
For i = 1 To icLen
icChar = Mid(icText, i, 1)
Select Case Asc(icChar)
Case 192 To 217 ' À - Ù ( A - Z )
icChar = Chr(Asc(icChar) - 127)
Case 218 To 243 ' Ú - ó ( a - z )
icChar = Chr(Asc(icChar) - 121)
Case 244 To 253 ' ô - ý ( 0 - 9 )
icChar = Chr(Asc(icChar) - 196)
Case 32 ' Space
icChar = Chr(32)
End Select
icNewText = icNewText + icChar
Next
Decrypt = icNewText
End Function