Public Function MyCript(dum As Boolean, Optional s As String)
    Dim i As Byte, tmp As String, d As String, ttt As String
Const ss = "749954565324233656886"
    
    If dum Then
        For i =  1  To Len(ss)
            tmp = tmp & Chr(Asc(Mid(s, i,  1 )) Xor Asc(Mid(ss, i,  1 )))
            If i >= Len(s) Then Exit For
        Next
        
        SaveSetting App.ProductName, "Proba", "tmp", tmp
    Else
        d = GetSetting(App.ProductName, "Proba", "tmp", Null)
        
        For i =  1  To Len(d)
            tmp = tmp & Chr(Asc(Mid(d, i,  1 )) Xor Asc(Mid(ss, i,  1 )))
            If i >= Len(d) Then Exit For
        Next
    End If
    
    MyCript = tmp
    
End Function