• Home
 · 
• Windows System Services
 · 
• Use this code to encrypt and Decrypt. Since md5has is a one way encryption utility.. i developed th

Use this code to encrypt and Decrypt. Since md5has is a one way encryption utility.. i developed th

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

Rate Use this code to encrypt and Decrypt. Since md5has is a one way encryption utility.. i developed th

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 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