Function Шифрование_пароля(ByVal pass As String) As String
 Dim s As String
 Dim ss As String
 Dim ls As Integer
 Dim lpass As Integer
 Dim i As Integer
 
 lpass = Len(pass)
 If lpass =  0  Then
  Шифрование_пароля = ""
  Exit Function
 End If
 
 s = ""
 For i =  1  To lpass
  s = s & Right("000" & Asc(Mid(pass, i,  1 )),  3 )
 Next i
 
 ls = Len(s)
 
 ss = ""
 For i =  1  To ls
  ss = Right("000" & Asc(Mid(s, i,  1 )),  3 ) & ss
 Next i
  
 Шифрование_пароля = ss
 
End Function

Function Дешифрование_пароля(ByVal pass As String) As String
 Dim s As String
 Dim ss As String
 Dim ls As Integer
 Dim lpass As Integer
 Dim i As Integer
 
 lpass = Len(pass)
 If lpass =  0  Then
  Дешифрование_пароля = ""
  Exit Function
 End If
 
 s = ""
 For i =  1  To lpass Step  3 
  s = Chr(Mid(pass, i,  3 )) & s
 Next i
 
 ls = Len(s)
 
 ss = ""
 For i =  1  To ls Step  3 
  ss = ss & Chr(Mid(s, i,  3 ))
 Next i
 
 Дешифрование_пароля = ss
 
End Function