I have the following VB code
Funtion Encripta(ByVal Pass As String) As String
Dim Clave As String, i As Integer, Pass2 As String
Dim Car As String, Codigo As String
Clave="%ü&/@#$A"
Pass2=""
For i=1 to Len(Pass)
CAR=Mid(Pass, i, 1)...
asked by
29.04.2018 / 18:24