• Home
 · 
• Encryption
 · 
• Encrypt / Decrypt Your Password

Encrypt / Decrypt Your Password

Encrypt / Decrypt Your Password

Rate Encrypt / Decrypt Your Password

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' 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