Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. antoncata

    encrypt/decrypt data

    Function codare(x As String) As String Dim y As String Dim i As Integer Dim n As Integer If x = "" Then codare = "" Exit Function End If n = Len(x) y = "" For i = 1 To n y = y & Chr(Asc(Mid(x, i, 1)) + 5) Next i codare = y End Function Function decodare(x As String) As String Dim y...

Part and Inventory Search

Back
Top