XProfan

Italia

Dietmar
Horn

Hallo zusammen,

irgendwie scheine ich mal wieder den Wald vor lauter Bäumen nicht zu sehen.

Der folgende Code funktioniert mit der einfachen Veschlüsselungsmethode (Modus 0) korrekt, im Modus 1 kommt dagegen nur Müll heraus.

Kompilieren Markieren Separieren

PASSWORD 0,"DHO12345dho"'Klappt!
'PASSWORD 1,"DHO12345dho" 'Klappt nicht
Declare tmp1$,tmp2$
Var inidat$ = $ProgDir + "Test.ini"
writeini inidat$,"SETUP","T1" = pwd$("Text123")
writeini inidat$,"SETUP","T2" = pwd$("Text321")
CLS
print pwd$(ReadIni$(inidat$,"SETUP","T1"))
print pwd$(ReadIni$(inidat$,"SETUP","T2"))
Waitinput

Was müßte ich am Code ändern, um dennoch die sicherere Verschlüsselungsmethode im Modus 1 verwenden zu können?

Saluto
Dietmar

XProfan X2
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

05.09.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

RGH

Ciao,
bei Verschlüsselung mit 1 können (mit hoher Wahrscheinlichkeit) Strings entstehen, die sich nicht korrekt in un INI-File schreiben und/oder aus ihr lesen lassen.
Hier hilft das Funktionspaar Encode64()/Decode(64): Encode64() macht aus jeder beliebigen Bytefolge einen String. der nur aus darstellbaren Zeichen besteht und Decode(64) wandelt diuesen String wieder in die Original-Bytefolge zurück.
Mit dieser doppelten Verschlüsselung klappt es dann:

Kompilieren Markieren Separieren

' PASSWORD 0,"DHO12345dho"'Klappt!
PASSWORD 1,"DHO12345dho"'Klappt nicht
Declare tmp1$,tmp2$
Var inidat$ = $ProgDir + "Test.ini"
writeini inidat$,"SETUP","T1" = encode64(pwd$("Text123"))
writeini inidat$,"SETUP","T2" = encode64(pwd$("Text321"))
CLS
print pwd$(decode64(ReadIni$(inidat$,"SETUP","T1")))
print pwd$(decode64(ReadIni$(inidat$,"SETUP","T2")))
Waitinput