Hey 
ich bruchte mal wieder hilfe, irgendwo stehe ich gerade auf dem Schlauch…folgendermaen sieht mein Code gerade aus:
Dim cValue as String = Config_Value
Dim foItem As FolderItem = SpecialFolder.ApplicationData
foItem = foItem.child (App.ExecutableFile.name + ".cfg")
Dim configInput as TextInputStream
if foItem.Exists then
Dim decryptedResult as String
configInput = TextInputStream.Open(foItem)
Dim cResult as String = configInput.Readall
Dim cJSON as new JSONItem(cResult)
Dim result as String = cJSON.Lookup(cValue, "false")
If result = "false" Then
decryptedResult = result
else
msgbox (result)
result= DecodeBase64(result)
MsgBox (result)
Dim decryptedData as MemoryBlock = Crypto.RSADecrypt(result, priKey)
decryptedResult = decryptedData
end if
configInput.Close
return decryptedResult
else
return "Es wurde keine Konfigurations-Datei gefunden!"
end ifBeim Speichern benutze ich auch EncodeBase64 auf den verschlsselten String. Das Problem ist allerdings das ich beim entschlsseln dann einen Fehler bekomme…ich glaube das hat irgendwas mit dem DecodeBase64 zu tun, das macht irgendwas komisches…
Vor dem Decode64
Nach dem Decode64
Irgendwo scheine ich auf dem Schlauch zu stehen, brte da jetzt schon lnge drber…das Problem ist das ich den Encode64 brauche, da sonst JSON jammert