Sub loadSaves
If kvs.ContainsKey("data_db") Then
Log("exist data")
Log(kvs.GetEncrypted("data_db_server", "DBserver"))
Log(kvs.GetEncrypted("data_db_port", "DBport"))
Log(kvs.GetEncrypted("data_db_name", "DBname"))
Log(kvs.GetEncrypted("data_db_user", "DBuser"))
Log(kvs.GetEncrypted("data_db_pass", "DBpass"))
End If
End Sub
Sub writeSaves
kvs.PutEncrypted("data_db_server", "192.168.1.31", "DBserver")
kvs.PutEncrypted("data_db_port", 1234, "DBport")
kvs.PutEncrypted("data_db_name", "kvs_test", "DBname")
kvs.PutEncrypted("data_db_user", "admin", "DBuser")
kvs.PutEncrypted("data_db_pass", "pw1234", "DBpass")
Log("data written")
End Sub